Вывод названия базы в заголовке 1с 7.7 предприятие

[krechetok]

Здравствуйте.

При запуске 1с 7.7 можно наблюдать окошко, в котором предлагается выбрать базу, с которой будем работать (см. скриншот 1).

Далее, к примеру, я выбираю базу "информационная база 2". И открывается окно, в котором уже можно работать с этой базой (см. скриншот 2).

Такой вопрос - можно ли как-то настроить интерфейс программы, чтобы в заголовке окна было написано не только "1C:Предприятие - Зарплата+Кадры. Редакция 2.3", но и название базы, с которой я работаю, т.е. что-то вроде "1C:Предприятие - Зарплата+Кадры. Редакция 2.3 - информационная база 2"?

[alex0402]

В процедуре ПриНачалеРаботыСистемы()

ЗаголовокСистемы(<?>)
Синтаксис:
ЗаголовокСистемы(<Заголовок>)
Назначение:
Позволяет получить/установить заголовок окна программы. Возвращает строковое значение - заголовок окна программы.
Параметры:
<Заголовок> - строковое выражение - задаваемый заголовок окна программы.

[krechetok]

В процедуре ПриНачалеРаботыСистемы()

ЗаголовокСистемы(<?>)
Синтаксис:
ЗаголовокСистемы(<Заголовок>)
Назначение:
Позволяет получить/установить заголовок окна программы. Возвращает строковое значение - заголовок окна программы.
Параметры:
<Заголовок> - строковое выражение - задаваемый заголовок окна программы.

Спасибо, посмотрел, у меня нет пункта "Глобальный модуль" в окне "Конфигурация — Метаданные" (см. скриншот 3).



Что еще можно попробовать?

[alex0402]

На Зарплата Кадры - правая кнопка мыши

[krechetok]

Спасибо, нашел вот такой кусок текста в глобальном модуле:

Процедура ПриНачалеРаботыСистемы()
   // при старте проверим наличие компоненты "Расчет" 1С:Предприятия
   Попытка
      СоздатьОбъект("ЖурналРасчетов.Зарплата");
   Исключение
      Предупреждение("Для работы необходимо наличие компоненты Расчет 1С:Предприятия 7.7!
                  |Повторите запуск программы после проверки состава
                  |установленных компонент и доступа к ключам защиты.");
      СтатусВозврата(0); Возврат
   КонецПопытки;
   
   // инициализация и заполнение списка имен месяцев
   // поиск по списку имен используется в функции глДатаПоСтроке
   СписокИменМесяцев = СоздатьОбъект("СписокЗначений");
   Для Счетчик=1 По 12 Цикл
      СписокИменМесяцев.ДобавитьЗначение(Врег(Формат(Дата(2001,Счетчик,1),"ДММММ")));
   КонецЦикла;
       
   // обновление информационной базы
   Если Константа.НомерРелиза<>Лев(Метаданные.Комментарий,8) Тогда
      Если ТекущаяИБЦентральная() = 1 Тогда
         глОшибкаВоВремяОбновления = 0;
         ОткрытьФормуМодально("Обработка.ОбновлениеИБ","Обновить");
         Если глОшибкаВоВремяОбновления<>0 Тогда
            СтатусВозврата(0);
            Возврат;
         КонецЕсли;
      Иначе
         Предупреждение("Первый запуск после обновления конфигурации возможен только в Центральной ИБ!");
         СтатусВозврата(0);
         Возврат;
      КонецЕсли;
   КонецЕсли;
   
   Если ТекущаяИБЦентральная() = 1 Тогда
      // откроем стартовый помощник и путеводитель, если это необходимо
      Если ТипЗначения(ВосстановитьЗначение("_ОТКРЫТЬ_СТАРТОВЫЙ_ПОМОЩНИК_"))=0 Тогда
         СохранитьЗначение("_ОТКРЫТЬ_СТАРТОВЫЙ_ПОМОЩНИК_",1);
      КонецЕсли;
      Если ВосстановитьЗначение("_ОТКРЫТЬ_СТАРТОВЫЙ_ПОМОЩНИК_")=1 Тогда
         ОткрытьФорму("Обработка.ПомощникСтартовый");
      КонецЕсли;
      Если ВосстановитьЗначение("ПоказПутеводителяПриЗапуске")=1 Тогда
         ОткрытьФорму("Обработка.Путеводитель");
      КонецЕсли;   
   КонецЕсли;
   
   //Для работы с компонентой "Управление распределенными информационными базами"
   УстановитьПрефиксыИБ();
   
   глФорматнаяСтрокаПользователя = ВосстановитьЗначение("_ФОРМАТ_ПОЛЬЗОВАТЕЛЯ_ДЛЯ_ЧИСЕЛ_");
   Если ПустоеЗначение(глФорматнаяСтрокаПользователя)=1 Тогда
      глФорматнаяСтрокаПользователя = "Ч15.2. ";
      СохранитьЗначение("_ФОРМАТ_ПОЛЬЗОВАТЕЛЯ_ДЛЯ_ЧИСЕЛ_",глФорматнаяСтрокаПользователя);
   КонецЕсли;
   
   // настроим правила перерасчетов по текущему состоянию расчетных баз
   ОтредактироватьПравилаПерерасчета();
   ИспПравилПерерасчета = ПравилоПерерасчета.Применять(1);
   
   // Инициализация переменных правовой поддержки
   Если ФС.СуществуетФайл( КаталогПрограммы()+"1CRtInf.dll" )=1 Тогда
      ЗагрузитьВнешнююКомпоненту("1CRtInf.dll");
      Норм_Компонента = СоздатьОбъект("AddIn.DBExtension");
   КонецЕсли;

   // Интернет-поддержка
   ПроверятьНовости=ВосстановитьЗначение("НовостиПроверять");
   
   // Получить автоматически сведения о наличии обновлений (если установлены соотв. флажки)
   // Номер релиза и идентификатор конфигурации уже должны быть установлены
   Если ПроверятьНовости=2 Тогда
      Включение = ВосстановитьЗначение("НовостиВключение");
      ДеньВключения = ВосстановитьЗначение("НовостиДеньВключения");
      ДеньВключения=?(ПустоеЗначение(ДеньВключения)=1,ТекущаяДата(),ДеньВключения);
      НДней = ВосстановитьЗначение("НовостиНДней");
      Если Включение=2 Тогда
         ОткрытьФорму("Обработка.ИПППроверкаОбновлений");
      ИначеЕсли ТекущаяДата()>=ДеньВключения Тогда
         ДеньВключения = ТекущаяДата()+НДней;
         СохранитьЗначение( "НовостиДеньВключения",ДеньВключения);
         ОткрытьФорму("Обработка.ИПППроверкаОбновлений");
      КонецЕсли;
   КонецЕсли;
   
   // Для раздела ИПП "Календарь бухгалтера"
   // Проверка календарей (бухгалтера и др.)
   Если Найти(",BUTK,BUBK,BUOURCLK,BUPSB,OUMNPV,OUBV",","+глИдентификаторКонфигурации())>0 Тогда  // ,OUTK,OUTKF
      ПроверятьКалендари = ВосстановитьЗначение("КалендарьПроверка");
      Если ПроверятьКалендари=2 Тогда
         ОткрытьФорму("Отчет.ИППКалендарь",1); // запуск в режиме "проверка"
      КонецЕсли;
   КонецЕсли;
   // Инициализация даты начала вычитания из базы ЕСН доходов, подпадающих под ЕНВД
   глДатаУчетаЕНВД = '01.08.2002';
   
   // дата вступления в силу Постановления РФ от 11.04.2003  о ср. заработке
   ДатыИзмененияПорядкаРасчетаСреднегоЗаработка[1] = '24.04.2003';
   // дата вступления в силу изменений в ТК (№90-ФЗ от 30/06/2006)
   ДатыИзмененияПорядкаРасчетаСреднегоЗаработка[2] = '06.10.2006';
   // дата вступления в силу Постановления №922 от 24/12/2007)
   ДатыИзмененияПорядкаРасчетаСреднегоЗаработка[3] = '06.01.2008';
   
   
   ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации));
   
   ОткрытьИнформационныйБлок = ВосстановитьЗначение("НеобходимостьОткрытияИнформационныйБлок");
   ОткрытьИнформационныйБлок = ?(ПустоеЗначение(ОткрытьИнформационныйБлок)=1,2, ОткрытьИнформационныйБлок);
   ДатаОткрытияИнформационныйБлок = ВосстановитьЗначение("ДатаОткрытияИнформационныйБлок");
   ДатаОткрытияИнформационныйБлок = ?(ПустоеЗначение(ДатаОткрытияИнформационныйБлок)=1,'01.01.1980', Дата(ДатаОткрытияИнформационныйБлок));
   ДеньМесяца = ДатаЧисло(РабочаяДата());
   
   Если ОткрытьИнформационныйБлок =2 Тогда
      ОткрытьФорму("Обработка.ИнформационныйБлок");
   ИначеЕсли ((ДеньМесяца=1) или (ДеньМесяца=15)) и (РабочаяДата() <> ДатаОткрытияИнформационныйБлок) Тогда
      ОткрытьФорму("Обработка.ИнформационныйБлок");
      СохранитьЗначение("ДатаОткрытияИнформационныйБлок",Строка(РабочаяДата()));
   ИначеЕсли ((ДеньМесяца<15) и (ДатаОткрытияИнформационныйБлок <> НачМесяца(РабочаяДата())))
   или ((ДеньМесяца>=15) и (ДатаОткрытияИнформационныйБлок <> Дата(ДатаГод(РабочаяДата()),ДатаМесяц(РабочаяДата()),15))) Тогда
      ОткрытьФорму("Обработка.ИнформационныйБлок");
      СохранитьЗначение("ДатаОткрытияИнформационныйБлок",Строка(Дата(ДатаГод(РабочаяДата()),ДатаМесяц(РабочаяДата()),?(ДатаЧисло(РабочаяДата())<15,1,15))));
   КонецЕсли;
   
КонецПроцедуры // ПриНачалеРаботыСистемы

Вот вижу здесь

ЗаголовокСистемы

. Что следует туда вписать?

[alex0402]

ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации));

Есть строка. Ее нужно заменить на свой вариант

[krechetok]

В общем, нашел информацию, что название базы так просто не вытащить, оно хранится в реестре, и нужно использовать VBS. Я так понимаю стандартной функции нет, которая выведет название базы ? Т.е. ожидал что-то вроде 

ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации) (Константа.НазваниеБазы));

, но такого не нашел

[alex0402]

, но такого не нашел

внимаьельно смотрел? есть в твоей цитате!  Ответ #4

Добавлено: 23 мая 2017, 14:56

ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации));

заменить на

Код Выделить Развернуть

ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации) + " свой текст");

[krechetok]

Пробую

ЗаголовокСистемы(СокрЛП(Константа.НазваниеОрганизации) + ТекущаяИБНаименование());

Не отображается название базы(

Добавлено: 24 мая 2017, 17:21

ТекущаяИБНаименование() - наименование ИБ, как оно задан в диалоге "Управление распределенными данными" Конфигуратора центральной ИБ. Функция возвращает пустую строку, если ИБ нераспределенная.

У меня нераспределенная база? Когда в конфигураторе выбираю "Администрирование - Распределенная ИБ - управлениеЭ - вылазит окошко с сообщением "Для работы с центральным узлом нераспределенной информационной базы необходимо установить компоненту Управление распределнными информационными базами".

В случае, если у меня нераспределенная база, как все-таки вывести ее имя?

[alex0402]

распределенная база

в 7.7 создается две или больше баз для совместной работы. Данные во всех базах, после синхронизации, идентичны.