1С УФ - Заголовок окна ВПФ

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. Nuuq 76 05.03.15 18:34 Сейчас в теме

Есть внешняя печатная форма под БП 3.0 (3.0.37.42).
Печатаем (вызываем команду из списка/формы) ВПФ. Кто-нить знает, как поменять заголовок формы для печати документов "Печать документов" на свой? Хочется "красиво" написать "Бла-бла 123 от ... "
З.Ы.: Там функция есть ПечатьДокументов.УстановитьЗаголовокФормы(), но как туда передать параметр - не понимаю

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Пан 7 05.03.15 23:30 Сейчас в теме

(1) Nuuq, ибо вот:

&НаСервере
Процедура УстановитьЗаголовокФормы()
	Перем ЗаголовокФормы;
	
	Если ТипЗнч(Параметры.ПараметрыПечати) = Тип("Структура") Тогда
		ПараметрыВывода.Свойство("НаименованиеФайла", ЗаголовокФормы);
	КонецЕсли;
	
	Если ЗначениеЗаполнено(ЗаголовокФормы) Тогда
		Заголовок = ЗаголовокФормы;
	Иначе
		Если ЭтоПечатьКомплекта() Тогда
			Заголовок = НСтр("ru = 'Печать комплекта'");
		ИначеЕсли ТипЗнч(Параметры.ПараметрКоманды) <> Тип("Массив") Или Параметры.ПараметрКоманды.Количество() > 1 Тогда
			Заголовок = НСтр("ru = 'Печать документов'");
		Иначе
			Заголовок = НСтр("ru = 'Печать документа'");
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Показать

это в модуле при открытии общей формы "Печать документов", так что просто заполните структуру "ПараметрыВывода" нужными значениями и фсе)

ПараметрыВывода.Вставить("НаименованиеФайла", ЗаголовокФормы);

3. TMV 11 06.03.15 08:32 Сейчас в теме

(2) Пан, не получится без правки общего модуля, а то и модулей (именно в бухне)

4. Nuuq 76 06.03.15 09:04 Сейчас в теме

Пан, спасибо, но вот в БП 3 эта фукнция так выглядит

&НаСервере
Процедура УстановитьЗаголовокФормы()
	Перем ЗаголовокФормы;
	
	Если ТипЗнч(Параметры.ПараметрыПечати) = Тип("Структура") Тогда
		Параметры.ПараметрыПечати.Свойство("ЗаголовокФормы", ЗаголовокФормы);
	КонецЕсли;
	
	Если ЗначениеЗаполнено(ЗаголовокФормы) Тогда
		Заголовок = ЗаголовокФормы;
	Иначе
		Если ЭтоПечатьКомплекта() Тогда
			Заголовок = НСтр("ru = 'Печать комплекта'");
		ИначеЕсли ТипЗнч(Параметры.ПараметрКоманды) <> Тип("Массив") Или Параметры.ПараметрКоманды.Количество() > 1 Тогда
			Заголовок = НСтр("ru = 'Печать документов'");
		Иначе
			Заголовок = НСтр("ru = 'Печать документа'");
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Показать

... ну я попробовал вставить

ПараметрыВывода.Вставить("ЗаголовокФормы", ЗаголовокФормы);

... не получилось - тут нужно как-то в "ПараметрыПечати" вставить ключ и значение. Можно получить где-то вот это значение

ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_УниверсальныйПередаточныйДокумент";

и его "дополнить" ?

5. Asenka 109 27.06.19 17:01 Сейчас в теме

(4) Вы разобрались как определить заголовок формы, если печатная форма реализуется как внешняя обработка?

6. Nuuq 76 27.06.19 21:47 Сейчас в теме

Для вывода своего заголовка окна внешней печатной формы я тогда доработал общий модуль БСП - думаю сейчас эта ситуация не поменялась.
Для вывода заголовка, как вариант, посмотрите процедуру:

ОбщийМодуль.ОбщегоНазначенияБПКлиент.ПоказатьСообщениеОСтарыхРеквизитахНалоговой()
Модуль(1212, 15) : ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия, Неопределено, КлючУникальности);

Оставьте свое сообщение

E-mail: