наверх
Свободные IT публикации
логин:
пароль:

Работа с DBF-файлами в 1С 8.x

    Как можно построить выгрузку-загрузку посредством файлов DBF?

    БД = Новый XBase; 
    БД.Поля.Добавить("CODE", "S", 5); 
    БД.Поля.Добавить("NAME", "S", 40); 
    БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx"); 
    БД.Индексы.Добавить("IDXCODE", "CODE"); 
    ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx"); 
    БД.АвтоСохранение = Истина; 
    
    Выборка = Справочники.Номенклатура.ВыбратьИерархически(); 
    Пока Выборка.Следующий() Цикл 
    	БД.Добавить(); 
    	БД.CODE = Выборка.Код; 
    	БД.NAME = Выборка.Наименование; 
    КонецЦикла; 
    БД.ЗакрытьФайл(); 
    
    //Чтение dbf файла
    БД = Новый XBase; 
    БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 
    БД.ТекущийИндекс = БД.Индексы.IDXCODE; 
    
    Пока БД.Следующая() Цикл 
    	Сообщить(БД.CODE); 
    	Сообщить(БД.NAME); 
    КонецЦикла; 
    БД.ЗакрытьФайл();