FiveTech Software tech support forums

... " ; Num_C[ 8] = "Setecientos " Num_B[ 9] = "Noventa " ; Num_C[ 9] = "Ochocientos " Num_C[ 10] = "Novecientos " //Se vacias valores de control CtrlTexto = STR(ElNumero,8,0) ValorPos[ 1] = VAL(Substr(CtrlTexto,8,1)) ValorPos[ 2] = VAL(Substr(CtrlTexto,7,1)) ...

... := "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) GRUPO_VAL := GRUPO_VAL - (NUEVA1 * 100) GRUPO_STR := GRUPO_STR + " CIEN" ...

... evitado la Quijotesca reacción. No les digo mi edad para no desbordar el promedio, pero les doy una pista, nací el cinco de octubre de mil novecientos que te importa. Saluditos :D Manuel Mercado Lo hice Manuel, pero debe ser que aún estoy en la crisis esa de mi edad y no me di cuenta. Por ...

... evitado la Quijotesca reacción. No les digo mi edad para no desbordar el promedio, pero les doy una pista, nací el cinco de octubre de mil novecientos que te importa. Saluditos :D Manuel Mercado

... "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", "diecisiete", "dieciocho", "diecinueve"} Local aAux2:= {"veintiun", ...

... aNumero[500] := "quinientos"; aNumero[600] := "seiscientos" aNumero[700] := "setecientos"; aNumero[800] := "ochocientos" aNumero[900] := "novecientos" IF nCentena > 0 nDecena := ( nImporte - (nCentena*100) ) cCentena := aNumero [ nCentena * 100 ] cRet := SPACE(1) ELSE nDecena := nImporte ...

... = "CUATROCIENTOS" centena[5] = "QUINIENTOS" centena[6] = "SEISCIENTOS" centena[7] = "SETECIENTOS" centena[8] = "OCHOCIENTOS" centena[9] = "NOVECIENTOS" deci[1] = "ONCE" deci[2] = "DOCE" deci[3] = "TRECE" deci[4] = "CATORCE" deci[5] = "QUNICE" deci[6] = "DIECISEIS" deci[7] = "DIECISIETE" ...

... "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", "diecisiete", "dieciocho", "diecinueve"} Local aAux2:= {"veintiun", ...

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

... ","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],"")) d:=INT(re/10) re:=IF(d>2,(re-(d*10)),re) ...