Процедура ОбработкаПроведения(Отказ, Режим)
	//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

	Если Остаток > ФактическийОстаток Тогда
		// регистр РасходДенежныхСредств 
		Движения.РасходДенежныхСредств.Записывать = Истина;
		Движение = Движения.РасходДенежныхСредств.Добавить();
		Движение.Период = Дата;
		Движение.СчетДенежныхСредств = СчетДенежныхСредств;
		Движение.Сумма = Остаток - ФактическийОстаток;			
		// регистр ОстатокПоСчетамДенежныхСредств Расход	
		Движения.ОстатокПоСчетамДенежныхСредств.Записывать = Истина;
		Движение = Движения.ОстатокПоСчетамДенежныхСредств.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
		Движение.Период = Дата;
		Движение.СчетДенежныхСредств = СчетДенежныхСредств;
		Движение.Сумма = ФактическийОстаток;
	ИначеЕсли Остаток < ФактическийОстаток Тогда
		// регистр ДоходДенежныхСредств
		Движения.ДоходДенежныхСредств.Записывать = Истина;
		Движение = Движения.ДоходДенежныхСредств.Добавить();
		Движение.Период = Дата;
		Движение.СчетДенежныхСредств = СчетДенежныхСредств;
		Движение.Сумма = ФактическийОстаток - Остаток;	
		// регистр ОстатокПоСчетамДенежныхСредств Приход
		Движения.ОстатокПоСчетамДенежныхСредств.Записывать = Истина;
		Движение = Движения.ОстатокПоСчетамДенежныхСредств.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
		Движение.Период = Дата;
		Движение.СчетДенежныхСредств = СчетДенежныхСредств;
		Движение.Сумма = ФактическийОстаток;		
	Иначе	
		Отказ = Истина;
		Сообщить("Суммы остатка и фактического остатка совпадают!" + Символы.ПС + "Корректировка не требуется.");
	КонецЕсли;
		
	//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

&НаКлиенте
Процедура СчетДенежныхСредствПриИзменении(Элемент)
	
    Счет = Объект.СчетДенежныхСредств;	
	Объект.Остаток = ВернутьОстатокПоСчету(Счет);
	
КонецПроцедуры

&НаСервере
Функция ВернутьОстатокПоСчету(Счет)
	
	Запрос = Новый Запрос;
	Запрос.Текст =  "ВЫБРАТЬ
	                |	ЕСТЬNULL(ОстатокПоСчетамДенежныхСредствОстатки.СуммаОстаток, 0) КАК СуммаОстаток
	                |ИЗ
	                |	РегистрНакопления.ОстатокПоСчетамДенежныхСредств.Остатки(&НаДату, СчетДенежныхСредств = &Счет) КАК ОстатокПоСчетамДенежныхСредствОстатки";
	Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
	Запрос.УстановитьПараметр("Счет", Счет);

	Результат = Запрос.Выполнить();
	
	Остаток = Результат.Выгрузить()[0].СуммаОстаток;
	Возврат Остаток;
	
КонецФункции