Надумал я немножко "попиарится". На одном известном форуме люди выкладывают свои решения экзаменационных задач к экзамену 1с специалист, но в подписи нельзя просто указать адрес сайта. Но всегда есть минимум 2 выхода). Решил эту задачу тем что адрес блога будет выводится в заголовке клиентского приложения. Таким образом если человек скачает решение он узнает и о блоге. (Есть конечно невнимательные люди могут и не увидеть) ).
Как это можно сделать.
1) В общем модуле "Общиймодуль1" с включенным признаком "ВызовСервера" прописываем функцию
Функция ПолучитьСиноним() Экспорт;
ТекСиноним = Метаданные.Синоним;
Возврат ТекСиноним;
КонецФункции
2) В модуле управляемого приложения вставляем код
Процедура ПриНачалеРаботыСистемы()
ТекЗаголовок = "learning1c.blogspot.com " ;
ТекСиноним= ОбщийМодуль1.ПолучитьСиноним();
НовЗаголовок = ТекЗаголовок+ТекСиноним+ИмяПользователя() ;
УстановитьЗаголовокКлиентскогоПриложения(НовЗаголовок);
КонецПроцедуры
3) Устанавливаем сам заголовок в свойствах конфигурации.
Получаем требуемую картину
Как это можно сделать.
1) В общем модуле "Общиймодуль1" с включенным признаком "ВызовСервера" прописываем функцию
Функция ПолучитьСиноним() Экспорт;
ТекСиноним = Метаданные.Синоним;
Возврат ТекСиноним;
КонецФункции
2) В модуле управляемого приложения вставляем код
Процедура ПриНачалеРаботыСистемы()
ТекЗаголовок = "learning1c.blogspot.com " ;
ТекСиноним= ОбщийМодуль1.ПолучитьСиноним();
НовЗаголовок = ТекЗаголовок+ТекСиноним+ИмяПользователя() ;
УстановитьЗаголовокКлиентскогоПриложения(НовЗаголовок);
КонецПроцедуры
3) Устанавливаем сам заголовок в свойствах конфигурации.
Получаем требуемую картину
Спасибо! Среди многих вариантов решения данной задачи, этот самый практичный!
ОтветитьУдалитьА если в модуле сеанса прописать:
ОтветитьУдалитьЕсли ТребуемыеПараметры <> Неопределено Тогда
Возврат;
КонецЕсли;
ГлавныйСтиль = БиблиотекаСтилей["ИмяСтиля"];
Таким образом можно раскрасить рабочую и тестовую базую