Экспорт данных из 1С в текст

Как данные из 1С сохранить в текстовом формате?

//сохранение данных таблицы значений в текстовой файл
//аргументы: М - таблица значений

Процедура ВыполнитьЭкспорт(М)
     Т=СоздатьОбъект("Текст");
     //выборка
     М.ВыбратьСтроки();
     Пока М.ПолучитьСтроку()=1 Цикл
          Состояние("Экспорт: "+Цел(М.НомерСтроки/М.КоличествоСтрок()*100)+"%");
          тФирма=М.Фирма.ПолныйКод();
          тТовар=М.Товар.ПолныйКод();
          тСклад=М.Склад.ПолныйКод();
          тКоличество=М.Количество;
          Т.ДобавитьСтроку("Фирма="+тФирма+";Товар="+тТовар+";Склад="+тСклад+";Количество="+тКоличество+";");    
     КонецЦикла;
     //файл
     Файл="export"+Формат(ДатаК,"Д ГГГГММДД")+".csv";
     Т.Записать(Файл);
     Сообщить("Файл с данными сохранен в каталоге экспортной БД: "+КаталогИБ()+Файл);
КонецПроцедуры

Реклама:
Смотрите также:
Учёт комиссионной торговли в программе 1С
Порядок сортировки, установленный в базе данных, отличается от системного?
Отчёты администратора для обслуживания 1С
Скачать программы для 1С