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

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

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

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