menustyle="message ' ' FONT 'VERDANA', 9 "
SET SYSMENU TO _MFILE,_MEDIT,_MWINDOW
DEFINE PAD salesmenu OF _MSYSMENU PROMPT "\<2.Daily Entries" BEFORE _MFILE KEY ALT+2, ""
DEFINE PAD _07E0YDU68 OF _MSYSMENU PROMPT "\<Minimize " KEY ALT+M, "" COLOR SCHEME 3
ON SELECTION PAD _07E0YDU68 OF _MSYSMENU  _SCREEN.WINDOWSTATE= 1

ON PAD salesmenu OF _MSYSMENU ACTIVATE POPUP salemenu2

DEFINE POPUP salemenu2 SHADOW MARGIN RELATIVE COLOR SCHEME 4
nsalemenu2 =1
DEFINE BAR nsalemenu2 OF salemenu2 PROMPT "\<A. Enquiry " SKIP FOR WEXIST('inq2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2 OF salemenu2 DO FORM inq2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<B. Quatation " SKIP FOR WEXIST('quot2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM quot2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<C. Purchase Order " SKIP FOR WEXIST('PO2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM PO2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<D. Invoice & Payment " SKIP FOR WEXIST('inv2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM inv2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<E. FOC Entry " SKIP FOR WEXIST('foc2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM foc2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<F. Visit Entry " SKIP FOR WEXIST('visit2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM visit2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<G. Commission Invoice Entry " SKIP FOR WEXIST('comm2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM comm2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<H. Manufacturing Entry " SKIP FOR WEXIST('mfg2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM mfg2
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\-"
nsalemenu2 =nsalemenu2 +1
DEFINE BAR nsalemenu2  OF salemenu2 PROMPT "\<H. Proforma Entry " SKIP FOR WEXIST('prof2') &menustyle PICTURE "1EARTH.GIF"
ON SELECTION BAR nsalemenu2  OF salemenu2 DO FORM prof2