Файловый или серверный вариант базы

23.11.09

✎

12:40

Подскажите пожалуйста, как можно узнать вариант базы.

Поиском нашелся вот такой способ:
Соединения = ПолучитьСоединенияИнформационнойБазы();
Для каждого СоединениеИнформационнойБазы Из Соединения Цикл
Если СоединениеИнформационнойБазы.Пользователь.Имя = ИмяПользователя() И оединениеИнформационнойБазы.ИмяПриложения="1CV8" Тогда
Если Лев(СтрокаСоединенияИнформационнойБазы(),5)="File=" Тогда
ФайловыйВариант = Истина;
Иначе
ФайловыйВариант = Ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Какие есть еще способы?

1 Попытка1С

23.11.09

✎

12:41

Ошибся секцией?
Вопрос видимо по v8?

2 also

23.11.09

✎

12:42

(0) А чем этот не нравится?

3 Скромный

23.11.09

✎

12:42

Ааг, поздно заметил. почему то ушло в 7 ((((

4 Скромный

23.11.09

✎

12:52

(2) Думаю, может есть способ поизящнее

5 Naumov

23.11.09

✎

12:53

не понятно только на кой все соединения перебираются? А если их 100?

6 Скромный

23.11.09

✎

13:00

да,(моя ошибка) там немного другая задача решалась. Поэтому цикл.
Достаточно взять одну строку массива.

7 Rabajaba

23.11.09

✎

13:32

СтрокаСоединенияИнформационнойБазы() в помощь
Возвращает только текущее подключение. Но далее алгоритм тот же.

8 vde69

23.11.09

✎

13:36

(0) более правильным - использовать директивы #Сервер в привелигерованом модуле

----------------------------------------------
а я вот так использую строку подключения

ЭтоРабочееМесто = Истина;
Если СокрЛП(ВРЕГ(Константы.КонтрольнаяСтрокаПодключения.Получить()) <> СокрЛП(ВРЕГ(СтрокаСоединенияИнформационнойБазы()))) и (СокрЛП(Константы.КонтрольнаяСтрокаПодключения) <> "") Тогда
ЭтоРабочееМесто = Ложь;
КонецЕсли;

// установим заголовок на случай длительных действий
ЗаголовокСистемы = Константы.ЗаголовокСистемы.Получить();

Если Пустаястрока(ЗаголовокСистемы) Тогда
ЗаголовокСистемы = Метаданные.Представление();
КонецЕсли;

Если не ЭтоРабочееМесто Тогда
//
// автоматическое удаление всех интеграционных настроек
//
ОтключитьКритичныйФункционал ();
// заодно и заголовок подправим
ЗаголовокСистемы = "КОПИЯ БАЗЫ [" + ЗаголовокСистемы + "]";
КонецЕсли;

УстановитьЗаголовокСистемы(ЗаголовокСистемы + " №" + Формат(Константы.НомерВерсииКонфигурации.Получить(), "ЧЦ=6; ЧРГ=.; ЧГ=2,2,2"));

9 Скромный

24.11.09

✎

09:39

(7),(8) Спасибо!!!