Изменение заголовка управляемой формы

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

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

1. Akteur33 29.08.13 15:33 Сейчас в теме

Здравствуйте! Платформа 8.2 Упр приложение
Есть желание в заголовок обработки выводить версию оной, записанную в макет данной обработки.
Подскажите, пожалуйста, как это можно реализовать.

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

Ответы

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

Свернуть все

2. killitch 30 29.08.13 15:39 Сейчас в теме

Убираем в настройках формы галку Автозаголовок, в модуле формы где нужно ЭтаФорма.Заголовок = "Наш заголовок".

4. Akteur33 29.08.13 15:42 Сейчас в теме

(2) Спасибо) Где лучше это делать, в процедуре ПриСозданииНаСервере?

И как считать данные макеты, а то он вставляет надпись Текстовый документ?

3. Akteur33 29.08.13 15:39 Сейчас в теме

Макет получаю след образом:
Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Версия");

Так вот, как теперь записать данные этого макета в заголовок...

5. Akteur33 29.08.13 16:03 Сейчас в теме

Разобрался. Кому вдруг интересно:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Версия").ПолучитьТекст();
	
	ЭтаФорма.Заголовок = Заголовок + ". " + Макет;
КонецПроцедуры

6. webresurs 230 19.04.23 09:40 Сейчас в теме

- вывести в названии обработки версию из комментария

#Область СобытияФормы

////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

//**********************************************************
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    //Заголовок формы
    ЭтаФорма.АвтоЗаголовок = Ложь;
    ЭтаФорма.Заголовок = ЗаголовокОтчета();

КонецПроцедуры

//**********************************************************
&НаСервере
Функция ЗаголовокОтчета()

    ТекОбъект = РеквизитФормыВЗначение("Объект");
    Комментарий = ТекОбъект.Метаданные().Комментарий;
    Возврат ТекОбъект.Метаданные().Синоним
        + ?(ЗначениеЗаполнено(Комментарий)," (" + Комментарий + ")","");

КонецФункции

#КонецОбласти

Показать

Прикрепленные файлы:

7. webresurs 230 19.04.23 09:47 Сейчас в теме

(6) Универсальные сведения о внешней обработке

что бы не менять в "ста местах" версию

    ПараметрыРегистрации.Наименование = МетаданныеОбработки.Синоним; 
    ПараметрыРегистрации.Версия = МетаданныеОбработки.Комментарий;

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

E-mail: