Carmen:
Hope this code give you an idea how to make your goal.
DEFINE POPUP (a_menupops[57]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[57]) PROMPT getcap('100-01-349') COLOR SCHEME 3 ;
SKIP FOR (WEXIST('frmpersreports') AND wincount >= 1) OR wincount >= maxwindows OR M100_01_349
DEFINE BAR 2 OF (a_menupops[57]) PROMPT getcap('100-01-348') COLOR SCHEME 3 ;
SKIP FOR (WEXIST('frmPERSEFTWEB') AND wincount >= 1) OR wincount >= maxwindows OR M100_01_348
DEFINE BAR 3 OF (a_menupops[57]) PROMPT getcap('100-01-356') COLOR SCHEME 3 ;
SKIP FOR (WEXIST('frmPERSEFTWEB') AND wincount >= 1) OR wincount >= maxwindows OR M100_01_356
ON SELECTION BAR 1 OF (a_menupops[57]) do PRCM100_01_349 with '100-01-349' in menuproc
ON SELECTION BAR 2 OF (a_menupops[57]) do PRCM100_01_348 with '100-01-348' in menuproc
ON SELECTION BAR 3 OF (a_menupops[57]) do PRCM100_01_356 with '100-01-356' in menuproc
Procedure getcap
parameter value1
oALIAS = ALIAS()
valret = value1
openhere = .f.
if not used("UANMENU")
use uanmenu in 0 alias uanmenu shared
openhere = .t.
endif
select uanmenu
set order to code
go top
main_screen.oexactvalue = set("EXACT")
set exact off
if not empty(value1)
find &value1
if .not. eof()
valret = alltrim(uanmenu.descriptio)
mlblock = uanmenu.lblock
else
valret = "not found"
endif
endif
if openhere
use
endif
if not empty(oalias)
select (oalias)
endif
ovalue = main_screen.oexactvalue
set exact &ovalue
RETURN valret