Помочь с проводкой по 08.03 счету

https://1clancer.ru/task/77346

Помочь доработать имеющейся код. Цель Нужно сделать кт проводку по 08.03 счет по объекту строительства который является субконто1 для счета.

// Возвращает таблицы для движений, необходимые для проведения документа по регистрам учетных механизмов. // // Параметры: // Документ - ДокументСсылка, ДокументОбъект - ссылка на документ или объект, по которому необходимо получить данные // Регистры - Структура - список имен регистров, для которых необходимо получить таблицы // ДопПараметры - Структура - дополнительные параметры для получения данных, определяющие контекст проведения. // // Возвращаемое значение: // Структура: // * Ключ - Строка - Имя таблицы. // * Значение - ТаблицаЗначений - таблица данных для отражения в регистр. // Функция ДанныеДокументаДляПроведения(Документ, Регистры, ДопПараметры = Неопределено) Экспорт

Если ДопПараметры = Неопределено Тогда ДопПараметры = ПроведениеДокументов.ДопПараметрыИнициализироватьДанныеДокументаДляПроведения(); КонецЕсли;

Если ТипЗнч(Документ) = Тип("ДокументОбъект.ГР_АмортизацияЗалоговыхОсновныхСредств") Тогда ДокументСсылка = Документ.Ссылка; Иначе ДокументСсылка = Документ; КонецЕсли;

Запрос = Новый Запрос; ТекстыЗапроса = Новый СписокЗначений;

Если Не ДопПараметры.ПолучитьТекстыЗапроса Тогда

ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка);

ТекстЗапросаТаблицаЗалоговыеОС(ТекстыЗапроса, Регистры);

РеглУчетПроведениеСервер.ТекстЗапросаТаблицаОтражениеДокументовВРеглУчете(Запрос, ТекстыЗапроса, Регистры);

КонецЕсли;

ТаблицыДвижений = ПроведениеДокументов.ИнициализироватьДанныеДокументаДляПроведения(Запрос, ТекстыЗапроса, ДопПараметры);

Возврат ТаблицыДвижений;

КонецФункции

Процедура ЗаполнитьПараметрыИнициализации(Запрос, ДокументСсылка)

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

Реквизиты = Запрос.Выполнить().Выбрать(); Реквизиты.Следующий();

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

КонецПроцедуры

Функция ТекстОтраженияВРеглУчете() Экспорт

ТекстЗапроса = "";

ТекстыОтражения = Новый Массив;

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