; Dotaz, zda doplnit do Rozvahy minule obdobi
; verze z 3.9.2003
Designed('');
DeclareRec('Program')
WNSType(0);
SetStatusText('')

if(Length(HS())>0)
  begin
    VyplMO=1
    Exit
  end

MinRok=True
VyplMO=Val(GetDataIni('Zaverka','VyplMOR'))
if(FirstInBatch())   ;řešit dotaz:
  begin
    Vypl1:Boolean=False
    Vypl2:Boolean=True
    if(VyplMO=1)
      begin
        Vypl1=True
        Vypl2=False
      end
    if(VyplMO=2)
      begin
        Vypl1=False
        Vypl2=True
      end
    NabidRok:Boolean=False
    NabidMesic:Boolean=False

    ;{definice uvodniho dialogu, zadání období}
    ;DlgFollowMouse(True)
    DefDialog('Doplnění minulého období do Rozvahy',462,264)
    DlgShade(-1,'',4,27,453,164)
    DlgStatic(-1,'Sloupec minulého období',10,4,167)

    DlgRadioButton(105,Vypl1,20,28,265,,'- nevyplňovat',105,107)
    DlgOnLineHelp(105,'Sloupec pro minulé období nebude vyplněn')
    DlgRadioButton(106,Vypl2,20,48,365,,'- převzít z údajů o počátečních stavech',105,106)
    DlgOnLineHelp(106,'Sloupec pro minulé období bude vypočten z údajů o počátečních stavech')

    DlgStatic(-1,'Pokud chcete doplnit hodnoty minulého období, musí být zadány',10,104,436)
    DlgStatic(-1,'počáteční stavy',10,124,436)

    DlgButton(id_OK,'OK',363,196);
    DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
    ;DlgButton(id_Cancel,'Zpět',373,196);
    ;DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')
    DlgButton(id_Help,'Help',33,196);
    DlgOnLineHelp(id_Help,'Help')
    DlgSetHelp(help_Context,510)

    Result:Integer=DlgExecute()

    if(Result<>id_OK)
      Halt

    if(Vypl1)
        VyplMO=1
    if(Vypl2)
        VyplMO=2
    SetDataIni('Zaverka','VyplMOR',VyplMO)
  end   ;konec dotazu pri FirstInBatch
if(VyplMO=1)
  MinRok=False
if(VyplMO=2)
  MinRok=True

Exit
End