1С Пример выгрузки в dbf, Добавление индекса для поиска в dbf

&НаСервере
Процедура ВыгрузкаДанныхНаСервере()

	База = Новый XBase;
	База.Кодировка = КодировкаXBase.OEM;
	База.Поля.Добавить("Abonent","S",60);
	База.Поля.Добавить("Summa","N",12);
	База.Поля.Добавить("Kod","S",60);
	База.Поля.Добавить("Data","D");
	База.Поля.Добавить("Nachalo","D");
	База.Поля.Добавить("Konec","D");
	База.Индексы.Добавить("IDXCODE","Kod",Истина);

	КолФайлов = НайтиФайлы(НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive", "*.dbf").Количество() + 1;
	ИмяФайла = Строка(КолФайлов) + ".dbf";
	ИмяИндекса = Строка(КолФайлов) + ".cdx";
	Путь = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ИмяФайла;
	ПутьКИндексу = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ИмяИндекса;
	База.СоздатьФайл(Путь,ПутьКИндексу);
	База.Записать();

	Запрос=Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
		| _НачисленияДоговоры.Абонент,
		| _НачисленияДоговоры.Сумма,
		| _НачисленияДоговоры.Код,
		| _НачисленияДоговоры.Ссылка.Дата
		|ИЗ
		| Документ._Начисления.Договоры КАК _НачисленияДоговоры
		|ГДЕ
		| _НачисленияДоговоры.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода";

	Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
	Запрос.УстановитьПараметр("КонецПериода", КонецПериода);

	Выборка = Запрос.Выполнить().Выбрать();

	База.Добавить();
	База.Nachalo = НачалоПериода;
	База.Konec = КонецПериода;
	База.Записать();

	Пока Выборка.Следующий() Цикл

		База.Добавить();
		База.Abonent = Выборка.Абонент;
		База.Summa = Выборка.Сумма;
		База.Kod = Выборка.Код;
		База.Data = Выборка.Дата;
		База.Записать();

	КонецЦикла; 

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

КонецПроцедуры

Похожие записи:

1С Пример построения отчета по dbf, поиск в dbf 1С Пример поступления основных средств 1С 8.2, 8.2 Получить путь к базе программно 1С Запросы Отбор по виду документа Пример