Может ли кто-нибудь помочь разобраться в коде отчета

Процедура ПолеТабличногоДокументаОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
СтандартнаяОбработка = ложь;
формаДетали = ЭтотОбъект.ПолучитьФорму("ОтчетДетали");
ТабДок = формаДетали.ЭлементыФормы.ПолеТабличногоДокумента;
ТабДок.Очистить();

Запрос = Новый Запрос();

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

Отборы = "";
Если ЭлементыФормы.ПолеВводаУчасток.Значение <> Справочники.пг_ПодразделенияДляКонтактЦентра.ПустаяСсылка()Тогда
Отборы=Отборы+"
| И пг_ЗаявкаНаДоговор.Участок = &Участок";
Запрос.УстановитьПараметр("Участок",ЭлементыФормы.ПолеВводаУчасток.Значение);
КонецЕсли;
Если ЭлементыФормы.ПолеВводаТипЗаявки.Значение <> Перечисления.ПГ_ТипЗаявкиНаДоговор.ПустаяСсылка()Тогда
Отборы=Отборы+"
| И пг_ЗаявкаНаДоговор.ТипЗаявки = &ТипЗаявки";
Запрос.УстановитьПараметр("ТипЗаявки",ЭлементыФормы.ПолеВводаТипЗаявки.Значение);
КонецЕсли;
Если ЭлементыФормы.ПолеВводаМастер.Значение <> Справочники.СотрудникиОрганизаций.ПустаяСсылка()Тогда
Отборы=Отборы+"
| И пг_ЗаявкаНаДоговор.Мастер = &Мастер";
Запрос.УстановитьПараметр("Мастер",ЭлементыФормы.ПолеВводаМастер.Значение);
КонецЕсли;
Если ЭлементыФормы.ПолеВводаСлесарь.Значение <> Справочники.СотрудникиОрганизаций.ПустаяСсылка()Тогда
Отборы=Отборы+"
| И пг_ЗаявкаНаДоговор.Слесарь = &Слесарь";
Запрос.УстановитьПараметр("Слесарь",ЭлементыФормы.ПолеВводаСлесарь.Значение);
КонецЕсли;

ДопПоля = "";
ДопУсловия = "";
Если Расшифровка.Тип = "Завершены" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок4");
ДопУсловия = "
| И пг_ЗаявкаНаДоговор.ЭтапРаботы = ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.РаботыЗавершены)";
ИначеЕсли Расшифровка.Тип = "Отменены" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок2");
ДопПоля = "
| пг_ЗаявкаНаДоговор.ПричинаОтменыЗаявки,";
ДопУсловия = "
| И пг_ЗаявкаНаДоговор.ЭтапРаботы = ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ЗаявкаОтменена)";
ИначеЕсли Расшифровка.Тип = "Просрочены" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок3");
ДопУсловия = "
| И пг_ЗаявкаНаДоговор.ПлановаяДатаВыполненияРабот < &ТекДата
| И пг_ЗаявкаНаДоговор.ПлановаяДатаВыполненияРабот <> ДАТАВРЕМЯ(1,1,1,0,0,0)
| И пг_ЗаявкаНаДоговор.ЭтапРаботы = ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ОтслеживаниеФактаВыполненияРабот)";
Запрос.УстановитьПараметр("ТекДата",НачалоДня(ТекущаяДата()));
ИначеЕсли Расшифровка.Тип = "НеПросрочены" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок3");
ДопУсловия = "
| И не (пг_ЗаявкаНаДоговор.ПлановаяДатаВыполненияРабот < &ТекДата)
| И пг_ЗаявкаНаДоговор.ПлановаяДатаВыполненияРабот <> ДАТАВРЕМЯ(1,1,1,0,0,0)
| И пг_ЗаявкаНаДоговор.ЭтапРаботы = ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ОтслеживаниеФактаВыполненияРабот)";
Запрос.УстановитьПараметр("ТекДата",НачалоДня(ТекущаяДата()));
ИначеЕсли Расшифровка.Тип = "НаПланировании" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок3");
если Расшифровка.КЦ тогда
ДопУсловия = "
| И (пг_ЗаявкаНаДоговор.ЭтапРаботы В (ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.НачальноеЗаполнение), ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ПланированиеРабот), ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ФормированиеСметы))
| или (пг_ЗаявкаНаДоговор.ЭтапРаботы = ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ОтслеживаниеФактаВыполненияРабот)
| и пг_ЗаявкаНаДоговор.ПлановаяДатаВыполненияРабот = ДАТАВРЕМЯ(1,1,1,0,0,0)))";
иначе
ДопУсловия = "
| И (НЕ пг_ЗаявкаНаДоговор.ЭтапРаботы В (ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ЗаявкаОтменена), ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.РаботыЗавершены),ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ОтслеживаниеФактаВыполненияРабот)))";
КонецЕсли;
ИначеЕсли Расшифровка.Тип = "Всего" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок");
ДопУсловия = "
| И ( не пг_ЗаявкаНаДоговор.ЭтапРаботы В (ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.ЗаявкаОтменена), ЗНАЧЕНИЕ(Перечисление.пг_ЭтапыРаботыСЗаявкой.РаботыЗавершены)))";
ИначеЕсли Расшифровка.Тип = "КолвоЗаявок" Тогда
Макет = ЭтотОбъект.ПолучитьМакет("РасшифровкаКолВоЗаявок");
КонецЕсли;

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

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

РезЗапроса = Запрос.Выполнить().Выбрать();

//выводим шапку
ОблОснШапка = Макет.ПолучитьОбласть("Шапка|Основная");
если Расшифровка.Тип = "Просрочены" тогда
ОблОснШапка.Параметры.Просрочка = "просрочены";
иначеесли Расшифровка.Тип = "НеПросрочены" тогда
ОблОснШапка.Параметры.Просрочка = "не просрочены";
иначеесли Расшифровка.Тип = "НаПланировании" тогда
ОблОснШапка.Параметры.Просрочка = "на планировании";
КонецЕсли;
ТабДок.Вывести(ОблОснШапка);
если Расшифровка.КЦ тогда
ОблИспШапка = Макет.ПолучитьОбласть("Шапка|Исполнители");
ТабДок.Присоединить(ОблИспШапка);
КонецЕсли;

Если Расшифровка.Тип = "Завершены" и ПоказыватьСуммы Тогда
Договоры = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Договор");

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

ОблСумШапка = Макет.ПолучитьОбласть("Шапка|Суммы");
ТабДок.Присоединить(ОблСумШапка);

ИтогСумОплаты = 0;
ИтогСумАктов = 0;
КонецЕсли;

Кол = РезЗапроса.Количество();
НомерПоПорядку=1;
Пока РезЗапроса.Следующий() Цикл
ОблОснСтроки = Макет.ПолучитьОбласть("Строка|Основная");
ОблОснСтроки.Параметры.Номер = НомерПоПорядку;
ОблОснСтроки.Параметры.ПараметрНомерЗаявки = РезЗапроса.НомерЗаявки;
ОблОснСтроки.Параметры.Заполнить(РезЗапроса);
ТабДок.Вывести(ОблОснСтроки);
если Расшифровка.КЦ тогда
ОблИспСтрока = Макет.ПолучитьОбласть("Строка|Исполнители");
ОблИспСтрока.Параметры.Заполнить(РезЗапроса);
ТабДок.Присоединить(ОблИспСтрока);
КонецЕсли;

Если Расшифровка.Тип = "Завершены" и ПоказыватьСуммы Тогда
ОблСумСтроки = Макет.ПолучитьОбласть("Строка|Суммы");
текстОплаты = "";
текстАктов = "";

проц = цел(НомерПоПорядку/кол*100);
состояние("подождите, выполняется подбор платежных документов..."+проц+"%");

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

ОблСумСтроки.Параметры.СуммаОплаты = текстОплаты;
ОблСумСтроки.Параметры.СуммаАктов = текстАктов;

ТабДок.Присоединить(ОблСумСтроки);
КонецЕсли;

НомерПоПорядку=НомерПоПорядку+1;
КонецЦикла;

Если Расшифровка.Тип = "Завершены" и ПоказыватьСуммы Тогда
ОблОснИтоги = Макет.ПолучитьОбласть("Итоги|Основная");
ТабДок.Вывести(ОблОснИтоги);
если Расшифровка.КЦ тогда
ОблИспИтоги = Макет.ПолучитьОбласть("Итоги|Исполнители");
ТабДок.Присоединить(ОблИспИтоги);
КонецЕсли;
ОблСумИтоги = Макет.ПолучитьОбласть("Итоги|Суммы");
ОблСумИтоги.Параметры.СуммаОплаты = ИтогСумОплаты;
ОблСумИтоги.Параметры.СуммаАктов = ИтогСумАктов;
ТабДок.Присоединить(ОблСумИтоги);
КонецЕсли;

ТабДок.Показать();
формаДетали.Открыть();

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