87
НоваяКоманда = ТаблицаКоманд.Добавить () ;
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказатьОповещения = ПоказатьОповещения;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Функция СведенияОВнешнейОбработке () Экспорт
ПараметрыРегистрации = новый Структура;
ПараметрыРегистрации.Вставить ("Вид", "Печатнаяформа") ;
ПараметрыРегистрации.Вставить ("Назначение", ПолучитьНазначениеО
бработки () ) ;
ПараметрыРегистрации.Вставить ("Наименование", "Задолженность пок
упателей ВНЕШНИЙ") ;
ПараметрыРегистрации.Вставить ("Версия", "1.0") ;
ПараметрыРегистрации.Вставить ("Информация", " Задолженность поку
пателей (внешняя печатная форма)") ;
ПараметрыРегистрации.Вставить ("БезопасныйРЕжим", Ложь) ;
Команды = ПолучитьТаблицуКоманд () ;
ДобавитьКманду (Команды, " Задолженность покупателей (внешняя печ
атная форма)",
" Задолженность покупателей Внешний",
"ВызовСерверногоМетода",
Ложь,
"ПечатьXML") ;
ПараметрыРегистрации.Вставить ("Команды", Команды) ;
88
Возврат ПараметрыРегистрации;
Конецфункции
Процедура Печать (МассивОбъектов, КоллекцияПечатных форм, ОбъектыПеча
ти, ПараметрыВывода) Экспрорт
ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;
Если УправлениеПечатью.НужноПечататьМакет (КоллекцияПечатны
хФорм, "ПредварительныйПросмотрПечатнойформы ЗадолженностьПокупател
ей ") Тогда
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию
(КоллекцияПечатныхформ, " ПредварительныйПросмотрПечатнойформы Задол
женностьПокупателей ", " ЗадолженностьПокупателей ",
ПечатьТорговыДокументов.ПечатьПредварительныйПро
смторСчетаНаОплату (ПараметрыПечати.Организация, ОбъектыПечати, "СчетЗ
аказ") ) ;
ЗаполнитьПараметрыЭлектроннойПочты = Ложь ;
КонецЕсли;
Если УправлениеПечатью.НужноПечататьМакет (КоллекцияПечатны
хФорм, "СчетЗаказ") Тогда
ТаблицаСведенийСчетНаОплату = ПолучитьТаблицуСведенийС
четаНаОплату (МассивОбъектов) ;
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию
(КоллекцияПечатныхформ, "СчетЗаказ", " ЗадолженностьПокупателей ",
ПечатьТорговыхДокументов.ПечатьСчетаНаОплату (Таб
лицаСведенийСчетНаОплату, ОбъектыПечати), , "ОбщийМакет.ПФ_XML_Сче
тЗаказ") ;
КонецЕсли;
89
Если УправлениеПечатью.НужноПечататьМакет (КоллекцияПечатны
хФорм, "СчетЗаказСПечатью") Тогда
ТаблицаСведенийСчетНаОплату = ПолучитьТаблицуСведенийСчетаНа
Оплату (МассивОбъектов) ;
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию
(КоллекцияПечатныхформ, "СчетЗаказСПечатью", "Счет на оплату",
ПечатьТорговыхДокументов.ПечатьСчетаНаОплату (Таб
лицаСведенийСчетНаОплату, ОбъектыПечати), , "ОбщийМакет.ПФ_XML_Сче
тЗаказ") ;
КонецЕсли;
ОбщегоНазначенияБП.ЗаполнитьДополнительныеПараметрыПечати (М
ассивОбъектов, КоллекцияПечатныхформ, ОбъектыПечати, ПараметрыВывода)
;
КонецПроцедуры
Функция ПолучитьТаблицуСведенийСчетаНаОплату (Знач МассивДокументов)
Экспорт
ТаблицаСведений = ПечатьТорговыхДокументов.ПолучитьОписаниеСч
етаНаОплату () ;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр ("МассивДокументов", МассивДокументов
) ;
Запрос.УстановитьПараметр ("ДополнительнаяКолонкаПечатныхформ
Документов", Константы.ДополнительнаяКолонкаПечатныхформДокументов.П
олучить () ) ;
Запрос.Текст = ПолучитьТекстЗапросаДляФормированияТаблицыСведе
нийСчетаНаОплату () ;
РезультатЗапроса = Запрос.ВыполнитьПакет () ;
Выборка = РезультатЗапроса (1) .Выбрать () ;
90
СтрокиДокументов = РезультатЗапроса (2) .Выгрузить () ;
СтрокиДокументов.Индексы.Добавить ("Документ") ;
Пока Выборка.Следующий () Цикл
СведенияОДокументе = ТаблицаСведений.Добавить();
ЗаполнитьЗначенияСвойств(СведенияОДокументе, Выборка);
ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОпи
саниеТаблицыСчетаНаОплату();
Отбор = Новый Структура("Документ", Выборка.Документ);
СтрокиДокумента = СтрокиДокументов.НайтиСтроки(Отбор);
Для Каждого Строка Из СтрокиДокумента Цикл
СтрокаТаблицыДокумента = ТаблицаДокумента.Добавить();
ЗаполнитьЗначенияСвойств(СтрокаТаблицыДокумента, Строка)
;
КонецЦикла;
СведенияОДокументе.ТаблицаДокумента = ТаблицаДокумента;
ПорядокЗаполнения = Новый Структура("ЗаполнятьРуководителя, Запо
лнятьГлавногоБухгалтера");
ПечатьТорговыхДокументов.ЗаполнитьДанныеОтветственныхЛиц(Свед
енияОДокументе, ПорядокЗаполнения);
КонецЦикла;
Возврат ТаблицаСведений;
КонецФункции
&НаКлиенте
Процедура ВывестиМакет(Команда)
91
Для каждого стр из Объект.Счета Цикл
МассивОбъектов = Новый Массив;
МассивОбъектов.Добавить(стр.Счет);
КонецЦикла;
ТабличныйДокумент = ВывестиМакетНаСервере(МассивОбъектов, Нео
пределено);
ТабличныйДокумент.ТолькоПросмотр = Истина;
ТабличныйДокумент.Показать();
КонецПроцедуры
&НаСервере
Процедура ВывестиЗаголовокПредупреждение(Организация, ТабличныйДокум
ент, Макет)
Если Не ЗначениеЗаполнено(Макет.Области.Найти("ЗаголовокПредупре
ждениеСЛоготипом")) Тогда
Возврат;
КонецЕсли;
ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.Получит
ьДанныеФайлаИДвоичныеДанные(Организация.ФайлЛоготип);
Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда
92
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокПредупреждение
СЛоготипом");
Попытка
ОбластьМакета.Рисунки.Логотип.Картинка = Новый Картинка(ДанныеК
артинки.ДвоичныеДанные);
Исключение
КонецПопытки;
ТабличныйДокумент.Вывести(ОбластьМакета);
Иначе
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокПредупреждение"
);
ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЕсли;
КонецПроцедуры;
