Untitled

Процедура ОбработкаПроведенияБУ(Отказ)
	
	// ДВИЖЕНИЯ ПО РЕГИСТРУ УПРАВЛЕНЧЕСКИЙ

	Движения.Управленческий.Записывать = Истина;
	
	Движение = Движения.Управленческий.Добавить();
	Движение.СчетДт = ПланыСчетов.Управленческий.Покупатели;
	Движение.СчетКт = ПланыСчетов.Управленческий.ПрибылиУбытки;
	Движение.Период = Дата;
	Движение.СуммаВРублях = СуммаПоДокументу;
	Движение.СуммаВВалютеДт = ?(КурсЕвро = 0, 0, СуммаПоДокументу / КурсЕвро);
	Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = Контрагент;
	Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Договоры] = Договор;
	Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Документы] = Ссылка;
	
КонецПроцедуры