Имя: Пароль:
1C
1С v8
Не открывает базу при выгрузке в dbf
Ø (andrewks 26.03.2012 15:21)
0 Pozdnyakov
 
26.03.12
14:56
Добрый день!
Необходимо создать dbf файл и выгрузить справочник в него, при компиляции выдает: Ошибка при вызове метода контекста (Добавить): Перед выполнением операции нужно открыть базу
я же только что создала её.
В чем может быть причина? Версия 1С 8.2 (обычное приложение), код пишу в модуле формы (нажатие кнопки)


Процедура ВыгрузитьСправочник(Элемент,ПараметрКоманды, ПараметрыВыполненияКоманды)
Файл = Новый XBase;
Файл.Поля.Добавить("Ind"," N" , 2);
Файл.Поля.Добавить("Month", "S", 8);
Файл.Поля.Добавить("Hours", "N", 3);
Файл.Поля.Добавить("Days", "N", 2);
 Файл.СоздатьФайл("с:\start.dbf");
Файл.ОткрытьФайл("с:\start.dbf" );
Если Файл.Открыта() = 1 Тогда
  Предупреждение("База открыта", 2);
 Иначе
  Предупреждение("НЕ смогли открыть Базу!", 2);
КонецЕсли;

Файл.АвтоСохранение = Истина;
Файл.ОткрытьФайл("с:\start.dbf" );
 Файл.КодОшибки();
Выборка = Справочники.КалендарьПлановый.Выбрать();
Пока Выборка.Следующий() Цикл
   Файл.Добавить();
   Файл.Ind = Выборка.Код;
   Файл.Month = Выборка.Месяц;
   Файл.Hours = Выборка.ЧислоЧасов;
   Файл.Days = Выборка.ЧислоДней;
КонецЦикла;

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

КонецПроцедуры
1 Vakhrin
 
26.03.12
15:07
Процедура ВыгрузитьСправочник(Элемент,ПараметрКоманды, ПараметрыВыполненияКоманды)
Файл = Новый XBase;
Файл.Поля.Добавить("Ind"," N" , 2);
Файл.Поля.Добавить("Month", "S", 8);
Файл.Поля.Добавить("Hours", "N", 3);
Файл.Поля.Добавить("Days", "N", 2);
Файл.АвтоСохранение = Истина;
Файл.СоздатьФайл("с:\start.dbf");

Выборка = Справочники.КалендарьПлановый.Выбрать();
Пока Выборка.Следующий() Цикл
   Файл.Добавить();
   Файл.Ind = Выборка.Код;
   Файл.Month = Выборка.Месяц;
   Файл.Hours = Выборка.ЧислоЧасов;
   Файл.Days = Выборка.ЧислоДней;
КонецЦикла;

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

КонецПроцедуры
2 andrewks
 
26.03.12
15:21
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.