Установка заголовка программы

&НаКлиенте
Процедура УстановитьЗаголовокПрораммы() Экспорт
Если не Доработки_Сервер.ОпределитьЭтаИнформационнаяБазаРабочая() Тогда
ТекЗаголовок = Доработки_Клиент.ПолучитьЗначениеКонстантыНаКлиенте("ЗаголовокСистемы");
ИмяБазы = СокрЛП(СтрокаСоединенияИнформационнойБазы());
НовЗаголовок = "ТЕСТОВАЯ: " + ИмяБазы+" ("+ ИмяПользователя() + "), " + ТекЗаголовок;
КлиентскоеПриложение.УстановитьЗаголовок(НовЗаголовок)
КонецЕсли;
КонецПроцедуры