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 = Выборка.ЧислоДней;
КонецЦикла;
Файл.Записать();
Файл.ЗакрытьФайл();
КонецПроцедуры
|
|