Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Функция ПечатьЗаявления(МассивОбъектов, ОбъектыПечати, ПараметрыПечати) Экспорт
- ТабДок = Новый ТабличныйДокумент;
- ТабДок.КлючПараметровПечати = "ПараметрыПечати_ПФ_MXL_ИсковоеЗаявление";
- //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
- Макет = УправлениеПечатью.ПолучитьМакет("Документ.ком_ИсковоеЗаявление.ПФ_MXL_ИсковоеЗаявление");
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ РАЗРЕШЕННЫЕ
- | ком_КонтрагентыКонтактнаяИнформация.Ссылка КАК Контрагент,
- | ком_КонтрагентыКонтактнаяИнформация.Представление КАК Телефон
- |ПОМЕСТИТЬ ВТ_КонтактнаяИнформация
- |ИЗ
- | Справочник.ком_Контрагенты.КонтактнаяИнформация КАК ком_КонтрагентыКонтактнаяИнформация
- |ГДЕ
- | ком_КонтрагентыКонтактнаяИнформация.Вид = &ВидТелефон
- |
- |ИНДЕКСИРОВАТЬ ПО
- | Контрагент
- |;
- |
- |////////////////////////////////////////////////////////////////////////////////
- |ВЫБРАТЬ РАЗРЕШЕННЫЕ
- | ОрганизацииКонтактнаяИнформация.Представление КАК Адрес,
- | ОрганизацииКонтактнаяИнформация.Ссылка КАК Организация
- |ПОМЕСТИТЬ ВТ_КИОрг
- |ИЗ
- | Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформация
- |ГДЕ
- | ОрганизацииКонтактнаяИнформация.Вид = &ВидЮрАдрес
- |
- |ИНДЕКСИРОВАТЬ ПО
- | Организация
- |;
- |
- |////////////////////////////////////////////////////////////////////////////////
- |ВЫБРАТЬ РАЗРЕШЕННЫЕ
- | ком_ИсковоеЗаявление.Автор,
- | ком_ИсковоеЗаявление.Дата,
- | ком_ИсковоеЗаявление.ДатаОформления,
- | ком_ИсковоеЗаявление.Договор,
- | ком_ИсковоеЗаявление.Комментарий,
- | ком_ИсковоеЗаявление.Контрагент,
- | ком_ИсковоеЗаявление.ЛицевойСчет,
- | ком_ИсковоеЗаявление.Номер,
- | ком_ИсковоеЗаявление.Организация,
- | ком_ИсковоеЗаявление.Ответственный,
- | ком_ИсковоеЗаявление.Представитель,
- | ком_ИсковоеЗаявление.СуммаДолга,
- | ком_ИсковоеЗаявление.СуммаПредставительскихРасходов,
- | ком_ИсковоеЗаявление.ЮридическаяКомпания,
- | ком_ИсковоеЗаявление.Контрагент.РНН КАК РННКонтрагента,
- | ком_ИсковоеЗаявление.Контрагент.НаименованиеПолное КАК КонтрагентНаименованиеПолное,
- | ком_ИсковоеЗаявление.Контрагент.ИдентификационныйНомер КАК ИИНКонтрагента,
- | ком_ИсковоеЗаявление.Организация.НаименованиеПолное,
- | ком_ИсковоеЗаявление.Организация.РНН КАК РННОрганизации,
- | ком_ИсковоеЗаявление.Организация.ИдентификационныйНомер КАК БИНОрганизации,
- | ком_ИсковоеЗаявление.Организация.ОсновнойБанковскийСчет.Банк КАК Банк,
- | ком_ИсковоеЗаявление.Организация.ОсновнойБанковскийСчет.НомерСчета КАК РасчетныйСчет,
- | ком_ИсковоеЗаявление.ЛицевойСчет.Квартира КАК Квартира,
- | ком_ИсковоеЗаявление.ЛицевойСчет.Дом КАК НомерДома,
- | ком_ИсковоеЗаявление.ЛицевойСчет.Улица КАК Улица,
- | ком_ИсковоеЗаявление.ЛицевойСчет.Улица.Наименование + ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Дом <> """"
- | ТОГДА "", дом № "" + ком_ИсковоеЗаявление.ЛицевойСчет.Дом + ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Корпус <> """"
- | ТОГДА "", корпус "" + ком_ИсковоеЗаявление.ЛицевойСчет.Корпус + ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
- | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
- | ИНАЧЕ """"
- | КОНЕЦ
- | ИНАЧЕ ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
- | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
- | ИНАЧЕ """"
- | КОНЕЦ
- | КОНЕЦ
- | ИНАЧЕ ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Корпус <> """"
- | ТОГДА "", корпус "" + ком_ИсковоеЗаявление.ЛицевойСчет.Корпус + ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
- | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
- | ИНАЧЕ """"
- | КОНЕЦ
- | ИНАЧЕ ВЫБОР
- | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
- | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
- | ИНАЧЕ """"
- | КОНЕЦ
- | КОНЕЦ
- | КОНЕЦ КАК АдресКонтрагента,
- | ком_ВалютаРегламентированногоУчета.Значение.НаименованиеПолное КАК Валюта,
- | ВТ_КонтактнаяИнформация.Телефон КАК ТелефонКонтрагента,
- | ВТ_КИОрг.Адрес КАК АдресОрганизации
- |ИЗ
- | Документ.ком_ИсковоеЗаявление КАК ком_ИсковоеЗаявление
- | ЛЕВОЕ СОЕДИНЕНИЕ Константа.ком_ВалютаРегламентированногоУчета КАК ком_ВалютаРегламентированногоУчета
- | ПО (ИСТИНА)
- | ЛЕВОЕ СОЕДИНЕНИЕ ВТ_КонтактнаяИнформация КАК ВТ_КонтактнаяИнформация
- | ПО ком_ИсковоеЗаявление.Контрагент = ВТ_КонтактнаяИнформация.Контрагент
- | ЛЕВОЕ СОЕДИНЕНИЕ ВТ_КИОрг КАК ВТ_КИОрг
- | ПО ком_ИсковоеЗаявление.Организация = ВТ_КИОрг.Организация
- |ГДЕ
- | ком_ИсковоеЗаявление.Ссылка В(&Ссылка)";
- Запрос.Параметры.Вставить("Ссылка", МассивОбъектов);
- Запрос.Параметры.Вставить("ВидЮрАдрес", Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
- Запрос.Параметры.Вставить("ВидТелефон", Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
- Выборка = Запрос.Выполнить().Выбрать();
- ОбластьПечати1 = Макет.ПолучитьОбласть("ОбластьПечати1");
- ТабДок.Очистить();
- ВставлятьРазделительСтраниц = Ложь;
- Пока Выборка.Следующий() Цикл
- Если ВставлятьРазделительСтраниц Тогда
- ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
- КонецЕсли;
- ОбластьПечати1.Параметры.Заполнить(Выборка);
- СуммаДолгаПрописью = СокрЛП(СтрЗаменить(ЧислоПрописью(Выборка.СуммаДолга), "00", ""));
- СуммаПредставительскихРасходовПрописью = СокрЛП(СтрЗаменить(ЧислоПрописью(Выборка.СуммаПредставительскихРасходов), "00", ""));
- ОбластьПечати.Параметры.СуммаДолгаПрописью = СуммаДолгаПрописью;
- ОбластьПечати.Параметры.СуммаПредставительскихРасходовПрописью = СуммаПредставительскихРасходовПрописью;
- ОбластьПечати.Параметры.Валюта = НРег(ОбластьПечати.Параметры.Валюта);
- ТабДок.Вывести(ОбластьПечати1, Выборка.Уровень());
- ВставлятьРазделительСтраниц = Истина;
- КонецЦикла;
- ТабДок.АвтоМасштаб = Истина;
- Возврат ТабДок;
- КонецФункции
- // Функция печати документа.
- //
- Функция ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ИмяМакета, ПараметрыПечати) Экспорт
- Если ИмяМакета = "ПФ_MXL_ИсковоеЗаявление" Тогда
- Возврат ПечатьЗаявления(МассивОбъектов, ОбъектыПечати, ПараметрыПечати);
- КонецЕсли;
- КонецФункции // ПечатнаяФорма()
- // Сформировать печатные формы объектов
- //
- // ВХОДЯЩИЕ:
- // ИменаМакетов - Строка - Имена макетов, перечисленные через запятую
- // МассивОбъектов - Массив - Массив ссылок на объекты которые нужно распечатать
- // ПараметрыПечати - Структура - Структура дополнительных параметров печати
- //
- // ИСХОДЯЩИЕ:
- // КоллекцияПечатныхФорм - Таблица значений - Сформированные табличные документы
- // ПараметрыВывода - Структура - Параметры сформированных табличных документов
- //
- Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
- ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;
- Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ПФ_MXL_ИсковоеЗаявление") Тогда
- УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ПФ_MXL_ИсковоеЗаявление",
- "Исковое заявление",
- ПечатнаяФорма(МассивОбъектов, ОбъектыПечати,
- "ПФ_MXL_ИсковоеЗаявление", ПараметрыПечати));
- КонецЕсли;
- КонецПроцедуры
- //Функция получает данные для печати
- //
- Функция ПолучитьДанныеПечати(знач МассивДокументов, знач МассивИменМакетов) Экспорт
- ДанныеПоВсемОбъектам = Новый Соответствие;
- ОписаниеОбластей = Новый Соответствие;
- ДвоичныеДанныеМакетов = Новый Соответствие;
- ТипыМакетов = Новый Соответствие;
- Возврат Новый Структура("Данные, Макеты",
- ДанныеПоВсемОбъектам,
- Новый Структура("ОписаниеОбластей, ТипыМакетов, ДвоичныеДанныеМакетов",
- ОписаниеОбластей,
- ТипыМакетов,
- ДвоичныеДанныеМакетов));
- КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment