* 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 lcTemp >>