FiveTech Software tech support forums

... jaja, ya he visto a mas de uno y me han dado envidia.

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

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 thirs times the up button ...

... 00"
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 ...

... 00"
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 ...

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

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

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

cNumCrpt := ENCRYPT(cNumero ...