* prázdný formulář
@ 0, 5 GET JZM_Popis ONCHANGE=OnChange_VAR NOSHOW 
@ 1, 5 BUTTON FORM "UAP_DUG.fmt" \\\
       SIZE 0,15 TITLE "Informace STI" \\\
       ID "VIS"


Function OnChange_VAR
  IF GETENV("GI_SZDC_FORM_STI_BUTTON")="1"
    CHANGESTATE ID=VIS DISABLED=0
    CHANGESTATE ID=VIS HIDDEN=0
  ELSE
    CHANGESTATE ID=VIS DISABLED=1
    CHANGESTATE ID=VIS HIDDEN=1
  ENDIF
EndFunction