Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Пример выгрузки данных в Текстовый файл, документ

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 Режим = РежимДиалогаВыбораФайла.Сохранение; 
      
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy");
Фильтр = "Текст(*.txt)|*.txt";
ДиалогСохраненияФайла.Фильтр = Фильтр;
ДиалогСохраненияФайла.МножественныйВыбор = Ложь;
ДиалогСохраненияФайла.Заголовок = "Выберите файл";
Если ДиалогСохраненияФайла.Выбрать() Тогда
ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;
// выбрали файл, сохраняем в него Проводки
ТекДок = Новый ТекстовыйДокумент;
Для Каждого Стр Из Проводки Цикл
Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки));
ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0"));
КонецЦикла;
КонецЕсли;
ТекДок.Записать(ПутьКФайлу);


В результате получается файл вида:
70~76.95~000000056~888,64
70~76.95~000000127~2938,18


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.