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

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





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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

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

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

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

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

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



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

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

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

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

Возврат СтрСоединить(ТекстыОтражения, ОбщегоНазначенияУТ.РазделительЗапросовВОбъединении());

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