Mira a ver si te vale esto.
Saludos.
Juan Carlos.
De: Vicente Aliaga | Silomar [mailto:[email protected]]
Enviado el: lunes, 23 de septiembre de 2013 12:54
Para: 'forum.help400'
Asunto: Calculo de IBAN y normativa SEPA
Buenos días a todos
Con la nueva "próxima" aplicación de la normativa SEPA, lógicamente tengo que
añadir el IBAN en la ficha del cliente para
el cambio de formato de los cuadernos (antes de Febrero del 2014 claro ! )
Alguien tiene alguna utilidad que pasándole cuentas CCC me las convierta a IBAN
?
Para lo que no sabéis que es SEPA os adelanto este link
http://www.bbva.es/TLBS/tlbs/esp/metainf/sepa.jsp
Así como si alguien está pasando los cuadernos a la normativa XML ISO 20022,
para tomar de referencia y agilizarnos la migración.
Gracias foro
P No lo imprima si no es necesario. Protejamos el medio ambiente.
Este mensaje y sus archivos adjuntos pueden contener información confidencial y
están dirigidos exclusivamente a su destinatario. Le informamos que la
legislación vigente prohíbe el uso, divulgación o copia del contenido del
presente mensaje por persona distinta del destinatario sin autorización previa.
Si Ud. no es el destinatario de este mensaje y lo ha recibido por error le
agradeceríamos que nos lo comunicara y que procediera a destruirlo. This
message can contain confidential information and is directed exclusively to its
adressee. We inform you that the legislation prohibits to use, spreading or
copy the content of the present message by person different from the adressee
without previous authorization. If you are not the adressee of this message or
you have received it by error we would be thankful if you notify us and delete
it.
[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png]
<http://es-es.facebook.com/editorialeverest>
[http://www.everest.es/img/mailings/imgfirma_08.png]
<http://twitter.com/ed_everest>
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de
Datos de Carácter Personal, le informamos que los datos que nos facilite
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales,
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas
del Grupo Everest dedicadas a actividades de impresión, encuadernación,
edición, publicación, distribución y venta de libros y otra clase de
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n,
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST,
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y "COMERCIAL
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el
correo electrónico y las comunicaciones por medio de Internet no permiten
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad
alguna por tales circunstancias. Si no consintiese en la utilización del correo
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido,
de manera exclusiva, a su destinatario y contiene información confidencial y
sujeta al secreto profesional, cuya divulgación no está permitida por la ley.
En caso de haber recibido este mensaje por error, le rogamos que, de forma
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra
atención o a través del teléfono 902123400 y proceda a su eliminación, así como
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la
distribución, copia o utilización de este mensaje, o de cualquier documento
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la
ley. El uso y contenido de los correos electrónicos remitidos con direcciones
bajo el dominio de "everest .es" serán exclusivamente de ámbito profesional.
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad
a la empresa.
h nomain
//
// @CalIBAN - Calcular IBAN de cuenta bancaria
//
d @CalIBAN pr 2p 0
d 2a
d 4p 0
d 4p 0
d 2p 0
d 10p 0
// ---------------------------------------------------------------------
// Procedimiento de cálculo
// ---------------------------------------------------------------------
p @CalIBAN b export
d @CalIBAN pi 2p 0
d Pais 2a
d Banco 4p 0
d Sucursal 4p 0
d DC 2p 0
d Cuenta 10p 0
d True c *on
d False c *off
d Letras s 26a inz('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
d Numero s 30p 0 inz(0)
d Resto s 2p 0 inz(0)
d Entrada s 24a inz(*blank)
d Salida s 256a inz(*blank)
d Posicion s 2p 0 inz(0)
d Peso s 2p 0 inz(0)
d Digitos s 2p 0 inz(0)
/free
clear Digitos;
//
// Construir valor para cálculo
//
clear Salida;
Entrada=%editc(Banco:'X') + %editc(Sucursal:'X') +
%editc(DC:'X') + %editc(Cuenta:'X') + Pais + '00';
for Posicion=1 to %len(%trim(Entrada));
if %scan(%subst(Entrada:Posicion:1):Letras)=0;
Salida = %trim(Salida) + %subst(Entrada:Posicion:1);
else;
Peso=%scan(%subst(Entrada:Posicion:1):Letras)+9;
Salida = %trim(Salida) + %editc(Peso:'X');
endif;
endfor;
//
// Calcular
//
Numero=%dec(%trim(Salida):30:0);
Resto=%rem(Numero:97);
Digitos=98-Resto;
return Digitos;
/end-free
p @CalIBAN e
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
