RE:CONVERSION DE NUMEROS A LETRAS
*****************************************************************
* PROCEDIMIENTO PARA CONVERTIR NUMERO EN LETRAS HASTA 9 DIGITOS *
*****************************************************************
PROCEDURE CONVNUME
PUBLIC UNIDAD1
PUBLIC UNIDAD2
PUBLIC UNIDAD3
PUBLIC ESPECIAL
PUBLIC NRO
PUBLIC CIC
UNIDAD3="Un Dos Tres Cuatro "
UNIDAD3=UNIDAD3+"Cinco Seis Siete "
UNIDAD3=UNIDAD3+"Ocho Nueve "
UNIDAD2=" Veinte Treinta Cuarenta "
UNIDAD2=UNIDAD2+"Cincuenta Sesenta Setenta "
UNIDAD2=UNIDAD2+"Ochenta Noventa "
UNIDAD1="Cien Doscientos Trescientos Cuatrocientos"
UNIDAD1=UNIDAD1+"Quinientos Seiscientos Setecientos "
UNIDAD1=UNIDAD1+"Ochocientos Novecientos "
ESPECIAL="Diez Once Doce Trece "
ESPECIAL=ESPECIAL+"Catorce Quince Dieciseis "
ESPECIAL=ESPECIAL+"Diecisiete Dieciocho Diecinueve "
PUBLIC LIKI
STORE 0 to LIKI
LIKI=m.num
nu = str(m.num)
LIK=STR(LIKI,9)
SON=" "
PRIMER=SUBSTR(LIK,1,3)
SEGUNDO=SUBSTR(LIK,4,3)
TERCER=SUBSTR(LIK,7,3)
NRO=PRIMER
IF VAL(NRO)>0
DO CICLO
IF VAL(NRO)>1
SON=SON+" Millones "
ELSE
SON=SON+" Millón "
ENDIF
ENDIF
NRO=SEGUNDO
IF VAL(NRO) > 0
DO CICLO
SON=SON+"Mil "
ENDIF
NRO=TERCER
IF VAL(NRO) > 0
DO CICLO
ENDIF
IF LIKI=1
SON=SON&&+"Guaraní"
ELSE
IF LIKI=0
SON="Cero"
ENDIF
ENDIF
DO GRABARCH
RETURN