Clipper/FiveWin - DAR UN NUMERO EN LETRAS

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

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.

Muchas Gracias.

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

¿Y no se te antoja una cervecita, mientras yo hago los cambios?
Si quieres igualmente te la mando a tu correo.

¿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

Te repito Gracias y te ruego te leas tu correo y veas mi ofrecimiento, de tosdas formas disculpas.

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.

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.

Antonio mira en
http://www.lawebdelprogramador.com/codigo/mostrar.php?id=17&texto=Clipper/FiveWin
espero te sirva.
saludos
Jose

Gracias va muy bien repito Gracias

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

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

Gracias me va de maravillas.
De nuevo Gracias.