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