>SET SYSMENU TO >SET SYSMENU AUTOMATIC > >DEFINE PAD Ordering OF _MSYSMENU PROMPT "Ordering" COLOR SCHEME 3 ; > KEY ALT+O, "" >DEFINE PAD Receiving OF _MSYSMENU PROMPT "Receiving" COLOR SCHEME 3 ; > KEY ALT+R, "" >DEFINE PAD Suppliers OF _MSYSMENU PROMPT "Suppliers" COLOR SCHEME 3 ; > KEY ALT+S, "" >DEFINE PAD _2an0tmktl OF _MSYSMENU PROMPT "Reports" COLOR SCHEME 3 ; > KEY ALT+R, "" >DEFINE PAD Utilities OF _MSYSMENU PROMPT "Utilities" COLOR SCHEME 3 ; > KEY ALT+U, "" >DEFINE PAD _2an0tmktm OF _MSYSMENU PROMPT "Exit" COLOR SCHEME 3 ; > KEY ALT+E, "" >ON SELECTION PAD Ordering OF _MSYSMENU DO FORM frmorder >ON SELECTION PAD Receiving OF _MSYSMENU DO FORM frmrecv >ON SELECTION PAD Suppliers OF _MSYSMENU DO FORM frmsuppliers >ON PAD _2an0tmktl OF _MSYSMENU ACTIVATE POPUP reports >ON PAD Utilities OF _MSYSMENU ACTIVATE POPUP utilities >ON SELECTION PAD _2an0tmktm OF _MSYSMENU do unload > >DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4 >DEFINE BAR 1 OF reports PROMPT "Orders Summary" >DEFINE BAR 2 OF reports PROMPT "Drug Order History" >ON SELECTION BAR 1 OF reports DO Form frmsummary >ON SELECTION BAR 2 OF reports DO Form frmdruglist > >DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4 >DEFINE BAR Configuration OF utilities PROMPT "Configuration" >DEFINE BAR PO OF utilities PROMPT "Load Starting PO" >DEFINE BAR 3 OF utilities PROMPT "Reindex" >DEFINE BAR Scanning OF utilities PROMPT "Inventory Scanning" >ON SELECTION BAR Configuration OF utilities do form frmconfg >ON SELECTION BAR PO OF utilities do form frmpo >ON SELECTION BAR 3 OF utilities DO REINDEX >ON SELECTION BAR Scanning OF utilities do form frmscan >>