FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Calculo código BIC/SWIFT
Buenas tardes amigos y compañeros.
Estoy actualizando un módulo de clientes de mi aplicación y adaptándolo a las nuevas normas SEPA. El cálculo del código IBAN de una cuenta bancaria ya lo tengo resuelto. Ahora estoy buscando la función para poder calcular el código BIC/SWIFT a partir del IBAN. Un saludo |
#2
|
||||
|
||||
No existe un "cálculo".
El BIC/SWIFT es un código que se le da a cada banco o banco-sucursal Deberías tener una relación con estos datos (PAIS, BANCO, SUCURSAL, BIC). |
#3
|
|||
|
|||
Hooola!
Yo dispongo de esta lista Código:
aBIC:=TStringList.create; aBIC.Values['0019']:='DEUTESBBASS'; aBIC.Values['0031']:='ETCHES2GXXX'; aBIC.Values['0046']:='GALEES2GXXX'; aBIC.Values['0049']:='BSCHESMMXXX'; aBIC.Values['0058']:='BNPAESMZXXX'; aBIC.Values['0059']:='MADRESMMXXX'; aBIC.Values['0061']:='BMARES2MXXX'; aBIC.Values['0065']:='BARCESMMXXX'; aBIC.Values['0075']:='POPUESMMXXX'; aBIC.Values['0078']:='BAPUES22XXX'; aBIC.Values['0081']:='BSABESBBXXX'; aBIC.Values['0083']:='RENBESMMXXX'; aBIC.Values['0094']:='BVALESMMXXX'; aBIC.Values['0108']:='SOGEESMMAGM'; aBIC.Values['0122']:='CITIES2XXXX'; aBIC.Values['0128']:='BKBKESMMXXX'; aBIC.Values['0130']:='CGDIESMMXXX'; aBIC.Values['0131']:='BESMESMMXXX'; aBIC.Values['0136']:='AREBESMMXXX'; aBIC.Values['0138']:='BKOAES22XXX'; aBIC.Values['0144']:='PARBESMHXXX'; aBIC.Values['0149']:='BNPAESMHXXX'; aBIC.Values['0152']:='BPLCESMMXXX'; aBIC.Values['0154']:='BSUIESMMXXX'; aBIC.Values['0155']:='BRASESMMXXX'; aBIC.Values['0156']:='ABNAESMMXXX'; aBIC.Values['0159']:='COBAESMXTMA'; aBIC.Values['0160']:='BOTKESMXXXX'; aBIC.Values['0162']:='MIDLESMXXXX'; aBIC.Values['0167']:='GEBAESMMBIL'; aBIC.Values['0168']:='BBRUESMXXXX'; aBIC.Values['0169']:='NACNESMMXXX'; aBIC.Values['0182']:='BBVAESMMXXX'; aBIC.Values['0186']:='BFIVESBBXXX'; aBIC.Values['0188']:='ALCLESMMXXX'; aBIC.Values['0190']:='BBPIESMMXXX'; aBIC.Values['0196']:='WELAESMMFUN'; aBIC.Values['0198']:='BCOEESMMXXX'; aBIC.Values['0211']:='PROAESMMXXX'; aBIC.Values['0216']:='POHIESMMXXX'; aBIC.Values['0219']:='BMCEESMMXXX'; aBIC.Values['0226']:='UBSWESMMNPB'; aBIC.Values['0229']:='POPLESMMXXX'; aBIC.Values['0231']:='DSBLESMMXXX'; aBIC.Values['0232']:='INVLESMMXXX'; aBIC.Values['0233']:='POPIESMMXXX'; aBIC.Values['0234']:='CCOCESMMXXX'; aBIC.Values['0236']:='LOYIESMMXXX'; aBIC.Values['0237']:='CSURES2CXXX'; aBIC.Values['0487']:='GBMNESMMXXX'; aBIC.Values['0488']:='BFASESMMXXX'; aBIC.Values['1000']:='ICROESMMXXX'; aBIC.Values['1459']:='PRABESMMXXX'; aBIC.Values['1460']:='CRESESMMXXX'; aBIC.Values['1465']:='INGDESMMXXX'; aBIC.Values['1467']:='EHYPESMXXXX'; aBIC.Values['1474']:='CITIESMXSEC'; aBIC.Values['1479']:='NATXESMMXXX'; aBIC.Values['1497']:='ESSIESMMXXX'; aBIC.Values['1524']:='UBIBESMMXXX'; aBIC.Values['2000']:='CECAESMMXXX'; aBIC.Values['2013']:='CESCESBBXXX'; aBIC.Values['2038']:='CAHMESMMXXX'; aBIC.Values['2045']:='CECAESMM045'; aBIC.Values['2048']:='CECAESMM048'; aBIC.Values['2056']:='CECAESMM056'; aBIC.Values['2080']:='CAGLESMMVIG'; aBIC.Values['2085']:='CAZRES2ZXXX'; aBIC.Values['2086']:='CECAESMM086'; aBIC.Values['2095']:='BASKES2BXXX'; aBIC.Values['2100']:='CAIXESBBXXX'; aBIC.Values['2103']:='UCJAES2MXXX'; aBIC.Values['2108']:='CSPAES2L108'; aBIC.Values['3025']:='CDENESBBXXX'; aBIC.Values['3035']:='CLPEES2MXXX'; aBIC.Values['3058']:='CCRIES2AXXX'; aBIC.Values['3081']:='BCOEESMM081'; aBIC.Values['3183']:='CASDESBBXXX'; aBIC.Values['3501']:='RENTESMMXXX'; aBIC.Values['3524']:='AHCFESMMXXX'; aBIC.Values['3563']:='MISVESMMXXX'; aBIC.Values['3575']:='INSGESMMXXX'; aBIC.Values['3604']:='CAPIESMMXXX'; aBIC.Values['3641']:='LISEESMMXXX'; aBIC.Values['3656']:='CSSOES2SFIN'; aBIC.Values['3661']:='MLCEESMMXXX'; aBIC.Values['3669']:='IVALESMMXXX'; aBIC.Values['3682']:='GVCBESBBETB'; aBIC.Values['9000']:='ESPBESMMXXX'; aBIC.Values['9020']:='IPAYESMMXXX'; aBIC.Values['9091']:='XBCNESBBXXX'; aBIC.Values['9092']:='XRBVES2BXXX'; aBIC.Values['9093']:='XRVVESVVXXX'; aBIC.Values['9094']:='MEFFESBBXXX'; aBIC.Values['9096']:='IBRCESMMXXX'; Código:
Result:=aBIC.Values[copy(Iban,5,4)] |
#4
|
||||
|
||||
Debes tener en cuenta que para los BIC que terminan en 'XXX' el procedimiento es correcto.
Para los que terminan con otra cosa, deberías tener en cuenta tanto el banco (entidad) como la sucursal. Además de esto, debes tener en cuenta el País del IBAN porque podría ser que otro banco en europa tenga esa misma entidad y no corresponda a ese BIC. |
#5
|
|||
|
|||
Hola.
Gracias por vuestras respuestas. Es verdad. no hace falta tener que hacer un cálculo del BIC/SWIFT, ya que es un valor fijo de cada banco o banco-sucursal. Un saludo |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Algorítmo de cálculo del CIF (Código Identificación Fiscal) | Ñuño Martínez | Varios | 9 | 08-04-2009 12:18:52 |
Calculo con decimales | Carlos Arevalo | Varios | 3 | 30-07-2008 18:12:27 |
Calculo de variable | efrate11 | Impresión | 5 | 01-07-2008 08:23:50 |
Calculo De Totales | PETERKANTROPUS | Tablas planas | 2 | 25-05-2004 03:06:14 |
Calculo de Años | jrcosta75 | Conexión con bases de datos | 1 | 20-02-2004 14:27:45 |
|