S
SimonenkoT
Здравствуйте!
Прошу вас помогите мне.
1С версия 8.2 - 1С:Предприятие 8.2 (8.2.13.202)
Есть обработка для загрузки данных из экселя в справочник номенклатура.
Проблема в том что в процедуре СозданиеДокумента. все работает нормально. но данные в справочник он не записывает . прошу вас помогите.
Заранее благодарю вас.
Процедура СоздаемДокументы()
// Создаем документы
Для каждого Стр Из ДанныеЛиста Цикл
ОбработкаПрерыванияПользователя();
СтрокаПоиска = СокрЛП(Стр.КодНоменклатуры);
Номенклатура = Справочники.Номенклатура;
НайденнаяСсылка = Номенклатура.НайтиПоРеквизиту("Артикул", СтрокаПоиска);
Если НайденнаяСсылка = Номенклатура.ПустаяСсылка() Тогда
Сообщить("Номенклатуры """ + СтрокаПоиска + """ еще нет, создан документ.");
Док = Документы.brg_ЗаявкиНаВводНоменклатуры.СоздатьДокумент();
Док.Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнаяОрганизация");
Док.Дата = ТекущаяДата();
Док.УстановитьВремя();
Док.Наименование = Стр.НомерПП;
Док.НаименованиеПолное = Стр.DESCRIPTION;
Док.Артикул = Стр.КодНоменклатуры;
Если Не Справочники.КлассификаторЕдиницИзмерения.НайтиПоРеквизиту("NameFromFile", СокрЛП(Стр.ЕдИзмер)).Пустая() Тогда
Док.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоРеквизиту("NameFromFile", СокрЛП(Стр.ЕдИзмер));
Иначе
Сообщить("Не найдена единица измерения "+Стр.ЕдИзмер);
КонецЕсли;
Док.Ответственный = глТекущийПользователь;
Док.Комментарий = "Загружен из Excel";
Док.СостояниеЗаявки = Перечисления.brg_СостоянияЗаявокНаВводКонтрагента.НаРассмотрении;
Док.Записать();
Иначе
Сообщить("Нашли номенклатуру по артикулу "+СтрокаПоиска);
КонецЕсли;
КонецЦикла;
КонецПроцедуры // СоздаемДокументы()
Прошу вас помогите мне.
1С версия 8.2 - 1С:Предприятие 8.2 (8.2.13.202)
Есть обработка для загрузки данных из экселя в справочник номенклатура.
Проблема в том что в процедуре СозданиеДокумента. все работает нормально. но данные в справочник он не записывает . прошу вас помогите.
Заранее благодарю вас.
Процедура СоздаемДокументы()
// Создаем документы
Для каждого Стр Из ДанныеЛиста Цикл
ОбработкаПрерыванияПользователя();
СтрокаПоиска = СокрЛП(Стр.КодНоменклатуры);
Номенклатура = Справочники.Номенклатура;
НайденнаяСсылка = Номенклатура.НайтиПоРеквизиту("Артикул", СтрокаПоиска);
Если НайденнаяСсылка = Номенклатура.ПустаяСсылка() Тогда
Сообщить("Номенклатуры """ + СтрокаПоиска + """ еще нет, создан документ.");
Док = Документы.brg_ЗаявкиНаВводНоменклатуры.СоздатьДокумент();
Док.Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнаяОрганизация");
Док.Дата = ТекущаяДата();
Док.УстановитьВремя();
Док.Наименование = Стр.НомерПП;
Док.НаименованиеПолное = Стр.DESCRIPTION;
Док.Артикул = Стр.КодНоменклатуры;
Если Не Справочники.КлассификаторЕдиницИзмерения.НайтиПоРеквизиту("NameFromFile", СокрЛП(Стр.ЕдИзмер)).Пустая() Тогда
Док.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоРеквизиту("NameFromFile", СокрЛП(Стр.ЕдИзмер));
Иначе
Сообщить("Не найдена единица измерения "+Стр.ЕдИзмер);
КонецЕсли;
Док.Ответственный = глТекущийПользователь;
Док.Комментарий = "Загружен из Excel";
Док.СостояниеЗаявки = Перечисления.brg_СостоянияЗаявокНаВводКонтрагента.НаРассмотрении;
Док.Записать();
Иначе
Сообщить("Нашли номенклатуру по артикулу "+СтрокаПоиска);
КонецЕсли;
КонецЦикла;
КонецПроцедуры // СоздаемДокументы()