Рус07
04.04.2015, 17:56
Добрый день.
Есть два документа: ЗаказыПокупателя и РеализацияТоваровИУслуг. Документ РеализацияТоваровИУслуг создаётся на основании документа ЗаказыПокупателя.
задача состоит в следующем: доработать код, созданный с помощью конструктора, таким образом, чтобы при создании документа реализации товаров на основании заказа, в документ попадали не все товары и услуги из заказа, а только те, которые ещё не отгружены по данному заказу.
Задачу нужно решить без использования регистров накопления и регистров сведений и желательно без запроса.
Процедура ОбработкаЗаполнения(Данны� �Заполнения, СтандартнаяОбработка)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказПокуп� �теля") Тогда
// Заполнение шапки
КонтактноеЛицо = ДанныеЗаполнения.Контактн� �еЛицо;
Контрагенты = ДанныеЗаполнения.Контраге� �ты;
ОбщаяСумма = ДанныеЗаполнения.ОбщаяСум� �а;
ИдентификаторЗаказа = ДанныеЗаполнения.Ссылка;
Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.ЕдиницаИзмере� �ия = ТекСтрокаТовары.ЕдиницаИз� �ерения;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклат� �ра;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
КонецЦикла;
Для Каждого ТекСтрокаУслуги Из ДанныеЗаполнения.Услуги Цикл
НоваяСтрока = Услуги.Добавить();
НоваяСтрока.Номенклатура = ТекСтрокаУслуги.Номенклат� �ра;
НоваяСтрока.Сумма = ТекСтрокаУслуги.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Есть два документа: ЗаказыПокупателя и РеализацияТоваровИУслуг. Документ РеализацияТоваровИУслуг создаётся на основании документа ЗаказыПокупателя.
задача состоит в следующем: доработать код, созданный с помощью конструктора, таким образом, чтобы при создании документа реализации товаров на основании заказа, в документ попадали не все товары и услуги из заказа, а только те, которые ещё не отгружены по данному заказу.
Задачу нужно решить без использования регистров накопления и регистров сведений и желательно без запроса.
Процедура ОбработкаЗаполнения(Данны� �Заполнения, СтандартнаяОбработка)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаказПокуп� �теля") Тогда
// Заполнение шапки
КонтактноеЛицо = ДанныеЗаполнения.Контактн� �еЛицо;
Контрагенты = ДанныеЗаполнения.Контраге� �ты;
ОбщаяСумма = ДанныеЗаполнения.ОбщаяСум� �а;
ИдентификаторЗаказа = ДанныеЗаполнения.Ссылка;
Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.ЕдиницаИзмере� �ия = ТекСтрокаТовары.ЕдиницаИз� �ерения;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклат� �ра;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
КонецЦикла;
Для Каждого ТекСтрокаУслуги Из ДанныеЗаполнения.Услуги Цикл
НоваяСтрока = Услуги.Добавить();
НоваяСтрока.Номенклатура = ТекСтрокаУслуги.Номенклат� �ра;
НоваяСтрока.Сумма = ТекСтрокаУслуги.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры