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