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