Ошибка при записи ТХТ документа (Помогите найти ошибку)
☑
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);
Исключение
Предупреждение("Ошибка записи файла " + ИмяФайла);
Возврат Ложь;
КонецПопытки;
1
ДенисЧ
13.06.13
✎
16:13
Сообщить(ОписаниеОшибки())
2
Лефмихалыч
13.06.13
✎
16:13
В перемпенной "ИмяФайла" что?
3
Baglandir
13.06.13
✎
16:18
Ошибку нашол , спасибо.
4
ДенисЧ
13.06.13
✎
16:20
с вас 500 рублей
5
palpetrovich
13.06.13
✎
16:21
(3) и сделал еще одну :)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший