SQL - Monto Escrito SQL

Quisiera conocer si me pueden enviar una rutina de monto escrito para SQL

¿1250.00 = UN MIL DOSCIENTOS CINCUENTA?

¿Que motor de base de datos ocupas?

Gracias Isaias, estoy usando Oracle pero me sirve una guia en cualquier SQL y poder probar para ver como se porta

Gracias

SQL SERVER (Microsoft), cualquier duda, me lo dices y tal vez hagamos algo para Oracle:

CREATE PROCEDURE sp_Num2Let @Numero NUMERIC(20,2) AS
BEGIN
SET NOCOUNT ON
DECLARE @lnEntero INT,
@lcRetorno VARCHAR(512),
@lnTerna INT,
@lcMiles VARCHAR(512),
@lcCadena VARCHAR(512),
@lnUnidades INT,
@lnDecenas INT,
@lnCentenas INT,
@lnFraccion INT
SELECT @lnEntero = CAST(@Numero AS INT),
@lnFraccion = (@Numero - @lnEntero) * 100,
@lcRetorno = '',
@lnTerna = 1
WHILE @lnEntero > 0
BEGIN /* WHILE */
-- Recorro terna por terna
SELECT @lcCadena = ''
SELECT @lnUnidades = @lnEntero % 10
SELECT @lnEntero = CAST(@lnEntero/10 AS INT)
SELECT @lnDecenas = @lnEntero % 10
SELECT @lnEntero = CAST(@lnEntero/10 AS INT)
SELECT @lnCentenas = @lnEntero % 10
SELECT @lnEntero = CAST(@lnEntero/10 AS INT)
-- Analizo las unidades
SELECT @lcCadena =
CASE /* UNIDADES */
WHEN @lnUnidades = 1 AND @lnTerna = 1 THEN 'UNO ' + @lcCadena
WHEN @lnUnidades = 1 AND @lnTerna <> 1 THEN 'UN ' + @lcCadena
WHEN @lnUnidades = 2 THEN 'DOS ' + @lcCadena
WHEN @lnUnidades = 3 THEN 'TRES ' + @lcCadena
WHEN @lnUnidades = 4 THEN 'CUATRO ' + @lcCadena
WHEN @lnUnidades = 5 THEN 'CINCO ' + @lcCadena
WHEN @lnUnidades = 6 THEN 'SEIS ' + @lcCadena
WHEN @lnUnidades = 7 THEN 'SIETE ' + @lcCadena
WHEN @lnUnidades = 8 THEN 'OCHO ' + @lcCadena
WHEN @lnUnidades = 9 THEN 'NUEVE ' + @lcCadena
ELSE @lcCadena
END /* UNIDADES */
-- Analizo las decenas
SELECT @lcCadena =
CASE /* DECENAS */
WHEN @lnDecenas = 1 THEN
CASE @lnUnidades
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' + @lcCadena
END
WHEN @lnDecenas = 2 AND @lnUnidades = 0 THEN 'VEINTE ' + @lcCadena
WHEN @lnDecenas = 2 AND @lnUnidades <> 0 THEN 'VEINTI' + @lcCadena
WHEN @lnDecenas = 3 AND @lnUnidades = 0 THEN 'TREINTA ' + @lcCadena
WHEN @lnDecenas = 3 AND @lnUnidades <> 0 THEN 'TREINTA Y ' + @lcCadena
WHEN @lnDecenas = 4 AND @lnUnidades = 0 THEN 'CUARENTA ' + @lcCadena
WHEN @lnDecenas = 4 AND @lnUnidades <> 0 THEN 'CUARENTA Y ' + @lcCadena
WHEN @lnDecenas = 5 AND @lnUnidades = 0 THEN 'CINCUENTA ' + @lcCadena
WHEN @lnDecenas = 5 AND @lnUnidades <> 0 THEN 'CINCUENTA Y ' + @lcCadena
WHEN @lnDecenas = 6 AND @lnUnidades = 0 THEN 'SESENTA ' + @lcCadena
WHEN @lnDecenas = 6 AND @lnUnidades <> 0 THEN 'SESENTA Y ' + @lcCadena
WHEN @lnDecenas = 7 AND @lnUnidades = 0 THEN 'SETENTA ' + @lcCadena
WHEN @lnDecenas = 7 AND @lnUnidades <> 0 THEN 'SETENTA Y ' + @lcCadena
WHEN @lnDecenas = 8 AND @lnUnidades = 0 THEN 'OCHENTA ' + @lcCadena
WHEN @lnDecenas = 8 AND @lnUnidades <> 0 THEN 'OCHENTA Y ' + @lcCadena
WHEN @lnDecenas = 9 AND @lnUnidades = 0 THEN 'NOVENTA ' + @lcCadena
WHEN @lnDecenas = 9 AND @lnUnidades <> 0 THEN 'NOVENTA Y ' + @lcCadena
ELSE @lcCadena
END /* DECENAS */

-- Analizo las centenas
SELECT @lcCadena =
CASE /* CENTENAS */
WHEN @lnCentenas = 1 AND @lnUnidades = 0 AND @lnDecenas = 0 THEN 'CIEN ' + @lcCadena
WHEN @lnCentenas = 1 AND NOT(@lnUnidades = 0 AND @lnDecenas = 0) THEN 'CIENTO ' + @lcCadena
WHEN @lnCentenas = 2 THEN 'DOSCIENTOS ' + @lcCadena
WHEN @lnCentenas = 3 THEN 'TRESCIENTOS ' + @lcCadena
WHEN @lnCentenas = 4 THEN 'CUATROCIENTOS ' + @lcCadena
WHEN @lnCentenas = 5 THEN 'QUINIENTOS ' + @lcCadena
WHEN @lnCentenas = 6 THEN 'SEISCIENTOS ' + @lcCadena
WHEN @lnCentenas = 7 THEN 'SETECIENTOS ' + @lcCadena
WHEN @lnCentenas = 8 THEN 'OCHOCIENTOS ' + @lcCadena
WHEN @lnCentenas = 9 THEN 'NOVECIENTOS ' + @lcCadena
ELSE @lcCadena
END /* CENTENAS */
-- Analizo la terna
SELECT @lcCadena =
CASE /* TERNA */
WHEN @lnTerna = 1 THEN @lcCadena
WHEN @lnTerna = 2 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) THEN @lcCadena + ' MIL '
WHEN @lnTerna = 3 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) AND
@lnUnidades = 1 AND @lnDecenas = 0 AND @lnCentenas = 0 THEN @lcCadena + ' MILLON '
WHEN @lnTerna = 3 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) AND
NOT (@lnUnidades = 1 AND @lnDecenas = 0 AND @lnCentenas = 0) THEN @lcCadena + ' MILLONES '
WHEN @lnTerna = 4 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) THEN @lcCadena + ' MIL MILLONES '
ELSE ''
END /* TERNA */
-- Armo el retorno terna a terna
SELECT @lcRetorno = @lcCadena + @lcRetorno
SELECT @lnTerna = @lnTerna + 1
END /* WHILE */
IF @lnTerna = 1
SELECT @lcRetorno = 'CERO'
SELECT RTRIM(@lcRetorno) + ' CON ' + LTRIM(STR(@lnFraccion,2)) + '/100'
END

GO

Muchas gracias, funcionó perfecto.

Hola Isaias, traté de probar en Oracle y tuve que cambiar algunas cosas y no me funciona podrías echarme una ayudita con esa rutina.

Indicame la rutina, te digo que hace y lo traduces a oracle

Hola, yo lo necesitaba para ORacle 10g, entonces lo "traducí", algunos montos me los esta dando con cierto grado de inexactitud, como que me repite la palabra millones, pero si alguien lo necesita y quiere usarlo aqui esta.

FUNCTION MONTOLETRASF
(
PMONTO IN NUMBER
) return varchar2

IS
Begin
DECLARE
lnEntero INT;
lcRetorno VARCHAR2(512);
lnTerna INT;
lcMiles VARCHAR2(512);
lcCadena VARCHAR2(512);
lnUnidades INT;
lnDecenas INT;
lnCentenas INT;
lnFraccion INT;

BEGIN

lnTerna := 1;
lnEntero := PMONTO;
lnFraccion := (PMONTO - lnEntero) * 100;
lcRetorno := '';


WHILE lnEntero > 0 Loop

lcCadena := '';
-- Recorro terna por terna
lnUnidades := MOD(lnEntero, 10);
lnEntero := TRUNC(lnEntero/10);
lnDecenas := MOD(lnEntero, 10);
lnEntero := TRUNC(lnEntero/10);
lnCentenas := MOD(lnEntero, 10);
lnEntero := TRUNC(lnEntero/10);

-- Analizo las unidades
lcCadena :=
CASE lnUnidades /* UNIDADES */
WHEN 1 then
CASE lnTerna
WHEN 1 THEN
'UNO ' || lcCadena
ELSE
'UN ' || lcCadena
END
WHEN 2 THEN 'DOS ' || lcCadena
WHEN 3 THEN 'TRES ' || lcCadena
WHEN 4 THEN 'CUATRO ' || lcCadena
WHEN 5 THEN 'CINCO ' || lcCadena
WHEN 6 THEN 'SEIS ' || lcCadena
WHEN 7 THEN 'SIETE ' || lcCadena
WHEN 8 THEN 'OCHO ' || lcCadena
WHEN 9 THEN 'NUEVE ' || lcCadena
ELSE lcCadena
END ; /* UNIDADES */

-- Analizo las decenas
lcCadena :=
CASE lnDecenas /* DECENAS */
WHEN 1 THEN
CASE lnUnidades
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' || lcCadena
END
WHEN 2 THEN
CASE lnUnidades
WHEN 0 THEN 'VEINTE ' || lcCadena
ELSE 'VEINTI' || lcCadena
END

WHEN 3 THEN
CASE lnUnidades
WHEN 0 THEN 'TREINTA ' || lcCadena
ELSE 'TREINTA Y ' || lcCadena
END
WHEN 4 THEN
CASE lnUnidades
WHEN 0 THEN 'CUARENTA ' || lcCadena
ELSE 'CUARENTA Y ' || lcCadena
END
WHEN 5 THEN
CASE lnUnidades
WHEN 0 THEN 'CINCUENTA ' || lcCadena
ELSE 'CINCUENTA Y ' || lcCadena
END
WHEN 6 THEN
CASE lnUnidades
WHEN 0 THEN 'SESENTA ' || lcCadena
ELSE 'SESENTA Y ' || lcCadena
END
WHEN 7 THEN
CASE lnUnidades
WHEN 0 THEN 'SETENTA ' || lcCadena
ELSE 'SETENTA Y ' || lcCadena
END
WHEN 8 THEN
CASE lnUnidades
WHEN 0 THEN 'OCHENTA ' || lcCadena
ELSE 'OCHENTA Y ' || lcCadena
END
WHEN 9 THEN
CASE lnUnidades
WHEN 0 THEN 'NOVENTA ' || lcCadena
ELSE 'NOVENTA Y ' || lcCadena
END
ELSE lcCadena
end;

-- Analizo las centenas
lcCadena :=
CASE lnCentenas /* CENTENAS */
WHEN 1 THEN
CASE
WHEN (lnUnidades = 0 and lnDecenas = 0) then
'CIEN ' || lcCadena
WHEN (lnUnidades = 0 and lnDecenas <> 0) then
'CIENTO ' || lcCadena
ELSE ''
END

WHEN 2 THEN 'DOSCIENTOS ' || lcCadena
WHEN 3 THEN 'TRESCIENTOS ' || lcCadena
WHEN 4 THEN 'CUATROCIENTOS ' || lcCadena
WHEN 5 THEN 'QUINIENTOS ' || lcCadena

WHEN 6 THEN 'SEISCIENTOS ' || lcCadena
WHEN 7 THEN 'SETECIENTOS ' || lcCadena
WHEN 8 THEN 'OCHOCIENTOS ' || lcCadena
WHEN 9 THEN 'NOVECIENTOS ' || lcCadena
ELSE lcCadena
END ; /* CENTENAS */


-- Analizo la terna
lcCadena :=
CASE lnTerna /* TERNA */
WHEN 1 THEN
lcCadena

WHEN 2 THEN
CASE (lnUnidades + lnDecenas + lnCentenas)
WHEN 0 then
lcCadena

ELSE lcCadena || ' MIL '
END

WHEN 3 THEN
case
when (lnUnidades + lnDecenas + lnCentenas) <> 0 AND
lnUnidades = 1 AND lnDecenas = 0 AND lnCentenas = 0 THEN
lcCadena || ' MILLON '

else case
when (lnUnidades + lnDecenas + lnCentenas) <> 0 AND
NOT (lnUnidades = 1 AND lnDecenas = 0 AND lnCentenas = 0 ) THEN
lcCadena || ' MILLONES '
else lcCadena
end

end

WHEN 4 THEN
case (lnUnidades + lnDecenas + lnCentenas )
WHEN 0 THEN
lcCadena
ELSE
lcCadena || ' MIL MILLONES '
END

ELSE lcCadena

END; /* TERNA */


-- Armo el retorno terna a terna
lcRetorno := lcCadena || lcRetorno;
lnTerna := lnTerna + 1;
dbms_output.put_line(lcCadena);
END Loop; /* WHILE */


IF lnTerna = 1 then
lcRetorno := 'CERO';
else
lcRetorno := RTRIM(lcRetorno);
lcRetorno := lcRetorno || ' CON ' || lnFraccion || '/100';
end if;


--PMONTOLETRAS := RTRIM(lcRetorno);
return RTRIM(lcRetorno);

END;
END;

Muchas gracias la probaré y te aviso