FiveTech Software tech support forums

Yes, it is correct, but anyway, check if your TMENUITEM class has the DATA bBlock

... Args: [ 1] = O TMENUITEM This data exist in class TMenuITem Hakan, The TMenuItem class in the repository does not contain the DATA bBlock Excuse me, it's my mistake

Time from start: 0 hours 0 mins 1 secs Error occurred at: 24/03/2019, 21:23:20 Error description: Error BASE/1005 Message not found: TMENUITEM:_BBLOCK Args: [ 1] = O TMENUITEM This data exist in class TMenuITem Please put your code of Called from: .\Master.prg => DEFINE_RIBBON( 1554 )  D...

... ADSStmtSetTableReadOnly(<nMode>)-><lSuccess> AEval(<aArray>,<bBlock>,[<nStart>],[<nCount>])->aArray AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields ...

... dialog of record object, but user can specify his own dialog with ::bEdit 26. End() Closes DBF and ::oCn object 27. Eof() True if EOF() 28. Eval( bBlock, bFor, bWhile, nNext, nRecord, lRest ) Executes DBEVAL() with same parameters 29. Exec( bAction ) Evaluates bAction in the WorkArea of the object. ...

... getChildProperty( cChild, cProperty ) -> oQVariant | NIL METHOD invokeMethod( cMethod, ... ) -> oQVariant | NIL METHOD connect( cSignal, bBlock ) -> lSuccess METHOD connectChild( cChild, cSignal, bBlock ) -> lSuccess :create() only initiates a QQuickWidget(), set some of its properties, ...

... xValue ) AddAll( oCollection ) AtIndex( nPos ) AtPut( nPos, xValue ) Append( xValue ) AsString() Collect( bCollect ) Copy() DeleteAt( nPos ) Do( bBlock ) IndexOf( xValue ) Init( nLen ) InsertAt( nPos, xValue ) Remove( xValue ) Scan( bScan ) as well as a simulated size property Other types most ...

... of DBEVAL that translates to ADO_EVALBLOCK. It takes an "eternity" to run. Something is wrong. STATIC FUNCTION ADO_EVALBLOCK( nArea, bBlock, uResult )   LOCAL nCurrArea      nCurrArea := Select()   IF nCurrArea != nArea    ...

Lucas,

Locate works now exactly the same as for dbfcdx and others. No need to alter anything in the code.
I choose to eval(bBlock) in do while performance its almost the same as with find.

Ill post new version today.

Antonio, I dont know if uResult it is provided by reference because its called from dbeval(). Dont know why but UR_SUPER_EVALBLOCK( nArea, bBlock, uResult ) works! (without @) Adordd its almost ready ! Now adordd its a true Rdd! There are big differences from previous posted version. Its much ...

UR_SUPER_EVALBLOCK( nArea, bBlock, @uResult ) maybe ?

Isn't uResult provided by reference ?

If not, then this value will be lost:

uResult := Eval( bBlock )

not sure if it will be also applicable to:

UR_SUPER_EVALBLOCK( nArea, bBlock, uResult )

... [<aFilenames>], [<aSizes>], [<aDates>], [<aTimes>], [<aAttributes>]) -> nFiles AEval(<aArray>, <bBlock>, [<nStart>], [<nCount>]) -> aArray AFields([<aFieldsnames>], [<aTypes>], [<aWidths>], [<aDecimals>]) ...

... (macro expression too complex) // This example shows all possible return values of Type() PROCEDURE Main PRIVATE aArray := { 1, 2, 3 } PRIVATE bBlock := {|x| 1+x } PRIVATE cChar := "xHarbour" PRIVATE dDate := Date() PRIVATE hHash := Hash() PRIVATE lLogic := .F. PRIVATE nNumber := ...

... <b> Usage if dDate between dStart and dEnd <action> endif if nVar not between 100 and 200 <action> endif * New function XEval( bBlock/uVar, param1, ... paramN ) returns uVar if the first parameter is not a codeblock or result of evaluation of the codeblock in the first parameter ...