Разработка в 1С 8.0


         

Запись DBF-файла


Следующий фрагмент программы создает DBF-файл с тремя полями и выгружает в него справочник Сотрудники:

ФайлDBF = Новый XBase;

 

ФайлDBF.Поля.Добавить("Name","S",100);

ФайлDBF.Поля.Добавить("Dep","S",50);

ФайлDBF.Поля.Добавить("Sum","N",10,2);

 

ФайлDBF.Кодировка = КодировкаХВаsе.ОЕМ; //кодировка DOS 

ФайлDBF.СоздатьФайл("с:\staff.dbf");

Сотрудники = Справочники.Сотрудники.Выбрать();

Пока Сотрудники.Следующий() Цикл

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

ФайлDBF.Name = Сотрудники.Наименование;  

ФайлDBF.Dер = Сотрудники.Подразделение;  

ФайлDBF.Sum = Сотрудники.Оклад;  

ФайлDBF.Записать();  

КонецЦикла;

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



Содержание  Назад  Вперед