Crystal Report - ToWords para pesos

Para quien necesite convertir un número en letra yo usé la funcion ToWords pero le agregue algunas instrucciones y funciona perfecto para cantidades en pesos. El código lo puse en un campo de fórmula y es el sigueinte:

UpperCase(Towords({?Importe},0))+ " PESOS "+RIGHT(Towords({?Importe},2),8)+" M.N."

Espero les sea de ayuda.

Saludos.

Excelente aportación, adicional me encontre que Crystal reports te redondeaba las cantidades por ejemplo de 1,897.99 en letra Mil Ochocientos Noventa Ocho PESOS 99/100 M.N. por lo que Utilice la funcion truncate({number.field}) y quedaría de la siguiente forma.
formula = UpperCase(toWords(Truncate({Command.TOTAL}),0))+ " PESOS "+RIGHT(Towords({Command.TOTAL},2),8)+" M.N."

El UpperCase es para que las muestre en mayúsculas.

Saludos.

muchas gracias funciono perfecto

Saludos,

Funciona perfecto, pero lo muestra en inglés, podrían ayudarme para que salga en español?

Busca la libreria crtowords_en.dll

Baja adjunto y desempacalo

Guardalo en la misma carpeta donde encontraste la libreria crtowords_en.dll

Renombrar crtowords_en.dll a crtowords_xx.dll

Renombrar crtowords_es.dll a crtowords_en.dll

• libreria-CRTOWORDS_ES.DLL.zip(10,9 KB)

Te agradezco por la luz. Me ha servido bastante. Gracias.

Buena tarde.

Me podrían asesorar, ya que con la formula que mencionan funciona muy bien, pero con este tipo de monto que acaba en VEINTIUN DOLARES no funciona ya que me aparece VIENTIUNO DOLARES



MONTO QUE ESTA MAL:
VEINTISÉIS MIL DOSCIENTOS VEINTIUNO DOLARES 75 / 100 M.N.

MONTO CORRECTO:
VEINTISÉIS MIL DOSCIENTOS VEINTIUN DOLARES 75 / 100 M.N.

Excelente..
Funciona a la perfección.
Gracias por compartir.

Muchas gracias por esta mega solución! Saludos!

Hola buenas tardes, respecto tu sentencia UpperCase(Towords({?Importe},0))+ " PESOS "+RIGHT(Towords({?Importe},2),8)+" M.N."
este campo {?Importe} es el que creaste para mostar en importe en numeros?