FiveTech Software tech support forums

... jaja, ya he visto a mas de uno y me han dado envidia. :D FUNCTION Ptas2Eur(nCantidad,lEuro) // Si .T. Ptas -> Euro, .F. Euro->Ptas Local nEntero,nDecimal Local c2Decimales,c3Decimal // DEFAULT lEuro:=.T. error en Harbour hb_default( lEuro, .T. ) // De Ptas. a Euros IF lEuro nEntero:=INT(nCantidad ...

Gabriel thanks I have this : nLinea is totale of records nPageLines := 0 nElemenLines:= 6 nBloqueLine := 1 nEntero := INT( nLinea / 6 ) nFraccion := ( nLinea / 6 ) - nEntero nFraccion := IF( nFraccion > 0, 1, 0 ) nPageLines:= nEntero + nFraccion the problemis on second or ...

... ENDIF IF len(cCentimos) = 1 cCentimos:=cCentimos+"0" ENDIF cEntero:=SUBSTR(cPrecio,1,nPunto-1) nCantidad:= Round(aDat9[nI,4], 2) nEntero := Int(nCantidad) nCents := nCantidad - nEntero IF aDat9[nI,8]=1 cmd:=["]+STRZERO(VAL(cEntero),8)+STRZERO(VAL(cCentimos),2)+"J"+Alltrim(Str(nI))+")"+aDat9[nI,3] ...

... ENDIF IF len(cCentimos) = 1 cCentimos:=cCentimos+"0" ENDIF cEntero:=SUBSTR(cPrecio,1,nPunto-1) nCantidad:= Round(aDat9[nI,4], 2) nEntero := Int(nCantidad) nCents := nCantidad - nEntero IF aDat9[nI,8]=1 cmd:=["]+STRZERO(VAL(cEntero),8)+STRZERO(VAL(cCentimos),2)+"J"+Alltrim(Str(nI))+")"+aDat9[nI,3] ...

... := .t. //Si es falso muestra los centimos en formato 00/100 Local aTexto[5] Local cCadena, cDigitos, cTerminador, cCents Local nI, nJ, nNumero, nEntero, nCents, nPunto Local aUni:= {"un", "dos", "tres", "cuatro", "cinco", ; "seis", "siete", "ocho", "nueve"} Local aDec:= {"diez", "veinte", "treinta", ...

... FUNC NumLetra ( nImporte, cMoneda, lMayuscula, lFemenino, lCentimos ) local nEntero // enteros local nCentimos, cCenLet := '' // céntimos local nCien, cCien:='' // unidades, decenas y centenas local nMil, cMil:='' // millares ...

... "veintidos", "veintitres", "veinticuatro",; "veinticinco", "veintiseis", "veintisiete", ; "veintiocho", "veintinueve"} Local nI, nJ, nNumero, nEntero, nCents, nPunto Local cCadena, cDigitos, cTerminador, cCents Local aTexto[5], acMoneda:= {" bolivar ", " bolivares "} AFill(aTexto, "") nCantidad:= ...

A ver como va esto,,, (lo hacia años atras) Function Num2ChrC(nValor) local nEntero, nDecimal, cNumero, cNumCrpt nEntero := INT(nValor) nDecimal := FRAC(nValor) cNumero := STRZERO(nEntero, 14) // quedaria +- asi 00000000034567 cNumero := cNumero + ALLTRIM(STR(nDecimal)) ...