Поступление в операцию бух конвертация данных 2.1

ИмяПКОВидСубконто = "ВидыСубконто";

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

РезультатЗапроса = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой); // таблица значений из запроса
Если РезультатЗапроса.Количество() > 0 Тогда
    // шапка документа
    ВходящиеДанные = Новый Структура("Дата, Хозрасчетный, Комментарий, Содержание ");
    ВходящиеДанные.Дата = Объект.Дата;
    ВходящиеДанные.Номер = Объект.Номер;
    // табличная часть документа
    РезультатЗапроса.Колонки.Добавить("СубконтоДт");
    РезультатЗапроса.Колонки.Добавить("СубконтоКт");
    Для Каждого ТекущаяСтрокаРезультатЗапроса Из РезультатЗапроса Цикл
        СубконтоДт = Новый Соответствие;
        СубконтоДт.Вставить(Новый Структура("Код", "Контрагенты"), ТекущаяСтрокаРезультатЗапроса.Контрагент);
        СубконтоДт.Вставить(Новый Структура("Код", "ДоговорыКонтрагентов"), ТекущаяСтрокаРезультатЗапроса.Договор);
        ТекущаяСтрокаРезультатЗапроса.СубконтоДт = СубконтоДт;
        СубконтоКт = Новый Соответствие;
        ТекущаяСтрокаРезультатЗапроса.СубконтоКт = СубконтоКт;
    КонецЦикла;
    ВходящиеДанные.бит_Дополнительный_4 = РезультатЗапроса;
    ВыгрузитьПоПравилу(, ,ВходящиеДанные , , "ПоступлениеТоваровУслуг");
КонецЕсли;