WMS ›
Помоги реализовать дороботку ›
#7
25.10.07 16:04
Всё это понятно, но у меня почемуто нечего не отображаеть, при реализации я чёлкаю по партии выпадает окошко выбора партии, я там вижу партии и вижу колонку № выпуска но она там пустая, почемуто????может кто подскажет что ещё можно сделать ????
На сегодня я имею :
В табличную часть документа "Поступление ТМЦ" и в справочник "Партии" я уже добавил реквизит №Выпуска (тип число)
+вот этот исходный код подредактировал и всё
В модуль док Поступление ТМЦ я добавил в процедуру Создать партию следующие:
Процедура СоздатьПартию(ПартияИсточник = 0)
Если ПустоеЗначение(Номенклатура) = 1 Тогда
Возврат;
КонецЕсли;
Если ПустоеЗначение(Партия) = 0 Тогда
// если партия уже записана - не трогаем ее!
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПартияИсточник) = 0 Тогда
Если (ПартияИсточник.ГТД.Выбран() = 1)
или (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)
или (ПартияИсточник.Свойство.Выбран() = 1)
или (ПартияИсточник.Выпуск.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = ПартияИсточник.ГТД;
СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;
СпрПартии.Свойство = ПартияИсточник.Свойство;
СпрПартии.Свойство = ПартияИсточник.Выпуск;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
Иначе
Если (Номенклатура.НомерГТД.Выбран() = 1)
или (Номенклатура.СтранаПроисхождения.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = Номенклатура.НомерГТД;
СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // СоздатьПартию()