>>* ********************************************************* >>* * >>* * 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 >> >>