Видеть название сервера/базы данных

[Kadawrik]

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

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

[Yoil]

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

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

[alexb_imported]

Цитата:

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

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

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

[Yoil]

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

[Sancho]

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

[VProk]

Цитата:

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

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

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

[alexb_imported]

Цитата:

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

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

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

[alexb_imported]

Цитата:

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

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

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

[Kadawrik]

Цитата:

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

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

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

[Kadawrik]

Цитата:

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

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

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

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

[Sancho]

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

[Yoil]

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

[alexb_imported]

Цитата:

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

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

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

Цитата:

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

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

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

[Kadawrik]

Цитата:

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

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

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

Цитата:

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

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

[DA_NEAL]

Можно решить вопрос с использованием библиотеки 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]

Цитата:

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

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

но трабаха
/>

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

[Fordewind]

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

[Yoil]

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

[Kadawrik]

Цитата:

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

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


AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

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

[DA_NEAL]

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

Цитата:

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

Цитата:

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

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


AutoIT Automation 'AutoItX3 1.0 Type Library'.AutoItX3

OnRun() // CSide Utilities

CREATE(AutoIt);

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