FiveTech Software tech support forums

Desde el 1 de febrero de 2016, ya no es necesario el BIC para realizar pagos SEPA,
de acuerdo con el Reglamento UE 260/2012.
Únicamente podrá comunicarle el IBAN de su destinatario o de su deudor a su banco.
Sin embargo, el BIC sigue siendo obligatorio para los países de la zona SEPA que no
forman parte de la Unión Europea, como Mónaco o Suiza.

José Luis Sánchez wrote:Hola,
estoy teniendo problemas con el envio de una remesa de recibos a un banco y creo que puede ser porque la tabla de codigos BIC que utilizo está desactualizada. ¿ Alguien me puede enviar una actualizada a correo.alanit arroba gmail punto com o decirme dónde conseguirla ?
Muchas gracias

Code: Select all  Expand view

//----------------------------------------------------------------//
FUNCTION cGetBicFIX( cPaisIbanBanc )
//----------------------------------------------------------------//
/* Recibe una cadena formada por 2 caracteres identificativos del pais
   de la cuenta, seguidos del código de banco de la cuenta.
   En caso de España por ejemplo "ES0081" correspondiente al Banco de Sabadell.
   ------------------------------------------------------------------------- */

Local BIC       := {=>}
Local nEnt      := 0
Local cDevuelve := ""


BIC["ES0003"]='BDEPESM1XXX'
BIC["ES0019"]='DEUTESBBASS'
BIC["ES0030"]='ESPCESMMXXX'
BIC["ES0031"]='ETCHES2GXXX'
BIC["ES0036"]='SABNESMMXXX'
BIC["ES0046"]='GALEES2GXXX'
BIC["ES0049"]='BSCHESMMXXX'
BIC["ES0057"]='BVADESMMXXX'
BIC["ES0058"]='BNPAESMMXXX'
BIC["ES0059"]='MADRESMMXXX'
BIC["ES0061"]='BMARES2MXXX'
BIC["ES0065"]='BARCESMMXXX'
BIC["ES0072"]='PSTRESMMXXX'
BIC["ES0073"]='OPENESMMXXX'
BIC["ES0075"]='POPUESMMXXX'
BIC["ES0078"]='BAPUES22XXX'
BIC["ES0081"]='BSABESBBXXX'
BIC["ES0083"]='RENBESMMXXX'
BIC["ES0086"]='NORTESMMXXX'
BIC["ES0093"]='VALEESVVXXX'
BIC["ES0094"]='BVALESMMXXX'
BIC["ES0099"]='AHCRESVVXXX'
BIC["ES0122"]='CITIES2XXXX'
BIC["ES0125"]='BAOFESM1XXX'
BIC["ES0128"]='BKBKESMMXXX'
BIC["ES0130"]='CGDIESMMXXX'
BIC["ES0133"]='MIKBESB1XXX'
BIC["ES0138"]='BKOAES22XXX'
BIC["ES0136"]='AREBESMMXXX'
BIC["ES0149"]='BNPAESMSXXX'
BIC["ES0160"]='BOTKESMXXXX'
BIC["ES0182"]='BBVAESMMXXX'
BIC["ES0184"]='BEDFESM1XXX'
BIC["ES0186"]='BFIVESBBXXX'
BIC["ES0188"]='ALCLESMMXXX'
BIC["ES0196"]='WELAESMMXXX'
BIC["ES0198"]='BCOEESMMXXX'
BIC["ES0200"]='PRVBESB1XXX'
BIC["ES0211"]='PROAESMMXXX'
BIC["ES0216"]='POHIESMMXXX'
BIC["ES0219"]='BMCEESMMXXX'
BIC["ES0220"]='FIOFESM1XXX'
BIC["ES0224"]='SCFBESMMXXX'
BIC["ES0227"]='UNOEESM1XXX'
BIC["ES0229"]='POPLESMMXXX'
BIC["ES0231"]='DSBLESMMXXX'
BIC["ES0232"]='INVLESMMXXX'
BIC["ES0233"]='POPIESMMXXX'
BIC["ES0234"]='CCOCESMMXXX'
BIC["ES0235"]='PICHESMMXXX'
BIC["ES0236"]='LOYIESMMXXX'
BIC["ES0237"]='CSURES2CXXX'
BIC["ES0239"]='EVOBESMMXXX'
BIC["ES0487"]='GBMNESMMXXX'
BIC["ES1459"]='PRABESMMXXX'
BIC["ES1460"]='CRESESMMXXX'
BIC["ES1465"]='INGDESMMXXX'
BIC["ES1474"]='CITIESMXXXX'
BIC["ES1475"]='CCSEESM1XXX'
BIC["ES1480"]='VOWAES21XXX'
BIC["ES1490"]='SELFESMMXXX'
BIC["ES1491"]='TRIOESMMXXX'
BIC["ES1534"]='KBLXESMMXXX'
BIC["ES1544"]='BACAESMMXXX'
BIC["ES1545"]='AGRIESMMXXX'
BIC["ES2000"]='CECAESMMXXX'
BIC["ES2010"]='CECAESMM010'
BIC["ES2013"]='CESCESBBXXX'
BIC["ES2017"]='CECAESMM017'
BIC["ES2031"]='CECAESMM031'
BIC["ES2038"]='CAHMESMMXXX'
BIC["ES2038"]='CAHMESMMXXX'
BIC["ES2041"]='CESCESBBXXX'
BIC["ES2043"]='CECAESMM043'
BIC["ES2045"]='CECAESMM045'
BIC["ES2048"]='CECAESMM048'
BIC["ES2051"]='CECAESMM051'
BIC["ES2059"]='BBVAESMMXXX'
BIC["ES2056"]='CECAESMM056'
BIC["ES2077"]='CVALESVVXXX'
BIC["ES2066"]='CECAESMM066'
BIC["ES2080"]='CAGLESMMXXX'
BIC["ES2081"]='CECAESMM081'
BIC["ES2085"]='CAZRES2ZXXX'
BIC["ES2086"]='CECAESMM086'
BIC["ES2095"]='BASKES2BXXX'
BIC["ES2096"]='CSPAES2LXXX'
BIC["ES2099"]='CECAESMM099'
BIC["ES2100"]='CAIXESBBXXX'
BIC["ES2103"]='UCJAES2MXXX'
BIC["ES2104"]='CSSOES2SXXX'
BIC["ES2105"]='CECAESMM105'
BIC["ES2107"]='BBVAESMM107'
BIC["ES3001"]='BCOEESMM001'
BIC["ES3005"]='BCOEESMM005'
BIC["ES3007"]='BCOEESMM007'
BIC["ES3008"]='BCOEESMM008'
BIC["ES3009"]='BCOEESMM009'
BIC["ES3016"]='BCOEESMM016'
BIC["ES3017"]='BCOEESMM017'
BIC["ES3018"]='BCOEESMM018'
BIC["ES3020"]='BCOEESMM020'
BIC["ES3023"]='BCOEESMM023'
BIC["ES3025"]='CDENESBBXXX'
BIC["ES3029"]='CCRIES2A029'
BIC["ES3035"]='CLPEES2MXXX'
BIC["ES3045"]='CCRIES2A045'
BIC["ES3058"]='CCRIES2AXXX'
BIC["ES3059"]='BCOEESMM059'
BIC["ES3060"]='BCOEESMM060'
BIC["ES3063"]='BCOEESMM063'
BIC["ES3067"]='BCOEESMM067'
BIC["ES3070"]='BCOEESMM070'
BIC["ES3076"]='BCOEESMM076'
BIC["ES3080"]='BCOEESMM080'
BIC["ES3081"]='BCOEESMM081'
BIC["ES3084"]='CVRVES2BXXX'
BIC["ES3085"]='BCOEESMM085'
BIC["ES3089"]='BCOEESMM089'
BIC["ES3095"]='CCRIES2A095'
BIC["ES3096"]='BCOEESMM096'
BIC["ES3098"]='BCOEESMM098'
BIC["ES3102"]='BCOEESMM102'
BIC["ES3104"]='BCOEESMM104'
BIC["ES3105"]='CCRIES2A105'
BIC["ES3110"]='BCOEESMM110'
BIC["ES3111"]='BCOEESMM111'
BIC["ES3112"]='CCRIES2A112'
BIC["ES3113"]='BCOEESMM113'
BIC["ES3115"]='BCOEESMM115'
BIC["ES3116"]='BCOEESMM116'
BIC["ES3117"]='BCOEESMM117'
BIC["ES3118"]='CCRIES2A118'
BIC["ES3119"]='CCRIES2A119'
BIC["ES3121"]='CCRIES2A121'
BIC["ES3123"]='CCRIES2A123'
BIC["ES3127"]='BCOEESMM127'
BIC["ES3130"]='BCOEESMM130'
BIC["ES3134"]='BCOEESMM134'
BIC["ES3135"]='CCRIES2A135'
BIC["ES3137"]='CCRIES2A137'
BIC["ES3138"]='BCOEESMM138'
BIC["ES3140"]='BCOEESMM140'
BIC["ES3144"]='BCOEESMM144'
BIC["ES3146"]='CCCVESM1XXX'
BIC["ES3150"]='BCOEESMM150'
BIC["ES3152"]='CCRIES2A152'
BIC["ES3157"]='CCRIES2A157'
BIC["ES3159"]='BCOEESMM159'
BIC["ES3160"]='CCRIES2A160'
BIC["ES3162"]='BCOEESMM162'
BIC["ES3165"]='CCRIES2A165'
BIC["ES3166"]='BCOEESMM166'
BIC["ES3174"]='BCOEESMM174'
BIC["ES3177"]='BCOEESMM177'
BIC["ES3179"]='CCRIES2A179'
BIC["ES3183"]='CASDESBBXXX'
BIC["ES3186"]='CCRIES2A186'
BIC["ES3187"]='BCOEESMM187'
BIC["ES3188"]='CCRIES2A188'
BIC["ES3190"]='BCOEESMM190'
BIC["ES3191"]='BCOEESMM191'
BIC["ES9000"]='ESPBESMMXXX'

TRY
   cDevuelve := BIC[cPaisIbanBanc]
CATCH
   cDevuelve := space(11)
END

Return cDevuelve
//----------------------------------------------------------------//