27 октября, вторник 01:18
Bankir.Ru

Объявление

Свернуть
Пока нет объявлений.

Справочник БИКов - от ЦБ

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Golax
    Участник создал тему Справочник БИКов - от ЦБ

    Справочник БИКов - от ЦБ

    Коллеги, был бы глубоко признателен, если бы Вы скинули мне простенький справочник БИКов ЦБ (если верно помню - 10-13 Мб), либо подсказали где его качественно скачать из сети.


    P.S.: Поискал по Сети - удивился. Некоторые банки всерьез предлагают клиентам не только воспользоваться такой прогой на сайте (типа ввел БИК - увидел наименование), но и прикупить это "чудо" на 3-7 дискетах с возможностью послепродажного сервиса и апдейта
    Забавно, на чем только клиенты не ловятся :-)))

    Мой е-майл: vau20000@hotmail.com


    ------------------
    С уважением,

  • kbvlb
    Участник ответил
    Коллеги, добрый день!

    Ни у кого сегодня не возникли трудности со справочником БИК-ов на 30.06.2020? В поле "Tnp", где указывается тип населенного пункта, пропала точка. Кто-нибудь знает, это ошибка или останется навсегда? Для некоторого банковского ПО это оказалось критично.

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    понятно что мертв, но хочется понять какие еще такие мертвые души в справочнике ED807

    Прокомментировать:


  • 34245
    Участник ответил
    По моим наблюдениям, дело в том, что счет 40101810800000010041 - нерабочий. Вот и приходит ЕД201 с кодом 2314. Это был счет московской ФНС в УФК, УФК держало счета в Отделении 1 МОСКВА, с начала 2017 г. переехало на обслуживание в ГУ по ЦФО (БИК 044525000), счета поменялись. Все бюджетные счета открываются сейчас в ГУ по ЦФО, так что БИК 044583001 он жив, но он мертв по сути!

    Прокомментировать:


  • Avantage
    Участник ответил
    Сообщение от KaMPiLeR Посмотреть сообщение
    ParticipantStatus у него - PSAC
    т.е. «Действующий»

    PHP код:
    <BICDirectoryEntry BIC="044583001">
    ...
    PrntBIC="044525000"
    ...
    UID="4583001000"
    ...
    </
    BICDirectoryEntry
    А это не старый UID?
    Новый вроде как:

    Сообщение от KaMPiLeR Посмотреть сообщение
    ...
    UID="4525000000"
    ...
    Не может быть в этом дело?


    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    у нас тоже на этот счет был платеж - 40101810800000010041
    чот припоминается что рассылались к АРМ КБР - НСИ (нормативно справочная информация) в которых указывались действующие счета.
    но тогда бы АРМ КБР не пропустил.

    Прокомментировать:


  • diesel
    Участник ответил
    у нас последний документ на этот БИК был в 17 году, название такое же, как в ed807: ОТДЕЛЕНИЕ 1 МОСКВА
    может всё-таки дело в счёте получателя? у нас отправляли на счёт 40101.810.8.00000010041

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    ED201: Лицевой счет или корсчет клиента Банка России – получателя отсутствует в ПБР получателя

    Прокомментировать:


  • diesel
    Участник ответил
    Сообщение от KaMPiLeR Посмотреть сообщение
    трабл в том что АБС пропустила платежи на него и АРМ КБР пропустило. а после пришел отлуп что не ушло
    а причина отлупа какая?
    по всем признакам БИК действующий

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    и по набору реквизитов совпадают с действующим ГУ балчуг:
    PHP код:
    <BICDirectoryEntry BIC="044525000">

    <
    ParticipantInfo NameP="ГУ БАНКА РОССИИ ПО ЦФО"
            
    Rgn="45"
            
    Ind="115035"
            
    Tnp="г."
            
    Nnp="Москва 35"
            
    Adr="ул Балчуг, 2"
            
    DateIn="1998-03-10"
            
    PtType="00"
            
    Srvcs="3"
            
    XchType="1"
            
    UID="4525000000"
            
    NPSParticipant="1"
            
    ParticipantStatus="PSAC">

    </
    ParticipantInfo>

    </
    BICDirectoryEntry
    будем узнавать у МЦИ тогда почему завернули

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    трабл в том что АБС пропустила платежи на него и АРМ КБР пропустило. а после пришел отлуп что не ушло

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    ParticipantStatus у него - PSAC

    т.е. «Действующий»

    PHP код:
    <BICDirectoryEntry BIC="044583001">

    <
    ParticipantInfo NameP="ОТДЕЛЕНИЕ 1 МОСКВА"
            
    Rgn="45"
            
    Ind="125424"
            
    Tnp="г."
            
    Nnp="Москва 705"
            
    Adr="Волоколамское ш, 75"
            
    PrntBIC="044525000"
            
    DateIn="1994-01-20"
            
    PtType="10"
            
    Srvcs="3"
            
    XchType="1"
            
    UID="4583001000"
            
    NPSParticipant="1"
            
    ParticipantStatus="PSAC">

    </
    ParticipantInfo>

    </
    BICDirectoryEntry

    Прокомментировать:


  • KaMPiLeR
    Участник ответил
    а как определять удаленные БИКи сейчас?

    а то например 044583001 вдруг стал действующим.
    DateOut в ParticipantInfo отсутствует.

    Прокомментировать:


  • 34245
    Участник ответил
    При AccRstr (Ограничения операций по счету) = LMRS (Временное сохранение счета с его функционированием в ограниченном режиме) остается ли у держателя такого счета возможность обмена в качестве участника обмена? Спасибо.

    Прокомментировать:


  • include
    Участник ответил
    отвечу сам:
    для UER надо ориентироваться на поля XchType и Srvcs
    для REAL на поля RstrList

    Прокомментировать:


  • include
    Участник ответил
    Andry
    удалось ли решить вопрос получения информации для полей REAL и UER из xml ED807?

    Прокомментировать:


  • Andry
    Участник ответил
    Сообщение от КрасКрипт Посмотреть сообщение
    BNKSEEK.REAL и PtType разные вещи.
    Это очевидно. Вопрос - можно ли вычислить BNKSEEK.REAL из каких-либо значений справочника ED807?


    Прокомментировать:


  • КрасКрипт
    Участник ответил
    Сообщение от Andry Посмотреть сообщение
    2. И еще вопрос, кто-нибудь сталкивался с необходимостью сформировать значения полей REAL и UER, входящих в BNKSEEK из передаваемой в ED807 информации? Смущает, например, что среди записей ED807 есть много участников, у которых BICDirectoryEntry/ParticipantInfo/@PtType = 99, причем это явно не закрытые банки, а гос. учреждения (подразделения казначейства, избирательные комиссии и т.п.). Получается, на них закрыты расчеты? И что им ставить в BNKSEEK.REAL - ОТЗВ?
    BNKSEEK.REAL и PtType разные вещи.
    УФЭБС_2018_3_2_КБР_Реквизитный_Состав.pdf
    72 Тип участника перевода (PtType)
    Аналогичный реквизит в BNKSEEK.DBF: [BNKSEEK.PZN].

    УФЭБС_2018_3_2_КБР_Кодовые_Значения.pdf
    72 Тип участника перевода (PtType)
    99 - Клиент Банка России, не являющийся участником платежной системы

    Прокомментировать:


  • Andry
    Участник ответил
    1. Коллеги, а кто-нибудь знает, каким образом ЦБ формирует значение поля VKEY в BNKSEEK? Похоже на какой-то хэш, но от чего он его может брать? Как его можно было бы сформировать для новых банков, которые будут появляться в ED807? Пока в голову приходит только записать в VKEY для новых банков значение БИК нового банка - вряд ли он совпадет с каким-либо VKEY старых банков.

    2. И еще вопрос, кто-нибудь сталкивался с необходимостью сформировать значения полей REAL и UER, входящих в BNKSEEK из передаваемой в ED807 информации? Смущает, например, что среди записей ED807 есть много участников, у которых BICDirectoryEntry/ParticipantInfo/@PtType = 99, причем это явно не закрытые банки, а гос. учреждения (подразделения казначейства, избирательные комиссии и т.п.). Получается, на них закрыты расчеты? И что им ставить в BNKSEEK.REAL - ОТЗВ?

    Прокомментировать:


  • DenisOk
    Участник ответил
    Сообщение от Avantage Посмотреть сообщение
    Скрипт на VBS для преобразования в Excel подойдёт?
    PHP код:

    option explicit
    Dim xml
    XLSBICsBNSNijatrh1h2h3h4h
    Set xml 
    CreateObject("MSXML2.DOMDocument")
    xml.load("807.xml")
    Set BICs xml.getElementsByTagName("ed:BICDirectoryEntry")
    Set XLS WScript.CreateObject("Excel.Application")

    XLS.WorkBooks.Add
    XLS
    .Cells.NumberFormat "@"
    h1 Split("BIC ChangeType")
    h2 Split("Adr CntrCd DateIn Ind NPSParticipant NameP Nnp ParticipantStatus PtType RegN Rgn Srvcs Tnp UID XchType")
    h3 Split("Account AccountCBRBIC AccountStatus CK DateIn RegulationAccountType")
    1
    0
    for each h in h1
    j+1
    XLS
    .Cells(1j).Value h
    next
    for each h in h2
    j+1
    XLS
    .Cells(1j).Value h
    next
    for each h in h3
    j+1
    XLS
    .Cells(1j).Value h
    next
    for each BN in BICs
    1
    0
    for each h in h1
    j+1
    XLS
    .Cells(ij).Value BN.GetAttribute(h)
    next
    for each SN in BN.ChildNodes
    Select 
    Case SN.NodeName
    Case "ed:ParticipantInfo"
    2
    for each h in h2
    j+1
    XLS
    .Cells(ij).Value SN.GetAttribute(h)
    next
    Case "ed:Accounts"
    j=17
    if SN.GetAttribute("RegulationAccountType") = "CRSA" Then
    for each h in h3
    j+1
    XLS
    .Cells(ij).Value SN.GetAttribute(h)
    next
    end 
    if
    End Select
    next
    next
    XLS
    .Visible True
    wscript
    .echo "OK! That IS FINISH!" 
    Замечания:
    1. Скрипт сохранить в файл с расширением .VBS
    2. В ту же папку распаковать 807.xml
    3. Желательно перед стартом закрыть и не пользоваться excel до окончания работы скрипта
    4. Запустить скрипт Подождать 3-15 мин, в зависимости от машины, до появлениясообщения OK! That IS FINISH!
    5. При этом откроется созданный excel файл. Сохраните его для дальнейшего использования.

    Скрипт отбрасывает информацию о свифтовых биках, и всех счетах банка с типом отличным от "CRSA". Если эта информация вам важна - допилите его сами.
    Если в процессе произошел сбой/прерывание - убейте в диспетчере задач процесс Excel, прежде, чем запускать ещё раз.
    Спасибо, ЗАРАБОТАЛО!
    Информация важна - попробую допилить сами

    Прокомментировать:


  • Avantage
    Участник ответил
    Сообщение от Andry Посмотреть сообщение
    Коллеги, может быть кто-нибудь напрограммирует конвертер ED807 в bnkseek.dbf ?
    Первая проба:
    PHP код:

        Dim path_dbf
    :     path_dbf "F:\BIK"
        
    Dim basa_dbf:     basa_dbf "bnkseek.dbf"

        
    Dim cnn:        Set cnn WScript.CreateObject("ADODB.Connection")
        
    Dim xmlXLSBICsBNSNivalstracStrAdresCity
        Set xml  
    CreateObject("MSXML2.DOMDocument")
        
    xml.load("807.xml")

        
    cnn.ConnectionString "DRIVER={Microsoft dBase Driver (*.dbf)};" "DBQ=" path_dbf ";" "DefaultDir=" path_dbf "\"
        cnn.Open
        cnn.execute "
    CREATE TABLE " & basa_dbf & " ("&_
          "
    VKEY CHAR(8), "&_
          "
    REEL CHAR(4), "&_
          "
    PZN CHAR(2), "&_
          "
    UER CHAR(1), "&_
          "
    RGN CHAR(2), "&_
          "
    IND CHAR(6), "&_
          "
    TNP CHAR(1), "&_
          "
    NNP CHAR(25), "&_
          "
    ADR CHAR(30), "&_
          "
    RKC CHAR(9), "&_
          "
    NAMEP CHAR(45), "&_
          "
    NAMEN CHAR(30), "&_
          "
    NEWNUM CHAR(9), "&_
          "
    NEWKS CHAR(9), "&_
          "
    PERMFO CHAR(6), "&_
          "
    SROK CHAR(2), "&_
          "
    AT1 CHAR(7), "&_
          "
    AT2 CHAR(7), "&_
          "
    TELEF CHAR(25), "&_
          "
    REGN CHAR(9), "&_
          "
    OKPO CHAR(8), "&_
          "
    DT_IZM DATE"&_
          "
    CKS CHAR(6), "&_
          "
    KSNP CHAR(20), "&_
          "
    DATE_IN DATE"&_
          "
    DATE_CH DATE"&_
          "
    VKEYDEL CHAR(8), "&_
          "
    DT_IZMR DATE )"

        Set BICs = xml.getElementsByTagName("
    ed:BICDirectoryEntry")
        for each BN in BICs
          valstr = "'" & BN.GetAttribute("BIC") & "'"
          acStr = "
    ,'',''"
          for each SN in BN.ChildNodes
            Select Case SN.NodeName
            Case "
    ed:ParticipantInfo"
              Adres = uCase(SN.GetAttribute("
    Adr"))
              City  = uCase(SN.GetAttribute("
    Nnp"))
              i = 0
              if Len(City) > 0 Then
                i = InStrRev(Adres,City)
              end if
              if i > 0 Then
                Adres = mid(Adres,i + Len(City))
                Adres = Trim(Mid(Adres,InStr(Adres,"
    ,")+1))
              else
                i = InStr(Adres,"
    ,")
                if i > 0 Then
                  i = InStr(i+1, Adres,"
    ,")
                  if i > 0 Then
                    Adres = Trim(mid(Adres,i + 1))
                  end if
                end if
              end if
              valStr = valstr & "
    ,'" & SN.GetAttribute("PtType") & "'"
              valStr = valstr & "
    ,'" & iTnp(SN.GetAttribute("Tnp")) & "'"
              valStr = valstr & "
    ,'" & City & "'"
              valStr = valstr & "
    ,'" & Adres & "'"
              valStr = valstr & "
    ,'" & SN.GetAttribute("NameP") & "'"
              valStr = valstr & "
    ,'" & SN.GetAttribute("Ind") & "'"
              valStr = valstr & "
    ,'" & SN.GetAttribute("Regn") & "'"
              valStr = valstr & "
    ,'" & SN.GetAttribute("Rgn") & "'"
              valStr = valstr & "
    ,'" & SN.GetAttribute("DateIn") & "'"

            Case "
    ed:Accounts"
              if SN.GetAttribute("
    RegulationAccountType") = "CRSA" Then ' в bnkseek пишем только корсчет
                 acStr =  "
    ,'" & SN.GetAttribute("Account") & "'"
                 acStr =  acStr & "
    ,'" & SN.GetAttribute("AccountCBRBIC") & "'"
              end if
            End Select
          next
          cnn.execute "
    INSERT INTO " & basa_dbf & " (NEWNUMPZNTNPNNPADRNAMEPINDREGNRGNDATE_INKSNPRKCVALUES ("& valstr & acStr &")"
        next
        cnn.Close

    function iTnp(sTnp)
      Select case uCase(sTnp)
        case "
    Г" iTnp = "1"
        case "
    П" iTnp = "2"
        case "
    С" iTnp = "3"
        case "
    ПГТ" iTnp = "4"
        case "
    СТ-ЦА" iTnp = "5"
        case "
    РП" iTnp = "7"
        case else iTnp = ""
      end Select
    end Function 
    Примечания:
    1. Сохранить скрипт в отдельную папку в файл с расширением .VBS
    2. Занести полный путь к этой папке в переменную path_dbf в начале скрипта
    3. Распаковать в эту же папку 807.xml
    4. Запустить. Наслаждаться.

    Работать должен на машинках с WINx32. На х64 скорее всего работать не будет - там драйвер надо ставить отдельно.

    Не уверен, что всё заполняется так как должно - скорее всего косяков навалом< и надо добавить ещё заполняемые поля - надо всё проверять. Это просто первый вариант.
    Не смог ввести поле с названием "REAL" - драйвер не дает использовать зарезервированные слова в именах полей. Пришлось переименовть в "REEL" - потом можно FARом зайти на редактирование и исправить одну букву. Если есть способ обойти это ограничение - порекомендуйте.

    Прокомментировать:


  • Avantage
    Участник ответил
    Сообщение от DenisOk Посмотреть сообщение
    Добрый день.
    Подскажите, существует ли возможность корректного отображения информации из 807.xml стандартными программами (Internet Explorer, Excel, Word)?
    Скрипт на VBS для преобразования в Excel подойдёт?
    PHP код:

        option explicit
       Dim xml
    XLSBICsBNSNijatrh1h2h3h4h
       Set xml  
    CreateObject("MSXML2.DOMDocument")
       
    xml.load("807.xml")
       
    Set BICs xml.getElementsByTagName("ed:BICDirectoryEntry")
       
    Set XLS WScript.CreateObject("Excel.Application")

       
    XLS.WorkBooks.Add
       XLS
    .Cells.NumberFormat "@"
       
    h1 Split("BIC ChangeType")
       
    h2 Split("Adr CntrCd DateIn Ind NPSParticipant NameP Nnp ParticipantStatus PtType RegN Rgn Srvcs Tnp UID XchType")
       
    h3 Split("Account AccountCBRBIC AccountStatus CK DateIn RegulationAccountType")
       
    1
       j 
    0
       
    for each h in h1
         j 
    j+1
         XLS
    .Cells(1j).Value h
       next
       
    for each h in h2
         j 
    j+1
         XLS
    .Cells(1j).Value h
       next
       
    for each h in h3
         j 
    j+1
         XLS
    .Cells(1j).Value h
       next
       
    for each BN in BICs
         i 
    1
         j 
    0
         
    for each h in h1
           j 
    j+1
           XLS
    .Cells(ij).Value BN.GetAttribute(h)
         
    next
         
    for each SN in BN.ChildNodes
           Select 
    Case SN.NodeName
           
    Case "ed:ParticipantInfo"
             
    2
             
    for each h in h2
               j 
    j+1
               XLS
    .Cells(ij).Value SN.GetAttribute(h)
             
    next
           
    Case "ed:Accounts"
             
    j=17
             
    if SN.GetAttribute("RegulationAccountType") = "CRSA" Then
               
    for each h in h3
                 j 
    j+1
                 XLS
    .Cells(ij).Value SN.GetAttribute(h)
               
    next
             end 
    if
           
    End Select
         next
       next
       XLS
    .Visible True
       wscript
    .echo "OK! That IS FINISH!" 
    Замечания:
    1. Скрипт сохранить в файл с расширением .VBS
    2. В ту же папку распаковать 807.xml
    3. Желательно перед стартом закрыть и не пользоваться excel до окончания работы скрипта
    4. Запустить скрипт Подождать 3-15 мин, в зависимости от машины, до появлениясообщения OK! That IS FINISH!
    5. При этом откроется созданный excel файл. Сохраните его для дальнейшего использования.

    Скрипт отбрасывает информацию о свифтовых биках, и всех счетах банка с типом отличным от "CRSA". Если эта информация вам важна - допилите его сами.
    Если в процессе произошел сбой/прерывание - убейте в диспетчере задач процесс Excel, прежде, чем запускать ещё раз.
    Последний раз редактировалось Avantage; 04.04.2018, 16:00.

    Прокомментировать:


  • DenisOk
    Участник ответил
    Добрый день.
    Подскажите, существует ли возможность корректного отображения информации (удобно для восприятия рядовому пользователю, например, в виде таблицы) из файла «Пример Справочника БИК в формате сообщения ED807» (http://www.cbr.ru/Content/Document/F...824/ed_807.rar) UFEBS_v2018_3_0 стандартными программами (Internet Explorer, Excel, Word)?

    Прокомментировать:


  • Andry
    Участник ответил
    Понедельничный up. Коллеги, неужели вы все-все свои системы, использующие bnkseek, успеете перевести на использование ED807 к июлю?

    Прокомментировать:


  • Andry
    Участник ответил
    Коллеги, может быть кто-нибудь напрограммирует конвертер ED807 в bnkseek.dbf ? Есть у нас пара legacy систем, которые крайне сложно доработать для ED807, им надо скармливать bnkseek.

    Полагаю что у многих такое есть, или, по крайней мере, будет какое-то время после перехода на ППС.

    Прокомментировать:


  • badik
    Участник ответил
    http://bankir.ru/dom/forum/департамент-технологий/автоматизация/4827297-уфэбс-для-ппс-по-595-п?p=4833228#post4833228

    Прокомментировать:


  • DenisOk
    Участник ответил
    Сообщение от Aladdin Посмотреть сообщение
    Положение Банка России от 06.07.2017 № 595-П «О платежной системе Банка России» (далее - Положение 595-П). меняет структуру БИК
    Теперь:
    1 разряд слева отражает информацию об участии и виде участия в платежной системе и принимает следующие значения:
    "0" - участник платежной системы с прямым участием;
    "1" - участник платежной системы с косвенным участием;
    "2" - клиент Банка России, не являющийся участником платежной системы;
    2 - 9 разряды слева соответствуют идентификатору участника платежной системы и принимают значения от "00000001" до "99999999".

    Не понятно, для Банков все существующие БИКи сменятся или нет?
    Здравствуйте.
    Помогите разобраться в ситуации - Изменится ли с 02/07/2018 «Справочник БИК»?

    Согласно данным http://www.cbr.ru/psystem/persp_ps/ (Положение Банка России от 06.07.2017 № 595-П «О платежной системе Банка России» (далее - Положение 595-П)) вступит в силу Альбом УФЭБС 2018.3.0 и в нём написано, что будет справочник БИК (ЕD806, ED807), так же представлен Пример Справочника БИК в формате сообщения ED807 (http://www.cbr.ru/Content/Document/F...824/ed_807.rar).

    Вопросы:
    Справочник БИК (ЕD806, ED807) используется только для КБР-С, КБР Н?
    С 02/07/2018 перестанет существовать «Справочник БИК» (“BNKSEEK.DBF”; ”BNKDEL.DBF”) http://cbr.ru/mcirabis/bic/ ?

    Прокомментировать:


  • LongTom
    Участник ответил
    Сообщение от Aladdin Посмотреть сообщение
    Не понятно, для Банков все существующие БИКи сменятся или нет?
    Нет.

    Прокомментировать:


  • Aladdin
    Участник ответил
    Положение Банка России от 06.07.2017 № 595-П «О платежной системе Банка России» (далее - Положение 595-П). меняет структуру БИК
    Теперь:
    1 разряд слева отражает информацию об участии и виде участия в платежной системе и принимает следующие значения:
    "0" - участник платежной системы с прямым участием;
    "1" - участник платежной системы с косвенным участием;
    "2" - клиент Банка России, не являющийся участником платежной системы;
    2 - 9 разряды слева соответствуют идентификатору участника платежной системы и принимают значения от "00000001" до "99999999".

    Не понятно, для Банков все существующие БИКи сменятся или нет?

    Прокомментировать:


  • 34245
    Участник ответил
    AF22
    Добрый день, смотрю Консультант+, написано, что 544-П утратит силу 02.07.2018г. (в связи с началом 595-П), так что 544-П боевое! Там и про ВРФС.

    Прокомментировать:

Обработка...
X