8.х Ошибка при создании DBF

Здравствуйте! Создаю DBF файл по данным из документа

Код:

    Запрос = Новый Запрос;
    Запрос.Текст ="ВЫБРАТЬ
                  |    ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,
                  |    ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,
                  |    ФИОФизЛицСрезПоследних.Фамилия,
                  |    ФИОФизЛицСрезПоследних.Имя,
                  |    ФИОФизЛицСрезПоследних.Отчество,
                  |    ПеречислениеПодотчетныхСуммРаботникиОрганизации.НомерЛицевогоСчета,
                  |    ПеречислениеПодотчетныхСуммРаботникиОрганизации.Сумма,
                  |    ПеречислениеПодотчетныхСуммРаботникиОрганизации.ФизЛицо
                  |ИЗ
                  |    Документ.ПеречислениеПодотчетныхСумм.РаботникиОрганизации КАК ПеречислениеПодотчетныхСуммРаботникиОрганизации
                  |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних КАК ПаспортныеДанныеФизЛицСрезПоследних
                  |        ПО ПеречислениеПодотчетныхСуммРаботникиОрганизации.ФизЛицо = ПаспортныеДанныеФизЛицСрезПоследних.ФизЛицо
                  |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
                  |        ПО ПеречислениеПодотчетныхСуммРаботникиОрганизации.ФизЛицо = ФИОФизЛицСрезПоследних.ФизЛицо
                  |ГДЕ
                  |    ПеречислениеПодотчетныхСуммРаботникиОрганизации.Ссылка = &Ссылка";
   
    Запрос.УстановитьПараметр("Ссылка", СсылкакНаДокумент);
   
    Выборка = Запрос.Выполнить().Выбрать();
       
        Если Не ЗначениеЗаполнено(ПутьКФайлу) Тогда
            Предупреждение("Не указан путь к файлу DBF!");
            Возврат;
        КонецЕсли;
       
        ДБФ = Новый XBase;
        ДБФ.ОткрытьФайл(ПутьКФайлу);
        ДБФ.ОчиститьФайл();
        ДБФ.Кодировка =КодировкаXBase.OEM;
        ДБФ.АвтоСохранение=Истина;
        Пока Выборка.Следующий() Цикл
           
            ДБФ.Добавить();
            ДБФ.FIOOWNER = ОбщегоНазначения.ПолучитьФамилиюИмяОтчество(Выборка.Фамилия, Выборка.Имя, Выборка.Отчество, Ложь);
            ДБФ.PASPORT = Строка(Выборка.ДокументСерия)+ " "+Строка(Выборка.ДокументНомер);
            ДБФ.ADDRESS = ПолучитьАдресИзКонтактнойИнформации(Выборка.ФизЛицо);
            ДБФ.INDEX   = "";
            ДБФ.PHONENM = ПолучитьТелефонИзКонтактнойИнформации(Выборка.ФизЛицо);
            ДБФ.VTYPE = "370";
            ДБФ.ACCOUNT = Выборка.НомерЛицевогоСчета;
            ДБФ.CASHVAL = Выборка.Сумма;
        КонецЦикла;
        ДБФ.ЗакрытьФайл();

выскакивает ошибка

{Документ.ПеречислениеПодотчетныхСумм.Форма.ФормаВыгрузкиВДБФ.Форма(142)}: Ошибка при вызове метода контекста (ОчиститьФайл)
ДБФ.ОчиститьФайл();
по причине:
Перед выполнением операции нужно открыть базу


в чем дело? Путь указан (ПутьКФайлу - D:\Файл.dbf, запись на диск разрешена)

Файла может не существовать вообще.

т.е. эта процедура открывает уже готовый dbf очищает и добавляет туда записи?

ага

Так и подумал...всё же спасибо большое!

Фрагмент кода создания и записи в ДБФ должен быть таким:

Код:

ДБФ = Новый XBase;
ДБФ.Кодировка = КодировкаXBase.OEM;
ДБФ.АвтоСохранение = Истина; 
ДБФ.СоздатьФайл(ПутьКФайлу);
ДБФ.Записать(); 
ДБФ.ОчиститьФайл();

Пока Выборка.Следующий() Цикл 
    ДБФ.Добавить(); 
    ДБФ.FIOOWNER = ОбщегоНазначения.ПолучитьФамилиюИмяОтчество(Выборка.Фамилия, Выборка.Имя, Выборка.Отчество, Ложь); 
    ДБФ.PASPORT = Строка(Выборка.ДокументСерия)+ " "+Строка(Выборка.ДокументНомер); 
    ДБФ.ADDRESS = ПолучитьАдресИзКонтактнойИнформации(Выборка.ФизЛицо); ДБФ.INDEX = ""; 
    ДБФ.PHONENM = ПолучитьТелефонИзКонтактнойИнформации(Выборка.ФизЛицо); 
    ДБФ.VTYPE = "370"; 
    ДБФ.ACCOUNT = Выборка.НомерЛицевогоСчета; 
    ДБФ.CASHVAL = Выборка.Сумма; 
    ДБФ.Записать();
КонецЦикла;

ДБФ.ЗакрытьФайл();

Помимо ошибки, связанной с очисткой файла, в оригинале есть ошибка в цикле обработки выборки - запись каждой строки начинается с "Добавить" и заканчивается "Записать".