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

 Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ 
|	ХозрасчетныйОстатки.СуммаОстатокДт 
|ИЗ 
|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , 
|	Субконто1 = &Контрагент И Организация = &Организация И Субконто2 = &Договор) КАК ХозрасчетныйОстатки"; 

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

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

Если Выборка.Следующий() Тогда 
    Документ = Документы.ОперацияБух.СоздатьДокумент(); 

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

    Проводка = Документ.Движения.Хозрасчетный.Добавить(); 
    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; 
    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы; 
    Проводка.СубконтоДт.Контрагенты = Контрагент; 
    Проводка.СубконтоДт.Договоры = Договор; 
    Проводка.Сумма = Выборка.СуммаОстатокДт; 

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

    Форма = Документ.ПолучитьФорму(); 
    Форма.Открыть(); 
КонецЕсли;