*!*****************************************************************************
*PROCEDURE deftool
IF ",1,"$m.gctbobsah
    DEFINE BAR  1 OF menutool PROMPT jaz("tb_kalkulace") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR  1 OF menutool PROMPT jaz("tb_kalkulace")
ENDIF
IF ",2,"$m.gctbobsah
    DEFINE BAR  2 OF menutool PROMPT jaz("tb_menu") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  2 OF menutool PROMPT jaz("tb_menu") SKIP FOR m.gityp_inst=1
ENDIF
IF ",3,"$m.gctbobsah
    DEFINE BAR  3 OF menutool PROMPT jaz("tb_odp_kasy") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  3 OF menutool PROMPT jaz("tb_odp_kasy") SKIP FOR m.gityp_inst=1
ENDIF
IF ",4,"$m.gctbobsah
    DEFINE BAR  4 OF menutool PROMPT jaz("tb_odp_davky") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  4 OF menutool PROMPT jaz("tb_odp_davky") SKIP FOR m.gityp_inst=1
ENDIF
IF ",5,"$m.gctbobsah
    DEFINE BAR  5 OF menutool PROMPT jaz("tb_odp_davky mnohostred") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  5 OF menutool PROMPT jaz("tb_odp_davky mnohostred") SKIP FOR m.gityp_inst=1
ENDIF
IF ",6,"$m.gctbobsah
    DEFINE BAR  6 OF menutool PROMPT jaz("tb_limity") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  6 OF menutool PROMPT jaz("tb_limity") SKIP FOR m.gityp_inst=1
ENDIF
IF ",7,"$m.gctbobsah
    DEFINE BAR  7 OF menutool PROMPT jaz("tb_rauty") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  7 OF menutool PROMPT jaz("tb_rauty") SKIP FOR m.gityp_inst=1
ENDIF
IF ",8,"$m.gctbobsah
    DEFINE BAR  8 OF menutool PROMPT jaz("tb_prijem_int") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  8 OF menutool PROMPT jaz("tb_prijem_int") SKIP FOR m.gityp_inst=1
ENDIF
IF ",9,"$m.gctbobsah
    DEFINE BAR  9 OF menutool PROMPT jaz("tb_vydej_int") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR  9 OF menutool PROMPT jaz("tb_vydej_int") SKIP FOR m.gityp_inst=1
ENDIF
IF ",10,"$m.gctbobsah
    DEFINE BAR 10 OF menutool PROMPT jaz("tb_prijem_ext") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 10 OF menutool PROMPT jaz("tb_prijem_ext") SKIP FOR m.gityp_inst=1
ENDIF
IF ",11,"$m.gctbobsah
    DEFINE BAR 11 OF menutool PROMPT jaz("tb_vydej_ext") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 11 OF menutool PROMPT jaz("tb_vydej_ext") SKIP FOR m.gityp_inst=1
ENDIF
IF ",12,"$m.gctbobsah
    DEFINE BAR 12 OF menutool PROMPT jaz("tb_vratka")    PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 12 OF menutool PROMPT jaz("tb_vratka") SKIP FOR m.gityp_inst=1
ENDIF
IF ",13,"$m.gctbobsah
    DEFINE BAR 13 OF menutool PROMPT jaz("tb_inventura") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 13 OF menutool PROMPT jaz("tb_inventura") SKIP FOR m.gityp_inst=1
ENDIF
IF ",14,"$m.gctbobsah
    DEFINE BAR 14 OF menutool PROMPT jaz("tb_bourani") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 14 OF menutool PROMPT jaz("tb_bourani") SKIP FOR m.gityp_inst=1
ENDIF
IF ",15,"$m.gctbobsah
    DEFINE BAR 15 OF menutool PROMPT jaz("tb_karty") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 15 OF menutool PROMPT jaz("tb_karty")
ENDIF
IF ",16,"$m.gctbobsah
    DEFINE BAR 16 OF menutool PROMPT jaz("tb_ceny") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 16 OF menutool PROMPT jaz("tb_ceny")
ENDIF
IF ",17,"$m.gctbobsah
    DEFINE BAR 17 OF menutool PROMPT jaz("tb_umisteni") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 17 OF menutool PROMPT jaz("tb_umisteni")
ENDIF
IF ",18,"$m.gctbobsah
    DEFINE BAR 18 OF menutool PROMPT jaz("tb_druhy") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 18 OF menutool PROMPT jaz("tb_druhy")
ENDIF
IF ",19,"$m.gctbobsah
    DEFINE BAR 19 OF menutool PROMPT jaz("m_ses_trzbove sestavy") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 19 OF menutool PROMPT jaz("m_ses_trzbove sestavy")
ENDIF
IF ",20,"$m.gctbobsah
    DEFINE BAR 20 OF menutool PROMPT jaz("m_ses_obratove sestavy")    PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 20 OF menutool PROMPT jaz("m_ses_obratove sestavy") SKIP FOR m.gityp_inst=1
ENDIF
IF ",21,"$m.gctbobsah
    DEFINE BAR 21 OF menutool PROMPT jaz("m_s_inv stav zasob_mssg") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 21 OF menutool PROMPT jaz("m_s_inv stav zasob_mssg") SKIP FOR m.gityp_inst=1
ENDIF
IF ",22,"$m.gctbobsah
    DEFINE BAR 22 OF menutool PROMPT jaz("tb_users") PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 22 OF menutool PROMPT jaz("tb_users")
ENDIF
IF ",23,"$m.gctbobsah
    DEFINE BAR 23 OF menutool PROMPT jaz("tb_limity_nove") PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR !m.is_newlim
ELSE
    DEFINE BAR 23 OF menutool PROMPT jaz("tb_limity_nove") SKIP FOR !m.is_newlim
ENDIF
*!*    IF ",24,"$m.gctbobsah
*!*    *    DEFINE BAR 24 OF menutool PROMPT "Prepočet skladov"    PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
*!*    ELSE
*!*    *    DEFINE BAR 24 OF menutool PROMPT "Prepočet skladov" SKIP FOR m.gityp_inst=1
*!*    ENDIF
IF ",25,"$m.gctbobsah
    DEFINE BAR 25 OF menutool PROMPT jaz("tb_uzaverka")         PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR m.gityp_inst=1
ELSE
    DEFINE BAR 25 OF menutool PROMPT jaz("tb_uzaverka") SKIP FOR m.gityp_inst=1
ENDIF
IF ",26,"$m.gctbobsah
    DEFINE BAR 26 OF menutool PROMPT "Kongres - akcie"         PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR !m.is_kongres
ELSE
    DEFINE BAR 26 OF menutool PROMPT "Kongres - akcie" SKIP FOR !m.is_kongres
ENDIF
IF ",27,"$m.gctbobsah
    DEFINE BAR 27 OF menutool PROMPT "Kongres - akcie plachty"         PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR !m.is_kongres
ELSE
    DEFINE BAR 27 OF menutool PROMPT "Kongres - akcie plachty" SKIP FOR !m.is_kongres
ENDIF
IF ",28,"$m.gctbobsah
    DEFINE BAR 28 OF menutool PROMPT "Kongres - priestory plachty"         PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR !m.is_kongres
ELSE
    DEFINE BAR 28 OF menutool PROMPT "Kongres - priestory plachty" SKIP FOR !m.is_kongres
ENDIF
IF ",29,"$m.gctbobsah
    DEFINE BAR 29 OF menutool PROMPT "Kongres - zostavy"         PICTURE m.gcini_path+"bitmaps\ok.gif" SKIP FOR !m.is_kongres
ELSE
    DEFINE BAR 29 OF menutool PROMPT "Kongres - zostavy" SKIP FOR !m.is_kongres
ENDIF
IF ",30,"$m.gctbobsah
    DEFINE BAR 30 OF menutool PROMPT jaz("form klapky")         PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 30 OF menutool PROMPT jaz("form klapky") 
ENDIF
IF ",31,"$m.gctbobsah
    DEFINE BAR 31 OF menutool PROMPT jaz("form_mapa_stolov")         PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 31 OF menutool PROMPT jaz("form_mapa_stolov") 
ENDIF
IF ",32,"$m.gctbobsah
    DEFINE BAR 32 OF menutool PROMPT jaz("form_cenovky")         PICTURE m.gcini_path+"bitmaps\ok.gif"
ELSE
    DEFINE BAR 32 OF menutool PROMPT jaz("form_cenovky") 
ENDIF
ON SELECTION POPUP menutool DO upravtool WITH ALLTRIM(STR(BAR(),2))
