Процедура Печать(ТабДок, Ссылка) Экспорт //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать1) Макет = Документы.НачислниеОплаты.ПолучитьМакет("Печать"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ДоговорыНаТОВДГО.ЛицевойСчет КАК ЛицевойСчет, | ДоговорыНаТОВДГО.Владелец КАК Конрагент, | ДоговорыНаТОВДГО.Владелец.ФактическийАдрес КАК АдресИО, | ДоговорыНаТОВДГО.ПодразделениеОрганизации КАК Подразделение, | ДоговорыНаТОВДГО.ПодразделениеОрганизации.Адрес КАК АдресПодразделения |ИЗ | Справочник.ДоговорыНаТОВДГО КАК ДоговорыНаТОВДГО |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | НачислниеОплаты.ВерсияДанных КАК ВерсияДанных, | НачислниеОплаты.ПометкаУдаления КАК ПометкаУдаления, | НачислниеОплаты.Номер КАК Номер, | НачислниеОплаты.Дата КАК Дата, | НачислниеОплаты.Проведен КАК Проведен, | НачислниеОплаты.Организация КАК Организация, | НачислниеОплаты.ПериодУчёта КАК ПериодУчёта, | НачислниеОплаты.Договор КАК Договор, | НачислниеОплаты.ТабличнаяЧасть1.( | Ссылка КАК Ссылка, | НомерСтроки КАК НомерСтроки, | Задолженность КАК Задолженность, | Начислено КАК Начислено, | Оплата КАК Оплата, | Итого КАК Итого | ) КАК ТабличнаяЧасть1 |ИЗ | Документ.НачислниеОплаты КАК НачислниеОплаты |ГДЕ | НачислниеОплаты.Ссылка В(&Ссылка)"; Запрос.Параметры.Вставить("Ссылка", Ссылка); Выборка = Запрос.Выполнить().Выбрать(); Шапка = Макет.ПолучитьОбласть("Шапка"); ОбластьТабличнаяЧасть1 = Макет.ПолучитьОбласть("ТабличнаяЧасть1"); Подвал = Макет.ПолучитьОбласть("Подвал"); ТабДок.Очистить(); ВставлятьРазделительСтраниц = Ложь; Пока Выборка.Следующий() Цикл Если ВставлятьРазделительСтраниц Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; Шапка.Параметры.Заполнить(Выборка); Шапка.Параметры.ПериодУчёта = Формат(Выборка.ПериодУчёта, "ДФ='ММММ yyyy'"); ТабДок.Вывести(Шапка, Выборка.Уровень()); ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать(); Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл ОбластьТабличнаяЧасть1.Параметры.Заполнить(Выборка); //ТабДок.Вывести(ОбластьТабличнаяЧасть1, Выборка.Уровень()); ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть1); ТабДок.Вывести(ОбластьТабличнаяЧасть1, ВыборкаТабличнаяЧасть1.Уровень()); КонецЦикла; Подвал.Параметры.Заполнить(Выборка); ТабДок.Вывести(Подвал); ВставлятьРазделительСтраниц = Истина; КонецЦикла; //}} КонецПроцедуры
{"contextData":{"NaN":{}},"contextMarkers":[]}