ustanovka_zagolovka_bazy_programmy [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

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

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

</code>