Имя: Пароль:
1C
 
Классификатор банков (dbf)
0 Масянька
 
02.02.15
12:21
День добрый.
Знаю, что тема избита, но...
Где лежит классификатор банков в формате dbf в инете?
В сентябре прошлого года легко нашла ссылку. Сегодня - ищу, ищу...

txt - нашла. Но у меня загрузка из dbf. Пока - лень переделывать обработку.

Спасибо.
1 Масянька
 
02.02.15
13:34
Я один раз апну...
2 1976vas
 
02.02.15
13:52
(0) http://www.pvision.ru/bik такой?
3 Масянька
 
02.02.15
13:57
(2) Такой я уже нашла...
Все равно - спасибо.
4 Maxus43
 
02.02.15
13:58
может легче научится 1 раз с сайта РБК грузить?
5 Масянька
 
02.02.15
13:59
(4) Дай ссылку на сайт РБК.
6 Maxus43
 
02.02.15
14:06
(5) в типовых обработка есть по загрузке, из формы списка справочника Банков вызыается
7 Maxus43
 
02.02.15
14:07
http://cbrates.rbc.ru/

специально для 1с сделано
8 Масянька
 
02.02.15
14:09
(7) CB Rates: 1C project
9 Maxus43
 
02.02.15
14:11
(8) загружать обработкой типовой, это просто показываю что для 1с сделано
10 1976vas
 
02.02.15
14:12
(8) + bnk/bnk.exe
11 nordbox
 
02.02.15
14:12
cbrates.rbc.ru/bnk/bnk.exe
100%
12 Maxus43
 
02.02.15
14:17
СерверИсточник = "cbrates.rbc.ru";
    НТТР = Новый HTTPСоединение(СерверИсточник);
    
    Адрес = "bnk/bnk.exe";
    ВремКаталог = КаталогВременныхФайлов() + "tempBik";
    СоздатьКаталог(ВремКаталог);
    УдалитьФайлы(ВремКаталог,".");
    Попытка
        НТТР.Получить(Адрес, ВремКаталог + "\" + мИмяФайлаЗип);
    Исключение
        Сообщить("Неудачная попытка соединения.");
        Возврат;
    КонецПопытки;
    
    Состояние("Выполняется обработка загрузки");
    
    КомандаСистемы(""""+ ВремКаталог + "\" + мИмяФайлаЗип + """", ВремКаталог);

    ФайлБИК = Новый Файл(ВремКаталог + "\" + мИмяФайлаБИК);
    ФайлРЕГ = Новый Файл(ВремКаталог + "\" + мИмяФайлаРег);
    
    НачальнаяДата = ТекущаяДата();
    Пока (НЕ (ФайлБИК.Существует() И ФайлРЕГ.Существует())) И ((ТекущаяДата() - НачальнаяДата) < 10) Цикл
    КонецЦикла;
    
    Если (ФайлБИК.Существует() И ФайлРЕГ.Существует()) Тогда
        ЗагрузитьКлассификаторСРБК(ВремКаталог);
        УдалитьФайлы(ВремКаталог,мИмяФайлаЗип);
        УдалитьФайлы(ВремКаталог,мИмяФайлаБИК);
        УдалитьФайлы(ВремКаталог,мИмяФайлаРег);
    КонецЕсли;
13 Масянька
 
02.02.15
14:18
(11) Спасибо.
14 anatoly
 
02.02.15
14:19
(6) +100
15 nordbox
 
02.02.15
14:19
(12) вообще то нужен был только адрес ))
(13) Пожалуйста
16 1976vas
 
02.02.15
14:22
Если своя обработка, то возможно справочник подпилен?
17 Maxus43
 
02.02.15
14:22
(15) дык там файлы качаются, в экзешник параметры подставляются, в (12) наглядней
18 Масянька
 
02.02.15
14:28
(16) Есесьно.
19 1976vas
 
02.02.15
14:29
(18) Я к тому, что тогда возможно стандартная не работает.
20 Масянька
 
02.02.15
14:31
(19) :))))))))))))