Leandro: Espero te sirva. FUNCTION ImporteConLetra(Importe,cMon) LOCAL Centavos, Millones, Miles, ImpLet:="" Centavos:=Right(TRAN(Importe,"999999999999.99"),2) if importe < 0 ; importe := importe *-1;endif Importe:=Importe+.005 Millones:=INT(Importe/1000000) ...