FiveTech Software tech support forums

... " Num_B[ 4] = "Cuarenta " ; Num_C[ 4] = "Trescientos " Num_B[ 5] = "Cincuenta " ; Num_C[ 5] = "Cuatrocientos " Num_B[ 6] = "Sesenta " ; Num_C[ 6] = "Quinientos " Num_B[ 7] = "Setenta " ; Num_C[ 7] = "Seiscientos ...

Estimados: Tengo una variable cDigoImporte :="Ciento veintitres mil cuatrocientos noventa y nueve pesos con 00/100" (La variable sale de una funcion del foro ImporteConLetras,( Gracias Algredo Arteaga) Y deseo que entre en un determinado lugar en cmts., ...

... de caractéres. Me explico. Por ej. enviarle a la función el número "123456", y que me devuelva la frase "ciento veintitrés mil cuatrocientos cincuenta y seis". Antes de encarar la creación de esta función,consulto si existe o si alguien la ha creado y quisiera compartirla. ...

... " TEN_UNIT := " TREINTA CUARENTA CINCUENTASESENTA " 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 ...

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

... := "ochenta"; aNumero[90] := "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] ...

... = "SETENTA" decena[8] = "OCHENTA" 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" ...

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

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

... ","veinte ","treinta ","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. ...