Hi everybody,
One of my system has the ability to use user defined menus. The main option 'Reports' has already been created in the system main menu, the user is allow to created submenus in the 'Reports' option, then attached differents options to these submenus. The piece of code I'm using is the following...
<<<...>>>
select repgroup
j = 1
Do while !eof()
DEFINE BAR j OF reports PROMPT (ALLTRIM(repgroup.groupnarr)) ;
MESSAGE (repgroup.groupnarr)
cMenuOption = "repgroup.groupnarr"
ON BAR j OF reports ACTIVATE POPUP &cMenuOption
Select Camisrep
seek(repgroup.groupref)
i = 1
do while(ri_menugrp=repgroup.groupref) and !eof()
DEFINE POPUP &cMenuOption ;
MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR i of &cMenuOption PROMPT ri_wtitle
runcommand = alltrim(ri_command)
ON SELECTION BAR i of &cMenuOption &runcommand
i = i + 1
skip
enddo
select repgroup
j = j + 1
skip
enddo
<<<...>>>
...the code in within the second 'Do while' loop doesn't work, VFP return sintaxt errors. I have tried different approaches but none works...
Any ideas, please...
Paco Calvente.
Saludos,
Paco Calvente