Untitled
unknown
plain_text
a year ago
1.6 kB
0
Indexable
Never
Процедура ОбработкаПроведения(Отказ, Режим) // ДВИЖЕНИЯ ПО РЕГИСТРУ УПРАВЛЕНЧЕСКИЙ Движения.Управленческий.Записывать = Истина; // Согласно условию каждая позиция табличной части уникальна, поэтому группировать строки нет смысла Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл Движение = Движения.Управленческий.Добавить(); Движение.СчетДт = ПланыСчетов.Управленческий.Товары; Движение.СчетКт = ПланыСчетов.Управленческий.Поставщики; Движение.Период = Дата; Движение.КоличествоДт = ТекСтрокаСписокНоменклатуры.Количество; Движение.Сумма = ТекСтрокаСписокНоменклатуры.Сумма; Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Номенклатура] = ТекСтрокаСписокНоменклатуры.Номенклатура; Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.ИнвНомер] = ТекСтрокаСписокНоменклатуры.ИнвНомер; КонецЦикла; КонецПроцедуры