Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
*:IF in comments of popup and menu
Message
De
06/01/2006 14:06:53
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01084093
Message ID:
01084217
Vues:
10
So I would have to modify genmenux.prg in order to accomplish that, correct? I wonder why that was not discovered and changed previously, or perhaps there is a newer version of Genmenux.prg out there that does that?

>Tracy,
>
>In order for RELEASE BAR to work it has to be issued before ACTIVATE POPUP shortcut
>
>>Any idea why Bar 7 (Finance Policy) doesn't get removed (see the cleanup code)?
>>
>>public mdaysleft, primeagent, otherpfc
>>iPolicyNum = 1
>>mDaysLeft =30
>>primeagent = .f.
>>otherpfc = .f.
>>do policypopup.mpr WITH 1
>>
>>
>>*       *********************************************************
>>*       *
>>*       * 01/06/2006          POLICYPOPUP.MPR           11:26:34
>>*       *
>>*       *********************************************************
>>*       *
>>*       * Description:
>>*       * This PROGRAM was automatically generated BY GENMENU.
>>*       *
>>*       *********************************************************
>>
>>
>>*       *********************************************************
>>*       *
>>*       *                        Setup Code
>>*       *
>>*       *********************************************************
>>*
>>
>>PARAMETERS iPolicyNum
>>
>>IF EMPTY(iPolicyNum)
>>	iPolicyNum = 0
>>ENDIF
>>
>>IF mDaysLeft < 0
>>	RETURN
>>ENDIF
>>******************************************
>>
>>** Menu Builder Enhancements by GENMENUX 3.0b Beta **
>>
>>** This file has been modified using
>>**   GENMENUX 3.0b Beta   - FoxPro Menu Processor **
>>
>>*       *********************************************************
>>*       *
>>*       *                      Menu Definition
>>*       *
>>*       *********************************************************
>>*
>>
>>DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
>>DEFINE BAR 1 OF shortcut PROMPT "\<Add" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 2 OF shortcut PROMPT "\<Policy Summary" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 3 OF shortcut PROMPT "Policy \<Detail" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 4 OF shortcut PROMPT "Policy \<History" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 5 OF shortcut PROMPT "\<View Policy" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 6 OF shortcut PROMPT "\-"
>>DEFINE BAR 7 OF shortcut PROMPT "\<Finance Policy" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 8 OF shortcut PROMPT "\<Offer to Renew" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 9 OF shortcut PROMPT "\<Renew Policy" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 10 OF shortcut PROMPT "\<Non Renew" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 11 OF shortcut PROMPT "\-"
>>DEFINE BAR 12 OF shortcut PROMPT "\<View Suspended Items" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 13 OF shortcut PROMPT "\-"
>>DEFINE BAR 14 OF shortcut PROMPT "Full Pa\<yment" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 15 OF shortcut PROMPT "\-"
>>DEFINE BAR 16 OF shortcut PROMPT "\<Endorsement" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 17 OF shortcut PROMPT "\<Address Change Only" ;
>>	SKIP FOR mDaysLeft < 0
>>DEFINE BAR 18 OF shortcut PROMPT "\<Import Endorsement" ;
>>	SKIP FOR mDaysLeft < 0
>>ON SELECTION BAR 1 OF shortcut DO pro_view WITH 'A1.02'
>>ON SELECTION BAR 2 OF shortcut DO pro_view WITH 'E1.02', iPolicyNum
>>ON SELECTION BAR 3 OF shortcut DO pro_view WITH 'E1.03', iPolicyNum
>>ON SELECTION BAR 4 OF shortcut DO pro_view WITH 'H1.07', iPolicyNum
>>ON SELECTION BAR 5 OF shortcut DO pro_view WITH 'V2'
>>ON SELECTION BAR 7 OF shortcut DO pro_view WITH 'F1', iPolicyNum
>>ON SELECTION BAR 8 OF shortcut DO pro_view WITH 'R2.01', iPolicyNum
>>ON SELECTION BAR 9 OF shortcut DO pro_view WITH 'R2.02', iPolicyNum
>>ON SELECTION BAR 10 OF shortcut DO pro_view WITH 'R2.03', iPolicyNum
>>ON SELECTION BAR 12 OF shortcut ;
>>	DO _1pc0oj90t ;
>>	IN LOCFILE("..\FOXPRO\VFP9\TMP\POLICYPOPUP" ,"MPX;MPR|FXP;PRG" ,"WHERE is POLICYPOPUP?")
>>ON SELECTION BAR 14 OF shortcut DO pro_view WITH 'R1.05', iPolicyNum
>>ON SELECTION BAR 16 OF shortcut DO pro_view WITH 'E2.01', iPolicyNum
>>ON SELECTION BAR 17 OF shortcut DO pro_view WITH 'E2.02', iPolicyNum
>>ON SELECTION BAR 18 OF shortcut DO pro_view WITH 'E2.03'
>>
>>ACTIVATE POPUP shortcut
>>
>>*       *********************************************************
>>*       *
>>*       *                 Cleanup Code & Procedures
>>*       *
>>*       *********************************************************
>>*
>>
>>IF NOT (PrimeAgent .or. otherPFC)
>>   RELEASE BAR 7 OF Shortcut
>>ENDIF
>>
>>*       *********************************************************
>>*       *
>>*       * _1PC0OJ90T  ON SELECTION BAR 12 OF POPUP shortcut
>>*       *
>>*       * Procedure Origin:
>>*       *
>>*       * From Menu:  POLICYPOPUP.MPR,            Record:   16
>>*       * Called By:  ON SELECTION BAR 12 OF POPUP shortcut
>>*       * Prompt:     View Suspended Items
>>*       * Snippet:    1
>>*       *
>>*       *********************************************************
>>*
>>PROCEDURE _1pc0oj90t
>>EXTERNAL ARRAY mpo_pol
>>
>>IF USED('TPOLICY') .and. !EOF('TPOLICY') .and. !EMPTY(tpolicy.po_detail)
>>	DO suspendedhistory WITH .T., .F., tpolicy.po_detail
>>	DO pro_view_select IN pro_view
>>ELSE
>>	=OKAY('There are no policies to view suspended items for.')
>>ENDIF
>>
>>
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform