CESAR
28 de Octubre del 2009

Hola a todos, solo quiero pedir un favor, Cual es el codigo para transformar numeros en Letras

Gracias

anibal perez tenorio
28 de Octubre del 2009

te enviaré por correo.
escribeme
es como transformar montos en letras para la facturación.

marco23
28 de Octubre del 2009

hola cesar tu mensaje es de algunos años no sesi te conectas aun crees que me puedas enviar un ejemplo de esos a mi correo [email protected]

julio
28 de Octubre del 2009

*// Convierte Numeros en Letras (Español)
function letesp(nMonNumero)
a9='Un Dos Tres CuatroCinco Seis Siete Ocho Nueve '
b9='Once Doce Trece Catorce Quince Dieciseis DiecisieteDieciocho Diecinueve'
c9='Veinti Treinta Cuarenta CincuentaSesenta Setenta Ochenta Noventa '
d9='Ciento Doscientos Trescientos CuatrocientosQuinientos Seiscientos Setecientos Ochocientos Novecientos '
monlet1=' '
cantidad=INT(nMonNumero)
decimal=nMonNumero-cantidad
IF cantidad<>0
IF INT(cantidad/1000000)>0
i=0
valor=INT(cantidad/1000000)
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ENDIF
IF INT(cantidad/1000)>0
i=1
valor=INT(cantidad/1000)
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))+' '
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ENDIF
i=2
valor=cantidad
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))+' '
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ELSE
monlet1=monlet1+'Cero '
ENDIF
decimal=decimal*100
dec=str(decimal,2)
IF decimal>0 .AND. decimal<10
dec='0'+ltrim(dec)
ENDIF
IF decimal=0
dec='00'
ENDIF
Rele nMonNumero
monlet1 = monlet1+'con '+dec+'/100'+[ Ctmos.]
return(monlet1)

CJESUCU
28 de Octubre del 2009

Lei demasiado tarde tu mensaje. Avisame si aun estas interesado para enviarte un programa que se ha utilizado con exito por mas de tres años.

Anita
28 de Octubre del 2009

!Hola sabes yo tambien estoy interesada en la rutina de numeros a letars, crees que podrìas enviar tu programa, te lo agradecerè.
ah por casualidad tendras algo sobre codigos de barras pues estoy desarrollando un programa de contro de inventarios y lo necesito.
mucho gusto y de antemano mil gracias.