Подскажите как заменить группу
    
ТЗ.Группа=сокрЛП(Лист.Cells(НомерСтроки, 6).Value);  //Группа
                спрГруппа=создатьобъект("Справочник.Группа");
                Если найти(нРег(ТЗ.Группа),"бас")<>0 Тогда//бастион
                    //найдем в справочнике бастион
                    Если спрГруппа.НайтиПоНаименованию("Бастіон")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли найти(нРег(ТЗ.Группа),"рем")<>0 тогда            //Преміум
                    Если спрГруппа.НайтиПоНаименованию("Преміум")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="л" тогда            //Люкс  
                    Если спрГруппа.НайтиПоНаименованию("Люкс")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="р" тогда            //регион
                    Если спрГруппа.НайтиПоНаименованию("Регіон")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="с" тогда            //Стандарт
                    Если спрГруппа.НайтиПоНаименованию("Стандарт")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли (Найти(ТЗ.Группа,"мас")>0) или (сокрЛП(нРег(Лев(ТЗ.Группа,1)))="м") тогда//Масив
                    Если спрГруппа.НайтиПоНаименованию("Масив")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли (сокрЛП(нРег(Сред(ТЗ.Группа,2,1)))="л") тогда        //Еліт
                    Если спрГруппа.НайтиПоНаименованию("Еліт")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                Иначе
                    сообщить("Не вірно вказана група дверей в рядку: " + НомерСтроки);
                    Эксель.Quit();
                    возврат;
                КонецЕсли;

ЯНХНПП

Что конкретно не получается?

Нужно заменить группу (Бастион на М1), (Масив на М2), (Люкс на М3), при простом переиновании выдает ошибку

Вот полная запись
перем пп;
//**********************************************
функция случ(пп)
    Rnd = СоздатьОбъект("System.Random");
    а=Rnd.Next();
    а=число(лев(а,4));
    пп=а;
КонецФункции

//*******************************************
Процедура Выполнить()
время1=ТекущееВремя();
ОчиститьОкноСообщений();  
Эксель = СоздатьОбъект("Excel.Application");  
Спр=создатьобъект("Справочник.Контрагенты");
СпрСклад=создатьобъект("Справочник.Склад");
СтатВозврат=0;
ссс=0;
ШТ="";
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("НомерЗаказа");
ТЗ.НоваяКолонка("НомерЗаказаВходящий");
ТЗ.НоваяКолонка("Ширина");
ТЗ.НоваяКолонка("Высота");
ТЗ.НоваяКолонка("ЛевыйПравый");
ТЗ.НоваяКолонка("Группа");
ТЗ.НоваяКолонка("ДопЗамок");
ТЗ.НоваяКолонка("ЦветНаружный");
ТЗ.НоваяКолонка("РисНар");
ТЗ.НоваяКолонка("ЦветВнутренний");
ТЗ.НоваяКолонка("РисВнутр");
ТЗ.НоваяКолонка("КовкаНомер");
ТЗ.НоваяКолонка("Порог");
ТЗ.НоваяКолонка("Четверть");
ТЗ.НоваяКолонка("Петля");
ТЗ.НоваяКолонка("Антисрезы");
ТЗ.НоваяКолонка("ДопИнформация");
ТЗ.НоваяКолонка("Цена");
ТЗ.НоваяКолонка("КонтрАгент");  
ТЗ.НоваяКолонка("Склад");  
ТЗ.НоваяКолонка("Оплата");
ТЗ.НоваяКолонка("ТипДоставки");
ТЗ.НоваяКолонка("Инфо");

//ТипДиалога = 0; // <ТипДиалога> -: 0 - диалог типа <открыть>, 1 - диалог типа <сохранить>;
//ЗахваченныйФайл = ""; // <ИмяФайла> - переменная, содержащая на входе строку с именем файла, а на выходе - имя выбранного файла;
//Путь = "C:\Documents and Settings\Admin\Рабочий стол\"; // <ИмяНачКаталога> - переменная, содержащая на входе строку с  начальным каталогом, а на выходе - имя выбранного каталога;
//ФС.ВыбратьФайл(ТипДиалога,ЗахваченныйФайл,Путь,"Выберите файл ...","все файлы(*.*)|*.*",,);
//Если (ЗахваченныйФайл="") Тогда
    //Возврат;
//КонецЕсли;
СпрГруппа=создатьобъект("Справочник.Группа");
Если спрГруппа.НайтиПоНаименованию("Бастіон")=0 Тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Бастіон";
    спрГруппа.записать();
КонецЕсли;
если спрГруппа.НайтиПоНаименованию("Преміум")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Преміум";
    спрГруппа.записать();
КонецЕсли;    
если спрГруппа.НайтиПоНаименованию("Люкс")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Люкс";
    спрГруппа.записать();
КонецЕсли;    
если спрГруппа.НайтиПоНаименованию("Регіон")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Регіон";
    спрГруппа.записать();
КонецЕсли;    
если спрГруппа.НайтиПоНаименованию("Стандарт")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Стандарт";
    спрГруппа.записать();
КонецЕсли;    
если спрГруппа.НайтиПоНаименованию("Масив")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Масив";
    спрГруппа.записать();
КонецЕсли;    
если спрГруппа.НайтиПоНаименованию("Еліт")=0 тогда
    спрГруппа.Новый();
    спрГруппа.наименование="Еліт";
    спрГруппа.записать();
КонецЕсли;
НачатьТранзакцию();
//-------------------------------------------------------------
имя=КаталогИБ()+"\Exel\*.*";
результат=ФС.НайтиПервыйФайл(имя);
СколькоВсегоЭлементовПеребора=0;
Пока результат<>"" цикл
    результат=ФС.НайтиСледующийФайл();  
    Если прав(СокрЛП(результат),3)<>"xls" Тогда
    Иначе
        Если (СокрЛП(результат)<>"..") и (СокрЛП(результат)<>"")Тогда
            имя2=КаталогИБ()+"\Exel\"+результат;
            Сообщить(результат);
            НомерЛиста=1;
            Книга = Эксель.WorkBooks.Open(имя2);
            Лист = Книга.WorkSheets(НомерЛиста);
            ку=0;
            сч=0;
            НомерСтроки=5;
            НомерКолонки=3;
            ввв=0;      
            ввв2=0;
            СколькоВсегоЭлементовПеребора=0;
            пока сч<5 цикл
                НомерСтроки=НомерСтроки+1;
                Значение = Лист.Cells(НомерСтроки, 3).Value;
                если ПустоеЗначение(Значение)=0 тогда
                    ТЗ.НоваяСтрока();
                    ТЗ.Инфо="В документе "+результат+", в строке "+НомерСтроки+" ДУБЛЬ ТМЦ";
                    ТЗ.НомерЗаказа = Число(Лист.Cells(НомерСтроки,1).Value); //Код наш
                    ТЗ.НомерЗаказаВходящий = Число(Лист.Cells(НомерСтроки,2).Value); //код Склад
                    ТЗ.ТипДоставки=(Лист.Cells(НомерСтроки,24).Value); //Доставка через новую почту или самовывоз
                    Если сокрлп(ТЗ.ТипДоставки)="" Тогда
                        ТЗ.ТипДоставки=перечисление.ТипДоставки.Самовывоз;
                    Иначе
                        ТЗ.ТипДоставки=перечисление.ТипДоставки.НоваяПочта;
                    КонецЕсли;
                    ТЗ.Цена=Число(Лист.Cells(НомерСтроки,19).Value); //Цена
                    СколькоВсегоЭлементовПеребора=СколькоВсегоЭлементовПеребора+1;
                //-------------------------------------------------------------
                    ТЗ.КонтрАгент= лев(СокрЛП(Лист.Cells(НомерСтроки,20).Value),50);  //КогтрАгент 20 ячейка
                    Если ТЗ.КонтрАгент<>"" Тогда
                        спр.ВыбратьЭлементы();
                        Икс=0;
                        Пока спр.получитьэлемент()=1  Цикл
                               Если СокрЛП(нРег(спр.наименование))=сокрЛП(нРег(ТЗ.КонтрАгент)) Тогда    
                                   икс=1;
                                   ТЗ.КонтрАгент=спр.текущийэлемент();
                                   СпрСклад.найтиПоКоду("3");
                                   ТЗ.Склад=СпрСклад.ТекущийЭлемент();            //Склад
                               конецесли;
                        КонецЦикла;
                           если Икс=0 тогда
                            спр.Новый();
                            спр.Наименование=ТЗ.Контрагент;
                            спр.Автозапись=1;
                               спр.записать();
                               ТЗ.Контрагент=спр.ТекущийЭлемент();    
                               СпрСклад.найтиПоКоду("3");
                               ТЗ.Склад=СпрСклад.ТекущийЭлемент();
                               //Сообщить("Контагент " + ТЗ.КонтрАгент + " добавлен в базу!");
                        Конецесли;
                    Иначе
                        ТЗ.КонтрАгент="";
                        СпрСклад.найтиПоКоду("3");
                           ТЗ.Склад=СпрСклад.ТекущийЭлемент();
                    КонецЕсли;
                //-------------------------------------------------------------
                       ТЗ.Оплата=Лист.Cells(НомерСтроки, 23).Value; //Оплатил ли клиент трубу
                       Если пустоеЗначение(СокрЛП(ТЗ.Оплата))=1 Тогда
                           ТЗ.Оплата=Перечисление.Долг.Есть;    
                       Иначе
                           ТЗ.Оплата=Перечисление.Долг.Нет;
                       КонецЕсли;
                   
                //-------------------------------------------------------------
                    ТЗ.Ширина= Лист.Cells(НомерСтроки, 3).Value;  //Ширина двери                
                //-------------------------------------------------------------
                    ТЗ.Высота= Лист.Cells(НомерСтроки, 4).Value;  //Высота двери
                    если (СокрЛП(ТЗ.Высота)="")или(СокрЛП(ТЗ.Высота)="0")тогда
                        ТЗ.Высота="2050";
                    КонецЕсли;                                                    
                //-------------------------------------------------------------
                    Если Найти(сокрЛП(нРег(Лист.Cells(НомерСтроки,5).Value)),"л")<>0 Тогда //Лево
                        ТЗ.ЛевыйПравый=перечисление.Левый_Правый.Лево;
                    Иначеесли Найти(сокрЛП(нРег(Лист.Cells(НомерСтроки,5).Value)),"п")<>0 Тогда  //Право
                        ТЗ.ЛевыйПравый=перечисление.Левый_Правый.Право;
                    иначе
                        зн=Лист.Cells(НомерСтроки,5).Value;
                        сообщить(зн);
                        сообщить("Не вірно вказана сторона відкривання в рядку: " + НомерСтроки);
                        Эксель.Quit();
                        возврат;
                    КонецЕсли;
                //-------------------------------------------------------------
                    ТЗ.Группа=сокрЛП(Лист.Cells(НомерСтроки, 6).Value);  //Группа
                спрГруппа=создатьобъект("Справочник.Группа");
                Если найти(нРег(ТЗ.Группа),"бас")<>0 Тогда//бастион
                    //найдем в справочнике бастион
                    Если спрГруппа.НайтиПоНаименованию("Бастіон")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли найти(нРег(ТЗ.Группа),"рем")<>0 тогда            //Преміум
                    Если спрГруппа.НайтиПоНаименованию("Преміум")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="л" тогда            //Люкс  
                    Если спрГруппа.НайтиПоНаименованию("Люкс")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="р" тогда            //регион
                    Если спрГруппа.НайтиПоНаименованию("Регіон")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли сокрЛП(нРег(Лев(ТЗ.Группа,1)))="с" тогда            //Стандарт
                    Если спрГруппа.НайтиПоНаименованию("Стандарт")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли (Найти(ТЗ.Группа,"мас")>0) или (сокрЛП(нРег(Лев(ТЗ.Группа,1)))="м") тогда//Масив
                    Если спрГруппа.НайтиПоНаименованию("Масив")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                ИначеЕсли (сокрЛП(нРег(Сред(ТЗ.Группа,2,1)))="л") тогда        //Еліт
                    Если спрГруппа.НайтиПоНаименованию("Еліт")=1 Тогда
                        ТЗ.Группа=спрГруппа.ТекущийЭлемент();
                    Иначе
                        Эксель.Quit();
                        Сообщить("В справочнике нет группы: " + ТЗ.Группа);
                        возврат;
                    КонецЕсли;
                Иначе
                    сообщить("Не вірно вказана група дверей в рядку: " + НомерСтроки);
                    Эксель.Quit();
                    возврат;
                КонецЕсли;
                 //-------------------------------------------------------------
                    ТЗ.ДопЗамок=Лист.Cells(НомерСтроки, 7).Value;    //ДопЗамок
                    Если (ТЗ.ДопЗамок=0) или (ТЗ.ДопЗамок="") Тогда
                        ТЗ.ДопЗамок=0;
                    Иначе
                        ТЗ.ДопЗамок=1;    
                    КонецЕсли;
                //--------------------------------------------------------------
                    пвх1=Лист.Cells(НомерСтроки,10).Value;            //Цвет Наружный
                    Если (сокрЛП(пвх1)="") или (пвх1=0) Тогда
                        Сообщить("Не вказана плівна зовнішньої сторони!");
                        Эксель.Quit();
                        возврат;
                    Иначе
                        пвх2=Лист.Cells(НомерСтроки,11).Value;        //Цвет Внутренний
                        Если (сокрЛП(пвх2)="") или (пвх2=0) Тогда
                            пвх2=пвх1;
                        КонецЕсли;
                    КонецЕсли;
                    ТЗ.ЦветНаружный=ПВХ1;
                    ТЗ.ЦветВнутренний=ПВХ2;
                //-------------------------------------------------------------
                    ТЗ.РисНар=Лист.Cells(НомерСтроки,8).Value;        //Рисунок Наружный
                //-------------------------------------------------------------
                    ТЗ.РисВнутр=Лист.Cells(НомерСтроки,9).Value;    //Рисунок Внутренний
                //-------------------------------------------------------------
                    ТЗ.КовкаНомер= Лист.Cells(НомерСтроки, 12).Value;//Ковка
                    слово=ТЗ.КовкаНомер;
                    конечноечисло="";
                    статус=0;
                    сч=1;  
                    счЕНД=СтрДлина(Слово);
                    пока сч<=счЕНД цикл
                        символ=Сред(слово,сч,1);
                        Если (КодСимв(Символ)>=48) И (КодСимв(Символ)<=57) Тогда
                            статус=1;
                        Иначе
                            статус=0;
                           КонецЕсли;
                        если статус=1 тогда                                
                            конечноечисло=конечноечисло+Сред(слово,сч,1);  
                        КонецЕсли;  
                        сч=сч+1;
                    Конеццикла;          
                    конечноечисло=Число(конечноечисло);
                    ТЗ.КовкаНомер=конечноечисло;
                //--------------------------------------------------------------
                    ТЗ.Порог=Лист.Cells(НомерСтроки, 13).Value;     //Порог
                    Если (ТЗ.Порог=0) или (СокрЛП(ТЗ.Порог)="") Тогда
                        ТЗ.Порог=0;
                    Иначе
                        ТЗ.Порог=1;    
                    КонецЕсли;
                //-------------------------------------------------------------
                    ТЗ.Четверть= Лист.Cells(НомерСтроки, 14).Value; //Четверть
                    Если (ТЗ.Четверть=0) или (СокрЛП(ТЗ.Четверть)="") Тогда
                        ТЗ.Четверть=0;
                    Иначе
                        ТЗ.Четверть=1;    
                    КонецЕсли;
                //-------------------------------------------------------------
                    ТЗ.Петля= Лист.Cells(НомерСтроки, 15).Value;     //Петля
                    Если (ТЗ.Петля=0) или (СокрЛП(ТЗ.Петля)="") Тогда
                        ТЗ.Петля=0;
                    Иначе
                        ТЗ.Петля=1;    
                    КонецЕсли;
                //-------------------------------------------------------------
                    ТЗ.Антисрезы= Лист.Cells(НомерСтроки, 16).Value;    //Антисрез
                    Если (ТЗ.Антисрезы=0) или (СокрЛП(ТЗ.Антисрезы)="") Тогда
                        ТЗ.Антисрезы=0;
                    Иначе
                        ТЗ.Антисрезы=1;    
                    КонецЕсли;                                                  
                //-------------------------------------------------------------
                    ТЗ.ДопИнформация= сокрЛП(Лист.Cells(НомерСтроки, 17).Value);//ДопИнфо
                    сч=0;
                Иначе
                    сч=сч+1;
                Конецесли;
            Конеццикла;
            Сообщить("Количество Дверей в Заказе - " + СколькоВсегоЭлементовПеребора);
            Эксель.Quit();
            //формируем ТЗ  
            //*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*//*/*/*/*/
            ТЗДок=СоздатьОбъект("ТаблицаЗначений");
            ТЗДок.НоваяКолонка("НомерЗаказа");  
            ТЗДок.НоваяКолонка("НомерЗаказаВходящий");
            ТЗДок.НоваяКолонка("ТМЦ");
            ТЗДок.НоваяКолонка("КонтрАгент");
            ТЗДок.НоваяКолонка("Цена");
            ТЗДок.НоваяКолонка("Количество");
            ТЗДок.НоваяКолонка("Оплата");
            ТЗДок.НоваяКолонка("ТипДоставки");
            ТЗДок.НоваяКолонка("Инфо");
            ТЗ.ВыбратьСтроки();
            конст=константа.НомерЗаказа;    
            ТМЦ=создатьобъект("Справочник.ТМЦ");
            Пока ТЗ.ПолучитьСтроку()=1 Цикл  
    //-------------------------------------------------------------
    //Создадимт Новое ТМЦ
    //-------------------------------------------------------------
                ТМЦ.Новый();
                ТМЦ.Наименование=Строка(ТЗ.Ширина) +" Х "+ Строка(ТЗ.Высота);
                ТМЦ.Ширина=ТЗ.Ширина;
                ТМЦ.Высота=ТЗ.Высота;
                ТМЦ.Сторона_Открывания=ТЗ.ЛевыйПравый;
                ТМЦ.Группа=ТЗ.Группа;
                ТМЦ.Доп_Замок=ТЗ.ДопЗамок;
                ТМЦ.Цвет_Внешний=ТЗ.ЦветНаружный;
                ТМЦ.Цвет_Внутренний=ТЗ.ЦветВнутренний;
                ТМЦ.Рисунок_Внешний=ТЗ.РисНар;
                ТМЦ.Рисунок_Внутренний=ТЗ.РисВнутр;
                ТМЦ.Номер_ковки=ТЗ.КовкаНомер;
                ТМЦ.Порог=ТЗ.Порог;
                ТМЦ.Четверть=ТЗ.Четверть;
                ТМЦ.Петля=ТЗ.Петля;
                ТМЦ.Антисрез=ТЗ.Антисрезы;
                ТМЦ.Доп_Инфо=ТЗ.ДопИнформация;
                ТМЦ.Цена=ТЗ.Цена;
                ТМЦ.РезервНа=ТЗ.КонтрАгент;
                ТМЦ.Склад=ТЗ.Склад;
                ТМЦ.Дата_Создания=ТекущаяДата();
                ТМЦ.НомерЗаказаВходящий=ТЗ.НомерЗаказаВходящий;
                ТМЦ.НомерЗаказаНаш=ТЗ.НомерЗаказа;
                ТМЦ.Долг=ТЗ.Оплата;  
                ТМЦ.ТипДоставки=ТЗ.ТипДоставки;
                ТМЦ.Записать();  
    //-------------------------------------------------------------
                ТЗДок.НоваяСтрока();
                ТЗДок.НомерЗаказаВходящий=ТЗ.НомерЗаказаВходящий;
                ТЗДок.НомерЗаказа=ТЗ.НомерЗаказа;
                ТЗДок.ТипДоставки=ТЗ.ТипДоставки;
                ТЗДок.Инфо=ТЗ.Инфо;
                Докввв=создатьобъект("Документ.fromSklad");
                Докввв.ВыбратьДокументы();    
                Пока Докввв.ПолучитьДокумент()=1  Цикл
                    Докввв.ВыбратьСтроки();
                    Пока Докввв.ПолучитьСтроку()=1 цикл  
                        Если (ТЗДок.НомерЗаказаВходящий=Докввв.НомерЗаказаВходящий)
                        и (Докввв.Проведен()=1)
                        и (Докввв.ДатаДок=ТекущаяДата()) Тогда
                            Сообщить("В документе №" + Докввв.НомерДок + ".Входящий номер " + Докввв.НомерЗаказаВходящий + ", перезаписан в новый документ не будет!");
                            ку=1;                
                            //ку=0;  
                            Сообщить(ТЗДок.Инфо);
                            время2=ТекущееВремя();
                            сообщить("Робота обработки началась в  " + время1 + ", закончилась " + время2);
                        КонецЕсли;
                    КонецЦикла;
                КонецЦикла;    
                ТЗДок.ТМЦ=ТМЦ.текущийЭлемент();
                ТЗДок.КонтрАгент=ТЗ.КонтрАгент;
                ТЗДок.Цена=ТЗ.Цена;
                ТЗДок.Оплата=ТЗ.Оплата;
                ТЗДок.Количество=1;
    
//-------------------------------------------------------------
                ШТ="";
            Конеццикла;
            СпрОператор=создатьобъект("Справочник.Оператор");
            Док=создатьобъект("Документ.fromSklad");
            Спр=создатьобъект("Справочник.Контрагенты");
            
            Если ку=1 Тогда                
                /////////помилка
                Если вопрос("Задвоений номер додати в базу??????????????????????","Да+Нет")="Да" Тогда
                    Док.новый();    
                    Док.Дата_Создания=ТекущаяДата();
            

(2) Ты уже читать научился? Или только копипастить? Ты еще глобальник сюда выложи.

Не буду оригинален "Что конкретно не получается?" ЦЫ(1)

не получается заменить группы

(5) Получаешь ошибку? Ничего не происходит? Что говорит отладчик? И в каком месте.

когда переименовал и пробую подтянуть из екселя товар, то пишет такой группы несуществует или просто все групы пишутся под одной группой

(7) Вам говорили, чтобы вы не выпендривались и говорили по русски?..
Теперь - и сами не понимаете, и русские не понимают.

Поддержу товарищей - ЯНХНПП.

(7) ну так, если ты переименовал группы, то эта обработка в (0) заточена на жесткие наименования и там конечно уже определиться нужная группа с новым названием

я не програмист и непонимаю ваших выпиндросов, я сам пробую разобратся и просто прошу помощи

+(10) ....не может

(11) ты же видишь, что если написано
"Если найти(нРег(ТЗ.Группа),"бас")<>0 Тогда //бастион"
то когда ты переименуешь Бастион в М1, тогда в это условие уже программа никогда не войдёт.
Если ты не программист, то позовите программиста, чтобы он поправил программу на новые наименования групп

все слишком прошеные, ставят из себя непойми кого

(14) Фигасе себе...

(14) Какие - какие?

(11) ->я не програмист и непонимаю ваших выпиндросов

Закройте дверь с той стороны. И не отвлекайте людей.

и тут такие же прошеные выпендросы!!!

всякие хотелки за ваши деньги.

Вы думаете уто-то будет читать вашу портянку при этом угадывая где именно возникает ошибка взамен получая неуважение. ?

кыш.

извените что отвлек вас сидения

(18) Ты совсем укушенный? Чего на людей кидаешься?
Сначала научись свои мысли излагать на понятном русском языке.

кто сидения?

(22) Кто не скачет - тот ... :))))))))))))))))))))))

+ не умеешь работать головой - работай руками

какие все тут умные, просто ужес

и обясняеш не так и все не то

(25) а ты как думал

думал что нормальные

(28) Нормальные - Родину защищают.
Остались только не подлежащие призыву по мед. показаниям :)))))))))

))))

(28) извини, это тебе все понятно, а нам непонятно что ты подразумеваешь под словами "Подскажите как заменить группу".

из приведенного кода видно, что из экселевского файла в базу 1С загружаются какие-то данные согласно заданному алгоритму.

и причем тут какие-то группы ?

(26) Хоть писать по-русски научись. Потом истерики катай.

извините если не так написал, группы товара(двери), бастион, регион, премиум и т д., а теперь мне нужно несколько этих групп переименовать на другие

(33) Успокоился... Слава Богу.

Бери и переименовывай. Открываешь группу (саму группу) и изменяешь наименование на нужное.

при простом переименовании выдает ошибку, когда переименовал и пробую подтянуть из екселя товар, то пишет такой группы несуществует или просто все групы пишутся под одной группой

(33) Не нужно тебе этого делать.
Исходя из :
Если спрГруппа.НайтиПоНаименованию("Бастіон")=1 Тогда
вся логика работы программы завязана на конкретные наименования. Переименуешь - ищи продавцов вазелина.

(35) ))))  Во во. см.(36)

(35) И зачем их нужно переименовывать (группы)?

а что же делать?

в место тех групп уже другие в производстве, в принцыпе можно добавить

(40) Переведи на русский понятный.

(39) Фиг его знает, что ты там хочешь наваять.
Если тебе при импорте нужно сопоставить наименованиям в екселе свои конкретные группы - для твоих групп можно ввести синонимы, например подчиненным справочником.

+ (42) И для каждой твоей группы в справочнике синонимов прописать как оно может называться в Екселе.

(42) Ты щас ему насоветуешь - всё отвалится :)

(44) Нафига отвалится? У меня импорт из электронных накладных поставщиков именно так и работает.
Когда обрабатывал первый образец - поставщик в шапке писал "Товар". Потом стал писать "Номенклатура". Иногда (когда закрепленный менеджер был в отпуске и его кто-то заменял) накладная могла прийти с заголовком колонки "ARTICLE_NAME" или "ТМЦ". После долгого и нудного разбора почему не импортируется накладная пришлось именно так и сделать.
Правда не совсем так. Поскольку помимо заголовка шапки могли поменяться расположение колонок "количество", "цена", их форматы и даже типы. Пришлось делать более сложно, чем просто добавить синонимы. Но в постановке задачи ТС - синонимы его спасут.

(45) Это у тебя работает.
Меня терзают смутные сомнения, что ТС знает, что такое "синонимы".

ладно, буду сам думать, от вас не дождешься, спс тем кто пробовал помочь)

елы-палы, я-то думал я - злопчинский, оказывается - есть кому нести вахту!

спасибо всем "умникам", справился без вас, можете ненапрягатся

(49) удачи умелец

(48) Русская поговорка (старая): как аукнется, так и откликнется.
Современная мудрость: если долго скакать - что-нибудь отвалится.