0
Смертник
04.12.12
✎
11:43
|
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта) Экспорт
ФормаВыбора = Документы.ЗаказПокупателя.ПолучитьФормуВыбора();
ФормаВыбора.Заголовок = "Выберите приходный ордер для заполнения таблицы закупок";
ФормаВыбора.РежимВыбора = Истина;
Грузоотправитель = Объект.Грузоотправитель;
Подразделение = Объект.Подразделение;
ФормаВыбора.Отбор.Грузоотправитель.Значение = Грузоотправитель;
ФормаВыбора.Отбор.Грузоотправитель.Использование = Истина;
ФормаВыбора.Отбор.Подразделение.Значение = Подразделение;
ФормаВыбора.Отбор.Подразделение.Использование = Истина;
Заказ = ФормаВыбора.ОткрытьМодально();
Если НЕ ЗначениеЗаполнено(Заказ) Тогда
Возврат;
КонецЕсли;
ТЗ = Заказ.Товары.Выгрузить();
ТЗ.Колонки.Добавить("Покупатель");
ТЗ.ЗаполнитьЗначения(Заказ.Контрагент,"Покупатель");
ТЗ.Колонки.Добавить("Договор");
ТЗ.ЗаполнитьЗначения(Заказ.ДоговорКонтрагента,"Договор");
ТЗ.Колонки.Добавить("Заказ");
ТЗ.ЗаполнитьЗначения(Заказ.Ссылка,"Заказ");
Объект.Товары.Загрузить(ТЗ);
КонецПроцедуры
Эта обработка заполнения по Заказу покупателя, а как ее переделать в Добавить по Заказу покупателя, или невощможно?
|
|