Guest User

Untitled

a guest
Jul 14th, 2014
408
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.31 KB | None | 0 0
  1.  
  2. Функция ПечатьЗаявления(МассивОбъектов, ОбъектыПечати, ПараметрыПечати) Экспорт
  3.  
  4. ТабДок = Новый ТабличныйДокумент;
  5. ТабДок.КлючПараметровПечати = "ПараметрыПечати_ПФ_MXL_ИсковоеЗаявление";
  6.  
  7. //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
  8. Макет = УправлениеПечатью.ПолучитьМакет("Документ.ком_ИсковоеЗаявление.ПФ_MXL_ИсковоеЗаявление");
  9.  
  10. Запрос = Новый Запрос;
  11. Запрос.Текст =
  12. "ВЫБРАТЬ РАЗРЕШЕННЫЕ
  13. | ком_КонтрагентыКонтактнаяИнформация.Ссылка КАК Контрагент,
  14. | ком_КонтрагентыКонтактнаяИнформация.Представление КАК Телефон
  15. |ПОМЕСТИТЬ ВТ_КонтактнаяИнформация
  16. |ИЗ
  17. | Справочник.ком_Контрагенты.КонтактнаяИнформация КАК ком_КонтрагентыКонтактнаяИнформация
  18. |ГДЕ
  19. | ком_КонтрагентыКонтактнаяИнформация.Вид = &ВидТелефон
  20. |
  21. |ИНДЕКСИРОВАТЬ ПО
  22. | Контрагент
  23. |;
  24. |
  25. |////////////////////////////////////////////////////////////////////////////////
  26. |ВЫБРАТЬ РАЗРЕШЕННЫЕ
  27. | ОрганизацииКонтактнаяИнформация.Представление КАК Адрес,
  28. | ОрганизацииКонтактнаяИнформация.Ссылка КАК Организация
  29. |ПОМЕСТИТЬ ВТ_КИОрг
  30. |ИЗ
  31. | Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформация
  32. |ГДЕ
  33. | ОрганизацииКонтактнаяИнформация.Вид = &ВидЮрАдрес
  34. |
  35. |ИНДЕКСИРОВАТЬ ПО
  36. | Организация
  37. |;
  38. |
  39. |////////////////////////////////////////////////////////////////////////////////
  40. |ВЫБРАТЬ РАЗРЕШЕННЫЕ
  41. | ком_ИсковоеЗаявление.Автор,
  42. | ком_ИсковоеЗаявление.Дата,
  43. | ком_ИсковоеЗаявление.ДатаОформления,
  44. | ком_ИсковоеЗаявление.Договор,
  45. | ком_ИсковоеЗаявление.Комментарий,
  46. | ком_ИсковоеЗаявление.Контрагент,
  47. | ком_ИсковоеЗаявление.ЛицевойСчет,
  48. | ком_ИсковоеЗаявление.Номер,
  49. | ком_ИсковоеЗаявление.Организация,
  50. | ком_ИсковоеЗаявление.Ответственный,
  51. | ком_ИсковоеЗаявление.Представитель,
  52. | ком_ИсковоеЗаявление.СуммаДолга,
  53. | ком_ИсковоеЗаявление.СуммаПредставительскихРасходов,
  54. | ком_ИсковоеЗаявление.ЮридическаяКомпания,
  55. | ком_ИсковоеЗаявление.Контрагент.РНН КАК РННКонтрагента,
  56. | ком_ИсковоеЗаявление.Контрагент.НаименованиеПолное КАК КонтрагентНаименованиеПолное,
  57. | ком_ИсковоеЗаявление.Контрагент.ИдентификационныйНомер КАК ИИНКонтрагента,
  58. | ком_ИсковоеЗаявление.Организация.НаименованиеПолное,
  59. | ком_ИсковоеЗаявление.Организация.РНН КАК РННОрганизации,
  60. | ком_ИсковоеЗаявление.Организация.ИдентификационныйНомер КАК БИНОрганизации,
  61. | ком_ИсковоеЗаявление.Организация.ОсновнойБанковскийСчет.Банк КАК Банк,
  62. | ком_ИсковоеЗаявление.Организация.ОсновнойБанковскийСчет.НомерСчета КАК РасчетныйСчет,
  63. | ком_ИсковоеЗаявление.ЛицевойСчет.Квартира КАК Квартира,
  64. | ком_ИсковоеЗаявление.ЛицевойСчет.Дом КАК НомерДома,
  65. | ком_ИсковоеЗаявление.ЛицевойСчет.Улица КАК Улица,
  66. | ком_ИсковоеЗаявление.ЛицевойСчет.Улица.Наименование + ВЫБОР
  67. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Дом <> """"
  68. | ТОГДА "", дом № "" + ком_ИсковоеЗаявление.ЛицевойСчет.Дом + ВЫБОР
  69. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Корпус <> """"
  70. | ТОГДА "", корпус "" + ком_ИсковоеЗаявление.ЛицевойСчет.Корпус + ВЫБОР
  71. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
  72. | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
  73. | ИНАЧЕ """"
  74. | КОНЕЦ
  75. | ИНАЧЕ ВЫБОР
  76. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
  77. | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
  78. | ИНАЧЕ """"
  79. | КОНЕЦ
  80. | КОНЕЦ
  81. | ИНАЧЕ ВЫБОР
  82. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Корпус <> """"
  83. | ТОГДА "", корпус "" + ком_ИсковоеЗаявление.ЛицевойСчет.Корпус + ВЫБОР
  84. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
  85. | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
  86. | ИНАЧЕ """"
  87. | КОНЕЦ
  88. | ИНАЧЕ ВЫБОР
  89. | КОГДА ком_ИсковоеЗаявление.ЛицевойСчет.Квартира <> """"
  90. | ТОГДА "", к. "" + ком_ИсковоеЗаявление.ЛицевойСчет.Квартира
  91. | ИНАЧЕ """"
  92. | КОНЕЦ
  93. | КОНЕЦ
  94. | КОНЕЦ КАК АдресКонтрагента,
  95. | ком_ВалютаРегламентированногоУчета.Значение.НаименованиеПолное КАК Валюта,
  96. | ВТ_КонтактнаяИнформация.Телефон КАК ТелефонКонтрагента,
  97. | ВТ_КИОрг.Адрес КАК АдресОрганизации
  98. |ИЗ
  99. | Документ.ком_ИсковоеЗаявление КАК ком_ИсковоеЗаявление
  100. | ЛЕВОЕ СОЕДИНЕНИЕ Константа.ком_ВалютаРегламентированногоУчета КАК ком_ВалютаРегламентированногоУчета
  101. | ПО (ИСТИНА)
  102. | ЛЕВОЕ СОЕДИНЕНИЕ ВТ_КонтактнаяИнформация КАК ВТ_КонтактнаяИнформация
  103. | ПО ком_ИсковоеЗаявление.Контрагент = ВТ_КонтактнаяИнформация.Контрагент
  104. | ЛЕВОЕ СОЕДИНЕНИЕ ВТ_КИОрг КАК ВТ_КИОрг
  105. | ПО ком_ИсковоеЗаявление.Организация = ВТ_КИОрг.Организация
  106. |ГДЕ
  107. | ком_ИсковоеЗаявление.Ссылка В(&Ссылка)";
  108.  
  109. Запрос.Параметры.Вставить("Ссылка", МассивОбъектов);
  110. Запрос.Параметры.Вставить("ВидЮрАдрес", Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
  111. Запрос.Параметры.Вставить("ВидТелефон", Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
  112. Выборка = Запрос.Выполнить().Выбрать();
  113.  
  114. ОбластьПечати1 = Макет.ПолучитьОбласть("ОбластьПечати1");
  115. ТабДок.Очистить();
  116.  
  117. ВставлятьРазделительСтраниц = Ложь;
  118. Пока Выборка.Следующий() Цикл
  119. Если ВставлятьРазделительСтраниц Тогда
  120. ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
  121. КонецЕсли;
  122.  
  123. ОбластьПечати1.Параметры.Заполнить(Выборка);
  124.  
  125. СуммаДолгаПрописью = СокрЛП(СтрЗаменить(ЧислоПрописью(Выборка.СуммаДолга), "00", ""));
  126. СуммаПредставительскихРасходовПрописью = СокрЛП(СтрЗаменить(ЧислоПрописью(Выборка.СуммаПредставительскихРасходов), "00", ""));
  127.  
  128. ОбластьПечати.Параметры.СуммаДолгаПрописью = СуммаДолгаПрописью;
  129. ОбластьПечати.Параметры.СуммаПредставительскихРасходовПрописью = СуммаПредставительскихРасходовПрописью;
  130. ОбластьПечати.Параметры.Валюта = НРег(ОбластьПечати.Параметры.Валюта);
  131.  
  132. ТабДок.Вывести(ОбластьПечати1, Выборка.Уровень());
  133.  
  134. ВставлятьРазделительСтраниц = Истина;
  135. КонецЦикла;
  136.  
  137. ТабДок.АвтоМасштаб = Истина;
  138.  
  139. Возврат ТабДок;
  140.  
  141. КонецФункции
  142.  
  143. // Функция печати документа.
  144. //
  145. Функция ПечатнаяФорма(МассивОбъектов, ОбъектыПечати, ИмяМакета, ПараметрыПечати) Экспорт
  146.  
  147. Если ИмяМакета = "ПФ_MXL_ИсковоеЗаявление" Тогда
  148.  
  149. Возврат ПечатьЗаявления(МассивОбъектов, ОбъектыПечати, ПараметрыПечати);
  150.  
  151. КонецЕсли;
  152.  
  153. КонецФункции // ПечатнаяФорма()
  154.  
  155.  
  156. // Сформировать печатные формы объектов
  157. //
  158. // ВХОДЯЩИЕ:
  159. // ИменаМакетов - Строка - Имена макетов, перечисленные через запятую
  160. // МассивОбъектов - Массив - Массив ссылок на объекты которые нужно распечатать
  161. // ПараметрыПечати - Структура - Структура дополнительных параметров печати
  162. //
  163. // ИСХОДЯЩИЕ:
  164. // КоллекцияПечатныхФорм - Таблица значений - Сформированные табличные документы
  165. // ПараметрыВывода - Структура - Параметры сформированных табличных документов
  166. //
  167. Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
  168.  
  169. ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;
  170.  
  171. Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ПФ_MXL_ИсковоеЗаявление") Тогда
  172. УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ПФ_MXL_ИсковоеЗаявление",
  173. "Исковое заявление",
  174. ПечатнаяФорма(МассивОбъектов, ОбъектыПечати,
  175. "ПФ_MXL_ИсковоеЗаявление", ПараметрыПечати));
  176. КонецЕсли;
  177.  
  178. КонецПроцедуры
  179.  
  180. //Функция получает данные для печати
  181. //
  182. Функция ПолучитьДанныеПечати(знач МассивДокументов, знач МассивИменМакетов) Экспорт
  183.  
  184. ДанныеПоВсемОбъектам = Новый Соответствие;
  185. ОписаниеОбластей = Новый Соответствие;
  186. ДвоичныеДанныеМакетов = Новый Соответствие;
  187. ТипыМакетов = Новый Соответствие;
  188.  
  189. Возврат Новый Структура("Данные, Макеты",
  190. ДанныеПоВсемОбъектам,
  191. Новый Структура("ОписаниеОбластей, ТипыМакетов, ДвоичныеДанныеМакетов",
  192. ОписаниеОбластей,
  193. ТипыМакетов,
  194. ДвоичныеДанныеМакетов));
  195.  
  196. КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment