Apúntate a la Zona De Descargas Reservadas (ZDDR). Solo son 20 Euros
Con solo 20€ ayudarás
a mantener el foro.
Usace, solo opinion


Seguir a udias en Twitter
Directorio de Empresas de Foros de informática


Todo lo que sueñas, se puede diseñar.
We build your dreams.

 - Principal - Estadísticas - Registrarse - Buscar - Lista de usuarios -  - Zona de Descargas
 -Privacidad y política de cookies -
Ayuda al foro con tu donación
Foros en Udias.com / FileMaker / Cifra en Letras
Autor Mensaje

Miembro

Constante

  Karma           288

#1 Publicado: 8 Jun 2013 19:43 - Editado por: Artone



Aunque se que es un poco tute, no se si es con "Choice" o "Choose" lo que yo quiero hacer. He de generar recibos, y quisiera poner el importe (siempre entero) en letras. Ej. 181 son "Ciento Ochenta y Uno".

Supongo que a alguien ya le habrá surgido esta situación. El asunto es que he buscado y no se sale nada relacionado. Lo mas cercano (que me sirve) el ejemplo de recibos / vencimientos de Flush.

Agradeceria consejo de como encaminar este tema, pues estoy perdido. Y si hay una salida no muy complicada......

Ah!!, Seran centenas, decenas y unidades. No hay miles, aunque supongo la mecanica sería la misma.

Gracias de antemano.

Un Saludo


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
Si corriges a un sabio, se hará mas sabio.
Si corriges a un necio, se convertirá en tu enemigo
Mac OS X 10.11.6, Win 7, FMPA 15/16 , FMS 15/16

Miembro

Asiduo

  Karma         85

#2 Publicado: 9 Jun 2013 12:13



Pues la respuesta esta en el foro porque a mi me paso lo mismo y aqui encontre la solucion.
Luego desde el despacho ya te miro como lo solucione


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
mac osx

Miembro

Habitual

  Karma         86

#3 Publicado: 9 Jun 2013 23:27



Yo encontre esta solución muy buena la pegas en una campo de calculo, modificalo para lo que lo necesitas.

Case ( Total = 0 ; "" ;
Total > 999999999; "Número fuera de rango." ;
Let ( [millones = Int ( Total/10^6 );
miles = Int (Mod ( Total ; 10^6 )/10^3);
cientos = Int ( Mod ( Total ; 10^3 ) );
centavos = Int ( (Total - Int ( Total ) ) * 100 )];


Choose ( Int ( millones/100 ); "";If ( millones = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )
&
Case ( Mod ( millones ; 100 ) < 30 ; Choose ( Mod ( millones ; 100 ) ; "";"un ";"dos ";"tres ";"cuatro ";"cinco ";"seis ";"siete ";"ocho ";"nueve ";
"diez ";"once ";"doce ";"trece ";"catorce ";"quince ";"dieciseis ";"diecisiete ";"dieciocho ";"diecinueve ";"veinte ";
"veintiun ";"veintidos ";"veintitrés ";"veintucuatro ";"veinticinco ";"veintiseis ";"veintisiete ";"veintiocho ";"veintinueve "
);
Choose ( Int ( Mod ( millones ; 100 ) / 10 ) ; "";"";"";"treinta ";"cuarenta ";"cincuenta ";"sesenta ";"setenta ";"ochenta ";"noventa ")
&
Choose ( Mod ( millones ; 10 ) ;"";"y un ";"y dos ";"y tres ";"y cuatro ";"y cinco ";"y seis ";"y siete ";"y ocho ";"y nueve ") )
&
Case ( millones = 0 ; "" ;
millones = 1 ; "millón ";
"millones " )
&
Choose ( Int ( miles/100 ); "";If ( miles = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )
&
Case ( Mod ( miles ; 100 ) < 30 ; Choose ( Mod ( miles ; 100 ) ; "";"";"dos ";"tres ";"cuatro ";"cinco ";"seis ";"siete ";"ocho ";"nueve ";
"diez ";"once ";"doce ";"trece ";"catorce ";"quince ";"dieciseis ";"diecisiete ";"dieciocho ";"diecinueve ";"veinte ";
"veintiun ";"veintidos ";"veintitrés ";"veintucuatro ";"veinticinco ";"veintiseis ";"veintisiete ";"veintiocho ";"veintinueve "
);
Choose ( Int ( Mod ( miles ; 100 ) / 10 ) ; "";"";"";"treinta ";"cuarenta ";"cincuenta ";"sesenta ";"setenta ";"ochenta ";"noventa ")
&
Choose ( Mod ( miles ; 10 ) ;"";"y un ";"y dos ";"y tres ";"y cuatro ";"y cinco ";"y seis ";"y siete ";"y ocho ";"y nueve ") )
&
Case ( miles = 0 ; "" ; "mil " )
&
Choose ( Int ( cientos/100 ); "";If ( cientos = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )
&
Case ( Mod ( cientos ; 100 ) < 30 ; Choose ( Mod ( cientos ; 100 ) ; "";"un ";"dos ";"tres ";"cuatro ";"cinco ";"seis ";"siete ";"ocho ";"nueve ";
"diez ";"once ";"doce ";"trece ";"catorce ";"quince ";"dieciseis ";"diecisiete ";"dieciocho ";"diecinueve ";"veinte ";
"veintiun ";"veintidos ";"veintitrés ";"veintucuatro ";"veinticinco ";"veintiseis ";"veintisiete ";"veintiocho ";"veintinueve "
);
Choose ( Int ( Mod ( cientos ; 100 ) / 10 ) ; "";"";"";"treinta ";"cuarenta ";"cincuenta ";"sesenta ";"setenta ";"ochenta ";"noventa ")
&
Choose ( Mod ( cientos ; 10 ) ;"";"y un ";"y dos ";"y tres ";"y cuatro ";"y cinco ";"y seis ";"y siete ";"y ocho ";"y nueve ") )
&
Case ( Int ( Total ) = 1 ; "dólar "; Int ( Total ) = 0 ; "cero dólares "; "dólares " )
&
If (centavos < 10 ; "0";"") & centavos & "/100 centavos"
) )


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
Windows 7 - Filemaker pro 12

Miembro

Ocasional

  Karma     35

#4 Publicado: 11 May 2018 05:43



Gracias, funciona bien


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo

Este Tema fue cerrado. No puede publicar mas respuestas.
 

Tópicos relacionados con Cifra en Letras

coma en cifra
Búsquedas por letras
Letras griegas
Importes en letras
Fecha en letras


Conectados: Invitados - 11
Miembros - 0
En verde usuarios ZDDR

Realizado con miniBB © 2001-2018
Para Udias.com © 1996-2018
Hosting con Interdominios