|
2
ladalk
22.03.16
✎
13:33
|
Функция СведенияОВнешнейОбработке() Экспорт
МассивД = Новый Массив;
МассивД.Добавить("Справочник.ДоговорыКонтрагентов");
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");
ПараметрыРегистрации.Вставить("Назначение", МассивД);
ПараметрыРегистрации.Вставить("Наименование", "Договор Общеразвивающие Практические Работы");
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("Информация", "Печать договора ОПР");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
Команды = Получить_Таблицу_Команд();
ДобавитьКоманду(Команды, "Договор на услуги ОПР", "ДоговорОПР", "ВызовСерверногоМетода", Ложь, "ПечатьMXL");
ПараметрыРегистрации.Вставить("Команды", Команды);
Возврат ПараметрыРегистрации;
КонецФункции
Функция Получить_Таблицу_Команд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Представление = Представление;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Договор", "Договор ОПР",
ПечатьДоговораОПР(),,"Макет1");
КонецПроцедуры
Функция ПечатьДоговораОПР()
ТабличныйДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет1");
ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ДанныеПечатиШапка = Новый Структура;
ДанныеПечатиШапка.Вставить("ПарамОрг", "МояОрганизация");
ОбластьМакетаШапка.Параметры.Заполнить(ДанныеПечатиШапка);
ТабличныйДокумент.Вывести(ОбластьМакетаШапка);
Возврат ТабличныйДокумент;
КонецФункции
|
|
|
3
ladalk
22.03.16
✎
13:53
|
Все работает, ошибка была в строке:
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Договор", "Договор ОПР",
надо было не "Договор", а "ДоговорОПР", по имени зарегистрированного
|
|