0
Босечка
21.03.19
✎
14:45
|
Есть стандартная процедура в УПП
МассивОшибок = РазузлованиеНоменклатуры.РазузловатьНоменклатуру(СтруктураИсточник, РезультатРазузлования, Параметры);
Если МассивОшибок.Количество() > 0 Тогда
Для каждого Ошибка из МассивОшибок Цикл
ОбщегоНазначения.Сообщение("Ошибка: " + Ошибка.Причина, Ошибка.СтатусОшибки);
ОбщегоНазначения.Сообщение(" Спецификация: " + Ошибка.Спецификация);
ОбщегоНазначения.Сообщение(" Номер строки: " + Ошибка.НомерСтроки);
ОбщегоНазначения.Сообщение(" Описание ошибки: " + Ошибка.ОписаниеОшибки);
КонецЦикла;
КонецЕсли;
Если РезультатРазузлования.ИсходныеКомплектующие = Неопределено Тогда
Продолжить;
КонецЕсли;
ИсходныеКомплектующие = РезультатРазузлования.ИсходныеКомплектующие;
ИсходныеКомплектующие.ЗаполнитьЗначения(Подразделение, "Подразделение");
//заполним подразделение по основной спецификации полуфабрикатов
Для каждого Строка из ИсходныеКомплектующие цикл
ПодразделениеНоменклатуры = ЗаказыНаПроизводствоИПереработку.ПолучитьПодразделениеИзСпецификации(Строка.Спецификация,Строка.Номенклатура,Строка.ХарактеристикаНоменклатуры);
Если ЗначениеЗаполнено(ПодразделениеНоменклатуры) Тогда
Строка.Подразделение = ПодразделениеНоменклатуры;
КонецЕсли;
КонецЦикла;
|
|