Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Crystal Report - Traduccion de Numeros a letras

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Traduccion de Numeros a letras

Autor:Timoteo (2 intervenciones)
Fecha:31/07/2008 00:24:14
que tal, estoy migrando de la version 8 a la 10 en crystal report, mi problema es que la version 10 no soporta las formulas que tengo diseñadas en la version 8 para que los importes de mis facturas sean traducidas a letras es decir, 10298.50 Pesos en mi formula de version 8 este monto se traduce a Diez Mil docientos noventa y ocho pesos 50/100 MN, al usar el crystal version 10 mi formula no funciona y me dicen que tengo que usar el comando TOWORD pero este no traduce de forma correcta el monto, existe o tendran a la mano alguna formulita para probarla en mis sistemas. no tengo tanta experiencia en la version 10 asi que si me pueden pasar algun tips se los agradecere.
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Traduccion de Numeros a letras

Autor:lucky (1 intervención)
Fecha:28/10/2008 02:01:35
HOLA QUE TAL ALGUIEN QUE PUDIERA AUXILIARME PARA TRASLADAR NUMEROS A TEXTO CON EL FIN DE QUE QUEDEN EN UN RECIBO TIPO CHEQUE
TRABAJO EN LA CIUDAD DE MEXICO EN LYF EN UNA AREA ADMINISTRATIVA QUE MANEJA MUCHO EL TENER QUE ESCRIBIR CANTIDADES Y SU CORRESPONDIENTE EN TEXTO PARA SER PAGADOS OJALA Y ALGUIEN ME AYUDE, GRACIAS
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Traduccion de Numeros a letras

Autor:Rodrigo (1 intervención)
Fecha:13/11/2008 14:32:28
Hola,

Te adjunto la formula en Crystal, usa el campo @totTot como importe.

Saludos !!


StringVar Cadenaglobal:="";
StringVar Valor:="S";
cadenaGlobal:=ToText({@totTot});
cadenaGlobal:=Trim(cadenaGlobal);
StringVar Resultado:="";
StringVar Decimales:= Right (cadenaGlobal,2 );
StringVar Unidades:= Right (cadenaGlobal,4 );
StringVar Decenas:=Right (cadenaGlobal,5 );
StringVar Centenas:=Right(cadenaGlobal,6);
StringVar Umillar:=Right (cadenaGlobal,8 );
StringVar Dmilllar:=Right(cadenaGlobal,9);
StringVar Cmilllar:=Right(CadenaGlobal,10);
StringVar milllares:=cadenaGlobal[2 to 2];
if abs({@totTot}) < 1 then
"0 Pesos "+Decimales+" /100 M.N."
else

if Left(Cmilllar,1)="9" then
resultado:=resultado+"Novecientos ";
if Left(Cmilllar,1)="8" then
resultado:=resultado+"Ochocientos ";
if Left(Cmilllar,1)="7" then
resultado:=resultado+"Setecientos ";
if Left(Cmilllar,1)="6" then
resultado:=resultado+"Seiscientos ";
if Left(Cmilllar,1)="5" then
resultado:=resultado+"Quinientos ";
if Left(Cmilllar,1)="4" then
resultado:=resultado+"Cuatrocientos ";
if Left(Cmilllar,1)="3" then
resultado:=resultado+"Trescientos ";
if Left(Cmilllar,1)="2" then
resultado:=resultado+"Doscientos ";
if Left(Cmilllar,1)="1" then
resultado:=resultado+"Cien(to) ";

if Left(Dmilllar,1)="9" then
resultado:=resultado+"Noventa ";
if Left(Dmilllar,1)="8" then
resultado:=resultado+"Ochenta ";
if Left(Dmilllar,1)="7" then
resultado:=resultado+"Setenta ";
if Left(Dmilllar,1)="6" then
resultado:=resultado+"Sesenta ";
if Left(Dmilllar,1)="5" then
resultado:=resultado+"Cincuenta ";
if Left(Dmilllar,1)="4" then
resultado:=resultado+"Cuarenta ";
if Left(Dmilllar,1)="3" then
resultado:=resultado+"Treinta ";
if Left(Dmilllar,1)="2" then
resultado:=resultado+"Veinti ";
if Left(Dmilllar,1)="1" then
resultado:=resultado+"Diez ";

if Left(Dmilllar,1) <> "0" and {@totTot} > 100000 then
resultado:=resultado+" y ";

if Left(Umillar,1)="9" then
resultado:=resultado+"Nueve ";
if Left(Umillar,1)="8" then
resultado:=resultado+"Ocho ";
if Left(Umillar,1)="7" then
resultado:=resultado+"Siete ";
if Left(Umillar,1)="6" then
resultado:=resultado+"Seis ";
if Left(Umillar,1)="5" then
resultado:=resultado+"Cinco ";
if Left(Umillar,1)="4" then
resultado:=resultado+"Cuatro ";
if Left(Umillar,1)="3" then
resultado:=resultado+"Tres ";
if Left(Umillar,1)="2" then
resultado:=resultado+"Dos ";
if Left(Umillar,1)="1" then
resultado:=resultado+"Un ";

if abs({@totTot}) >= 1000 and valor <> "N"then
resultado:=resultado+" Mil "; valor:="N";

if Left(Centenas,1)="9" then
resultado:=resultado+"Novecientos ";
if Left(Centenas,1)="8" then
resultado:=resultado+"Ochocientos ";
if Left(Centenas,1)="7" then
resultado:=resultado+"Setecientos ";
if Left(Centenas,1)="6" then
resultado:=resultado+"Seiscientos ";
if Left(Centenas,1)="5" then
resultado:=resultado+"Quinientos ";
if Left(Centenas,1)="4" then
resultado:=resultado+"Cuatrocientos ";
if Left(Centenas,1)="3" then
resultado:=resultado+"Trescientos ";
if Left(Centenas,1)="2" then
resultado:=resultado+"Doscientos ";
if Left(Centenas,1)="1" then
resultado:=resultado+"Cien(to) ";

if abs({@totTot}) >= 100000 then
resultado:=resultado+" Mil ";
if Left(decenas,1)="9" then
resultado:=resultado+"Noventa ";
if Left(decenas,1)="8" then
resultado:=resultado+"Ochenta ";
if Left(decenas,1)="7" then
resultado:=resultado+"Setenta ";
if Left(decenas,1)="6" then
resultado:=resultado+"Sesenta ";
if Left(decenas,1)="5" then
resultado:=resultado+"Cincuenta ";
if Left(decenas,1)="4" then
resultado:=resultado+"Cuarenta ";
if Left(decenas,1)="3" then
resultado:=resultado+"Treinta ";
if Left(decenas,1)="2" then
resultado:=resultado+"Veinte(i) ";
if Left(decenas,1)="1" then
resultado:=resultado+"Diez ";

if Left(decenas,1) <> "0" and Left(unidades,1) <> "0"then
resultado:=resultado+" y ";

if Left(Unidades,1)="9" then
resultado:=resultado+"Nueve ";
if Left(Unidades,1)="8" then
resultado:=resultado+"Ocho ";
if Left(Unidades,1)="7" then
resultado:=resultado+"Siete ";
if Left(Unidades,1)="6" then
resultado:=resultado+"Seis ";
if Left(Unidades,1)="5" then
resultado:=resultado+"Cinco ";
if Left(Unidades,1)="4" then
resultado:=resultado+"Cuatro ";
if Left(Unidades,1)="3" then
resultado:=resultado+"Tres ";
if Left(Unidades,1)="2" then
resultado:=resultado+"Dos ";
if Left(Unidades,1)="1" then
resultado:=resultado+"Un ";

if abs({@totTot}) < 100000 and abs({@totTot}) > 1000 and valor <> "N" then
resultado:=resultado+" Mil ";

Resultado+" Pesos "+Decimales+" /100 M.N."
Comentar