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