Как перенести остаток со счета на счет?

 Запрос = Новый Запрос; 

Запрос.Текст = "ВЫБРАТЬ 

|	ХозрасчетныйОстатки.СуммаОстатокДт 

|ИЗ 

|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , 

|	Субконто1 = &Контрагент И Организация = &Организация И Субконто2 = &Договор) КАК ХозрасчетныйОстатки"; 



// Считаем что на счете ведется аналитика только в разрезе контрагентов 

// и договоров. 

Запрос.УстановитьПараметр("Период", Период1); 

Запрос.УстановитьПараметр("Контрагент", Контрагент); 

Запрос.УстановитьПараметр("Договор", Договор); 

Запрос.УстановитьПараметр("Организация", Организация); 

Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.РасчетыСПокупателями); 



Выборка = Запрос.Выполнить().Выбрать(); 



Если Выборка.Следующий() Тогда 

    Документ = Документы.ОперацияБух.СоздатьДокумент(); 



    Документ.Дата = РабочаяДата; 

    Документ.Организация = Организация; 

    Документ.Содержание = "Погашение дебиторской задолженности"; 



    Проводка = Документ.Движения.Хозрасчетный.Добавить(); 

    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; 

    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы; 

    Проводка.СубконтоДт.Контрагенты = Контрагент; 

    Проводка.СубконтоДт.Договоры = Договор; 

    Проводка.Сумма = Выборка.СуммаОстатокДт; 



    Документ.СуммаОперации = Выборка.СуммаОстатокДт; 



    Форма = Документ.ПолучитьФорму(); 

    Форма.Открыть(); 

КонецЕсли;