Изменяем заголовок 1С. Для удобства (разработки) или защиты "от дурака" =)


На работе бывают ситуации, когда ты реально не знаешь, в какой базе работаешь.
Где то вроде одна рабочая открыта, возможно еще одна рабочая открыта и тестовые точно есть.
С опытом приходит и каждый раз чтоб не ошибиться заходишь в Справка- О программе.
Даже когда хочешь сразу тестовые данные забить, раздражает немного =)

Так вот - надоело.

Да и защита от дурака это неплохая, когда был помоложе - пару раз на базе живой неправильные обработки запускал =)
Плюсы такого подхода, нам не надо ничего контролировать и переименовывать, мы просто делаем копию и работаем.

Сделал внешнюю обработку. Подключается через параметр запуска 1с или  файл конфига(1cestart.cfg) .
Код обработки ниже. Меньше тратится времени на анализ, где мы сейчас.

У ярлыка запуска дополнительный параметр /ExecuteD:\zapusk.epf

Процедура ПриОткрытии()   

  //+Gavrikprog 24102011
   
Если Метаданные.НайтиПоПолномуИмени("Константа.ЗаголовокСистемы")<> Неопределено  Тогда
       
ЗаголовокСистемы = Константы.ЗаголовокСистемы.Получить();
        Если 
ЗаголовокСистемы="" Тогда
           
ЗаголовокСистемы=ПолучитьЗаголовокСистемы();
        КонецЕсли;
    Иначе
       
ЗаголовокСистемы=ПолучитьЗаголовокСистемы();
    КонецЕсли;
   
//-Gavrikprog 24102011
    СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
   
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", Символы.ПС);

    Если
абОпределитьЭтаИнформационнаяБазаФайловая()  Тогда
       
Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 1);
    Иначе
       
Стр1 = СтрПолучитьСтроку(СтрокаСоединения, 1);
       
Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 2);
    КонецЕсли;
   
ЗаголовокСистемы=Строка(ЗаголовокСистемы)+" (" +Строка(Стр2)+")";
   

   
Если НЕ Пустаястрока(ЗаголовокСистемы) Тогда
       
УстановитьЗаголовокСистемы(ЗаголовокСистемы);
    КонецЕсли;

   
Закрыть();

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


Функция
абОпределитьЭтаИнформационнаяБазаФайловая(СтрокаСоединенияСБД = "") Экспорт

   
СтрокаСоединенияСБД = ?(ПустаяСтрока(СтрокаСоединенияСБД), СтрокаСоединенияИнформационнойБазы(), СтрокаСоединенияСБД);

   
// в зависимости от того файловый это вариант БД или нет немного по-разному путь в БД формируется
   
ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

    Возврат
ПозицияПоиска = 1;

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

//Дополнительная информация!!!

//Изменено: 24.10.2011 Поддерживаются управляемые формы

//Изменено: 26.10.2011 чтоб обработка отрабатывала при запуске отладки из конфигуратора надо ее прописать Дополнительные параметры
//запуска
при добавлении/изменении базы. так
/ExecuteD:\zapusk.epf
//Но мне не мешает. Приспособился уже.
//Если же добавить просто параметром дополнительным у ярлыка запуска, то будет работать, если запускаем просто 1С Предприятие, при
//отладке обработка отрабатывать не будет.

 


Иполнитель: 2012 г. www.rt-finance.ru

Файлы обработки:

-