Números en formato de Letras

Si, necesitas una rutina (. Prg) que "llames" en uno de los campos de los informes.
Te mando uno:
(No es del 100% de mi autoría, pero ya está funcionando perfectamente).
Para llamarlo pones:
Numletra(12334)
NUMLETRA. PRG:
--------------------
PARAMETER tnNumero
Local tlEuro, tnDecimales
tlEuro = .t.
tnDecimales = 2
LOCAL lnEntero, lnFraccion,lcRet
lcret = ''
IF PCOUNT()<2
tlEuro = .T.
ENDIF
IF tnNumero<0
lcret = 'MENOS '
tnNumero=ABS(tnNumero)
ENDIF
IF type("tnDecimales") = "L"
tnDecimales = 2
ENDIF
lnEntero = INT(tnNumero)
lnFraccion = INT((tnNumero - lnEntero) * 10^tndecimales)
lcret = lcret+N2L(lnEntero, .T., tlEuro) + IIF(MOD(lnEntero,1000000)=0 AND lnEntero > 0,' DE ','')+;
IIF(tlEuro,IIF(lnEntero=1,'UN PESO ','PESOS '),IIF(lnEntero=1,'UNA PESETA','PESETAS'))+;
IIF(LnFraccion>0,ALLT(STR(lnFraccion)) + '/100','00/100') + ' M.N.'
RETURN lcret
***********************************************************************
**************************************************
*--------------------------------
* FUNCTION N2L(tnNro, tlBandera, tlMasculino)
*--------------------------------
* Convierte un número entero en letras
* Usada por Let2Num (deben estar ambas)
* USO: ? N2L(1032) -> "MIL TREINTA Y DOS"
* PARAMETROS: lnNro = Número a convertir
* : tlBandera (solo para diferenciar cuando retorna "UNO" o "UN")
* : tlMasculino (para diferenciar si la moneda es genero masculino .T. / femenino .F.)
* RETORNA: Caracter
* AUTOR: LMG
* modificada por Juan Encinar, Oscar Farina, Pablo Roca 27/12/2001
*--------------------------------
FUNCTION N2L(tnNro, tlBandera, tlMasculino)
LOCAL lnEntero, lcRetorno, lnTerna, lcMiles, ;
lcCadena, lnUnidades, lnDecenas, lnCentenas,lcCadena2
lcCadena2 = ''
lnEntero = INT(tnNro)
lcRetorno = ''
lnTerna = 1
DO WHILE lnEntero > 0
lcCadena = ''
lnUnidades = MOD(lnEntero, 10)
lnEntero = INT(lnEntero / 10)
lnDecenas = MOD(lnEntero, 10)
lnEntero = INT(lnEntero / 10)
lnCentenas = MOD(lnEntero, 10)
lnEntero = INT(lnEntero / 10)
*--- Analizo la terna
DO CASE
CASE lnTerna = 1
lcMiles = ''
CASE lnTerna = 2 AND (lnUnidades+lnDecenas+lnCentenas # 0)
lcMiles = 'MIL '
CASE lnTerna = 3
lcMiles = IIF(lnUnidades = 1 AND lnDecenas = 0 AND ;
lnCentenas = 0, 'UN MILLON ', 'MILLONES ')
CASE lnTerna = 4 AND (lnUnidades+lnDecenas+lnCentenas # 0)
lcMiles = 'MIL '
CASE lnTerna = 5 AND (lnUnidades+lnDecenas+lnCentenas # 0)
lcMiles = IIF(lnUnidades = 1 AND lnDecenas = 0 AND ;
lnCentenas = 0, 'BILLON ', 'BILLONES ')
CASE lnTerna > 5
lcRetorno = ' ERROR: NUMERO DEMASIADO GRANDE '
EXIT
ENDCASE
*--- Analizo las unidades
DO CASE
CASE lnUnidades = 1
IF !(allt(str(tnNro)) $ "100,1000,1000000,1000000000")
IF tlMasculino
lcCadena = IIF(lnTerna = 1 AND NOT tlBandera, 'UNO ', IIF(lnCentenas#0 or lnDecenas#0,'UN ',' '))
ELSE
if lnterna = 1
lcCadena = 'UNA '
else
lcCadena = IIF(lnCentenas#0 or lnDecenas#0,'UN'+IIF(lnTerna < 3,'A ',' '),'')
Endif
ENDIF
ENDIF
CASE lnUnidades = 2
lcCadena = 'DOS '
CASE lnUnidades = 3
lcCadena = 'TRES '
CASE lnUnidades = 4
lcCadena = 'CUATRO '
CASE lnUnidades = 5
lcCadena = 'CINCO '
CASE lnUnidades = 6
lcCadena = 'SEIS '
CASE lnUnidades = 7
lcCadena = 'SIETE '
CASE lnUnidades = 8
lcCadena = 'OCHO '
CASE lnUnidades = 9
lcCadena = 'NUEVE '
ENDCASE
*--- Analizo las decenas
DO CASE
CASE lnDecenas = 1
DO CASE
CASE lnUnidades = 0
lcCadena = 'DIEZ '
CASE lnUnidades = 1
lcCadena = 'ONCE '
CASE lnUnidades = 2
lcCadena = 'DOCE '
CASE lnUnidades = 3
lcCadena = 'TRECE '
CASE lnUnidades = 4
lcCadena = 'CATORCE '
CASE lnUnidades = 5
lcCadena = 'QUINCE '
OTHER
lcCadena = 'DIECI' + lcCadena
ENDCASE
CASE lnDecenas = 2
lcCadena = IIF(lnUnidades = 0, 'VEINTE ', 'VEINTI') + lcCadena
CASE lnDecenas = 3
lcCadena = 'TREINTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 4
lcCadena = 'CUARENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 5
lcCadena = 'CINCUENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 6
lcCadena = 'SESENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 7
lcCadena = 'SETENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 8
lcCadena = 'OCHENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
CASE lnDecenas = 9
lcCadena = 'NOVENTA ' + IIF(lnUnidades = 0, '', 'Y ') + lcCadena
ENDCASE
*--- Analizo las centenas
lcCadena2 = ''
DO CASE
CASE lnCentenas = 1
lcCadena2 = IIF(lnUnidades = 0 AND lnDecenas = 0, ;
'CIEN ', 'CIENTO ')
CASE lnCentenas = 2
lcCadena2 = 'DOSCIENTOS '
CASE lnCentenas = 3
lcCadena2 = 'TRESCIENTOS '
CASE lnCentenas = 4
lcCadena2 = 'CUATROCIENTOS '
CASE lnCentenas = 5
lcCadena2 = 'QUINIENTOS '
CASE lnCentenas = 6
lcCadena2 = 'SEISCIENTOS '
CASE lnCentenas = 7
lcCadena2 = 'SETECIENTOS '
CASE lnCentenas = 8
lcCadena2 = 'OCHOCIENTOS '
CASE lnCentenas = 9
lcCadena2 = 'NOVECIENTOS '
ENDCASE
IF lnTerna < 3
lcCadena2 = IIF(tlMasculino,lcCadena2,STRTRAN(lcCadena2,'TOS','TAS'))
ENDIF
lcCadena = lcCadena2+lcCadena
*--- Armo el retorno terna a terna
lcRetorno = lcCadena+lcMiles+lcRetorno
lnTerna = lnTerna + 1
ENDDO
IF lnTerna = 1
lcRetorno = 'CERO '
ENDIF
RETURN lcRetorno
Endfunc