// ПРИМЕР 1
// Запись данных справочника в DBF-файл:
БД = Новый XBase;
// проектируется структура таблицы, т.е. имена и типы полей
БД.Поля.Добавить("Code","N",6,0);	// числовое поле Код
БД.Поля.Добавить("Name","S",30);	// строковое поле Наименование
// создание файла с указанной структурой
БД.СоздатьФайл("C://1.dbf");
Выборка = Справочники.Клиенты.Выбрать();
Пока Выборка.Следующий() Цикл
	// создается новая пустая строка таблицы
	БД.Добавить();
	// заполняем поля новой строки
	БД.Code = Выборка.Код;
	БД.Name = Выборка.Наименование;
КонецЦикла;
// зафиксировать изменения в файле
БД.ЗакрытьФайл();

// Чтение данных из DBF-файла в справочник:
БД = Новый XBase;
БД.ОткрытьФайл("C://1.dbf");
// считываем файл построчно
Пока БД.Следующая() Цикл
	// создаем новый элемент справочника
 Спр=Справочники.Клиенты.СоздатьЭлемент();
 	// переносим в реквизиты данные из текущей строки таблицы
 	Спр.Код = БД.Сode; 
 	Спр.Наименование = БД.Name;
Спр.Записать();
КонецЦикла;
БД.ЗакрытьФайл();   

  // ПРИМЕР 2
// Выгрузка данных в 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);
КонецЦикла;	
БД.ЗакрытьФайл();    

  // Выгрузка ТЗ, Таблицы значений в DBF файл  
 НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма
 ДБФ = СоздатьОбъект("XBASE"); 
 ДБФ.ДобавитьПоле("IsGroup","N",1,0);  
 ДБФ.ДобавитьПоле("Level","N",1,0);
 ДБФ.ДобавитьПоле("ParentCode","S",8,0);
 ДБФ.ДобавитьПоле("Code","S",8,0);
 ДБФ.ДобавитьПоле("Descr","S",60,0); 
 ДБФ.КодоваяСтраница(0); // Windows
 ДБФ.СоздатьФайл("c:\export.dbf"); 

 ТЗ.ВыбратьСтроки();
 Пока ТЗ.ПолучитьСтроку()=1 Цикл
  ДБФ.Добавить();  
  ДБФ.IsGroup= ТЗ.ЭтоГруппа;
  ДБФ.Level= ТЗ.Уровень; 
  ДБФ.ParentCode = ТЗ.КодРодителя;
  ДБФ.Code= ТЗ.Код; 
  ДБФ.Descr= СокрЛП(ТЗ.Наименование); 
  ДБФ.Записать(); 
 КонецЦикла;  
 ДБФ.ЗакрытьФайл(); 

 КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма
 // Рассчитываем продолжительность выполнения алгоритма в секундах
 Длительность = Окр((КонВремя-НачВремя)/1000,3);
 Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");

 // Загрузка ТЗ, Таблицы значений из DBF файла
  НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма 
  ДБФ = СоздатьОбъект("XBASE"); 
  ДБФ.КодоваяСтраница(0); // Windows
  ДБФ.ОткрытьФайл("c:\export.dbf");  
  Если ДБФ.Открыта()=0 Тогда
   Сообщить("Файл DBF не открыт !","!");
   Возврат;
  КонецЕсли;
  КолСтр  = ДБФ.КоличествоЗаписей();
  н= 0; 
  ДБФ.Первая(); 
  ПризнакГруппы  = ДБФ.IsGroup;
  ТекУровень  = ДБФ.Level; 
  ТекКодРодителя = ДБФ.ParentCode;
  ТекКод  = ДБФ.Code; 
  ТекНаименоване = ДБФ.Descr;  
  н = н+1;
  Состояние("В файле прочитано записей "+н+" из "+КолСтр); 
  Пока ДБФ.Следующая()=1 Цикл
   ПризнакГруппы  = ДБФ.IsGroup;
   ТекУровень  = ДБФ.Level; 
   ТекКодРодителя = ДБФ.ParentCode;
   ТекКод  = ДБФ.Code; 
   ТекНаименоване = ДБФ.Descr;
   н = н+1;
   Состояние("В файле прочитано записей "+н+" из "+КолСтр); 
  КонецЦикла;  
  ДБФ.ЗакрытьФайл(); 
  
  КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма
  // Рассчитываем продолжительность выполнения алгоритма в секундах
  Длительность = Окр((КонВремя-НачВремя)/1000,3);
  Сообщить("Время чтения DBF файла: "+Длительность+" с"); 

  Процедура ПоказатьДБФ(дбф, имяФайла) далее

Процедура Сформировать()
    перем дбф, флаг, папка; 
	тЗнач.Очистить();
	флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF");
	Если флаг=0 Тогда
	    возврат;
	КонецЕсли;
	дбф=СоздатьОбъект("Xbase");
	дбф.ОткрытьФайл(папка+имяФайла);
	папк=папка;
	файл=имяФайла;
	Если дбф.открыта()=0 Тогда
	    Предупреждение("Не могу открыть файл"+имяФайла);
	    возврат;
	КонецЕсли;
	ПоказатьДБФ(дбф, имяФайла);      
КонецПроцедуры

Процедура ПоказатьДБФ(дбф, имяФайла)
    Перем ин, имяПоля, тип, длина, точность, номСтроки;
      для ин=1 по дбф.КоличествоПолей() цикл
        дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность);
        тЗнач.НоваяКолонка(имяПоля, тип);
        тЗнач.УстановитьПараметрыКолонки(ин, тип, длина, точность,, мин(10, длина));
     конецЦикла;

КолП=дбф.КоличествоПолей();
НомС=ДБФ.КоличествоЗаписей();
	
загТЗнач="Файл "+имяФайла;
дбф.Первая();
номСтроки=0;
Пока дбф.ВКонце()=0 Цикл
    номСтроки=номСтроки+1;
	тЗнач.НоваяСтрока(номСтроки);
	для ин=1 по дбф.КоличествоПолей() цикл
	тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин));
КонецЦикла;  
дбф.Следующая();
конецЦикла;
КонецПроцедуры 

 Выборка = Справочники.ЕдиницыИзмерения.Выбрать( , Владелец); 
КоличествоЭлементов = 0; 
Пока Выборка.Следующий() Цикл 
	КоличествоЭлементов = КоличествоЭлементов + 1; 
КонецЦикла; 

Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ 
|	КОЛИЧЕСТВО(*) КАК КоличествоЗаписей 
|ИЗ 
|	Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения 
|ГДЕ 
|	ЕдиницыИзмерения.Владелец = &Владелец"; 

Запрос.УстановитьПараметр("Владелец", Владелец); 
Выборка = Запрос.Выполнить().Выбрать(); 
Если Выборка.Следующий() Тогда 
	КоличествоЗаписей = Выборка.КоличествоЗаписей; 
КонецЕсли;