Процедура ОтчетНачисления(КодКонтр,НаименованиеКонтр) ТабДок = Новый ТабличныйДокумент; Макет = Справочники.Контрагенты.ПолучитьМакет("_Макет"); ОблЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОблШапкаТЧ = Макет.ПолучитьОбласть("ШапкаТЧ"); ОблСтрокаТЧ = Макет.ПолучитьОбласть("СтрокаТЧ"); ОблПодвалТЧ = Макет.ПолучитьОбласть("ПодвалТЧ"); База = Новый XBase; База.Кодировка = КодировкаXBase.OEM; ОблЗаголовок.Параметры.Абонент = НаименованиеКонтр; ТабДок.Вывести(ОблЗаголовок); ТабДок.Вывести(ОблШапкаТЧ); КолФайлов = НайтиФайлы(НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive", "*.dbf").Количество(); Файл = 1; Пока Файл = КолФайлов Цикл ФайлБазы = Строка(Файл) + ".dbf"; ФайлИндекса = Строка(Файл) + ".cdx"; ПутьКБазе = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ФайлБазы; ПутьКИндексу = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ФайлИндекса; База.ОткрытьФайл(ПутьКБазе,ПутьКИндексу); База.ТекущийИндекс = База.Индексы.IDXCODE; НачисленияЕсть = База.Найти(КодКонтр,"="); Если НачисленияЕсть Тогда ОблСтрокаТЧ.Параметры.Дата = Формат(База.DATA, "ДФ=dd.MM.yyyy"); ОблСтрокаТЧ.Параметры.Сумма = База.SUMMA; Если ЗначениеЗаполнено(ОблСтрокаТЧ.Параметры.Сумма) Тогда ТабДок.Вывести(ОблСтрокаТЧ); КонецЕсли; База.ЗакрытьФайл(); КонецЕсли; ТабДок.ОтображатьСетку = Ложь; ТабДок.Показать(); Файл = Файл + 1; КонецЦикла; КонецПроцедуры