FileMaker - FileMaker - Numeros a Letras

   
Vista:

FileMaker - Numeros a Letras

Publicado por Carlos Alberto Moreno Torres (8 intervenciones) el 12/09/2010 22:47:52
Hola a todos...!!!

Pongo a su disposición el archivo que convierte un número a su equivalente en texto... ésta es la última versión ya corregida... espero les sea de utilidad. Gracias.

Atentamente

Carlos Alberto Moreno Torres

carlosalbertomorenotorres@gmail.com

Descargar el archivo de FileMaker aqui:

http://www.megaupload.com/?d=70IJW1SJ
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

FileMaker - Numeros a Letras

Publicado por liliana (1 intervención) el 29/03/2011 17:57:24
hola me gustaria conocer el archivo para convertir numeros en letras en filemaker pro 11 agradezco su colaboracion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:FileMaker - Numeros a Letras

Publicado por Andrés Royuela Antonio (1 intervención) el 24/09/2010 09:47:08
gracias lo necesitaba
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por Carlos carlosalbertomorenotorres@gmail.com (8 intervenciones) el 13/04/2011 02:35:31
ya te mande el archivo que solicitaste por mail.... lo recibiste??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por liliana (1 intervención) el 13/04/2011 05:27:44
si ya lo recibi muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por Miguel Cobos miguelcobosf15@live.com.mx (4 intervenciones) el 22/08/2013 17:36:27
No necesitas de un archivo para convertir de numeros a letras, basta con que tengas un campo calculo.

por ejemplo el campo se llama cantidad con letra, tipo calculo.

el cual contendra esto este codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Case (CANTIDAD = 0 ; "" ;
         CANTIDAD > 999999999; "Número fuera de rango." ;
          Let (  [millones = Int (CANTIDAD/10^6 );
                   miles = Int (Mod (CANTIDAD ; 10^6 )/10^3);
                   cientos = Int ( Mod (CANTIDAD ; 10^3 ) );
                   centavos = Int ( (CANTIDAD -  Int (CANTIDAD ) ) * 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 ( CANTIDAD ) = 1 ; "peso ";   Int (CANTIDAD ) = 0 ; "cero pesos ";  "pesos " )
                      &
                      If (centavos < 10 ; "0";"") & centavos &  "/100 MN)"
                  )
           )


DONDE CANTIDAD ES EL CAMPO QUE CONTIENE EL NUMERO A TRANSFORMAR A LETRA,

PARA CUALQUIER COSAS EN LOS QUE LES PUEDA AYUDA, NO DUDEN EN CONSULTARME.


" COBOS "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

FileMaker - Numeros a Letras

Publicado por WachoMac (1 intervención) el 17/01/2014 12:48:41
Muy buen script. Gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por Antoniogh (1 intervención) el 02/07/2014 03:32:28
Excelente trabajo gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por abner rodriguez (1 intervención) el 12/08/2014 22:48:24
Felicitaciones por el script Excelente!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por Rina Alconini (1 intervención) el 29/09/2015 16:20:11
Me salvaste de un trabajo de chino, gracias mil!!! CAPO!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FileMaker - Numeros a Letras

Publicado por Carlos (3 intervenciones) el 19/02/2016 05:12:51
Estimado Miguel

Primero agradecer tu trabajo y generosidad al compartirlo, lo segundo es que, basado en el, me he permitido hacer algunas adiciones que espero sean un aporte.

- La frase que describe la cifra CANTIDAD siempre comenzará con mayúscula, en el rango cero - 999.999.999, ambos incluidos.
- Incorpora algunas formas de leer propias del idioma, al menos para Chile, y algunos comentarios descriptivos, que se pueden borrar sin consecuencias (Admito cierta obsesión)

Esto es... copy paste...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Case (CANTIDAD = 0 ; "Cero pesos." ;
         CANTIDAD > 999999999; "Número fuera de rango." ;
          Let (  [millones = Int (CANTIDAD/10^6 ) ;  miles = Int (Mod (CANTIDAD ; 10^6 )/10^3) ; cientos = Int ( Mod (CANTIDAD ; 10^3 ) ) ];
 
 
/*...................................................................................................... MILLONES ..................................................................................................*/
 
/*.................................................. Analiza centenas de millón...................................................*/
 
Case ( 100000000  ≤  CANTIDAD and CANTIDAD < 1000000000 ; Choose ( Int ( millones/100 ); "";If ( millones = 100 ; "Cien " ; "Ciento " );"Doscientos ";"Trescientos ";"Cuatrocientos ";"Quinientos ";"Seiscientos ";"Setecientos ";"Ochocientos ";"Novecientos " );
                                                             CANTIDAD > 1000000000 ; Choose ( Int ( millones/100 ); "";If ( millones = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )  )
 
 
/*........................................... Analiza decenas y unidades de millón.............................................*/
 
         &
 
Case ( 1000000 ≤  CANTIDAD and CANTIDAD < 100000000 ;      Case ( Mod (  millones ; 100 ) < 30 ; Choose ( Mod (  millones ; 100 ) ; "";"Un ";"Dos ";"Tres ";"Cuatro ";"Cinco ";"Seis ";"Siete ";"Ocho ";"Nueve ";
                                                                                                                               "Diez ";"Once ";"Doce ";"Trece ";"Catorce ";"Quince ";"Dieciséis ";"Diecisiete ";"Dieciocho ";"Diecinueve ";"Veinte ";
                                                                                                                               "Veintiún ";"Veintidós ";"Veintitrés ";"Veinticuatro ";"Veinticinco ";"Veintiséis ";"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 ")    );
 
 
                                                    100000000  ≤  CANTIDAD;      Case ( Mod (  millones ; 100 ) < 30 ; Choose ( Mod (  millones ; 100 ) ; "";"un ";"dos ";"tres ";"cuatro ";"cinco ";"seis ";"siete ";"ocho ";"nueve ";
                                                                                                                               "diez ";"once ";"doce ";"trece ";"catorce ";"quince ";"dieciséis ";"diecisiete ";"dieciocho ";"diecinueve ";"veinte ";
                                                                                                                               "veintiún ";"veintidós ";"veintitrés ";"veinticuatro ";"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 ";
                                ( CANTIDAD / 1000000 - Int ( CANTIDAD / 1000000 ) )= 0 ; "millones de ";
                                "millones " )
 
 
/*........................................................................................................ MILES ....................................................................................................*/
 
              &
/*.................................................. Analiza centenas de mil......................................................*/
 
Case ( 100000 ≤  CANTIDAD and CANTIDAD < 1000000 ; Choose ( Int ( miles/100 ); "";If ( miles = 100 ; "Cien " ; "Ciento " );"Doscientos ";"Trescientos ";"Cuatrocientos ";"Quinientos ";"Seiscientos ";"Setecientos ";"Ochocientos ";"Novecientos " );
                                                      CANTIDAD ≥ 1000000 ; Choose ( Int ( miles/100 ); "";If ( miles = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )  )
 
 
/*............................................ Analiza decenas y unidades de mil...............................................*/
 
             &
 
Case ( 1000 ≤  CANTIDAD and CANTIDAD < 100000 ;     Case ( Mod ( miles ; 100 ) < 30 ; Choose ( Mod ( miles ; 100 ) ; "";"Un ";"Dos ";"Tres ";"Cuatro ";"Cinco ";"Seis ";"Siete ";"Ocho ";"Nueve ";
                                                                                                                               "Diez ";"Once ";"Doce ";"Trece ";"Catorce ";"Quince ";"Dieciséis ";"Diecisiete ";"Dieciocho ";"Diecinueve ";"Veinte ";
                                                                                                                               "Veintiún ";"Veintidós ";"Veintitrés ";"Veinticuatro ";"Veinticinco ";"Veintiséis ";"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 ")    );
 
 
                                                       1000 < CANTIDAD;      Case ( Mod ( miles ; 100 ) < 30 ; Choose ( Mod ( miles ; 100 ) ; "";"un ";"dos ";"tres ";"cuatro ";"cinco ";"seis ";"siete ";"ocho ";"nueve ";
                                                                                                                               "diez ";"once ";"doce ";"trece ";"catorce ";"quince ";"dieciséis ";"diecisiete ";"dieciocho ";"diecinueve ";"veinte ";
                                                                                                                               "veintiún ";"veintidós ";"veintitrés ";"veinticuatro ";"veinticinco ";"veintiséis ";"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 " )
 
/*...................................................................................................... UNIDADES ...............................................................................................*/
 
 
/*..................................................... Analiza centenas de unidades........................................*/
         &
 
Case ( 100 ≤  CANTIDAD and CANTIDAD < 1000 ; Choose ( Int ( cientos/100 ); "";If ( cientos = 100 ; "Cien " ; "Ciento " );"Doscientos ";"Trescientos ";"Cuatrocientos ";"Quinientos ";"Seiscientos ";"Setecientos ";"Ochocientos ";"Novecientos " );
                                                CANTIDAD  ≥ 1000 ; Choose ( Int ( cientos/100 ); "";If ( cientos = 100 ; "cien " ; "ciento " );"doscientos ";"trescientos ";"cuatrocientos ";"quinientos ";"seiscientos ";"setecientos ";"ochocientos ";"novecientos " )  )
 
 
 
/*..................................................... Analiza decenas y unidades ........................................*/
         &
 
 
Case ( 1 ≤  CANTIDAD and CANTIDAD < 100 ;      Case ( Mod ( cientos ; 100 ) < 30 ; Choose ( Mod ( cientos ; 100 ) ; "";"Un ";"Dos ";"Tres ";"Cuatro ";"Cinco ";"Seis ";"Siete ";"Ocho ";"Nueve ";
                                                                                                                               "Diez ";"Once ";"Doce ";"Trece ";"Catorce ";"Quince ";"Dieciséis ";"Diecisiete ";"Dieciocho ";"Diecinueve ";"Veinte ";
                                                                                                                               "Veintiún ";"Veintidós ";"Veintitrés ";"Veinticuatro ";"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 ")    );
 
 
                                           100  ≤  CANTIDAD;      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 ";
                                                                                                                               "veintiún ";"veintidós ";"veintitrés ";"veinticuatro ";"veinticinco ";"veintiséis ";"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 ( CANTIDAD ) = 1 ; "peso. ";
                   CANTIDAD -  ( millones * 1000000 )= 1 ; "peso.";
                  "pesos. " )
 
                  )
           )


Adjunto un pequeño archivo para ver su funcionamiento.

Agradeceré todos los comentarios o sugerencias.


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar