v8: Запись в файл dbf из 1С

 Запрос = Новый Запрос;

//...

Результат = Запрос.Выполнить().Выгрузить();



// В начале срабатывает запрос, в качестве результата выводит ТЗ из одной колонки ЛицевойСчет.Ссылка КАК ЛицевойСчет

//Запрос точно срабатывает (проверяла в консоли запросов и в отладчике), например в качестве результата запроса получили две строки:

// 123456

// 987654	

 

   	

	ИмяФайла = "NewLS.DBF";

	ИмяИндексногоФайла = "IndNewLS.cdx";

	КаталогОбмена="D:\MyPath\";





	ПолноеИмяФайла = СокрЛП(КаталогОбмена+ИмяФайла);

	ПолноеИмяИндексногоФайла = КаталогОбмена+ИмяИндексногоФайла;





	ДБФФайл = Новый XBase(); 

	// Данный файл уже существует в указанном каталоге, открываем его. Режим ТолькоЧтение явно устанавливаю в "ложь"  

	ДБФФайл.ОткрытьФайл(ПолноеИмяФайла,ПолноеИмяИндексногоФайла,Ложь); 

	ДБФФайл.АвтоСохранение=Истина;

	ДБФФайл.Последняя();

	

	// в файле, например, существует одна запись, лицевой счет 555555, т.е. по запросу ни одна из записей (123456 или 987654) не найдется

	// каждая из них должна быть добавлена в файл

	// ищем по индексу, индекс установлен на поле "ЛицевойСчет"

	Для Каждого строка из Результат Цикл 

		ДБФФайл.ТекущийИндекс = ДБФФайл.индексы.IDXLs;

		если НЕ ДБФФайл.Найти(строка.ЛицевойСчет,"=") Тогда

		

		ЛицевойСчет = строка.ЛицевойСчет;	

		ДБФФайл.Добавить();

		

		ДБФФайл.Ls1 = ЛицевойСчет.Код1;

	        ДБФФайл.Ls2 = ЛицевойСчет.Код2;

       		

		ДБФФайл.FIO = ЛицевойСчет.Владелец; 

		ДБФФайл.phoneMob = ЛицевойСчет.ТелефонСотовый;

		ДБФФайл.phoneSt = ЛицевойСчет.ТелефонСтационарный;

	   

		ДБФФайл.Записать();

		КонецЕсли;

	КонецЦикла;

	

    ДБФФайл.ЗакрытьФайл();