de numeros a letras en fastreport para facturacion

[darkbits]

buenas tardes expertos, estoy haciendo un sistema de facturación, consultarles si alguien logro en fast report convertir de numero convertirlo directamente a letras, leí en la web q se hace en net, pero no encuentro info para delphi si alguien me puede colaborar agradecido,

caso que no se pueda si alguien me puede compartir una funcion de numeros a letras para facturacion
ejemplo como utilizamos en mi pais TOTAL 389,45 utilizamos en letras aasi SON: TRECIENTOS OCHENTA Y NUEVA 45/100 pesos

[Casimiro Notevi]

Mira en los enlaces de abajo, al final de la página.
De todas formas no sé si fastreport tiene esa opción, seguramente debas hacerlo externamente y pasarle la cadena de texto al fastreport.

[cloayza]

Otra opción es incorporar la traducción de número a letras en un procedimiento almacenada en la base de datos...

Para ello puedes mirar el siguiente enlace que subí al FTP del Club hace un tiempo...

Num2WordFIB.zip (https://terawiki.clubdelphi.com/Firebird/Herramientas/?download=Num2WordFIB.zip)
NOTA: El procedimiento es para Firebird, el original era para Oracle

[Casimiro Notevi]

Buena idea ^\||/
Lo ideal es que se llamara automáticamente en triggers before insert y after update.

[pgranados]

Yo te recomiendo hacer el calculo desde Delphi y antes de crear tu reporte insertar el string "TRESCIENTOS PESOS" en el memo correspondiente. Así lo harias:



var MemoImpLetra: TfrxMemoView;
begin
// Mando el importe en letras
MemoImpLetra:= Report.FindObject('IMPLETRA') as TfrxMemoView;
MemoImpLetra.Text:= NumeroALetrasMXN(StrToFloat(FormaPrincipal.psTotal));
end;


De esta forma lo hago yo para crear facturas con el formato del SAT (mexico).

Saludos!