В начало

Процедура ОткрДБ

 

// Подразумевается, что объект ДБФ уже создан и

// доступен в данном контексте

 

Процедура ОткрДБ ()

   ИмяФайла = "";

   ИмяПути = "";

   ФС.ВыбратьФайл (0, ИмяФайла, ИмяПути, , "*.*", , );

   ПутьДБ = ИмяПути + ИмяФайла;

   ДБФ.ОткрытьФайл (ПутьДБ);

   Если ДБФ. Открыта () = 1 Тогда

      Предупреждение ("База открыта", 2);

   Иначе

      Предупреждение ("Не смогли открыть Базу!", 2);

   КонецЕсли;

КонецПроцедуры