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

   Грузоотправитель = Объект.Грузоотправитель;
   Подразделение     = Объект.Подразделение;

   ФормаВыбора.Отбор.Грузоотправитель.Значение          = Грузоотправитель;
   ФормаВыбора.Отбор.Грузоотправитель.Использование     = Истина;
   ФормаВыбора.Отбор.Подразделение.Значение               = Подразделение;
   ФормаВыбора.Отбор.Подразделение.Использование         = Истина;

   Заказ = ФормаВыбора.ОткрытьМодально();

   Если НЕ ЗначениеЗаполнено(Заказ) Тогда
       Возврат;
   КонецЕсли;
   ТЗ = Заказ.Товары.Выгрузить();
   ТЗ.Колонки.Добавить("Покупатель");
   ТЗ.ЗаполнитьЗначения(Заказ.Контрагент,"Покупатель");
   ТЗ.Колонки.Добавить("Договор");
   ТЗ.ЗаполнитьЗначения(Заказ.ДоговорКонтрагента,"Договор");
   ТЗ.Колонки.Добавить("Заказ");
   ТЗ.ЗаполнитьЗначения(Заказ.Ссылка,"Заказ");

   Объект.Товары.Загрузить(ТЗ);
   
КонецПроцедуры

Эта обработка заполнения по Заказу покупателя, а как ее переделать в Добавить по Заказу покупателя, или невощможно?
1 Godofsin
 
04.12.12
11:48
я один не понял вопроса?
2 Конфигуратор1с
 
04.12.12
11:52
(0)
Меняешь
Объект.Товары.Загрузить(ТЗ);
на
Для каждого стр из тз цикл
НОваястрока = Объект.Товары.Добавить();
ЗаполнитьзначенияСвойств(Новаястрока,стр);
Конеццикла;
3 Смертник
 
04.12.12
11:56
Спасибо)
4 palpetrovich
 
04.12.12
11:57
(0) лучше выгрузи существующую ТабЧасть, соедини ее с той что добавляешь и сверни по Номенклатуре/Единице/Цене
5 Конфигуратор1с
 
04.12.12
12:01
(4)У него заказы разные. Зачем сворачивать?
6 palpetrovich
 
04.12.12
12:21
(5) согласен, недовчитался :)