JuanJo,
Comprovado... mi función, en algunas PCs (Windows 2033server, Win2008server)
me dava IBANs erroneos.
No se debe al tema de 32 o 64bits, ya que en PCs con XP funciona
correctamente, y en Win8 32 o 64 tambiésn...
lo "extraño" es que en las PCs que falla son sobre WinServer ¿?¿?
Comprovado con la rutina que has subido y también con la de Jose... y estas
si dan el código correctamente en TODAS las PCs que he provado.
Un Saludo,
Xevi.
""Juan José García González (BiSoft)"" <
juanjo@bisoft.es> ha escrit al
missatge:52a84934$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
> El 05/12/2013 19:20, Xevi escribió:
>> JuanJo
>>
>> llevo 30 cuentas comprobadas... todas me da correctamente el IBAN.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>>
>> "Xevi" <
xevicomas_quitaeso@gmail.com> ha escrit al
>> missatge:52a0b82a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Juanjo,
>>>
>>>
xevicomas@gmail.com
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> ""Juan José García González (BiSoft)"" <
juanjo@bisoft.es> ha escrit al
>>> missatge:52a0af43$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
>>>> El 05/12/2013 17:31, Xevi escribió:
>>>>> JuanJo,
>>>>>
>>>>> Lo he comprovado en más de 10 cuentas y funciona perfectamente.
>>>>> Si quieres me envias una de esas cuentas que te da mal el IBAN y lo
>>>>> compruebo. Si falla en una puede fallar en alguna más. Me gustaria
>>>>> estar
>>>>> completamente seguro de que funciona correctamente. Ya te digo, en más
>>>>> de 10 cuentas comprobadas... todas correctamente.
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Xevi.
>>>>>
>>>>>
>>>>> ""Juan José García González (BiSoft)"" <
juanjo@bisoft.es> ha escrit al
>>>>> missatge:52a081b5$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
>>>>>> El 05/12/2013 14:05, Xevi escribió:
>>>>>>> FUNCTION xIBAN( cCCC )
>>>>>>> Return "ES" + PadL( ToString( 98 - Val( ToString( Val(
>>>>>>> Left(cCCC,15) ) %
>>>>>>> 97 ) + SubStr( cCCC+"142800", 16, 15 ) ) % 97 ), 2, "0" )
>>>>>> Lo siento ya habia visto esto pero no funciona correctamente .
>>>>>> El calculo del iban debe hacerse sobre la totalidad de los 26 digitos
>>>>>> y no de forma particionada .
>>>>>> He probado con algunas cuentas personales y de la empresa y el
>>>>>> calculo
>>>>>> devuelto no es correcto.
>>>>>
>>>> Lo siento pero me rechaza tu correo electrónico
>>>> ¿Es correcto ?
>>>
> Perdona que no haya contestado antes pero he estado muy liado
>
> Acabo de hacer la prueba con Bingen y lo siento pero tu algoritmo me
> devuelve ES91 de la cuenta que te envié cuando debería ser ES98
>
> Este otro algoritmo si devuelve correctamente el codigo Iban . Está
> copiado desde una Excel del banco Sabadell y reescrito por José López
>
> cIBAN :=
> "ES" +StrZero(98-Val(RESIDUO(RESIDUO(RESIDUO(RESIDUO(SubStr(cCCC, 1,8),97)+SubStr(cCCC,9,8),97)+SubStr(cCCC+ "142800",17,8),97)+SubStr(cCCC+"142800",25,2),97)),2)
>
> FUNCTION RESIDUO(cDividen,nDivisor)
> Local nResultado
> Local nDividen := Val(cDividen) //, nDivisor := Val(cDivisor)
> nResultado := nDividen % nDivisor
> RETURN AllTrim(Str(nResultado,2,0))
>
> Tiene la pinta de ser el tema de 32/64 bits
>
> Un saludo
>
>