I'm glad it worked for you.
BTW, to preserve a code formating enclose your code in < pre > and < /pre > tags (no spaces) as in my reply to you.
>Thanks a lot. This one worked great and I have pasted my modification below for your reference:
>
>this is the call as modified:
>
>m.zfstr = "PADR(' ' + " + m.zsavealias + ".company + ' CMP' + TRANSFORM(" + m.zsavealias + ".cmpny_no, '@L 99999'), 80)"
>
>= helpme(m.zsavealias, "company", " " + m.zsavealias + ".company + ' CMP' + ;
>TRANSFORM(" + m.zsavealias + ".cmpny_no, '@L 99999')", ;
>"xselectbar", LEN(&zsavealias..company) + 12, ;
>IIF(EMPTY(m._vsouserid), '.T.', IIF(m._vsosuper, '.T.', '!SEEK(cnv2high(m._vsouserid) + cnv2high(EVALUATE("' + m.zfstr + '")), "vsosecur")')), .F., .T.)
>
>
>func helpme
>
> IF m.zsetskip
> DEFINE POPUP helppopup ;
> MARGIN ;
> COLOR SCHEME 4
>
>
> m.zi = 1
>
> SCAN
> IF &zfiltstr.
> DEFINE BAR m.zi OF helppopup PROMPT &zpromptstr.
>
> m.zi = m.zi + 1
> ENDIF
> ENDSCAN
> ELSE
> SET FILTER TO &zfiltstr.
>
> * LOCATE
> = _gotop()
>
>
> DEFINE POPUP helppopup ;
> MARGIN ;
> PROMPT FIELD &zpromptstr. ;
> COLOR SCHEME 4
> ENDIF
--sb--