Ошибка загрузки компоненты help 1с каталог не обнаружен

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

&НаСервере
Процедура ВыгрузкаНаСервере()
    СпискиЛюдейПоБанкам=СформироватьСпискиЛюдейПоБанкамНаСервере();
    Для каждого эБанк Из СпискиЛюдейПоБанкам Цикл
        Если эБанк.Значение[0].Банк.ФорматнаяСтрокаВыгрузки="Приор банк" Тогда
            ВыгрузкаПриорБанк(эБанк.Значение[0].Банк,эБанк);
            Продолжить;
        КонецЕсли; 
        
        Если эБанк.Значение[0].Банк.ФорматнаяСтрокаВыгрузки="Белинвестбанк" Тогда
            ВыгрузкаБелинвестбанк(эБанк.Значение[0].Банк,эБанк);
            Продолжить;
        КонецЕсли;
 
        Эксп=Новый ТекстовыйДокумент; 
        ИмяФайла=СокрЛП(эБанк.Значение[0].Банк.ИмяФайлаВыгрузки);
        Если ИмяФайла="" Тогда
            ИмяФайла="zarplata";
        КонецЕсли; 
        ИмяФайлаКБ = КаталогВыгрузкиКлиентБанк + ""+ИмяФайла+СокрЛП(НомерВедПеречисления)+".txt";
        ФайлПроверки = Новый Файл(ИмяФайлаКБ);
        Если ФайлПроверки.Существует() Тогда
            Эксп.Прочитать(ИмяФайлаКБ);
        КонецЕсли;                                                                                                   
        Если Эксп.КоличествоСтрок() > 0 Тогда
            СчетчикСтрок=1;
            ПОка СчетчикСтрок<=Эксп.КоличествоСтрок() Цикл
                Эксп.УдалитьСтроку(СчетчикСтрок-1);
            КонецЦикла;   
            //Эксп.Очистить();
        КонецЕсли;
        ТзСортировки=Новый ТаблицаЗначений;
        ТзСортировки.Колонки.Добавить("ПолучательПлатежа");
        ТзСортировки.Колонки.Добавить("ЛицевойСчет");
        ТзСортировки.Колонки.Добавить("Выплачено");
        ТзСортировки.Колонки.Добавить("Признак");
        НомерСчет=1;
        Для Каждого СтрЗП Из эБанк.Значение Цикл  
            Если СтрЗП.Выплачено>0 Тогда
                //Эксп.ДобавитьСтроку(ВремСтр+Строка(НомерПП)+" "+ВРег(Строка(Стр.Физлицо))+ВремСтр2+стр.ЛицевойСчет+ВремСтр3+ВВыплачено);
                //НомерПП=НомерПП+1;
                
                НоваяСтрока="";
                СтрокаВыполнить="";
                физлицо=СокрЛП(СтрЗП.ПолучательПлатежа.Наименование);
                ЛицевойСчет=СокрЛП(СтрЗП.ЛицевойСчет);
                Сумма=СтрЗП.Выплачено;
                НомерПП=Строка(НомерСчет);
                ПозицияПробела=Найти(ЛицевойСчет," ");
                Если ПозицияПробела=0 И Найти(СтрЗП.Банк.ФорматнаяСтрокаВыгрузки,"КодВклада")>0 Тогда
                    НомерСчет=НомерСчет+1;
                    Продолжить;
                КонецЕсли; 
                КодВклада=СокрЛП(Лев(ЛицевойСчет,ПозицияПробела-1));
                ЛицевойБезКодаВклада=СокрлП(Прав(ЛицевойСчет,СтрДлина(КодВклада)+2));
                
                СтрокаВыполнить="";
                ФорматнаяСтрока=СокрЛП(СтрЗП.Банк.ФорматнаяСтрокаВыгрузки);
                //"СтрокаВыполнить=" "+НомерПП+" "+ВРЕГ(физлицо)+" "+ЛицевойСчет+" "+СтрЗаменить(Формат(Сумма,"ЧДЦ=2; ЧРД=."),"*","")"
                //СтрокаВыполнить=НомерПП+ЛицевойСчет+ВРЕГ(физлицо)+","+СтрЗаменить(Сумма,"*","") 
                
                //СтрокаВыполнить="   1"+Лев(Физлицо+"                                               ",46)+Лев(ЛицевойСчет+"           ",11)+Прав("          "+СтрЗаменить(Сумма,"*",""),10)+".00 1"
                Попытка
                    Выполнить(ФорматнаяСтрока);
                Исключение
                    Сообщить("Неверно задана форматная строка в банке, проверьте правильность форматной строки выгрузки и повторите попытку");
                    Возврат;
                КонецПопытки;
                Эксп.ДобавитьСтроку(СтрокаВыполнить);
                НомерСчет=НомерСчет+1;
            КонецЕсли;
            
        КонецЦикла;
        Эксп.Записать(ИмяФайлаКБ,КодировкаТекста.OEM);//вот до сюда доходит, и на след шаге ошибка 
        ФайлВыгрузки=Новый Файл(ИмяФайлаКБ);
    КонецЦикла;
 
КонецПроцедуры