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