Funcion Numeros a Letras

[armandomuozsule]

Buena noche comparto una funcion que me sirvio para aplicarla en un campo de usuario que trae el total de la factura, esto me sirvio para un campo que requeria para un addon de factura electronica.

ejemplo:

SELECT DB_Util.dbo.NumeroEnLetra(CONVERT(NUMERIC,a.DocTotalFC))  FROM oinv a

WHERE a.DocEntry =$[OINV.DocEntry]

--CREATE FUNCTION NumeroEnLetra(@NumeroAProcesar as varchar(30))

create FUNCTION NumeroEnLetra(@NumeroAProcesar as varchar(30)) 

RETURNS varchar(500) AS

BEGIN 

DECLARE @Numero bigint

DECLARE @Decimal varchar(30)

DECLARE @Texto varchar(500)

DECLARE @EstiloMillares bit

SELECT @Texto=''

/* Obtenemos parte entera */

IF patindex('%.%', @NumeroAProcesar)>0

BEGIN

SELECT @Numero=LEFT(@NumeroAProcesar, 

patindex('%.%', @NumeroAProcesar)-1)

END

ELSE

BEGIN

SELECT @Numero=CONVERT(bigint, @NumeroAProcesar)

END

SELECT @EstiloMillares=CONVERT(bit,LEN(@Numero)-7)

/* Proceso número negativos */

IF @Numero<0

BEGIN 

SELECT @Texto='menos ' 

SELECT @Numero=ABS(@Numero)

END

/* Proceso parte entera */

SELECT @Texto= @Texto +

CASE 

WHEN @Numero=1000000 THEN 'MILLON'

WHEN @Numero>1000000 AND @Numero<1000000000000 THEN 

dbo.F_Millares(

LEFT(CONVERT(varchar, @Numero), LEN(@Numero)-6), 

@EstiloMillares) +

' MILLONES ' +

dbo.F_Millares(RIGHT(CONVERT(varchar, @Numero), 6), 1)

WHEN @Numero<10 THEN dbo.F_Unidades(@Numero, 0)

WHEN @Numero<100 THEN dbo.F_Decenas(@Numero, 1)

WHEN @Numero<1000 THEN dbo.F_Centenas(@Numero, 1)

WHEN @Numero<1000000 THEN dbo.F_Millares(@Numero, 1)

END

/* Proceso parte decimal */

IF patindex('%.%', @NumeroAProcesar)>0

BEGIN

SELECT @Decimal=

RIGHT(@NumeroAProcesar, 

LEN(@NumeroAProcesar)-patindex('%.%', @NumeroAProcesar))

SELECT @Numero=@Decimal

SELECT @Texto= @Texto + 'CON ' +

CASE 

WHEN @Numero=1000000 THEN 'MILLON'

WHEN @Numero>1000000 AND @Numero<1000000000000 THEN 

dbo.F_Millares(

LEFT(CONVERT(varchar, @Numero), LEN(@Numero)-6), 

@EstiloMillares) +

' MILLONES ' + 

dbo.F_Millares(RIGHT(CONVERT(varchar, @Numero), 6), 1)

WHEN @Numero<10 THEN dbo.F_Unidades(@Numero, 0)

WHEN @Numero<100 THEN dbo.F_Decenas(@Numero, 1)

WHEN @Numero<1000 THEN dbo.F_Centenas(@Numero, 1)

WHEN @Numero<1000000 THEN dbo.F_Millares(@Numero, 1)

END

SELECT @Texto = @Texto +

CASE 

WHEN LEN(@Decimal)=1 THEN ' CENTAVOS DE DOLAR'

WHEN LEN(@Decimal)=2 THEN ' CENTAVOS DE DOLAR'

WHEN LEN(@Decimal)=3 THEN ' CENTAVOS DE DOLAR'

END

END

RETURN @Texto

END 

go

--En el proceso principal se delega el procesado de la parte entera y decimal de un número en las funciones de apoyo. 

--Función para unidades 

--Función que devuelve en letra las unidades. El párametro @Estilo permite identificar los distintos valores que puede tener un mismo número. 

--Figura 2. 

--CREATE FUNCTION F_Unidades(@Numero as bigint, @Estilo as bit=0) 

create FUNCTION F_Unidades(@Numero as bigint, @Estilo as bit=0) 

RETURNS varchar(500) AS 

BEGIN 

DECLARE @Texto varchar(500)

SELECT @Texto=''

SELECT @Texto=

CASE 

WHEN @Numero=0 THEN 'CERO '

WHEN @Numero=1 THEN 'UNO '

WHEN @Numero=2 AND @Estilo=0 THEN 'DOS '

WHEN @Numero=2 AND @Estilo=1 THEN 'DOS '

WHEN @Numero=3 AND @Estilo=0 THEN 'TRES '

WHEN @Numero=3 AND @Estilo=1 THEN 'TRES '

WHEN @Numero=4 THEN 'CUATRO '

WHEN @Numero=5 THEN 'CINCO '

WHEN @Numero=6 AND @Estilo=0 THEN 'SEIS '

WHEN @Numero=6 AND @Estilo=1 THEN 'SEIS '

WHEN @Numero=7 THEN 'SIETE '

WHEN @Numero=8 THEN 'OCHO '

WHEN @Numero=9 AND @Estilo=0 THEN 'NUEVE '

WHEN @Numero=9 AND @Estilo=1 THEN 'NOVE '

END

RETURN @Texto

END 

go

--Función para decenas 

--Función que devuelve en letra las decenas. El párametro @Estilo permite identificar los distintos valores que puede tener un mismo número. 

--Figura 3. 

---CREATE FUNCTION F_Decenas(@Numero as bigint, @Estilo as bit=0) 

create FUNCTION F_Decenas(@Numero as bigint, @Estilo as bit=0) 

RETURNS varchar(500) AS 

BEGIN 

DECLARE @Texto varchar(500)

SELECT @Texto=''

SELECT @Texto= 

CASE 

WHEN @Numero=0 THEN ' '

WHEN @Numero=10 THEN 'DIEZ '

WHEN @Numero=11 THEN 'ONCE '

WHEN @Numero=12 THEN 'DOCE '

WHEN @Numero=13 THEN 'TRECE '

WHEN @Numero=14 THEN 'CATORCE '

WHEN @Numero=15 THEN 'QUINCE '

WHEN @Numero>15 and @Numero<19 THEN 'DIECI' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 1)

WHEN @Numero=19 THEN 'DIECINUEVE'

WHEN @Numero=20 THEN 'VEINTE'

WHEN @Numero>20 and @Numero<30 THEN 'VEINTI' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 1)

WHEN @Numero=30 THEN 'TREINTA'

WHEN @Numero>30 and @Numero<40 THEN 'TREINTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=40 THEN 'CUARENTA'

WHEN @Numero>40 and @Numero<50 THEN 'CUARENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=50 THEN 'CINCUENTA'

WHEN @Numero>50 and @Numero<60 THEN 'CINCUENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=60 THEN 'SESENTA'

WHEN @Numero>60 and @Numero<70 THEN 'SESENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=70 THEN 'SETENTA'

WHEN @Numero>70 and @Numero<80 THEN 'SETENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=80 THEN 'OCHENTA'

WHEN @Numero>80 and @Numero<90 THEN 'OCHENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero=90 THEN 'NOVENTA'

WHEN @Numero>90 and @Numero<100 THEN 'NOVENTA Y ' + 

dbo.F_Unidades(RIGHT(CONVERT(varchar, @Numero), 1), 0)

WHEN @Numero<10 THEN dbo.F_Unidades(@Numero, @Estilo)

END

RETURN @Texto

END 

go

--Función para centenas 

--Función que devuelve en letra las centenas. El párametro @Estilo permite identificar los distintos valores que puede tener un mismo número. 

--Figura 4. 

--CREATE FUNCTION F_Centenas(@Numero as bigint, @Estilo as bit=0) 

create FUNCTION F_Centenas(@Numero as bigint, @Estilo as bit=0) 

RETURNS varchar(500) AS 

BEGIN 

DECLARE @Texto varchar(500)

SELECT @Texto=''

SELECT @Texto=

CASE 

WHEN @Numero=000 THEN ' '

WHEN @Numero=100 THEN 'CIEN'

WHEN @Numero>100 and @Numero<200 THEN 'CIENTO ' + 

dbo.F_Decenas(RIGHT(CONVERT(varchar, @Numero), 2), 0)

WHEN (@Numero>=200 and @Numero<500) or 

(@Numero>500 and @Numero<1000) THEN 

dbo.F_Decenas(LEFT(CONVERT(varchar, @Numero), 1), 1) + 

'CIENTOS ' + 

dbo.F_Decenas(RIGHT(CONVERT(varchar, @Numero), 2), 1)

WHEN @Numero=500 THEN 'QUINIENTOS'

WHEN @Numero<10 THEN dbo.F_Unidades(@Numero, 0)

WHEN @Numero<100 THEN dbo.F_Decenas(@Numero, @Estilo)

END

RETURN @Texto

END 

go

--Función para millares 

---Función que devuelve en letra los millares. El párametro @Estilo permite identificar los distintos valores que puede tener un mismo número. 

---Figura 5. 

--CREATE FUNCTION F_Millares(@Numero as bigint, @Estilo as bit=0) 

create FUNCTION F_Millares(@Numero as bigint, @Estilo as bit=0) 

RETURNS varchar(500) AS 

BEGIN 

DECLARE @Texto varchar(500)

DECLARE @EstiloCentenas bit

SELECT @EstiloCentenas=CONVERT(bit,LEN(@Numero)-4)

SELECT @Texto=

CASE 

WHEN @Numero=0000 THEN ' '

WHEN @Numero=1000 THEN 'MIL'

WHEN @Numero>1000 and @Numero<2000 THEN 'MIL ' + 

dbo.F_Centenas(RIGHT(CONVERT(varchar, @Numero), 3), 1)

WHEN @Numero>2000 and @Numero<1000000 THEN 

dbo.F_Centenas(LEFT(CONVERT(varchar, @Numero), LEN(@Numero)-3), 

@EstiloCentenas) + 

' MIL ' + 

dbo.F_Centenas(RIGHT(CONVERT(varchar, @Numero), 3), 1)

WHEN @Numero<1000 THEN dbo.F_Centenas(@Numero, @Estilo)

WHEN @Numero<10 THEN dbo.F_Unidades(@Numero, 0)

WHEN @Numero<100 THEN dbo.F_Decenas(@Numero, @Estilo)

WHEN @Numero<1000 THEN dbo.F_Centenas(@Numero, @Estilo)

END

RETURN @Texto

END