Групповое открытие/закрытие баз данных в БЭСТ-5

DbOpenBases() - Открытие баз данных
DbCloseBases() - Закрытие баз данных
  
Синтаксис     
 
      DbOpenBases( aBase ) --> lSuccess
      DbCloseBases( aBase ) --> lSuccess
 
Возвращаемое значение функции     
 
lSuccess – Результат выполнения функции. True при удачном открытии False при неудачном открытии таблиц.
 
Параметры
 
aBase - Список открываемых баз данных. Задается в виде массива :
{{<Alias>,<NameTable>},...{<nAlias>,<nNameTable>}}
 
 
DbOpenBases() - Открытие нескольких баз данных, заданных в массиве. По своему действию - запуск NetUse() для каждой таблицы, описанной в массиве aBase.
Обратное действие - закрытие баз данных, осуществляется процедурой dbCloseBases(), вызывающей DbCloseArea() для каждой таблицы из массива aBase.
 
ПРИМЕР:
 
//Код функций
STATIC FUNCTION dbOpenBases(aBase)
LOCAL i
LOCAL lResult := .T.
FOR i := 1 TO LEN(aBase)
   lResult := lResult.AND.NETUSE(aBase[i][1], aBase[i][2])
RETURN lResult
 
STATIC PROCEDURE dbCloseBases(aBase)
LOCAL i
FOR i := 1 TO LEN(aBase)
   IF !EMPTY(SELECT(aBase[i][1]))
      (aBase[i][1])->(DBCLOSEAREA())
   ENDIF
NEXT
RETURN
 
// Пример использования
    LOCAL aBases:={;
                    {"DocList",  cPathBase+"DocList"},;
                    {"Reestr",   cPathBase+"Reestr"},;
                    {"Params",   cPathBase+"Params"},;
                    {"Prov",     cPathBase+"Prov"},;
                    {"Lst",      cPathBase+"Dtd_List"},;
                    {"VidDoc",   cPathBase+"VidDoc"};
                  }
dbOpenBases(aBases)