Имя: Пароль:
1C
1C 7.7
v7: OpenConf управление заголовком системы.
0 varelchik
 
08.04.16
08:22
Народ!
А есть ли возможность в Опенконфе управлять заголовком системы.
Ну что-то типа ЗаголовокСистемы()?
1 varelchik
 
08.04.16
08:24
У меня встала потребность вовремя обмена по УРБД видеть какая база на текущий момент запущена для обмена.
А то их какзаведется куча пофигураторов , то фиг поймешь кто сейчас грузится.
2 Масянька
 
08.04.16
08:29
(0)
    ЗаголовокСистемы(" < " + Строка(КаталогИБ()) + " > ");
    
КонецПроцедуры  //ПриНачалеРаботыСистемы()

Стандарт.
3 mehfk
 
08.04.16
08:31
(2) Автор говорит про заголовок системы в конфигураторе, а не в предприятии.
4 mehfk
 
08.04.16
08:34
' идея - trdm (c) 2004
'
' Устанавливает заголовок основного окна в виде "Конфигуратоp - (<Каталог базы данных>)"
' Полезно, когда открыто много конфигураторов.
'
'  artbear Таймер вроде бы не нужен
'
'
'TimerWindowText = 0
'Sub StartChangeWindowText()
'    StopChangeWindowText
'    TimerWindowText = CfgTimer.SetTimer(3000, False)
'End Sub
'
'Sub StopChangeWindowText()
'    If TimerWindowText <> 0 Then CfgTimer.KillTimer TimerWindowText
'End Sub
'
'
'Sub Configurator_OnTimer(timerID)
'    If timerID = TimerWindowText Then
'        Set pMainWnd = Windows.MainWnd
'            pCaption = pMainWnd.Caption
'            IF InStr(1,pCaption,"Конфигуратор")>0 Then
'                pCaption = "Конфигуратоp - (" & IBDir & ")"
'                pMainWnd.Caption = pCaption
'            End If
'    End If
'End Sub
'StartChangeWindowText

Windows.MainWnd.Caption = "Конфигуратор - < " & IBDir & " >" ' artbear
5 Mikeware
 
08.04.16
08:36
(4) хм. а это куда втыкать?
6 Масянька
 
08.04.16
08:37
(3) У меня в конфе - Конфигуратор - путь к БД - имя открытого модуля. ЧЯДНТ?
7 mehfk
 
08.04.16
08:38
8 Mikeware
 
08.04.16
08:40
(6) подозреваю, что у нас ужо установлен опенконф с энтим скриптом.
Ибо на чистых  клюшках отображается только имя конфигурации
9 Масянька
 
08.04.16
08:40
(7) Настроение плохое с утра? Проблемы?
хочешь поговорить об этом?
10 mehfk
 
08.04.16
08:40
Это SetWinCaption.vbs в комплекте шел с каким-то паком
11 mehfk
 
08.04.16
08:40
(9) Жги!
12 varelchik
 
08.04.16
08:41
(4) Сенкс.
Будем рыть.
13 Mikeware
 
08.04.16
08:41
(11) напалмом?
14 mehfk
 
08.04.16
08:42
(13) Да хоть сероводородом.
15 varelchik
 
08.04.16
08:51
(5) Я воткнул в Телепат.vbs
16 Масянька
 
08.04.16
08:52
(0)
Простейший скрипт: изменяем заголовок окна

В папке BIN\CONFIG\SCRIPTS (если папки нет, то ее необходимо создать) создайте файл с расширением vbs (например, ЗаголовокКонфигурации.vbs) с текстом:

Windows.MainWnd.Caption = IBDir



После закрытия и открытия конфигуратора 1С заголовок окна конфигуратора будет содержать полный путь к информационной базе, что, на мой взгляд, очень удобно, когда в текущем пользовательском сеансе открыто несколько конфигураторов.
Ссылка - Книга знаний: OpenConf: пишем скрипты для конфигуратора 1С 7.7 (статья)
Гугл не работает?
17 varelchik
 
15.04.16
11:27