1с ошибка создания файла dbf

Всем доброе утро! Помогите, пожалуйста!

Пытаюсь создать программно файл DBF.

Делаю примерно следующее:

ДБФ = Новый XBase();

   ДБФ.поля.Добавить(«A», «S», 30);

   ДБФ.поля.Добавить(«B», «S», 30);

   ДБФ.поля.Добавить(«C», «S», 30);

   ДБФ.поля.Добавить(«D», «S», 30);

   ДБФ.поля.Добавить(«E», «S», 30);

   ДБФ.поля.Добавить(«F», «S», 30);

   ДБФ.поля.Добавить(«G», «S», 30);

   ДБФ.АвтоСохранение = Истина;

   ИмяФайла = «b73056» + Прав(Основание.Номер, 2);

   
   ИмяФайлаБазы  =  «\E:ShareВнешниеОбработкиДляКАЭлектронный реестр Сбербанка» + ИмяФайла + «.dbf»;

   ДБФ.СоздатьФайл(ИмяФайлаБазы);

   ДБФ.Кодировка = КодировкаXBase.OEM;

   ДБФ.АвтоСохранение = Истина;

   ДБФ.ОткрытьФайл(ИмяФайлаБазы);

// 1-я строка

   ДБФ.Добавить();

…….

ДБФ.Записать();

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

Сообщить(«Формирование DBF-файла завершено»);

Сообщить(«Путь к файлу: » + ИмяФайлаБазы);

Выдает ошибку:{Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (Добавить)

   ДБФ.Добавить();

по причине:

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

Я так понимаю, что не открывает, потому что не создает. Смотрю в обработчике при методах СоздатьФайл(), ОткрытьФайл() и Добавить() пишет: Обращение к процедуре к процедуре объекта как к функции.

Находила на форумах подобные ошибки, но так и не разобралась.

Помогите, пожалуйста. Заранее всем спасибо.

ФайлБТ.ОткрытьФайл(«X:CASHLOADPluCash1.dbf»);
       Если Не ФайлБТ.Открыта() Тогда
           ФайлБТ.СоздатьФайл(«X:CASHLOADPluCash1.dbf»);
       Иначе
           //ФайлБТ.ОчиститьФайл();
       КонецЕсли;

это кусок из обработки выгрузки на кассу…под рукой вот была…

далее, кодировку указывал я после открытия/создания файла, и работает нормально это…да и автосохранение убрать после открытия надо

еще вопрос, выполняется на клиенте или на сервере?
сервер когда выполняет может не видеть доступ через сеть, есть там проблемы разные с этим…

да и клиент не всегда видит доступ, попробую пока название файла локальное, на том же компе, где идет работа с 1Ской

сделай так попробуй:

ДБФ = Новый XBase();
   ДБФ.поля.Добавить(«A», «S», 30);
   ДБФ.поля.Добавить(«B», «S», 30);
   ДБФ.поля.Добавить(«C», «S», 30);
   ДБФ.поля.Добавить(«D», «S», 30);
   ДБФ.поля.Добавить(«E», «S», 30);
   ДБФ.поля.Добавить(«F», «S», 30);
   ДБФ.поля.Добавить(«G», «S», 30);

         ИмяФайла = «b11111»;
   ИмяФайлаБазы  =  КаталогВременныхФайлов() + ИмяФайла + «.dbf»;

   ФайлБТ.ОткрытьФайл(ИмяФайлаБазы);
       Если Не ФайлБТ.Открыта() Тогда
           ФайлБТ.СоздатьФайл(ИмяФайлаБазы);      
       КонецЕсли;

       ДБФ.Кодировка = КодировкаXBase.OEM;
   ДБФ.АвтоСохранение = Истина;

  // 1-я строка

   ДБФ.Добавить();
…….
ДБФ.Записать();
ДБФ.ЗакрытьФайл()

стоп…
первая строка не ДБФ = Новый XBase();
а ДБФ = Новый XBase;

у меня без скобок работает все

вот сейчас в 1С 8.1 УТ 10.3.6.8 сделал и все сработало, файл создался без ошибок:

ФайлБТ = Новый XBase();
   ФайлБТ.поля.Добавить(«A», «S», 30);
   ФайлБТ.поля.Добавить(«B», «S», 30);
   ФайлБТ.поля.Добавить(«C», «S», 30);
   ФайлБТ.поля.Добавить(«D», «S», 30);
   ФайлБТ.поля.Добавить(«E», «S», 30);
   ФайлБТ.поля.Добавить(«F», «S», 30);
   ФайлБТ.поля.Добавить(«G», «S», 30);

         ИмяФайла = «b11111»;
   ИмяФайлаБазы  =  КаталогВременныхФайлов() + ИмяФайла + «.dbf»;

   ФайлБТ.ОткрытьФайл(ИмяФайлаБазы);
   Если Не ФайлБТ.Открыта() Тогда
       ФайлБТ.СоздатьФайл(ИмяФайлаБазы);      
   КонецЕсли;

   Если Не ФайлБТ.Открыта() Тогда
       Сообщить («Нет доступа к серверу Crystal Set, проверьте соединение. Выгрузка цен не возможна! Выгрузку цен необходимо осуществить в ручном режиме.»);
       Отказ=Истина;
   КонецЕсли;

               ФайлБТ.Кодировка = КодировкаXBase.OEM;
   ФайлБТ.АвтоСохранение = Истина;

  // 1-я строка

   ФайлБТ.Добавить();
   ФайлБТ.A = «первый»;
   ФайлБТ.B = «второй»;
   ФайлБТ.C = «третий»;
   ФайлБТ.D = «четвертый»;

   ФайлБТ.Записать();
   ФайлБТ.ЗакрытьФайл();

ФайлБТ.Добавить();

…..
ФайлБТ.Записать();

это надо в цикле делать, при каждой новой строке…

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

НевестаПрограмМИСТА

27 — 18.10.10 — 12:41

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

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

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

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

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

2. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.890

   Симпатии:

   1.030

   Баллы:

   204

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

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

4. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.890

   Симпатии:

   1.030

   Баллы:

   204

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

6. 
   

   Offline

   pavl_vs
   Профессионал в 1С

   Регистрация:

   18 июн 2011

   Сообщения:

   507

   Симпатии:

   42

   Баллы:

   54

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

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

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