Information générale
Catégorie:
Gestionnaire de menu & Menus
Hi Sergey,
This is what I,ve done.
Declared the variables in main program
Main program
PUBLIC skipincid, skiprisk
skipincid=.t.
skiprisk=.t.
Created a procedure
Proc HideMenubar
Sele Carmsdef
Do Case
Case Carmsdef.ca_incid ="Y"
skipincid = .T.
skiprisk= .T.
Case Carmsdef.ca_incid ="N"
skipincid = .F.
skiprisk= .F.
Endcase
Use
What I need is remove the menu Incidents if the condition carmsdef.ca_incid is "N".
Thanks in advance.
Zaheed
And in the dropdown menu went to submenu incidents skip and put
in !skipincid
Code below is from the menu.mpr
Menu.mpr
DEFINE BAR 4 OF update PROMPT "Incidents" ;
SKIP FOR !skipincid
This last line refers to a program where the last 4 characters are used
ON SELECTION BAR 4 OF update Do HKmain with "INCI"
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement