FiveTech Software tech support forums

... is repeated in the archive and in the same position, compared to the number of records where I have positioned myself

EstrattoFrequenza(nNumber,nWheel,npos,nrecord)

with this function I pass the following parameters

nNumber the number to search
nWheel a number (from 1 to 11 ...

... value rounded to a specified number of digits
------------------------------------------------------------------------------
Syntax

ROUND(<nNumber>, <nDecimals>) --> nRounded

Arguments

<nNumber> is the numeric value to be rounded.

<nDecimals> defines the number of decimal places to ...

... NIL.



INDEX ON <indexExpr> ;
[TAG <cIndexName>] ;
[TO <cIndexFile>] ;
[FOR <lForCondition>] ;
[WHILE <lWhileCondition>] ;
[ALL] ;
[NEXT <nNumber>] ;
[RECORD <nRecNo>] ;
[REST] ;
[EVAL <bBlock>] ;
[EVERY <nInterval>] ;
[UNIQUE] ;
[ASCENDING|DESCENDING] ;
[USECURRENT] ;
[ADDITIVE ...

Ciao Silvio,

devi usare la funzione ROUND(<nNumber>, <nDecimals>)

nDecimals è il numero di decimali a cui vuoi arrotondare

Ad esempio se vuoi arrotondare 8.57 a 9.00



Buona serata

... character strings. Note that the code block calls itself
// recursively within the FOR EACH loop.


PROCEDURE Main
LOCAL bBlock, lLogic:= .T., nNumber:= 1.23456, aArray := Directory()

bBlock := ConversionBlock()

? Eval( bBlock, aArray )

? Eval( bBlock, lLogic )

? Eval( bBlock, nNumber ...

... luego.
INDEX ON <indexExpr> ;
[TAG <cIndexName>] ;
[TO <cIndexFile>] ;
[FOR <lForCondition>] ;
[WHILE <lWhileCondition>] ;
[ALL] ;
[NEXT <nNumber>] ;
[RECORD <nRecNo>] ;
[REST] ;
[EVAL <bBlock>] ;
[EVERY <nInterval>] ;
[UNIQUE] ;
[ASCENDING|DESCENDING] ;
[USECURRENT] ;
[ADDITIVE ...

... nBottom>],[<nRight>],<cScreen>)->Nil
RestToken(<cSavedTokenEnv>)->cNullString
Right(<cString>,<nCount>)->cSubString
RLock()->lSuccess
Round(<nNumber>,<nDecimals>)->nRounded
Row()->nRow
RtoD(<nRadians>)->nDegrees
RTrim(<cString>,[<lAllWhiteSpace>])->cTrimString
SaveCursor()->nSaved
SaveScreen ...

... nBottom>],[<nRight>],<cScreen>)->Nil
RestToken(<cSavedTokenEnv>)->cNullString
Right(<cString>,<nCount>)->cSubString
RLock()->lSuccess
Round(<nNumber>,<nDecimals>)->nRounded
Row()->nRow
RtoD(<nRadians>)->nDegrees
RTrim(<cString>,[<lAllWhiteSpace>])->cTrimString
SaveCursor()->nSaved
SaveScreen ...

... nPos
AtToken(<cString>,[<cDelimiter>],[<nCount>])->nPos
BeforAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult
Bin2I(<cSignedInt>)->nNumber
Bin2L(<cSignedInt>)->nNumber
Bin2W(<cUnsignedInt>)->nNumber
BitToC(<nInteger>,<cBitPattern>,[<lSpaces>])->cResult
Blank(<xValue>,[<lSpaces ...

Silvio,

ACTION (nNumber := test(),oBtnAllegati:refresh() )

... a prompt with a number
then the user press the button and the procedure must assign the new prompt with the new number
why not refresh() ?



nNumber:= 8

@ 233, 118 BTNBMP oBtnAllegati OF oDlgTest ;
SIZE 55, 14 PIXEL 2007 ;
BORDER LEFT ROUND ;
PROMPT str(nNumberi)+" files" RESOURCE "DLG_OK ...

... idea donde, alguna idea ??
GRACIAS

//----------------------------------------------------------------------------//
METHOD Formula( nRow, nCol, nNumber, lRecalc, cFormula, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament ) CLASS TFileXLS

local cExpression := GetExpression ...

Hi Antonio

Yes that does what you say - but what I meant was when using the following code

if nNumber == 10
cursor aligns under the letter n
when you complete with endif
endif the endif is pulled back in the line with the if

The editor automatically indents and outdents - the code is formatted ...

Silvio,

Local nNumber := 0

...
FOR n := 1 TO LEN(oSquare:aCols)
...
// makes it possible, to pick a number < 1 - 9 > from the header ( right mouseclick ) without a needed celledit
oSquare:aCols[ n ]:bRClickHeader := {|r,c,f,o| nNumber :=o:cHeader }
...
NEXT

// The clicked cell will display the ...

nNumber ? I not have this variable