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