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

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

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