FiveTech Software tech support forums

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

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

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

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

... "%"+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( ...

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

... 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\include;c:\autosys\prgs\bcc582\include;c:\autosys\prgs\fwh\include ...

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

... //Esta funcion permite manejar las tablas aun sin datos //----------------------------------------- Function MyCampo(oBjeto, nCampo, nEnt, nDec) local cCampo, cRet, nCol, nCont, cField, nPos If VALTYPE(nCampo) = "C" // vino el nombre de un campo nCampo := ALLTRIM(nCampo) nPos ...

... Otto, I think You have to use the ROUND()-Function for exact results. Some samples : SET DECIMALS TO 2 SET FIXED ON // Function ROUND( nValue, nDec ) => rounded // nDec = how many Dec. // Negative = round to 10, 100 ...... ROUND( 10.4, 0 ) => Result : 10.00 ROUND( 10.5, 0 ) => Result ...