FiveTech Software tech support forums

... 2003, made this just for fun, i never look back at it, because I never need it.... For sure in spanish you wont want it to say Ciento uno mil, quinientos uno dolares In english and spanish never finished, the string can be quite long... needs to be broken down.... http://www.lawebdelprogramador.com/codigo/Clipper-FiveWin/803-Convertir-cantidades-a-cadena.html

... " Num_B[ 5] = "Cincuenta " ; Num_C[ 5] = "Cuatrocientos " Num_B[ 6] = "Sesenta " ; Num_C[ 6] = "Quinientos " Num_B[ 7] = "Setenta " ; Num_C[ 7] = "Seiscientos " Num_B[ 8] = "Ochenta " ; Num_C[ 8] = "Setecientos ...

... " TEN_UNIT := TEN_UNIT+"SETENTA OCHENTA NOVENTA " CEN_UNIT := "CIENTO DOSCIENTOS TRESCIENTOS CUATROCIENTOS" CEN_UNIT := CEN_UNIT+ "QUINIENTOS SEISCIENTOS SETECIENTOS " CEN_UNIT := CEN_UNIT+ "OCHOCIENTOS NOVECIENTOS " GRUPO_STR := "" IF GRUPO_VAL = 100 NUEVA1 := INT(GRUPO_VAL/100) ...

... "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", ...

... "noventa" aNumero[100] := "ciento"; aNumero[200] := "doscientos" aNumero[300] := "trescientos"; aNumero[400] := "cuatrocientos" aNumero[500] := "quinientos"; aNumero[600] := "seiscientos" aNumero[700] := "setecientos"; aNumero[800] := "ochocientos" aNumero[900] := "novecientos" IF nCentena > ...

... decena[9] = "NOVENTA" centena[1] = "CIEN" centena[2] = "DOSCIENTOS" centena[3] = "TRESCIENTOS" centena[4] = "CUATROCIENTOS" centena[5] = "QUINIENTOS" centena[6] = "SEISCIENTOS" centena[7] = "SETECIENTOS" centena[8] = "OCHOCIENTOS" centena[9] = "NOVECIENTOS" deci[1] = "ONCE" deci[2] = "DOCE" ...

... "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", ...

... '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) ...

Hola amigos:

Alguien me puede indicar como puedo transformar un importe en letras.

es de cir que una variable con la cantidad 1500,00 me de otra con Mil Quinientos.

Gracias

Un saludo

Carlos

... ","cuarenta ","cincuenta ","sesenta ",; "setenta ","ochenta ","noventa "} a_Cen:={"ciento ","doscientos ","trescientos ","cuatrocientos ","quinientos ",; "seiscientos ","setecientos ","ochocientos ","novecientos "} c:=INT(Importe/100) re:=Importe-(c*100) ic:=IF((c=1 .AND. re=0),"cien ",IF(c<>0,a_Cen[c],"")) ...