Функция ПолучитьВзаиморасчеты(КомпоновщикОтбор) Экспорт
СхемаКомпоновкиДанных = Документы.СверкаВзаиморасчетов.ПолучитьМакет("ОтборРасчетов");
ДобавитьДоступныеТаблицы(СхемаКомпоновкиДанных.НаборыДанных.ОтстаткиИОбороты.Запрос);
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
СегментыСервер.ВключитьОтборПоСегментуПартнеровВСКД(КомпоновщикОтбор);
НастройкиКомпоновкиДанных = КомпоновщикОтбор.Настройки;
ВключатьДоговорыБезОборотов = КомпоновкаДанныхКлиентСервер.ИспользуетсяОтбор(НастройкиКомпоновкиДанных.Отбор.Элементы, "ДоговорыБезОборотов", Истина);
НачалоПериода = КомпоновкаДанныхКлиентСервер.ПолучитьПараметр(КомпоновщикОтбор.Настройки, "НачалоПериода");
Если НЕ ЗначениеЗаполнено(НачалоПериода.Значение) Тогда
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "НачалоПериода", Дата('19800101'));
КонецЕсли;
Период = КомпоновкаДанныхКлиентСервер.ПолучитьПараметр(КомпоновщикОтбор.Настройки, "Период");
Если НЕ ЗначениеЗаполнено(Период.Значение) Тогда
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "Период", Дата('19800101'));
КонецЕсли;
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ДоговорыБезОборотов", ВключатьДоговорыБезОборотов);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "НоваяАрхитектураВзаиморасчетов", ПолучитьФункциональнуюОпцию("НоваяАрхитектураВзаиморасчетов"));
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "АрендныеОбязательства", Неопределено);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ОбеспечительныйПлатеж", Неопределено);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ЛизинговыйПлатеж", Неопределено);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ВыкупПредметаЛизинга", Неопределено);
//++ НЕ УТ
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "АрендныеОбязательства", Перечисления.ТипыПлатежейПоЛизингу.АрендныеОбязательства);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ОбеспечительныйПлатеж", Перечисления.ТипыПлатежейПоЛизингу.ОбеспечительныйПлатеж);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ЛизинговыйПлатеж", Перечисления.ТипыПлатежейПоЛизингу.ЛизинговыйПлатеж);
КомпоновкаДанныхКлиентСервер.УстановитьПараметр(КомпоновщикОтбор.Настройки, "ВыкупПредметаЛизинга", Перечисления.ТипыПлатежейПоЛизингу.ВыкупПредметаЛизинга);
//-- НЕ УТ
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, НастройкиКомпоновкиДанных,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
//Добавил+ 31.07.2019 18:04:35
МакетКомпоновки.НаборыДанных.ОтстаткиИОбороты.Запрос = СтрЗаменить(МакетКомпоновки.НаборыДанных.ОтстаткиИОбороты.Запрос,"НЕ &НоваяАрхитектураВзаиморасчетов","Истина");
МакетКомпоновки.НаборыДанных.ОтстаткиИОбороты.Запрос = СтрЗаменить(МакетКомпоновки.НаборыДанных.ОтстаткиИОбороты.Запрос,"&НоваяАрхитектураВзаиморасчетов","Истина");
//Добавил- 31.07.2019 18:04:36
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ТаблицаРезультатаСКД = ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
Возврат ТаблицаРезультатаСКД;
КонецФункции
Показать