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

Kadawrik · 16.03.2015, 17:10

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

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

**Yoil** · 16.03.2015, 17:52

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

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

alexb_imported · 16.03.2015, 21:39

Quote:

Originally Posted by 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, т.е. форма просто будет болтаться на заднем фоне?

**Sancho** · 17.03.2015, 09:56

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

VProk · 17.03.2015, 10:14

Quote:

Originally Posted by Sancho

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

/>

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

alexb_imported · 17.03.2015, 10:26

Quote:

Originally Posted by Дуд

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

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

alexb_imported · 17.03.2015, 10:38

Quote:

Originally Posted by VProk

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

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

Kadawrik · 17.03.2015, 11:14

Quote:

Originally Posted by AlexB

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

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

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

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

Kadawrik · 17.03.2015, 12:02

Quote:

Originally Posted by Sancho

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

/>

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

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

**Sancho** · 17.03.2015, 15:53

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

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

**Yoil** · 17.03.2015, 16:27

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

alexb_imported · 17.03.2015, 20:22

Quote:

Originally Posted by Kadawrik

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

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

Quote:

Originally Posted by Kadawrik

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

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

Kadawrik · 18.03.2015, 10:51

Quote:

Originally Posted by AlexB

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

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

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

Quote:

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

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

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;

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

**Sancho** · 18.03.2015, 13:54

Quote:

Originally Posted by Дуд

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

но трабаха

/>

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

Fordewind · 18.03.2015, 17:30

А что если на картинке логотипа на главном меню (правая часть экрана) написать? Или я это с 3-й версией путаю? Не везде видно, но хоть при запуске или возврате в меню

**Yoil** · 19.03.2015, 03:49

если версия меньше 4-й, то согласен, самый простой вариант на форме главного меню что-нибудь нарисовать
Если 4-я или больше, то еще раз предлагаю создать самый верхний нефункциональный пункт меню с информативным названием

Kadawrik · 19.03.2015, 10:44

Quote:

Originally Posted by 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 ничем не отличается от других. В примере я реально написал весь код который используется. даже не знаю что еще сказать

.

Quote:

Originally Posted by Kadawrik

Quote:

Originally Posted by DA_NEAL

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

AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

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

/>