LPARAMETER OFORMREF , GETMENUNAME , LUNIQUEPOPUPS , PARM4 , PARM5 , PARM6 , PARM7 , PARM8 ,  ;
      PARM9
 LOCAL CMENUNAME , NTOTPOPS , A_MENUPOPS , CTYPEPARM2 , CSAVEFORMNAME
 IF TYPE('m.oFormRef') <> 'O' .OR. LOWER(M.OFORMREF.BASECLASS) <> 'form' .OR.  ;
M.OFORMREF.SHOWWINDOW <> 2
     MESSAGEBOX('只能從頂層表單調用該菜單。請確認您表單的 ShowWindow 屬性已設為 2。閱讀此菜單 MPR 文件的頭部分，可以獲得詳細信息。')
    RETURN 
 ENDIF 
 M.CTYPEPARM2 = TYPE('m.getMenuName')
 M.CMENUNAME = SYS(2015)
 M.CSAVEFORMNAME = M.OFORMREF.NAME
 IF M.CTYPEPARM2 = 'C' .OR. (M.CTYPEPARM2 = 'L' AND M.GETMENUNAME)
    M.OFORMREF.NAME = M.CMENUNAME
 ENDIF 
 IF M.CTYPEPARM2 = 'C' AND  .NOT. EMPTY(M.GETMENUNAME)
    M.CMENUNAME = M.GETMENUNAME
 ENDIF 
 DIMENSION A_MENUPOPS( 16 )
 IF TYPE('m.lUniquePopups') = 'L' AND M.LUNIQUEPOPUPS
    FOR NTOTPOPS = 1 TO ALEN(A_MENUPOPS)
       A_MENUPOPS( M.NTOTPOPS ) = SYS(2015)
    ENDFOR 
 ELSE 
    A_MENUPOPS( 1 ) = '業務管理x'
    A_MENUPOPS( 2 ) = '進貨管理j'
    A_MENUPOPS( 3 ) = '庫存管理k'
    A_MENUPOPS( 4 ) = '商品信息p'
    A_MENUPOPS( 5 ) = '報表管理b'
    A_MENUPOPS( 6 ) = '往來帳款w'
    A_MENUPOPS( 7 ) = '系統設置s'
    A_MENUPOPS( 8 ) = '幫助h'
 ENDIF 

DEFINE MENU (M.CMENUNAME) BAR IN (M.OFORMREF.NAME)
do case
   case PASSWORDS.A1=.T.
     DEFINE PAD _0WY0N84H8 OF (M.CMENUNAME) PROMPT '業務管理(\<X)' COLOR SCHEME 3 KEY ALT+X , ''
     ON PAD _0WY0N84H8 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(1))
   case PASSWORDS.A1=.F.
     HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A6=.T.
        DEFINE PAD _0WY0N84HO OF (M.CMENUNAME) PROMPT '進貨管理(\<J)' COLOR SCHEME 3 KEY ALT+J ,''
        ON PAD _0WY0N84HO OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(2))
   case PASSWORDS.A6=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A9=.T.
        DEFINE PAD _0WY0N84H1 OF (M.CMENUNAME) PROMPT '庫存管理\<K)' COLOR SCHEME 3 KEY ALT+K ,''
        ON PAD _0WY0N84H1 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(3))
   case PASSWORDS.A9=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A13=.T.
        DEFINE PAD _0WY0N84HP OF (M.CMENUNAME) PROMPT '商品信息\<P)' COLOR SCHEME 3 KEY ALT+P ,''
        ON PAD _0WY0N84HP OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(4))
   case PASSWORDS.A13=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A17=.T.
        DEFINE PAD _0WY0N84H2 OF (M.CMENUNAME) PROMPT '報表管理(\<B)' COLOR SCHEME 3 KEY ALT+B ,''
        ON PAD _0WY0N84H2 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(5))
   case PASSWORDS.A17=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A29=.T.
        DEFINE PAD _0WY0N84HR OF (M.CMENUNAME) PROMPT '往來帳款(\<W)' COLOR SCHEME 3 KEY ALT+W ,''
        ON PAD _0WY0N84HR OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(6))
   case PASSWORDS.A29=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A41=.T.
        DEFINE PAD _0WY0N84H3 OF (M.CMENUNAME) PROMPT '系統設置(\<S)' COLOR SCHEME 3 KEY ALT+S ,''
        ON PAD _0WY0N84H3 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(7))
   case PASSWORDS.A41=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
        DEFINE PAD _0WY0N84HS OF (M.CMENUNAME) PROMPT '幫助(\<H)' COLOR SCHEME 3 KEY ALT+H ,''
        ON PAD _0WY0N84HS OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(8))
***********************************************************************
DEFINE POPUP (A_MENUPOPS(1)) COLOR SCHEME 5 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A2=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(1)) PROMPT '銷售單' 
        ON SELECTION BAR 1 OF (A_MENUPOPS(1)) do form xskd   
   case PASSWORDS.A2=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A3=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(1)) PROMPT '退貨單'
        ON SELECTION BAR 2 OF (A_MENUPOPS(1)) do form thkd
   case PASSWORDS.A3=.F.
HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A4=.T.
        DEFINE BAR 3 OF (A_MENUPOPS(1)) PROMPT '付款單'
        DEFINE BAR 4 OF (A_MENUPOPS(1)) PROMPT '\-'
        ON SELECTION BAR 3 OF (A_MENUPOPS(1)) do form fkkd
   case PASSWORDS.A4=.F.
HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A5=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(1)) PROMPT '還款單'
        ON SELECTION BAR 5 OF (A_MENUPOPS(1)) do form hkkd
   case PASSWORDS.A5=.F.
HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(2)) COLOR SCHEME 2 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A7=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(2)) PROMPT '商品入庫單' 
        ON SELECTION BAR 1 OF (A_MENUPOPS(2)) do form rkkd
   case PASSWORDS.A7=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A8=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(2)) PROMPT '商品退貨單'
        ON SELECTION BAR 2 OF (A_MENUPOPS(2)) do form fckd
   case PASSWORDS.A8=.F.
        HIDE POPUP ALL
ENDCASE  
***********************************************************************
DEFINE POPUP (A_MENUPOPS(3)) COLOR SCHEME 3 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A10=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(3)) PROMPT '商品損溢單'
        DEFINE BAR 2 OF (A_MENUPOPS(3)) PROMPT '\-'
        ON SELECTION BAR 1 OF (A_MENUPOPS(3)) do form bykd
   case PASSWORDS.A10=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A11=.T.
        DEFINE BAR 3 OF (A_MENUPOPS(3)) PROMPT '商品庫存查詢' 
        ON SELECTION BAR 3 OF (A_MENUPOPS(3)) DO FORM about
   case PASSWORDS.A11=.F.
        HIDE POPUP ALL
ENDCASE

do case
   case PASSWORDS.A12=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(3)) PROMPT '商品進貨查詢'
        ON SELECTION BAR 4 OF (A_MENUPOPS(3)) do form about
   case PASSWORDS.A12=.F.
        HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(4)) COLOR SCHEME 3 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A14=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(4)) PROMPT '商品綜合查詢'
        ON SELECTION BAR 1 OF (A_MENUPOPS(4)) do form about
   case PASSWORDS.A14=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A15=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(4)) PROMPT '商品單一查詢'
        DEFINE BAR 3 OF (A_MENUPOPS(4)) PROMPT '\-'
        ON SELECTION BAR 2 OF (A_MENUPOPS(4)) do form about
   case PASSWORDS.A15=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A16=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(4)) PROMPT '商品管理' 
        ON SELECTION BAR 4 OF (A_MENUPOPS(4)) do form newsp
   case PASSWORDS.A16=.F.
        HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(5)) COLOR SCHEME 11 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A18=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(5)) PROMPT '商品進貨明細報表'
        ON SELECTION BAR 1 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A18=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A19=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(5)) PROMPT '商品進貨匯總報表'
        DEFINE BAR 3 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 2 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A19=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A20=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(5)) PROMPT '商品銷售明細報表'
        ON SELECTION BAR 4 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A20=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A21=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(5)) PROMPT '商品銷售匯總報表'
        DEFINE BAR 6 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 5 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A21=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A22=.T.
        DEFINE BAR 7 OF (A_MENUPOPS(5)) PROMPT '商品銷售利潤明細表' 
        ON SELECTION BAR 7 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A22=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A23=.T.
        DEFINE BAR 8 OF (A_MENUPOPS(5)) PROMPT '商品銷售利潤匯總表'