Clipper/FiveWin - DAR UN NUMERO EN LETRAS

   
Vista:

DAR UN NUMERO EN LETRAS

Publicado por ANTONIO (216 intervenciones) el 16/01/2008 15:12:23
Hola a todos:
Tengo una aplicacion casi terminada pero me falta en el apartado de imprimir cheques la opcion de que cuendo pone la cantidad numerica de euros para el cheque, me rellene una linea con la cantidad pero en letras ejemplo:
si el cheque tiene 1.345.456.,24
me retorne "un millon tescientos cuarenta y cinco mil cuatrocientos cincuenta y seis con veiticuatro centimos"
si alguno tiene algo parecido se lo agradeceria.
Gracias
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

RE:DAR UN NUMERO EN LETRAS

Publicado por Adalberto Baqueros (213 intervenciones) el 16/01/2008 16:24:16
Hola Antonio,

Hace muchos años desarrollé una rutina que hace dicha conversión, y que con el apoyo de otra pequeña rutina hace que el texto salga en formato de nombre propio.

Con mucho agrado te he enviado dichas rutinas a tu correo.

Saludos, desde Santa Cruz de la Sierra - Bolivia.
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:DAR UN NUMERO EN LETRAS

Publicado por ANTONIO (216 intervenciones) el 16/01/2008 16:42:36
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

RE:DAR UN NUMERO EN LETRAS

Publicado por ANTONIO (216 intervenciones) el 16/01/2008 17:19:43
Gracias; la he probado y va muy bien, solo pedirte ya que la conoces a ver si puedes hacerle un par de cambios, que no ponga decimales cuando no los hay, y cuando los tenga que los ponga tambien en letras y no 100/10
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

El complemento ideal

Publicado por Adalbeto Vaqueros (1 intervención) el 16/01/2008 17:38:55
¿Y no se te antoja una cervecita, mientras yo hago los cambios?
Si quieres igualmente te la mando a tu correo.
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:El complemento ideal

Publicado por Alfonso (10 intervenciones) el 16/01/2008 18:52:53
¿que pasa? Adalberto

Con tus Modales, cuando se ofrece un ayuda se ofrece completa si ¡NO!
mejor no ofrecerla es mas fasil contestar "ok ..Lo voy a tomar en cuenta"

que tu respuesta o ¿NO?

Este foro debe tomarse con seriedad para el bien de todos los CLIPPEROS

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

RE:El complemento ideal

Publicado por ANTONIO (216 intervenciones) el 16/01/2008 19:07:06
Te repito Gracias y te ruego te leas tu correo y veas mi ofrecimiento, de tosdas formas disculpas.
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

Mil disculpas ...

Publicado por Eduardo Espinoza (1 intervención) el 16/01/2008 19:48:45
Muchachos del foro, disculpen el mensaje altisonante supuestamente firmado por Adalberto Baqueros, pero en realidad dice "Adalbeto Vaqueros" y hasta tiene otra supuesta dirección de correo.
Ese mensaje salió de mi computadora, pero fue enviado por un "gracioso" compañero de trabajo, en un momento en el que yo no estaba en mi escritorio.
Por favor, disculpen, Antonio y Adalberto.
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:DAR UN NUMERO EN LETRAS

Publicado por gabriel pascual (5 intervenciones) el 18/01/2008 01:58:16
vaya morro !!!!

Chico.... curratelo, que si el amigo ha sido tan amable de pasarte el codigo fuente no te creo tan incapaz de no ver donde hay que "moverle" para que el inviento funcione como quieres.
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:DAR UN NUMERO EN LETRAS

Publicado por Jose Flores (26 intervenciones) el 16/01/2008 23:45:25
Antonio mira en
http://www.lawebdelprogramador.com/codigo/mostrar.php?id=17&texto=Clipper/FiveWin
espero te sirva.
saludos
Jose
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:DAR UN NUMERO EN LETRAS

Publicado por ANTONIO (216 intervenciones) el 17/01/2008 07:41:29
Gracias va muy bien repito 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

RE:DAR UN NUMERO EN LETRAS

Publicado por Adalberto Baqueros (213 intervenciones) el 17/01/2008 16:05:48
Hola a todos los del foro,

Como ya hemos leído la aclaración, pues no cabe otro comentario que decirle a Eduardo Espinoza, MUCHAS GRACIAS.

A quienes SE MOLESTARON , antes de conocer la aclaración, estaban con la razón de su parte.

Sepan todos que estoy contento de participar de este foro y que recibí apoyo cuando lo necesité y que brindo mi colaboración con sinceridad.

Que Dios los bendiga.

Saludos, desde Santa Cruz de la Sierra - Bolivia
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:DAR UN NUMERO EN LETRAS

Publicado por Ramon Paredes (47 intervenciones) el 18/01/2008 23:15:47
Saludos amigos Fivewineros,

Antonio ,

Te envio esta funcion que omite los centavos y te los pone en letra si los hay, te explico :

Los Parametros que hay que pasarle son suma y moneda de la sigiente forma :

Si tu cifra es mCifra entonces tu la envia asi :

mLetras := convertir( mCifra,"Euros") y asunto concluido.

//====================================
FUNCTION CONVERTIR(WNUMERO,FMONEDA)
//====================================

IF WNUMERO <= 0
FDESCRIP := 'VALOR 0 (NULO)'
RETURN FDESCRIP
ENDIF

Public vd1[9],vd2[9],vd3[9],vd4[9]

vd1[1] = 'UN'
vd1[2] = 'DOS'
vd1[3] = 'TRES'
vd1[4] = 'CUATRO'
vd1[5] = 'CINCO'
vd1[6] = 'SEIS'
vd1[7] = 'SIETE'
vd1[8] = 'OCHO'
vd1[9] = 'NUEVE'

vd2[1] = 'ONCE'
vd2[2] = 'DOCE'
vd2[3] = 'TRECE'
vd2[4] = 'CATORCE'
vd2[5] = 'QUINCE'
vd2[6] = 'DIECISEIS'
vd2[7] = 'DIECISIETE'
vd2[8] = 'DIECIOCHO'
vd2[9] = 'DIECINUEVE'

vd3[1] = 'DIEZ'
vd3[2] = 'VEINTE'
vd3[3] = 'TREINTA'
vd3[4] = 'CUARENTA'
vd3[5] = 'CINCUENTA'
vd3[6] = 'SESENTA'
vd3[7] = 'SETENTA'
vd3[8] = 'OCHENTA'
vd3[9] = 'NOVENTA'

vd4[1] = 'CIENTO'
vd4[2] = 'DOSCIENTOS'
vd4[3] = 'TRESCIENTOS'
vd4[4] = 'CUATROCIENTOS'
vd4[5] = 'QUINIENTOS'
vd4[6] = 'SEISCIENTOS'
vd4[7] = 'SETECIENTOS'
vd4[8] = 'OCHOCIENTOS'
vd4[9] = 'NOVECIENTOS'

F_CAR = STR(WNUMERO,12,2)
F_CENTAVO= SUBSTR(F_CAR,11,2)
F_CIEN = SUBSTR(F_CAR,7,3)
F_MILES = SUBSTR(F_CAR,4,3)
F_MILLON = SUBSTR(F_CAR,1,3)

fValor = f_millon


d_Millon = dame_des(fvalor)
IF LEN(ALLTRIM(d_Millon)) > 0
IF VAL(FVALOR) = 1
d_Millon = d_millon +' MILLON '
ELSE
d_Millon = d_millon +' MILLONES '
ENDIF

ENDIF

fValor = f_Miles

d_Miles = dame_des(fvalor)
IF LEN(ALLTRIM(d_Miles)) > 0
d_Miles = d_Miles +' MIL '
ENDIF

fValor = f_Cien

d_Cien = dame_des(fvalor)
*IF LEN(ALLTRIM(d_Cien)) > 0

*ENDIF

DCENTAVO = ''
IF VAL(F_Centavo) > 0
DCENTAVO = F_CENTAVO+" CENTAVOS"
ENDIF

Do Case
** 1 1 1 **
Case Len(AllTrim(d_millon)) > 0 .and. len(alltrim(d_miles)) > 0 .and. len(alltrim(d_cien)) > 0
fDetval = AllTrim(d_millon) +' '+ AllTrim(d_Miles)+' '+AllTrim(d_Cien)+' '+FMONEDA

** 0 1 1 **
Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) > 0 .and. len(alltrim(d_cien)) > 0
fDetval = AllTrim(d_Miles)+' '+AllTrim(d_Cien)+' '+FMONEDA

** 0 0 1 **
Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) > 0
fDetval = AllTrim(d_Cien)+' '+FMONEDA

** 1 0 1 **
Case Len(AllTrim(d_millon)) > 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) > 0
fDetval = AllTrim(d_millon)+' '+AllTrim(d_Cien)+' '+FMONEDA

** 1 0 0 **
Case Len(AllTrim(d_millon)) > 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) = 0
fDetval = AllTrim(d_millon)+' '+FMONEDA

** 1 1 0 **
Case Len(AllTrim(d_millon)) > 0 .and. len(alltrim(d_miles)) > 0 .and. len(alltrim(d_cien)) = 0
fDetval = AllTrim(d_millon) +' '+ AllTrim(d_Miles)+' '+FMONEDA

** 0 1 0 **
Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) > 0 .and. len(alltrim(d_cien)) = 0
fDetval = AllTrim(d_Miles)+' '+FMONEDA

EndCase

If Len(AllTrim(dCentavo)) > 0
fDetVal = fDetVal + ' CON ' + dCentavo
Else
fDetVal = fDetVal + ' NETOS'
Endif

*@ 15,1 SAY FDETVAL

Return FDETVAL

FUNCTION DAME_DES
PARAMETER FVALSTR

PRIMER = VAL(SUBSTR(FVALSTR,1,1))
SEG_Y_TER = VAL(SUBSTR(FVALSTR,2,2))
SEGUNDO = VAL(SUBSTR(FVALSTR,2,1))
TERCER = VAL(SUBSTR(FVALSTR,3,1))

FDESCRIP =' '

IF PRIMER > 0
IF SEG_Y_TER = 0 .AND. PRIMER = 1
FDESCRIP = FDESCRIP+'CIEN'
ELSE
FDESCRIP = FDESCRIP+ VD4[PRIMER]
ENDIF

ENDIF

IF SEG_Y_TER > 10 .AND. SEG_Y_TER < 20
FDESCRIP = FDESCRIP+' '+VD2[TERCER]
ELSE
IF SEGUNDO > 0
FDESCRIP = FDESCRIP+' '+VD3[SEGUNDO]
ENDIF
IF TERCER > 0
IF SEGUNDO > 0
FDESCRIP = FDESCRIP+' Y '+VD1[TERCER]
ELSE
FDESCRIP = FDESCRIP+' '+VD1[TERCER]
ENDIF
ENDIF
ENDIF

RETURN FDESCRIP


ojala te sirva de algo,

Saludos desde managua, Nicaragua

Ramon Paredes
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:DAR UN NUMERO EN LETRAS

Publicado por ANTONIO (216 intervenciones) el 24/01/2008 09:52:35
Gracias me va de maravillas.
De nuevo 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