profile="http://gmpg.org/xfn/11"> Как выгрузить результат запроса в текстовой файл 1С:Предприятие? | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как выгрузить результат запроса в текстовой файл 1С:Предприятие?

Как выгрузить результат запроса в текстовой файл 1С:Предприятие?
Создается переменная ТФ, которая имеет тип ТекстовыйДокумент.
При обходе выборки Выборка, в переменной ТФ методом ДобавитьСтроку(Аргумент) сохраняется информация, переданная в качестве аргумента. После выполнения цикла, сохраненная информация записывается в текстовой файл сотрудники.txt методом Записать() . Полный путь заключен в кавычки: C:\Temp\сотрудники.txt.

Процедура ВыгрузитьВТекстовойФайл()
	Перем ТФ;
	ТФ=Новый ТекстовыйДокумент;
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	РаботникиОрганизацийСрезПоследних.Сотрудник.Наименование,
	               |	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Наименование,
	               |	РаботникиОрганизацийСрезПоследних.Должность.Наименование,
	               |	РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния,
	               |	РаботникиОрганизацийСрезПоследних.Период
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций.СрезПоследних(&НаДату, ПричинаИзмененияСостояния <> &ПричинаИзмененияСостояния) КАК РаботникиОрганизацийСрезПоследних
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	РаботникиОрганизацийСрезПоследних.Сотрудник.Наименование,
	               |	РаботникиОрганизацийСрезПоследних.Период";
	Запрос.УстановитьПараметр("НаДату",РабочаяДата);
	Запрос.УстановитьПараметр("ПричинаИзмененияСостояния",Перечисления.ПричиныИзмененияСостояния.Увольнение);
	Результат = Запрос.Выполнить();
	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		ТФ.ДобавитьСтроку(Выборка.СотрудникНаименование
		+";"+Выборка.ПодразделениеОрганизацииНаименование
		+";"+Выборка.ДолжностьНаименование
		+";"+Выборка.ПричинаИзмененияСостояния
		+";"+Формат(Выборка.Период,"ДФ=dd.MM.yyyy")+";");
	КонецЦикла;
	ТФ.Записать("C:\Temp\сотрудники.txt");
КонецПроцедуры

Возможно вам интересно:
Табличный документ в 1С:Предприятие 8.0, 8.1, 8.2 – самый простой код?
Как выгрузить результат запроса в World? Простой способ.
Как выгрузить результат Запроса 1С:Предприятие 8.2 в Excel? Простой способ.

Комментарии запрещены.