Путь к БД

[Himan]

Доброе время суток...
Подскажите как получить путь к текущей БД и Название текущей Компании...
Заранее благодарю...

[artkashin]

GetDatabaseServer(URL : Text[1024]) Result : Text[250]
// GetDatabaseServer

Result := '';
strPeriod := COPYSTR(URL, STRPOS(URL, 'servername=') + 11);
strPeriod := COPYSTR(strPeriod, 1, STRPOS(strPeriod, '&') - 1);
WHILE STRPOS(strPeriod, '\') > 0 DO
  strPeriod := COPYSTR(strPeriod, STRPOS(strPeriod, '\') + 1);
Result := strPeriod;

GetDatabaseName(URL : Text[1024]) Result : Text[250]
// GetDatabaseName

Result := '';
strPeriod := COPYSTR(URL, STRPOS(URL, 'database=') + 9);
strPeriod := COPYSTR(strPeriod, 1, STRPOS(strPeriod, '&') - 1);
WHILE STRPOS(strPeriod, '\') > 0 DO
  strPeriod := COPYSTR(strPeriod, STRPOS(strPeriod, '\') + 1);
Result := strPeriod;

GetCompanyName(URL : Text[1024]) ResultC : Text[250]
// GetCompanyname

ResultC := '';
strPeriod := COPYSTR(URL, STRPOS(URL, 'company=') + 8);
strPeriod := COPYSTR(strPeriod, 1, STRPOS(strPeriod, '&') - 1);
WHILE STRPOS(strPeriod, '\') > 0 DO
  strPeriod := COPYSTR(strPeriod, STRPOS(strPeriod, '\') + 1);
ResultC := strPeriod;

[rmv]

Для SQL версии (на Native не проверял) проще сделать через виртуальные таблицы Database и Server.
Server.setrange("My Server", true);
Server.find('-');

Database.setrange("My Database", true).
Database.find('-');

Имя компании - CompanyName

[Himan]

2 Kashin
Что за строку URL передаешь???

[artkashin]

Цитата:

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

2 Kashin
Что за строку URL передаешь???

Да, соррь, эта функция вызывается с формы. У каждой формы есть свойство CurrForm.URL; Это свойство и передается в функцию.
Но, действительно, лучше делать так, как подсказал rmv.

[Himan]

Цитата:

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

Да, соррь, эта функция вызывается с формы. У каждой формы есть свойство CurrForm.URL; Это свойство и передается в функцию.
Но, действительно, лучше делать так, как подсказал rmv.

Я использую Nav базу.. И там нет таких таблиц...
Нашел таблицу 700 BA Database, но там нет записей...

[NeNavision_imported]

Database это системная таблица. Ее в дизайнере не видно. но она есть, там много таких при задании переменной Rec введите Database и все

[Himan]

Что то не понимаю что вы имеете ввиду...
Можно пример?????

[Greggy_imported]

Отображение пути в заголовке главного окна Navision