FiveTech Software tech support forums

... SetColor( cColorOld )
RETURN Nil

FUNCTION SetColorMensagem()
RETURN "W/N"

FUNCTION SetColorFocus()
RETURN "W/GR+"

FUNCTION PicVal( nLen, nDec )
LOCAL cPicture
hb_Default( @nDec, 0 )
cPicture := Replicate( "9", nLen )
cPicture := Ltrim( Transform( Val( cPicture ), "999,999,999,999,999 ...

First nDec is undefined, but even if I give it a value ( ie. 2 ), it still does not do the replace.

I think the issue is with the second method in my post which converts the number to a string, and I don't see how that can get a match with a numeric field.

All other data types work fine, but not the ...

thanks run ok as you can see



I set 7 nlen 2 ndec

TRANSFORM( nValue, NUMPICT( nLen, nDec, nil, nil, nil, .t. ) )

This is not necessary.
You can do this using FWNumFormat() and NUMPICT( nLen, nDec, ... )

function temptest()   local cPic1, cPic2   local nVal := 1234567.89   FWNumFormat( "E", .t. )   cPic1 := NUMPICT( 10, 2 )   cPic2 ...

la funzione Dec2Hex(nDec,lPad) e' ottima , quindi trasformo in esadecimale
massimo 1.048.575 valori possibili.

per curiosità stavo provando anche quest'altra soluzione :
STATIC FUNCTION Renum()LOCAL aList := {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',; 'A', 'B', 'C', 'D', 'E ...

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

converting my applications to Harbor made me waste only a lot of precious time

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

Hello Silvio,
have you seen this line:
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>)) ?

Best regards,
Otto

... and opened.
If called by an already created object, creates dbf file.

4. Activate() Same as ::Use()

5. AddCol( cCol, uExpr, cType, nLen, nDec, cPic, cTag ) --> nNewCol
Creates a new virtual (calculated) column. uExpr can be character expression or a codeblock. Column name (cCol) can have ...

... cType$"C" .OR. cType$"M"
x := comillas( "%"+Alltrim( x )+"%" )

Case cType == "N"
x := if(valtype(x)="C",val(x),x)
x := alltrim(Str( x, nLen, nDec ))

Case cType == "D"
TRY
if Empty(x)
x := "null"
else
x := comillas(if(valtype(x)="C", x, DtoS(x)))
endif
CATCH
msginfo( "Se ha encontrado ...

... un array con:
{ oCat:Tables( i ):Columns( j ):Name , ; // Nombre de la Tabla
cTipo, ; // Tipo de campo -> Estilo DBF
nLen, ; // Longitud
nDec, ; // Decimales
Upper(cTipoEx), ; // Tipo de Campo -> ADO
nTipo } ) // Nº del Tipo de Campo -> ADO

2.- He creado la tabla a partir de una ...

... 37) Error E0030 Syntax error: "syntax error at 'NLEN'"
c:\autosys\prgs\fwh\source\classes\field.prg(38) Error E0030 Syntax error: "syntax error at 'NDEC'"

4 errors

No code generated


c:\autosys\prgs\fwh\source\winapi\net.c
c:\autosys\prgs\bcc582\bin\bcc32.exe -tWM -c -q -O2 -Ic:\autosys\prgs\xH121 ...

... field in customer database, the format xbrowse automatically uses is : "@E 99,999,999.99", because the field's length is 9 and decimals are 2. XBrowse adds 2 to the length to accommodate totals.

If you want to derive a picture you can use FWH function
NUMPICT( nLen, nDec, nil, lComma, lDisplayZeros )

... function. This method
enables xbrowse to toggle ascending and descending orders.
(c) New Method
AddCol( cColName, bBlock, [cType], [nLen], [nDec], [cPic], [cTag ] ) --> nColPos
for creationg of Calculated Columns.
Assuming that the DBF contains fields QUANTITY and RATE, we can create a ...