|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Режим = РежимДиалогаВыбораФайла.Сохранение; ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); Фильтр = "Текст(*.txt)|*.txt"; ДиалогСохраненияФайла.Фильтр = Фильтр; ДиалогСохраненияФайла.МножественныйВыбор = Ложь; ДиалогСохраненияФайла.Заголовок = "Выберите файл"; Если ДиалогСохраненияФайла.Выбрать() Тогда ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла; // выбрали файл, сохраняем в него Проводки ТекДок = Новый ТекстовыйДокумент; Для Каждого Стр Из Проводки Цикл Состояние("Выгружаю строку: "+Строка(Стр.НомерСтроки)); ТекДок.ДобавитьСтроку(Строка(стр.СчетДт)+"~"+Строка(стр.СчетКт)+"~"+Строка(стр.Физлицо.Код)+"~"+Формат(стр.СуммаВыгр,"ЧГ=0")); КонецЦикла; КонецЕсли; ТекДок.Записать(ПутьКФайлу); |
В результате получается файл вида:
70~76.95~000000056~888,64
70~76.95~000000127~2938,18
About the Author
