1С Пример построения отчета по dbf, поиск в dbf

Процедура ОтчетНачисления(КодКонтр,НаименованиеКонтр)

	ТабДок = Новый ТабличныйДокумент;

	Макет = Справочники.Контрагенты.ПолучитьМакет("_Макет");

	ОблЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	ОблШапкаТЧ = Макет.ПолучитьОбласть("ШапкаТЧ");
	ОблСтрокаТЧ = Макет.ПолучитьОбласть("СтрокаТЧ");
	ОблПодвалТЧ = Макет.ПолучитьОбласть("ПодвалТЧ");
	База = Новый XBase;
	База.Кодировка = КодировкаXBase.OEM;

	ОблЗаголовок.Параметры.Абонент = НаименованиеКонтр;

	ТабДок.Вывести(ОблЗаголовок);
	ТабДок.Вывести(ОблШапкаТЧ);

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

		НачисленияЕсть = База.Найти(КодКонтр,"=");
		Если НачисленияЕсть Тогда
			ОблСтрокаТЧ.Параметры.Дата = Формат(База.DATA, "ДФ=dd.MM.yyyy");
			ОблСтрокаТЧ.Параметры.Сумма = База.SUMMA;
			Если ЗначениеЗаполнено(ОблСтрокаТЧ.Параметры.Сумма) Тогда
				ТабДок.Вывести(ОблСтрокаТЧ); 
			КонецЕсли; 

			База.ЗакрытьФайл();
		КонецЕсли;

		ТабДок.ОтображатьСетку = Ложь;
		ТабДок.Показать();
		Файл = Файл + 1; 
	КонецЦикла; 

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

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

1С Пример выгрузки в dbf, Добавление индекса для поиска в dbf 1С 8.2, 8.2 Получить путь к базе программно 1с подключение внешнего отчета СКД Уровень группировки при открытии отчета