SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD Stok OF _MSYSMENU PROMPT "\<Stok" COLOR SCHEME 3 ;
    KEY ALT+S, ""

ON PAD Stok OF _MSYSMENU ACTIVATE POPUP stokfontve

DEFINE POPUP stokfontve MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF stokfontve PROMPT "Stok Kartlar&#305;" 

DEFINE BAR 2 OF stokfontve PROMPT "\-"
DEFINE BAR 3 OF stokfontve PROMPT "Stok-Fatura &#304;&#351;lemleri" ;
    PICTRES _mwz_form
DEFINE BAR 4 OF stokfontve PROMPT "KDV Oran&#305; Ayarlama" 

DEFINE BAR 5 OF stokfontve PROMPT "O'TV Oran&#305; Ayarlama" 

DEFINE BAR 6 OF stokfontve PROMPT "\-"
*--------------------------------------------------------------------
DEFINE BAR 7 OF stokfontve PROMPT "Raporlar" ;
    FONT 'Tahoma',11 STYLE 'BI'
*---------------------------------------------------------------------------

ON SELECTION BAR 1 OF stokfontve do form stok
ON SELECTION BAR 3 OF stokfontve do form stokfaturapf
ON SELECTION BAR 4 OF stokfontve do form kdvayarla
ON SELECTION BAR 5 OF stokfontve do form otvayarla
ON BAR 7 OF stokfontve ACTIVATE POPUP raporlar