Имя: Пароль:
1C
1С v8
Выгрузка номенклатуры из УНФ 8.2 в бух 8,3
0 lero4ka23
 
09.12.15
07:27
Через внешнее соединение с бухгалтерией передаю номенклатуру,
сначала идет Поиск элементов, еще не созданных в Бухгалтерии и добавление их в справочник потом перезапись существующих вот в момент перезаписи программа вылетает. Еще в понедельник всё работало

&НаКлиенте
Процедура ВыполнитьВыгрузку(Команда)

        // Поиск элементов, еще не созданных в Бухгалтерии и добавление их в справочник, перезапись существующих.
    Поиск = МенеджерНоменклатуры.НайтиПоКоду(Стр.Код);
    Если Поиск = МенеджерНоменклатуры.ПустаяСсылка() Тогда
    
        НовыйЭлемент = МенеджерНоменклатуры.СоздатьЭлемент();
        НовыйЭлемент.Код = Стр.Код;
        НовыйЭлемент.Наименование = Стр.Наименование;
        НовыйЭлемент.НаименованиеПолное = Стр.НаименованиеПолное;
        ЕдИзм =Открытие.Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(Строка(Стр.ЕдиницаИзмерения));
        НовыйЭлемент.ЕдиницаИзмерения =ЕдИзм.Ссылка;
        НовыйЭлемент.Родитель= ГруппаНоменклатуры;
        Иначе         
        НовыйЭлемент.Записать();
    
        НоменклатураОбъект = Поиск.Ссылка.ПолучитьОбъект();
        НоменклатураОбъект.Наименование = Стр.Наименование;
        НоменклатураОбъект.НаименованиеПолное = Стр.НаименованиеПолное;
        ЕдИзм =Открытие.Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(Строка(Стр.ЕдиницаИзмерения));
        НоменклатураОбъект.ЕдиницаИзмерения =ЕдИзм.Ссылка;
        НоменклатураОбъект.Родитель= ГруппаНоменклатуры;
          НоменклатураОбъект.Записать();
    
КонецПроцедуры
1 lero4ka23
 
09.12.15
07:30
Ой Иначе ниже   НовыйЭлемент.Записать();