сохранение печатной формы в текстовый документ ANSI (.txt)
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Когда таблица записывается в текстовый документ, строки со спецсимволами (например текст в многострочных ячейках) заключается в кавычки. То есть чтобы не было кавычек не используйте в макете спецсимволы и переводы строк в ячейке.
Ну или записывайте текст не ТабДок.Записать(), а построчно.
Ну или записывайте текст не ТабДок.Записать(), а построчно.
смысл в том что ПФ вложением отправляется поставщику и автоматом обрабатывается. и есть требования к этим спецсимвалам, может есть какое нибудь свойство Табдокумента? Листинг кода ниже:
Выборка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Выборка.Следующий();
Тело = Тело + Символы.Таб + Выборка.Номер + " " + Выборка.номерСФ + Символы.ПС + Символы.ВК;
ВыборкаДетальныеЗаписи = Выборка.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Тело = Тело +
ВыборкаДетальныеЗаписи.НоменклатураКод + Символы.Таб +
ВыборкаДетальныеЗаписи.НоменклатураНаименование + Символы.Таб +
ВыборкаДетальныеЗаписи.Количество + Символы.Таб +
Формат(ВыборкаДетальныеЗаписи.Цена,"ЧЦ=9; ЧДЦ=2; ЧГ=0") + Символы.Таб +
"0" + Символы.Таб +
Формат(ВыборкаДетальныеЗаписи.Сумма,"ЧЦ=9; ЧДЦ=2; ЧГ=0") + Символы.Таб +
Символы.Таб +
"Россия" + Символы.Таб +
"1022021" + Символы.Таб +
Символы.Таб +
Символы.Таб +
Символы.Таб +
Символы.Таб +
"0" + Символы.Таб +
Символы.ПС + Символы.ВК;
КонецЦикла;
ОбластьЗаголовок.параметры.Текст = Тело;
ТабДок.Вывести(ОбластьЗаголовок);
Возврат ТабДок;
Показать
(3) Строки, содержащие спецсимволы заключаются в кавычки, чтобы отличать спецсимволы-разделители ячеек таблиц от спецсимволов внутри строки. Иначе таблица просто рассыпется.
Вы отправляете текстовый файл нужного формата с определенными спецсимолами (табуляции, переводы строк итд.) поставщику, я правильно понимаю? Почему не хотите использовать текстовый документ? Табличный можете на экране показывать, если это необходимо. А файл записывайте из текстового. Все будет без кавычек.
Вы отправляете текстовый файл нужного формата с определенными спецсимолами (табуляции, переводы строк итд.) поставщику, я правильно понимаю? Почему не хотите использовать текстовый документ? Табличный можете на экране показывать, если это необходимо. А файл записывайте из текстового. Все будет без кавычек.
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Тело = Тело +
ВыборкаДетальныеЗаписи.НоменклатураКод + Символы.Таб +
ВыборкаДетальныеЗаписи.НоменклатураНаименование + Символы.Таб +
ВыборкаДетальныеЗаписи.Количество + Символы.Таб +
Формат(ВыборкаДетальныеЗаписи.Цена,"ЧЦ=9; ЧДЦ=2; ЧГ=0") + Символы.Таб +
"0" + Символы.Таб +
Формат(ВыборкаДетальныеЗаписи.Сумма,"ЧЦ=9; ЧДЦ=2; ЧГ=0") + Символы.Таб +
Символы.Таб +
"Россия" + Символы.Таб +
"1022021" + Символы.Таб +
Символы.Таб +
Символы.Таб +
Символы.Таб +
Символы.Таб +
"0" + Символы.Таб +
Символы.ПС + Символы.ВК;
КонецЦикла;
Текст = Новый ТекстовыйДокумент;
Текст.Добавитьстроку(Тело);
Текст.Записать("с:\файл_для_поставщика.txt",КодировкаТекста.ANSI);
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот