Видеть название сервера/базы данных - NAV: Программирование

Kadawrik · 16.03.2015, 17:10

Коллеги, подскажите, пжлст, можно ли (и если можно, то как) выводить на экран название сервера и базы данных, с которыми в данный момент работает пользователь?
Имеется в виду следующее: чтобы либо в заголовке окна (т.е. над строкой меню), либо в строке статуса (т.е. самая нижняя строка окна) постоянно высвечивалась указанная информация.

П.С.: речь идет о НАВ 5.01

**Yoil** · 16.03.2015, 17:52

тупая идея 1: обзывать фирмы соответствующим образом
тупая идея 2: в меню создать верхний нефункциональный пункт с нужным названием

По делу идей нет

alexb_imported · 16.03.2015, 21:39

Цитата:

Сообщение от Kadawrik

Коллеги, подскажите, пжлст, можно ли (и если можно, то как) выводить на экран название сервера и базы данных, с которыми в данный момент работает пользователь?
П.С.: речь идет о НАВ 5.01

Если SQL, то очень просто:
создайте пустую форму, в которой в OnOpen()-триггере программным кодом через record-variables находите вам нужную информацию:
- имя тек. сервера находите в таблице 2000000047 "Server", а именно запись с галочкой My Server = Yes
- имя тек. DB находится в таблице 2000000048, а именно запись с галочкой "My Database"=Yes
Обе информации выводите в текстбоксе формы а саму форму стартуйте в codeunit 1 в функции LoginStart()

**Yoil** · 17.03.2015, 06:18

AlexB, т.е. форма просто будет болтаться на заднем фоне?

alexb_imported · 17.03.2015, 10:26

Цитата:

Сообщение от Дуд

AlexB, т.е. форма просто будет болтаться на заднем фоне?

Именно, маленькая формочка с этой инфой болтается на заднем плане. Вообще вопрос был откуда взять инфу о сервере+DB, где/как эту инфу выводить - дело индивидуальное.

Kadawrik · 17.03.2015, 11:14

Цитата:

Сообщение от AlexB

Именно, маленькая формочка с этой инфой болтается на заднем плане. Вообще вопрос был откуда взять инфу о сервере+DB, где/как эту инфу выводить - дело индивидуальное.

Сорри, возможно некорректно сформулировала. Но вопрос был именно НЕ ГДЕ взять инфу. а КАК ее вывести в заголовок окна или строку статуса (если была бы такая возможность). Но, судя по всему, эти строки "редактированию" не подлежат

Тем не менее, Алекс, спасибо за подсказку насчет таблиц (2000000047 и 48

У нас SQL, так что Ваш вариант вполне можно было бы использовать

**Sancho** · 17.03.2015, 09:56

можно модальную, всегда впереди и на весь экран без кнопки закрытия с перехватом Esc и Ctrl+F4

VProk · 17.03.2015, 10:14

Цитата:

Сообщение от Sancho

можно модальную, всегда впереди и на весь экран без кнопки закрытия с перехватом Esc и Ctrl+F4

/>

На 330 форме (главное меню)вывести в Caption, не?

alexb_imported · 17.03.2015, 10:38

Цитата:

Сообщение от VProk

На 330 форме (главное меню)вывести в Caption, не?

Здесь речь идёт о НАВ 5.01

Kadawrik · 17.03.2015, 12:02

Цитата:

Сообщение от Sancho

можно модальную, всегда впереди и на весь экран без кнопки закрытия с перехватом Esc и Ctrl+F4

/>

Кстати, а как сделать, чтобы всегда впереди была?

И еще вопрос: в 5 Наве никак нельзя сделать так, чтобы одно окно было на весь экран, а остальные - нормальные?

alexb_imported · 17.03.2015, 20:22

Цитата:

Сообщение от Kadawrik

Кстати, а как сделать, чтобы всегда впереди была?

Это как:
1. входим в НАВ -> открывается как окно с сервер-ДБ-инфой
2. Юзер открывает Customer Card но оная не видна, т.к. на переднем плане длолжна быть опять же кно с сервер-ДБ-инфой?

Цитата:

Сообщение от Kadawrik

И еще вопрос: в 5 Наве никак нельзя сделать так, чтобы одно окно было на весь экран, а остальные - нормальные?

Свойство MaximizedOnOpen не пойдёт?

Kadawrik · 18.03.2015, 10:51

Цитата:

Сообщение от AlexB

Это как:
1. входим в НАВ -> открывается как окно с сервер-ДБ-инфой
2. Юзер открывает Customer Card но оная не видна, т.к. на переднем плане длолжна быть опять же кно с сервер-ДБ-инфой?

Это так:
1. входим в Нав -> открывается окно с сервер-ДБ-инфой (маааленькое такое окошко ... в одну строчку, н-р)
2. Юзер открывает Customer Card, но она видна и на ней на переднем плане висит окошко из п.1... а может и не висит (т.к. осталось немного в стороне

вопчем суть в том, что окно с инфой небольшое, но лежащее постоянно поверх всех остальных. Согласна! не совсем удобно, но в сл. необходимости его можно было бы сдвинуть в сторону.
Но это так, чмсто теоретические рассуждения, поскольку в Наве нет свойства AlwaysOnTop

Цитата:

Свойство MaximizedOnOpen не пойдёт?

К сожалению не подходит. ;( если у одного окна включить это св-во, то и все остальные аавтоматом максимируются. А если какое-то окно уменьшить, то и все открытые так же аавтоматом уменьшатся. А я страшивала о варианте: одно распахнуто на весь экран, а остальные в нормальном размере. Но так в Навике не получается ;(

**Sancho** · 17.03.2015, 15:53

был неправ
никак нельзя
нет такого свойства у форм в Наве

обычно оно называется AllwaysOnTop, или что-то вроде

**Yoil** · 17.03.2015, 16:27

а вдруг поможет

**Sancho** · 18.03.2015, 13:54

Цитата:

Сообщение от Дуд

а вдруг поможет

но трабаха

/>

из командной строки запускается и работает, а из 1кю не запускается.
печалька
когда любая формочка разворачивается и сворачивается - описание перетирается на обычное

DA_NEAL · 18.03.2015, 13:02

Можно решить вопрос с использованием библиотеки AutoIT

AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

AutoIt.WinSetTitle(COMPANYNAME + ' - Microsoft Dynamics NAV Classic','',
COMPANYNAME + ' - Microsoft Dynamics NAV Classic [Server : ' + GetServerName + ', Database : ' + GetBaseName + ']');

Тогда информация будет выводится в заголовке главного окна navision. Но требуется установка на машине пользователя.
Почему запихнул в отдельный кодъюнит в OnRun? Чтобы срабатывало вот так

IF CODEUNIT.RUN(CODEUNIT::"CSide Utilities") THEN;

тогда если у пользователя не установлена библиотека то ошибки не выпадет.

Kadawrik · 19.03.2015, 10:44

Цитата:

Сообщение от DA_NEAL

Можно решить вопрос с использованием библиотеки AutoIT

AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

Попробовала Ваш вариант. Установила библиотеку и т.д.
Но почему-то вот этот самый CREATE не срабатывает, точнее объект не создается. ;-/
Дальше пока еще не копала. Может подскажете в какую сторону копать?

DA_NEAL · 19.03.2015, 11:47

Работа с этим Automation ничем не отличается от других. В примере я реально написал весь код который используется. даже не знаю что еще сказать

.

Цитата:

Сообщение от Kadawrik

Цитата:

Сообщение от DA_NEAL

Можно решить вопрос с использованием библиотеки AutoIT

AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

Попробовала Ваш вариант. Установила библиотеку и т.д.
Но почему-то вот этот самый CREATE не срабатывает, точнее объект не создается. ;-/
Дальше пока еще не копала. Может подскажете в какую сторону копать?

/>

alexb_imported · 19.03.2015, 13:13

Цитата:

Сообщение от DA_NEAL

Работа с этим Automation ничем не отличается от других. В примере я реально написал весь код который используется. даже не знаю что еще сказать

/>/>.

Могу подтвердить, у меня прекрасно работает. Прикольная вещь!

DA_NEAL · 19.03.2015, 14:29

Цитата:

Сообщение от AlexB

Цитата:

Сообщение от DA_NEAL

Работа с этим Automation ничем не отличается от других. В примере я реально написал весь код который используется. даже не знаю что еще сказать

/>/>/>.

Могу подтвердить, у меня прекрасно работает. Прикольная вещь!

Ну не совсем, кое-о чем я умолчал

. Нужно немножко допилить поиск нужного окна. Проблемы возникают при открытии нескольких навижн, библиотека находит первое попавшееся окно. Более корректно будет присваивать окну название не совпадающее со стандартным. Например убрать из названия после изменения Microsoft Dynamics NAV Classic, чтобы следующий клиент который ищет это окошко не находил уже переименованное окно.