Загрузка данных из DBF файла в 1С БП 3.0

	ТипСтрока50 = Новый ОписаниеТипов("Строка", ,
	 Новый КвалификаторыСтроки(50, ДопустимаяДлина.Переменная));
	 
	 ТипЧисло10_2 =Новый ОписаниеТипов("Число",
				 Новый КвалификаторыЧисла(10, 2, ДопустимыйЗнак.Любой));	 
				 
	ТаблицаЗначений = Новый ТаблицаЗначений;
	ТаблицаЗначений.Колонки.Добавить("НомерДокумента", ТипСтрока50);
	ТаблицаЗначений.Колонки.Добавить("ДатаДокумента", ТипСтрока50);
	ТаблицаЗначений.Колонки.Добавить("ИННКонтрагента", ТипСтрока50);
	ТаблицаЗначений.Колонки.Добавить("Номенклатура", ТипСтрока50);
	ТаблицаЗначений.Колонки.Добавить("Цена", ТипЧисло10_2);
	ТаблицаЗначений.Колонки.Добавить("Количество", ТипЧисло10_2);
	ТаблицаЗначений.Колонки.Добавить("СтавкаНДС", ТипЧисло10_2);
	ТаблицаЗначений.Колонки.Добавить("Сумма", ТипЧисло10_2);
	
	ТаблицаЗначений.Добавить();
	ТаблицаЗначений[0].НомерДокумента = "Документ1";
	ТаблицаЗначений[0].ДатаДокумента = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy");
	ТаблицаЗначений[0].ИННКонтрагента = "1234567890";
	ТаблицаЗначений[0].Номенклатура = "Товар1";
	ТаблицаЗначений[0].Цена = 1000;
	ТаблицаЗначений[0].Количество = 5;
	ТаблицаЗначений[0].СтавкаНДС = 20;
	ТаблицаЗначений[0].Сумма = ТаблицаЗначений[0].Цена * ТаблицаЗначений[0].Количество;
	
	ТаблицаЗначений.Добавить();
	ТаблицаЗначений[1].НомерДокумента = "Документ1";
	ТаблицаЗначений[1].ДатаДокумента = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy");
	ТаблицаЗначений[1].ИННКонтрагента = "1234567890";
	ТаблицаЗначений[1].Номенклатура = "Товар2";
	ТаблицаЗначений[1].Цена = 1500;
	ТаблицаЗначений[1].Количество = 3;
	ТаблицаЗначений[1].СтавкаНДС = 10;
	ТаблицаЗначений[1].Сумма = ТаблицаЗначений[1].Цена * ТаблицаЗначений[1].Количество;
	
	ТаблицаЗначений.Добавить();
	ТаблицаЗначений[2].НомерДокумента = "Документ3";
	ТаблицаЗначений[2].ДатаДокумента = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy");
	ТаблицаЗначений[2].ИННКонтрагента = "5432167890";
	ТаблицаЗначений[2].Номенклатура = "Товар3";
	ТаблицаЗначений[2].Цена = 2000;
	ТаблицаЗначений[2].Количество = 2;
	ТаблицаЗначений[2].СтавкаНДС = 20;
	ТаблицаЗначений[2].Сумма = ТаблицаЗначений[2].Цена * ТаблицаЗначений[2].Количество;
	
	ТаблицаЗначений.Добавить();
	ТаблицаЗначений[3].НомерДокумента = "Документ4";
	ТаблицаЗначений[3].ДатаДокумента = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy");
	ТаблицаЗначений[3].ИННКонтрагента = "0987654321";
	ТаблицаЗначений[3].Номенклатура = "Товар4";
	ТаблицаЗначений[3].Цена = 3000;
	ТаблицаЗначений[3].Количество = 1;
	ТаблицаЗначений[3].СтавкаНДС = 10;
	ТаблицаЗначений[3].Сумма = ТаблицаЗначений[3].Цена * ТаблицаЗначений[3].Количество;
	
	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ТЗ.НомерДокумента КАК НомерДокумента,
	|	ТЗ.ДатаДокумента КАК ДатаДокумента,
	|	ТЗ.ИННКонтрагента КАК ИННКонтрагента,
	|	ТЗ.Номенклатура КАК Номенклатура,
	|	ТЗ.Цена КАК Цена,
	|	ТЗ.Количество КАК Количество,
	|	ТЗ.СтавкаНДС КАК СтавкаНДС,
	|	ТЗ.Сумма КАК Сумма
	|ПОМЕСТИТЬ Врем_ТЗ
	|ИЗ
	|	&ТЗ КАК ТЗ
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	Врем_ТЗ.НомерДокумента + ""_"" + Врем_ТЗ.ДатаДокумента КАК НомерИДата,
	|	Врем_ТЗ.НомерДокумента КАК НомерДокумента,
	|	Врем_ТЗ.ДатаДокумента КАК ДатаДокумента,
	|	Врем_ТЗ.ИННКонтрагента КАК ИННКонтрагента,
	|	Врем_ТЗ.Номенклатура КАК Номенклатура,
	|	Врем_ТЗ.Цена КАК Цена,
	|	Врем_ТЗ.Количество КАК Количество,
	|	Врем_ТЗ.СтавкаНДС КАК СтавкаНДС,
	|	Врем_ТЗ.Сумма КАК Сумма
	|ИЗ
	|	Врем_ТЗ КАК Врем_ТЗ
	|ИТОГИ
	|	МАКСИМУМ(НомерДокумента),   // Нужно для того чтобы вывести НомерДокумента в группировке по ""НомерИДата"". Такой хитрый трюк
	|	МАКСИМУМ(ДатаДокумента),   // Нужно для того чтобы вывести ДатаДокумента в группировке по ""НомерИДата"".  Такой хитрый трюк
	|	МАКСИМУМ(ИННКонтрагента),   // Нужно для того чтобы вывести ИННКонтрагента в группировке по ""НомерИДата"".  Такой хитрый трюк
	|	СУММА(Сумма)
	|ПО
	|	НомерИДата";   
	
	Запрос.УстановитьПараметр("ТЗ", ТаблицаЗначений);
 	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДокумент = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "НомерИДата");
	
	Пока ВыборкаДокумент.Следующий() Цикл         
		
		// Здесь создаем документ
		НомерДок			= ВыборкаДокумент.НомерДокумента;
		ДатаДок			= ВыборкаДокумент.ДатаДокумента;
		ИННКонтрагента	= ВыборкаДокумент.ИННКонтрагента;
		ОбщаяСумма		= ВыборкаДокумент.Сумма;
		ВыборкаДетальныеЗаписи = ВыборкаДокумент.Выбрать();  
		
		Сообщить("НомерДок "+НомерДок);
		Сообщить("ДатаДок "+ДатаДок);
		Сообщить("ИННКонтрагента "+ИННКонтрагента);
		Сообщить("ОбщаяСумма "+ОбщаяСумма);
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			// Здесь заполняем табличную часть документа
			Номенклатура	 = ВыборкаДетальныеЗаписи.Номенклатура;
			Цена			 = ВыборкаДетальныеЗаписи.Цена;
			Количество	 = ВыборкаДетальныеЗаписи.Количество;
			СтавкаНДС	 = ВыборкаДетальныеЗаписи.СтавкаНДС;
			Сообщить("Номенклатура "+Номенклатура);
			Сообщить("Цена "+Цена);
			Сообщить("Количество "+Количество);
			Сообщить("СтавкаНДС "+СтавкаНДС);
		КонецЦикла;
		
	КонецЦикла;
	
	//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

т = Новый ТаблицаЗначений();
т.Колонки.Добавить("Номер");
т.Колонки.Добавить("Дата");
т.Колонки.Добавить("ИНН");
т.Колонки.Добавить("тч");

тч = Новый ТаблицаЗначений();
тч.Колонки.Добавить("Наименование");
тч.Колонки.Добавить("Цена");
тч.Колонки.Добавить("Количество");
тч.Колонки.Добавить("НДС");
тч.Колонки.Добавить("Сумма");
тч = ЗначениеВСтрокуВнутр(тч);

имяБазы = "M:\Elected.DBF";
база = Новый XBase(имяБазы);
Пока НЕ база.ВКонце() Цикл
	
	стр = т.Найти(база.NOMER, "Номер");
	Если стр = Неопределено Тогда
		стр = т.Добавить();
		стр.Номер = база.NOMER;
		стр.Дата  = база.DATE;
		стр.ИНН   = база.INN;
		стр.тч = ЗначениеИзСтрокиВнутр(тч);
	КонецЕсли;
	
	стрТЧ = стр.тч.Добавить();
	стрТЧ.Наименование = база.NAME;
	стрТЧ.Цена         = база.PRICE;
	стрТЧ.Количество   = база.COUNT;
	стрТЧ.НДС          = база.VAT;
	стрТЧ.Сумма        = база.SUM;
	
	база.Следующая();
КонецЦикла;
база.ЗакрытьФайл();

Для каждого стр из т Цикл
	Сообщить("Документ № " + стр.Номер + " от " + стр.Дата + " ИНН " + стр.ИНН);
	Для каждого стрТЧ из стр.тч Цикл
		Сообщить("    " + стр.Наименование + " : " + стр.Цена + " · " + стр.Количество + " = " + стр.Сумма + "    НДС " + стр.НДС);
	КонецЦикла;
КонецЦикла;

Сообщить("Всё!");