Имя: Пароль:
1C
1С v8
Загрузка Классификатора Банки в Альфа-Авто 5
, ,
0 avyub
 
21.03.17
13:12
Альфа-Авто5
Имеется кнопка Загрузить, при ее нажатии только 2 варианта:
1. с диска ИТС (диск2)
2. с сайта агентства РосБизнесКонсалтинг
Диска нет, пробую с сайта. Выдает "Неудачная попытка соединения"
Интернет есть, без прокси
Подскажите, пожалуйста, как загрузить классификатор Банки из файла или с сайта
1 avyub
 
21.03.17
13:48
+(0)ниже есть кнопка Настройка, там предлагается заполнить данные прокси сервера. Но у меня интернет без прокси, а варианта "без прокси" нет
2 Fish
 
21.03.17
14:04
(0) Возможно, загрузка идёт с сервера, а у сервера нет выхода в инет. Пинай админов.
3 avyub
 
21.03.17
14:07
Альфа запущена на сервере по rdp, на сервере интернет есть. без прокси, а для загруки похоже требуется указать прокси (другого варианта нет). Ради этого поднимать прокси-сервер?
4 НаборДанных
 
21.03.17
14:09
(3)Пройди по ссылке в браузере, поди ограничения безопасности включены и сайт недоступен.
5 avyub
 
21.03.17
14:16
(4) Конфигурация усиленной безопасности отключена. В интернет через браузер заходит. Конфигурация усиленной безопасности IE отключена
6 avyub
 
21.03.17
14:17
по какой ссылке перейти?
7 НаборДанных
 
21.03.17
14:17
(6)В Конфигураторе написана.
8 Fish
 
21.03.17
14:23
(3) А сервер 1С там же запущен?
9 avyub
 
21.03.17
14:27
(7) Это здесь?
Функция ПолучитьФайлРБК()
    
    СерверИсточник = "cbrates.rbc.ru/";
    НТТР = СоздатьСоединение(СерверИсточник);
    
    Адрес = "bnk/bnk.exe";
    ВремКаталог = Лев(КаталогВременныхФайлов(), 2) + "\_tempBik";
    СоздатьКаталог(ВремКаталог);
    
    Попытка УдалитьФайлы(ВремКаталог,"RbkZip.bat"); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаЗип); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаБИК); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаРег); Исключение КонецПопытки;
    
    Попытка
        НТТР.Получить(Адрес, ВремКаталог + "\" + мИмяФайлаЗип);
    Исключение
        Сообщить("Неудачная попытка соединения.");
        Возврат Ложь;
    КонецПопытки;
    
    Состояние("Выполняется обработка загрузки");
    
    ИмяБатФайла = "" + ВремКаталог + "\RbkZip.bat";
    БатФайл     = Новый ТекстовыйДокумент();
    БатФайл.Очистить();
    //БатФайл.ДобавитьСтроку(Лев(ВремКаталог,2));
    //БатФайл.ДобавитьСтроку("cd \" + Сред(ВремКаталог, 4));
    БатФайл.ДобавитьСтроку("""" + ВремКаталог + "\" + мИмяФайлаЗип + """");
    БатФайл.Записать(ИмяБатФайла,КодировкаТекста.OEM);
    
    КомандаСистемы(""""+ ИмяБатФайла + """",ВремКаталог);

    ФайлБИК = Новый Файл(ВремКаталог + "\" + мИмяФайлаБИК);
    ФайлРЕГ = Новый Файл(ВремКаталог + "\" + мИмяФайлаРег);
    
    НачальнаяДата = ТекущаяДата();
    Пока (НЕ (ФайлБИК.Существует() И ФайлРЕГ.Существует())) И ((ТекущаяДата() - НачальнаяДата) < 10) Цикл
    КонецЦикла;
    
    Если (ФайлБИК.Существует() И ФайлРЕГ.Существует()) Тогда
        ЗагрузитьКлассификаторСРБК(ВремКаталог);
    Иначе
        Возврат Ложь;
    КонецЕсли;
    
    Попытка УдалитьФайлы(ВремКаталог,"RbkZip.bat"); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаЗип); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаБИК); Исключение КонецПопытки;
    Попытка УдалитьФайлы(ВремКаталог,мИмяФайлаРег); Исключение КонецПопытки;
    Попытка
        Если НайтиФайлы(ВремКаталог, "*.*").Количество() = 0 Тогда
            Попытка УдалитьФайлы(ВремКаталог); Исключение; КонецПопытки;
        КонецЕсли;
    Исключение
    КонецПопытки;
    
    Возврат Истина;
    
КонецФункции // ПолучитьФайлРБК()
10 avyub
 
21.03.17
14:28
(8) база файловая, толстый клиент
11 avyub
 
21.03.17
14:29
(2) я и есть админ. 1с-ников у нас нету
12 avyub
 
21.03.17
14:32
вот код (вариант без прокси как будто не рассматривается):
// Подключение к серверу
Функция СоздатьСоединение(СерверИсточник)
    Перем HTTP;
    Перем ПроксиСервер;
    
    Если ЗначениеЗаполнено(АдресПроксиСервера) Тогда
        ПроксиСервер = Новый ИнтернетПрокси();
        ПроксиСервер.Установить("http", СокрЛП(АдресПроксиСервера), ?(обЗначениеНеЗаполнено(ПортПроксиСервера), 80, ПортПроксиСервера));
        ПроксиСервер.Пользователь = ИмяПользователя;
        ПроксиСервер.Пароль       = ПарольПользователя;
        HTTP = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер);
    Иначе
        HTTP = Новый HTTPСоединение(СерверИсточник);
    КонецЕсли;
    
    Возврат HTTP;
КонецФункции
13 avyub
 
21.03.17
14:34
Иначе
        HTTP = Новый HTTPСоединение(СерверИсточник);


это я так понимаю cbrates.rbc.ru
14 avyub
 
21.03.17
14:34
при входе туда из браузера выдает надпись: CB Rates: 1C project
15 avyub
 
21.03.17
14:37
у кого-нибудь работает пункт "с сайта агентства РосБизнесКонсалтинг" ?
16 avyub
 
21.03.17
14:43
по адресу http://cbrates.rbc.ru/bnk/bnk.exe предлагает какой то эгзешник скачать
17 Fish
 
21.03.17
14:53
(15) У меня работает. НЕ Альфа-авто, а типовая от 1С. База серверная, серверу разрешён выход в инет. В копии базы на другом сервере, где нет выхода в инет - не работает.
18 Fish
 
21.03.17
14:55
(15) В общем, пинай админов, пусть смотрят, почему у тебя 1С не может до cbrates.rbc.ru достучаться и разрешают ей туда ходить.
19 Fish
 
21.03.17
14:58
+(18) Не заметил (11). Ну тогда копай логи, выясняй, почему у тебя из браузера работает, а из 1С нет (может именно приложению запрещен инет). Есть сильное подозрение, что дело не в 1С.
20 avyub
 
21.03.17
15:00
я и есть админ. Из браузера IE на этом же сервере нормально закачивается http://cbrates.rbc.ru/bnk/bnk.exe. При запуске его вручную распаковывает 3 текстовых файла: bnkdel.txt, bnkdel.txt, reg.txt
Если посмотреть их содержимое, там действительно банки
21 Fish
 
21.03.17
15:10
(20) Ну так ещё раз повторю: у тебя скорее всего проблема именно в том, что 1С не имеет выхода в инет. Ищи почему. Я не админ, подсказать не смогу. У нас была подобная проблема, админы что-то пошаманили, и 1С стала нормально обновлять все классификаторы. Безо всяких прокси. Так что на 99,9% дело не в 1С.
22 avyub
 
21.03.17
15:24
на этом же сервере есть конфигурация Бухгалтерия Предприятия. Там этот же пункт Загрузка с сайта РосБизнесконсалтинг работает. Классификатор загружается
23 Fish
 
21.03.17
16:26
(22) Ну значит сработали 0,01% и дело в Альфа-Авто. (если все остальные факторы те же: файловая база, та же платформа, тот же сервер) :))
Попробуй сравнить код из БП с кодом из Альфа-Авто. Может там что-то изменилось в загрузке, а разработчик не успел поменять. (хотя маловероятно, т.к. я свою конфу давненько не обновлял, а загрузка работает).

А раньше работало?
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.