Stored function de numero a letras

[dalyla]

Hola estoy haciendo un stored function para convertir numeros a letras. Encontre el codigo en esta pagina : http://r3xet.blogspot.com/2009/11/ah...ara-poder.html, la cual si la corro como tal me marca errores.

Entonces la fui modificando hasta que solo me marca un error que no entiendo :S
en la ultima linea me dice que no puedo usar '' en la linea 115 o bien la linea siguiente a la ultima.

Este es el codigo:

Código PHP:

  BEGIN 
DECLARE XlnEntero INT; 
DECLARE XlcRetorno VARCHAR(512); 
DECLARE XlnTerna INT; 
DECLARE XlcMiles VARCHAR(512); 
DECLARE XlcCadena VARCHAR(512); 
DECLARE XlnUnidades INT; 
DECLARE XlnDecenas INT; 
DECLARE XlnCentenas INT; 
DECLARE XlnFraccion INT; 
DECLARE Xresultado varchar(512); 
 
SELECT XlnEntero = FLOOR(XNumero),  
    XlnFraccion = (XNumero - XlnEntero) * 100,  
    XlcRetorno = '', XlnTerna = 1 ; 
    WHILE( XlnEntero > 0) DO 
        BEGIN /* WHILE */ 
         
        /* Recorro terna por terna*/ 
        SELECT XlcCadena = ''; 
        SELECT XlnUnidades = XlnEntero % 10; 
        SELECT XlnEntero = FLOOR(XlnEntero/10); 
        SELECT XlnDecenas = XlnEntero % 10; 
        SELECT XlnEntero = FLOOR(XlnEntero/10); 
        SELECT XlnCentenas = XlnEntero % 10; 
        SELECT XlnEntero = FLOOR(XlnEntero/10); 
 
        /* Analizo las unidades*/ 
        SELECT XlcCadena = 
            CASE /* UNIDADES */ 
                WHEN XlnUnidades = 1 AND XlnTerna = 1 THEN 'UNO ' + XlcCadena 
                WHEN XlnUnidades = 1 AND XlnTerna <> 1 THEN 'UN ' + XlcCadena 
                WHEN XlnUnidades = 2 THEN 'DOS ' + XlcCadena 
                WHEN XlnUnidades = 3 THEN 'TRES ' + XlcCadena 
                WHEN XlnUnidades = 4 THEN 'CUATRO ' + XlcCadena 
                WHEN XlnUnidades = 5 THEN 'CINCO ' + XlcCadena 
                WHEN XlnUnidades = 6 THEN 'SEIS ' + XlcCadena 
                WHEN XlnUnidades = 7 THEN 'SIETE ' + XlcCadena 
                WHEN XlnUnidades = 8 THEN 'OCHO ' + XlcCadena 
                WHEN XlnUnidades = 9 THEN 'NUEVE ' + XlcCadena 
                ELSE XlcCadena 
            END; /* UNIDADES */ 
 
        /*-- Analizo las decenas*/ 
        SELECT XlcCadena = 
            CASE /* DECENAS */ 
                WHEN XlnDecenas = 1 THEN 
                    CASE XlnUnidades 
                        WHEN 0 THEN 'DIEZ ' 
                        WHEN 1 THEN 'ONCE ' 
                        WHEN 2 THEN 'DOCE ' 
                        WHEN 3 THEN 'TRECE ' 
                        WHEN 4 THEN 'CATORCE ' 
                        WHEN 5 THEN 'QUINCE' 
                        ELSE 'DIECI' + XlcCadena 
                    END 
                WHEN XlnDecenas = 2 AND XlnUnidades = 0 THEN 'VEINTE ' + XlcCadena 
                WHEN XlnDecenas = 2 AND XlnUnidades <> 0 THEN 'VEINTI' + XlcCadena 
                WHEN XlnDecenas = 3 AND XlnUnidades = 0 THEN 'TREINTA ' + XlcCadena 
                WHEN XlnDecenas = 3 AND XlnUnidades <> 0 THEN 'TREINTA Y ' + XlcCadena 
                WHEN XlnDecenas = 4 AND XlnUnidades = 0 THEN 'CUARENTA ' + XlcCadena 
                WHEN XlnDecenas = 4 AND XlnUnidades <> 0 THEN 'CUARENTA Y ' + XlcCadena 
                WHEN XlnDecenas = 5 AND XlnUnidades = 0 THEN 'CINCUENTA ' + XlcCadena 
                WHEN XlnDecenas = 5 AND XlnUnidades <> 0 THEN 'CINCUENTA Y ' + XlcCadena 
                WHEN XlnDecenas = 6 AND XlnUnidades = 0 THEN 'SESENTA ' + XlcCadena 
                WHEN XlnDecenas = 6 AND XlnUnidades <> 0 THEN 'SESENTA Y ' + XlcCadena 
                WHEN XlnDecenas = 7 AND XlnUnidades = 0 THEN 'SETENTA ' + XlcCadena 
                WHEN XlnDecenas = 7 AND XlnUnidades <> 0 THEN 'SETENTA Y ' + XlcCadena 
                WHEN XlnDecenas = 8 AND XlnUnidades = 0 THEN 'OCHENTA ' + XlcCadena 
                WHEN XlnDecenas = 8 AND XlnUnidades <> 0 THEN 'OCHENTA Y ' + XlcCadena 
                WHEN XlnDecenas = 9 AND XlnUnidades = 0 THEN 'NOVENTA ' + XlcCadena 
                WHEN XlnDecenas = 9 AND XlnUnidades <> 0 THEN 'NOVENTA Y ' + XlcCadena 
                ELSE XlcCadena 
            END; /* DECENAS */ 
 
        /* Analizo las centenas*/ 
        SELECT XlcCadena = 
            CASE /* CENTENAS */ 
                WHEN XlnCentenas = 1 AND XlnUnidades = 0 AND XlnDecenas = 0 THEN 'CIEN ' + XlcCadena 
                WHEN XlnCentenas = 1 AND NOT(XlnUnidades = 0 AND XlnDecenas = 0) THEN 'CIENTO ' + XlcCadena 
                WHEN XlnCentenas = 2 THEN 'DOSCIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 3 THEN 'TRESCIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 4 THEN 'CUATROCIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 5 THEN 'QUINIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 6 THEN 'SEISCIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 7 THEN 'SETECIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 8 THEN 'OCHOCIENTOS ' + XlcCadena 
                WHEN XlnCentenas = 9 THEN 'NOVECIENTOS ' + XlcCadena 
                ELSE XlcCadena 
            END; /* CENTENAS */ 
 
        /* Analizo la terna*/ 
        SELECT XlcCadena = 
            CASE /* TERNA */ 
                WHEN XlnTerna = 1 THEN XlcCadena 
                WHEN XlnTerna = 2 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) THEN XlcCadena + ' MIL ' 
                WHEN XlnTerna = 3 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) AND XlnUnidades = 1 AND XlnDecenas = 0 AND XlnCentenas = 0 THEN XlcCadena + 'MILLON ' 
                WHEN XlnTerna = 3 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) AND NOT (XlnUnidades = 1 AND XlnDecenas = 0 AND XlnCentenas = 0) THEN XlcCadena + ' MILLONES ' 
                WHEN XlnTerna = 4 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) THEN XlcCadena + ' MIL MILLONES ' 
                ELSE '' 
            END; /* TERNA */ 
 
        /* Armo el retorno terna a terna */ 
        SELECT XlcRetorno = XlcCadena + XlcRetorno; 
        SELECT XlnTerna = XlnTerna + 1; 
        END; /* WHILE */ 
 
    IF XlnTerna = 1 THEN 
        SELECT XlcRetorno = 'CERO'; 
     
    SELECT Xresultado = RTRIM(XlcRetorno) + ' CON ' + LTRIM(STR(XlnFraccion,2)) + '/100 ' + XMoneda; 
 
RETURN Xresultado;  
END  
   

como estoy usando navicat para crearlo los encabezados y los parametros de entrada y salida se realizan en otro espacio, pero si tienen dudas en el link los podran ver. Estoy usando mysql 5.0.88 por si sirve de algo.
Y espero este codigo les sirva a muchos

gracias

[gnzsoloyo]

El problema es que estás tratando de usar un código para SQL Server y trasladarlo a MySQL sin tener en cuenta que los lenguajes procedurales no son compatibles entre diferentes DBMS.
No sólo sucede a nivel de ciertas funciones. Los operadores no se escriben igual en muchos casos, por lo que en realidad hay varios y problemáticos defectos en el script, si pretendes usarlo en MySQL.
Algunos casos:
1) Lo que tienes aquí es un STORED FUNCTION y no un STRORED PROCEDURE. No es lo mismo; una de las diferencias substanciales es que MySQL no admite salidas de resultados fuera del RETURN, por lo que el uso de SELECT como medio de asignación de datos es incorrecto. Otra de sus diferencias es que se debe declara, antes del BEGIN, READS SQL DATA, si vas a acceder a tablas, por ejemplo.

2) El uso de "=" para asignar un valor a una variable o un campo, sólo se produce con SET, y no con SELECT.
Para que se entienda bien:

Código MySQL:

SELECT XlcCadena = 'OCHENTA';
 

no es una asignación, sino una comparación lógica (el valor de XlcCadena con la cadena 'OCHENTA').
Así, esto:

Código MySQL:

SELECT XlcCadena =
            CASE /* UNIDADES */
                WHEN XlnUnidades = 1 AND XlnTerna = 1 THEN 'UNO ' + XlcCadena
                WHEN XlnUnidades = 1 AND XlnTerna <> 1 THEN 'UN ' + XlcCadena
                WHEN XlnUnidades = 2 THEN 'DOS ' + XlcCadena
                WHEN XlnUnidades = 3 THEN 'TRES ' + XlcCadena
                WHEN XlnUnidades = 4 THEN 'CUATRO ' + XlcCadena
                WHEN XlnUnidades = 5 THEN 'CINCO ' + XlcCadena
                WHEN XlnUnidades = 6 THEN 'SEIS ' + XlcCadena
                WHEN XlnUnidades = 7 THEN 'SIETE ' + XlcCadena
                WHEN XlnUnidades = 8 THEN 'OCHO ' + XlcCadena
                WHEN XlnUnidades = 9 THEN 'NUEVE ' + XlcCadena
                ELSE XlcCadena
            END; /* UNIDADES */
 

Es en realidad una comparación que intentará devolver un dato (TRUE o FALSE) por fuera del RETURN.

3) Esta sentencia está mal escrita:

Código MySQL:

SELECT Xresultado = RTRIM(XlcRetorno) + ' CON ' + LTRIM(STR(XlnFraccion,2)) + '/100 ' + XMoneda ;
 

En MySQL el operador "+" no está definido para crear cadenas de texto, sino sólo para operar números, por lo que dará error (es el error de la línea 115).
Para crear cadenas sobre la base de segmentos distintos, MySQL tiene una función: CONCAT():

Código MySQL:

SET xresultado = CONCAT(RTRIM(XlcRetorno), ' CON ', LTRIM(STR(XlnFraccion,2)), '/100 ', XMoneda );
 

Por último, ten cuidado con el Navicat. Suele agregar espacios entre el nombre de una función y su primer paréntesis, cosa que MySQL no admite, generando un error de sintaxis difícil de detectar.
Es decir, te transforma esto:

Código MySQL:

SET xresultado = CONCAT(RTRIM(XlcRetorno), ' CON ', LTRIM(STR(XlnFraccion,2)), '/100 ', XMoneda );
 

en esto:

Código MySQL:

SET xresultado = CONCAT (RTRIM (XlcRetorno), ' CON ', LTRIM (STR (XlnFraccion,2)), '/100 ', XMoneda );
 

Lo más difícil de detectar de este problema es que sólo se produce en tiempo de ejecución, y no al generar scripts, por lo que sólo recibes un mensaje de error que nunca puedes determinar porque todo parece estar bien...

[dalyla]

Bien gracias por la ayuda, la verdad es que si entiendo la diferencia entre procedure y function, lo que pasa es que es la primera que hago o modifico en este caso.

Pero me sirvio de mucho tu ayuda, muchas gracias y aqui esta el codigo por los interesados.

Código PHP:

   
Create FUNCTION letras(Numero NUMERIC(20,2),  XMoneda VARCHAR(100)) RETURNS VARCHAR(512) 
DETERMINISTIC 
 
BEGIN 
DECLARE XlnEntero INT; 
DECLARE XlcRetorno VARCHAR(512); 
DECLARE XlnTerna INT; 
DECLARE XlcMiles VARCHAR(512); 
DECLARE XlcCadena VARCHAR(512); 
DECLARE XlnUnidades INT; 
DECLARE XlnDecenas INT; 
DECLARE XlnCentenas INT; 
DECLARE XlnFraccion INT; 
DECLARE Xresultado varchar(512); 
 
SET XlnEntero = FLOOR(XNumero); 
SET XlnFraccion = (XNumero - XlnEntero) * 100; 
SET XlcRetorno = ''; 
SET XlnTerna = 1 ; 
    WHILE( XlnEntero > 0) DO 
 
        #Recorro terna por terna 
        SET XlcCadena = ''; 
        SET XlnUnidades = XlnEntero MOD 10; 
        SET XlnEntero = FLOOR(XlnEntero/10); 
        SET XlnDecenas = XlnEntero MOD 10; 
        SET XlnEntero = FLOOR(XlnEntero/10); 
        SET XlnCentenas = XlnEntero MOD 10; 
        SET XlnEntero = FLOOR(XlnEntero/10); 
 
        #Analizo las unidades 
        SET XlcCadena = 
            CASE # UNIDADES 
                WHEN XlnUnidades = 1 AND XlnTerna = 1 THEN CONCAT('UNO ', XlcCadena) 
                WHEN XlnUnidades = 1 AND XlnTerna <> 1 THEN CONCAT('UN ', XlcCadena) 
                WHEN XlnUnidades = 2 THEN CONCAT('DOS ', XlcCadena) 
                WHEN XlnUnidades = 3 THEN CONCAT('TRES ', XlcCadena) 
                WHEN XlnUnidades = 4 THEN CONCAT('CUATRO ', XlcCadena) 
                WHEN XlnUnidades = 5 THEN CONCAT('CINCO ', XlcCadena) 
                WHEN XlnUnidades = 6 THEN CONCAT('SEIS ', XlcCadena) 
                WHEN XlnUnidades = 7 THEN CONCAT('SIETE ', XlcCadena) 
                WHEN XlnUnidades = 8 THEN CONCAT('OCHO ', XlcCadena) 
                WHEN XlnUnidades = 9 THEN CONCAT('NUEVE ', XlcCadena) 
                ELSE XlcCadena 
            END; #UNIDADES 
 
        #Analizo las decenas 
        SET XlcCadena = 
            CASE #DECENAS 
                WHEN XlnDecenas = 1 THEN 
                    CASE XlnUnidades 
                        WHEN 0 THEN 'DIEZ ' 
                        WHEN 1 THEN 'ONCE ' 
                        WHEN 2 THEN 'DOCE ' 
                        WHEN 3 THEN 'TRECE ' 
                        WHEN 4 THEN 'CATORCE ' 
                        WHEN 5 THEN 'QUINCE' 
                        ELSE CONCAT('DIECI', XlcCadena) 
                    END 
                WHEN XlnDecenas = 2 AND XlnUnidades = 0 THEN CONCAT('VEINTE ', XlcCadena) 
                WHEN XlnDecenas = 2 AND XlnUnidades <> 0 THEN CONCAT('VEINTI', XlcCadena) 
                WHEN XlnDecenas = 3 AND XlnUnidades = 0 THEN CONCAT('TREINTA ', XlcCadena) 
                WHEN XlnDecenas = 3 AND XlnUnidades <> 0 THEN CONCAT('TREINTA Y ', XlcCadena) 
                WHEN XlnDecenas = 4 AND XlnUnidades = 0 THEN CONCAT('CUARENTA ', XlcCadena) 
                WHEN XlnDecenas = 4 AND XlnUnidades <> 0 THEN CONCAT('CUARENTA Y ', XlcCadena) 
                WHEN XlnDecenas = 5 AND XlnUnidades = 0 THEN CONCAT('CINCUENTA ', XlcCadena) 
                WHEN XlnDecenas = 5 AND XlnUnidades <> 0 THEN CONCAT('CINCUENTA Y ', XlcCadena) 
                WHEN XlnDecenas = 6 AND XlnUnidades = 0 THEN CONCAT('SESENTA ', XlcCadena) 
                WHEN XlnDecenas = 6 AND XlnUnidades <> 0 THEN CONCAT('SESENTA Y ', XlcCadena) 
                WHEN XlnDecenas = 7 AND XlnUnidades = 0 THEN CONCAT('SETENTA ', XlcCadena) 
                WHEN XlnDecenas = 7 AND XlnUnidades <> 0 THEN CONCAT('SETENTA Y ', XlcCadena) 
                WHEN XlnDecenas = 8 AND XlnUnidades = 0 THEN CONCAT('OCHENTA ', XlcCadena) 
                WHEN XlnDecenas = 8 AND XlnUnidades <> 0 THEN CONCAT('OCHENTA Y ', XlcCadena) 
                WHEN XlnDecenas = 9 AND XlnUnidades = 0 THEN CONCAT('NOVENTA ', XlcCadena) 
                WHEN XlnDecenas = 9 AND XlnUnidades <> 0 THEN CONCAT('NOVENTA Y ', XlcCadena) 
                ELSE XlcCadena 
            END; #DECENAS 
 
        # Analizo las centenas 
        SET XlcCadena = 
            CASE # CENTENAS 
                WHEN XlnCentenas = 1 AND XlnUnidades = 0 AND XlnDecenas = 0 THEN CONCAT('CIEN ', XlcCadena) 
                WHEN XlnCentenas = 1 AND NOT(XlnUnidades = 0 AND XlnDecenas = 0) THEN CONCAT('CIENTO ', XlcCadena) 
                WHEN XlnCentenas = 2 THEN CONCAT('DOSCIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 3 THEN CONCAT('TRESCIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 4 THEN CONCAT('CUATROCIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 5 THEN CONCAT('QUINIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 6 THEN CONCAT('SEISCIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 7 THEN CONCAT('SETECIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 8 THEN CONCAT('OCHOCIENTOS ', XlcCadena) 
                WHEN XlnCentenas = 9 THEN CONCAT('NOVECIENTOS ', XlcCadena) 
                ELSE XlcCadena 
            END; #CENTENAS 
 
        # Analizo la terna 
        SET XlcCadena = 
            CASE # TERNA 
                WHEN XlnTerna = 1 THEN XlcCadena 
                WHEN XlnTerna = 2 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) THEN CONCAT(XlcCadena,  'MIL ') 
                WHEN XlnTerna = 3 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) AND XlnUnidades = 1 AND XlnDecenas = 0 AND XlnCentenas = 0 THEN CONCAT(XlcCadena, 'MILLON ') 
                WHEN XlnTerna = 3 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) AND NOT (XlnUnidades = 1 AND XlnDecenas = 0 AND XlnCentenas = 0) THEN CONCAT(XlcCadena, 'MILLONES ') 
                WHEN XlnTerna = 4 AND (XlnUnidades + XlnDecenas + XlnCentenas <> 0) THEN CONCAT(XlcCadena, 'MIL MILLONES ') 
                ELSE '' 
            END; #TERNA 
 
        #Armo el retorno terna a terna 
        SET XlcRetorno = CONCAT(XlcCadena, XlcRetorno); 
        SET XlnTerna = XlnTerna + 1; 
    END WHILE; # WHILE 
 
    IF XlnTerna = 1 THEN SET XlcRetorno = 'CERO'; END IF; 
 
SET Xresultado = CONCAT(RTRIM(XlcRetorno), ' CON ', LTRIM(XlnFraccion), '/100 ', XMoneda); 
 
RETURN Xresultado; 
 
END  
   

Espero que el encabezado este bien ya que a final de cuentas lo termine con navicar

y gracias por tu ayuda, sin eso no creo haberlo terminado muchas gracias de veras.

[gnzsoloyo]