CREATE CURSOR ko ( akuupaev d ) >SET SYSMENU ON >CREATE REPORT test>
* Proc GetEx *[2002/02/14 23:21:02] dragan - replace the regular expression builder * with one that works in a default datasession, so it sees the open tables Lparameters cExpressionType, cErrorMessageText, cDefaultExpression, cCaptionText Local lcGetEx, lcTemp, nDS nDS=set("datasession") set datasession to 1 IF EMPTY(cErrorMessageText) cErrorMessageText="" ENDIF IF EMPTY(cDefaultExpression) cDefaultExpression="" ENDIF IF EMPTY(cCaptionText) cCaptionText="Pick a field or compose expression" ENDIF lcTemp="" lcGetEx=_Getexpr set datasession to (nDS) _Getexpr="" * 2002.04.24 kicked out the type, because any type can go into a report. Getexpr cCaptionText To lcTemp Default cDefaultExpression * restore old _Getexpr=lcGetEx Return lcTempSave this to a .prg and set _getexpr to it.