[SOLUCIONADO] No funciona buen Funcion comprobar cuenta corriente

[pepitogrillo13051993]

Hola, estoy haciendo una funcion que comprueba si los digitos de control de una cuenta corriente pasada por parametro es correcta.

Código MySQL:

DELIMITER //
DROP FUNCTION IF EXISTS esCC//
CREATE FUNCTION esCC(numcc CHAR(20)) RETURNS INT
BEGIN
    
    DECLARE correcte INT;
    DECLARE contador INT;
    DECLARE entidad CHAR(4);
    DECLARE oficina CHAR(4);
    DECLARE DC CHAR(2);
    DECLARE num_cuenta CHAR(10);
    DECLARE entidad1 CHAR(2); 
    DECLARE entidad2 CHAR(2);
    DECLARE entidad3 CHAR(2);
    DECLARE entidad4 CHAR(2);
    DECLARE oficina1 CHAR(2); 
    DECLARE oficina2 CHAR(2);
    DECLARE oficina3 CHAR(2);
    DECLARE oficina4 CHAR(2);
    DECLARE num_cuenta1 CHAR(2);
    DECLARE num_cuenta2 CHAR(2);
    DECLARE num_cuenta3 CHAR(2);
    DECLARE num_cuenta4 CHAR(2);
    DECLARE num_cuenta5 CHAR(2);
    DECLARE num_cuenta6 CHAR(2);
    DECLARE num_cuenta7 CHAR(2);
    DECLARE num_cuenta8 CHAR(2);
    DECLARE num_cuenta9 CHAR(2);
    DECLARE num_cuenta10 CHAR(2);
    DECLARE suma_enof INT;
    DECLARE suma_numcuenta INT;
    DECLARE resto1 INT;
    DECLARE resto2 INT;
    DECLARE primer_dc CHAR(2);
    DECLARE segon_dc CHAR(2);
    DECLARE dc1dc2 CHAR(2);
 
    SET entidad = SUBSTRING(numcc,1,4);
    SET oficina = SUBSTRING(numcc,5,4);
    SET DC = SUBSTRING(numcc,9,2);
    SET num_cuenta = SUBSTRING(numcc,11,10);
    SET contador = 1;
 
    WHILE contador <= 4 DO
        IF contador = 1 THEN
            SET entidad1 = SUBSTRING(entidad,1,1) * 4;
        ELSEIF contador = 2 THEN
            SET entidad2 = SUBSTRING(entidad,2,1) * 8;
        ELSEIF contador = 3 THEN
            SET entidad3 = SUBSTRING(entidad,3,1) * 5;
        ELSE
            SET entidad4 = SUBSTRING(entidad,4,1) * 10;
        END IF;
        SET contador = contador + 1;
    END WHILE;
 
    SET contador = 1;
 
    WHILE contador <= 4 DO
        IF contador = 1 THEN
            SET oficina1 = SUBSTRING(oficina,1,1) * 9;
        ELSEIF contador = 2 THEN
            SET oficina2 = SUBSTRING(oficina,2,1) * 7;
        ELSEIF contador = 3 THEN
            SET oficina3 = SUBSTRING(oficina,3,1) * 3;
        ELSE
            SET oficina4 = SUBSTRING(oficina,4,1) * 6;
        END IF;
        SET contador = contador + 1;
    END WHILE;
 
    SET contador = 1;
    SET suma_enof = entidad1+entidad2+entidad3+entidad4+oficina1+oficina2+oficina3+oficina4;
    SET resto1 = MOD(suma_enof1,11);
    SET primer_dc = 11 - resto1;
    IF primer_dc = 10 THEN
        SET primer_dc = 1;
    END IF;
 
    WHILE contador <= 10 DO
        IF contador = 1 THEN
            SET num_cuenta1 = SUBSTRING(num_cuenta,1,1) * 1;
        ELSEIF contador = 2 THEN
            SET num_cuenta2 = SUBSTRING(num_cuenta,2,1) * 2;
        ELSEIF contador = 3 THEN
            SET num_cuenta3 = SUBSTRING(num_cuenta,3,1) * 4;
        ELSEIF contador = 4 THEN
            SET num_cuenta4 = SUBSTRING(num_cuenta,4,1) * 8;
        ELSEIF contador = 5 THEN
            SET num_cuenta5 = SUBSTRING(num_cuenta,5,1) * 5;
        ELSEIF contador = 6 THEN
            SET num_cuenta6 = SUBSTRING(num_cuenta,6,1) * 10;
        ELSEIF contador = 7 THEN
            SET num_cuenta7 = SUBSTRING(num_cuenta,7,1) * 9;
        ELSEIF contador = 8 THEN
            SET num_cuenta8 = SUBSTRING(num_cuenta,8,1) * 7;
        ELSEIF contador = 9 THEN
            SET num_cuenta9 = SUBSTRING(num_cuenta,9,1) * 3;
        ELSE
            SET num_cuenta10 = SUBSTRING(num_cuenta,10,1) * 6;
        END IF;
        SET contador = contador + 1;
    END WHILE;
 
    SET suma_numcuenta = num_cuenta1+num_cuenta2+num_cuenta3+num_cuenta4+num_cuenta5+num_cuenta6+num_cuenta7+num_cuenta8+num_cuenta9+num_cuenta10;
    SET resto2 = MOD(suma_numcuenta,11);
    SET segon_dc = 11 - resto2;
    IF segon_dc = 10 THEN
        SET segon_dc = 1;
    END IF;
    SET dc1dc2 = CONCAT(primer_dc,segon_dc);
 
    IF dc1dc2 = DC THEN
        SET correcte = 1;
    ELSE
        SET correcte = 0;
    END IF;
    
    RETURN correcte;
 
END
//
DELIMITER ;
 
SELECT esCC('12345678061234567890');
 

Al ejecutar el SELECT me devuelve 0 y me debería devolver 1, porque esa cuenta corriente es correcta. No se que pasa, por favor ayudenme!

[quimfv]

No parece un trabajo para mysql... hay infinidad de algoritmos en javascript y en php...

PHP
https://www.google.es/search?q=validar+cuenta+corriente+php

Javascript
https://www.google.es/search?q=validar+cuenta+corriente+javascript

ASP
https://www.google.es/search?q=valid...+corriente+asp

C++
https://www.google.es/search?q=valid...riente+c%2B%2B


http://www.programacion.com/articulo...cuenta_ccc_135

en cualquier caso te serviran de guia para corregir tu script.


Analizando veo que tu al calcular los digitos de control haces

SET primer_dc = 11 - resto1;
IF primer_dc = 10 THEN
SET primer_dc = 1;
END IF;

mientras que los scripts hacen

$primer_digito_control = 11 - $resto;
if($primer_digito_control == 11) $primer_digito_control = 0;
if($primer_digito_control == 10) $primer_digito_control = 1;

tanto en el primero como en el segundo digito...

Creo que ahi tienes el error puesto que la unica posibilidad de que el digito sea 0 es que resto sea cero ... pero 11-resto nunca da cero.

Sort