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



Процедура Сформировать()

    перем дбф, флаг, папка; 

	тЗнач.Очистить();

	флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF");

	Если флаг=0 Тогда

	    возврат;

	КонецЕсли;

	дбф=СоздатьОбъект("Xbase");

	дбф.ОткрытьФайл(папка+имяФайла);

	папк=папка;

	файл=имяФайла;

	Если дбф.открыта()=0 Тогда

	    Предупреждение("Не могу открыть файл"+имяФайла);

	    возврат;

	КонецЕсли;

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

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



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

    Перем ин, имяПоля, тип, длина, точность, номСтроки;

      для ин=1 по дбф.КоличествоПолей() цикл

        дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность);

        тЗнач.НоваяКолонка(имяПоля, тип);

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

     конецЦикла;



КолП=дбф.КоличествоПолей();

НомС=ДБФ.КоличествоЗаписей();

	

загТЗнач="Файл "+имяФайла;

дбф.Первая();

номСтроки=0;

Пока дбф.ВКонце()=0 Цикл

    номСтроки=номСтроки+1;

	тЗнач.НоваяСтрока(номСтроки);

	для ин=1 по дбф.КоличествоПолей() цикл

	тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин));

КонецЦикла;  

дбф.Следующая();

конецЦикла;

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