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