Александр2108
21.11.2015, 10:10
Нужно сделать печатную форму Акта на передачу прав для документа Реализации товар и услуг Документы продаж.
Дошел до процедуры печати. У меня нет документа Акт на передачу прав чтобы скопировать оттуда команду печати. Как быть?
Мне надо чтобы он выходил на печать из Документа Продаж
Функция ПолучитьНазначениеОбработ ки ()
Массив = Новый Массив;
Массив.Добавить("Документ.ДокументПродаж");
Возврат Массив;
КонецФункции
Процедура ДобавитьКоманду (ТаблицаКоманд, Представление, Идентифткатор, Использование, показыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить ();
НоваяКоманда.Представлени� � = Представление;
НоваяКоманда.Идентификато� � = Идентификатор;
НоваяКоманда.Использовани� � = Использование;
НоваяКоманда.ПоказыватьОп� �вещение = показыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Функция СведенияОВнешнейОбработке ()
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вста� �ить("Вид", "ПечатнаяФорма");
ПараметрыРегистрации.Вста� �ить("Назначение", МассивНазначений);
ПараметрыРегистрации.Вста� �ить("Наименование", "Акт на передачу прав");
ПараметрыРегистрации.Вста� �ить("Версия", "1.0");
ПараметрыРегистрации.Вста� �ить("Информация", "Внешняя печатная форма");
ПараметрыРегистрации.Вста� �ить("БезопасныйРежим", ЛОЖЬ);
Команд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКо� �анд, "Документы продаж", "Акт на передачу прав", "ВызовСерверногоМетода", Ложь, "ПечатьMXL");
ПараметрыРегистрации.Вста� �ить("Команды", Команда);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("ПечатьMXL"));
Возврат Команды;
КонецФункции
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВыводы) Экспорт
КонецПроцедуры
Дошел до процедуры печати. У меня нет документа Акт на передачу прав чтобы скопировать оттуда команду печати. Как быть?
Мне надо чтобы он выходил на печать из Документа Продаж
Функция ПолучитьНазначениеОбработ ки ()
Массив = Новый Массив;
Массив.Добавить("Документ.ДокументПродаж");
Возврат Массив;
КонецФункции
Процедура ДобавитьКоманду (ТаблицаКоманд, Представление, Идентифткатор, Использование, показыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить ();
НоваяКоманда.Представлени� � = Представление;
НоваяКоманда.Идентификато� � = Идентификатор;
НоваяКоманда.Использовани� � = Использование;
НоваяКоманда.ПоказыватьОп� �вещение = показыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Функция СведенияОВнешнейОбработке ()
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вста� �ить("Вид", "ПечатнаяФорма");
ПараметрыРегистрации.Вста� �ить("Назначение", МассивНазначений);
ПараметрыРегистрации.Вста� �ить("Наименование", "Акт на передачу прав");
ПараметрыРегистрации.Вста� �ить("Версия", "1.0");
ПараметрыРегистрации.Вста� �ить("Информация", "Внешняя печатная форма");
ПараметрыРегистрации.Вста� �ить("БезопасныйРежим", ЛОЖЬ);
Команд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКо� �анд, "Документы продаж", "Акт на передачу прав", "ВызовСерверногоМетода", Ложь, "ПечатьMXL");
ПараметрыРегистрации.Вста� �ить("Команды", Команда);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("ПечатьMXL"));
Возврат Команды;
КонецФункции
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВыводы) Экспорт
КонецПроцедуры