- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
ПапкаПоставщика = СокрЛП(Поставщик);
Попытка Excel.ActiveWorkbook.Close(); Исключение КонецПопытки;
Попытка Excel.Quit(); Исключение КонецПопытки;
Попытка Excel = 0; Исключение КонецПопытки;
Попытка Предупреждение("ПАУЗА", 1); Исключение КонецПопытки;
Попытка СоздатьКаталог(Файл.Путь + "\отклонено\" + ПапкаПоставщика); Исключение КонецПопытки;
Попытка
ПереместитьФайл(Файл.ПолноеИмя, Файл.Путь + "\отклонено\" + ПапкаПоставщика + "\" + Файл.Имя);
Исключение
Попытка
ПереместитьФайл(Файл.ПолноеИмя, Файл.Путь + "\отклонено\" + Файл.Имя);
Исключение
КонецПопытки;
КонецПопытки;
Попытка
ФайлЛог = Новый ЗаписьТекста(Файл.Путь + "\отклонено\" + ПапкаПоставщика + "\" + Файл.Имя + ".txt");
ФайлЛог.ЗаписатьСтроку(Сообщение);
Исключение
Попытка
ФайлЛог = Новый ЗаписьТекста(Файл.Путь + "\отклонено\" + Файл.Имя + ".txt");
ФайлЛог.ЗаписатьСтроку(Сообщение);
Исключение
КонецПопытки;
КонецПопытки;