0
Baglandir
13.06.13
✎
16:12
|
Ошибка при записи ТХТ документа (Помогите найти ошибку)
Вроде все сделал а записывать - не хочет пишет ошибка записи файла и все
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку("Content-Type=doc/ua_payment");
// Пустая строка ++
Текст.ДобавитьСтроку("");
//ТекСтрока = "";
//Ном = 0;
//Пайп = Символ(9);
Для Каждого Строка из Параметры.тзПлатежныеПоручения Цикл
// Ном = Ном + 1;
Текст.ДобавитьСтроку("DATE_DOC="+ Формат(Строка.ДатаПП,"ДФ=dd.MM.yyyy")); //Date
Текст.ДобавитьСтроку("NUM_DOC="+ Строка.НомерПП); //Date
Текст.ДобавитьСтроку("AMOUNT="+ ЧислоПрописью(Строка.Сумма));
//Клиента
Текст.ДобавитьСтроку("CLN_NAME="+ СокрЛП(Лев(Строка.Контрагент, 38)));
Текст.ДобавитьСтроку("CLN_OKPO="+ СокрЛП(Строка.ОКПО));
Текст.ДобавитьСтроку("CLN_ACCOUNT="+ СокрЛП(Строка.Счет));
Текст.ДобавитьСтроку("CLN_BANK_NAME="+ СокрЛП(Лев(Строка.Банк, 38)));
Текст.ДобавитьСтроку("CLN_BANK_MFO="+ СокрЛП(Строка.МФО));
// Наше
Текст.ДобавитьСтроку("RCPT_NAME="+ СокрЛП(Параметры.НашаФирма));
Текст.ДобавитьСтроку("RCPT_OKPO="+ СокрЛП(Параметры.НашОКПО));
Текст.ДобавитьСтроку("RCPT_ACCOUNT="+ СокрЛП(Параметры.НашСчет));
Текст.ДобавитьСтроку("RCPT_BANK_NAME="+ СокрЛП("ПАТ КОНТРАКТ"));
Текст.ДобавитьСтроку("RCPT_BANK_MFO="+ СокрЛП(Параметры.НашМФО));
Текст.ДобавитьСтроку("PAYMENT_DETAILS="+ СокрЛП(Лев(Строка.Содержание, 160)));
Текст.ДобавитьСтроку("VALUE_DATE="+Формат(Строка.ДатаПП,"ДФ=dd.MM.yyyy"));
// Розделитель (Пустая строка)
Текст.ДобавитьСтроку("");
КонецЦикла;
ИмяФайла = Параметры.ИмяФайла;
Попытка
Текст.Записать(ИмяФайла, КодировкаТекста.ANSI);
Исключение
Предупреждение("Ошибка записи файла " + ИмяФайла);
Возврат Ложь;
КонецПопытки;
|
|