; Rozcestnik 'Přiznání k DPPO'
; verze: z 5.1.2005
; Autor: Milan Slíva + Zdeněk Čapek

Name('Přiznání k dani z příjmů')
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://wwww.winduo.cz')
Descr('Formulář pro daňové přiznání')
IF(Version()<6)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)

DeclareRec('Program')
IniRok:String=Rok()
;FileName('DPPO'+IniRok+'.WNS')
VolbaP:Boolean=False
VolbaF:Boolean=False
Global Prazdny:Boolean=True;

IF((Val(IniRok)>=2003)and(Program.TypFirmy=0)and(not Program.DanovaEvidence))
  begin
    ;DlgFollowMouse(True)
    DefDialog('Volba daňového přiznání',462-66,298-114)
    DlgShade(-1,'',4,4,453-66,198-114)
    DlgStatic(-1,'&Zvolte, které daňové přiznání chcete sestavit',10,16,300)
    DlgRadioButton(109,VolbaP,150,32,240,,'- daň z příjmů právnických osob',109,110)
    DlgOnLineHelp(109,'Bude sestaveno daňové přiznání pro daň z příjmů právnických osob')
    DlgRadioButton(110,VolbaF,150,52,240,,'- daň z příjmů fyzických osob',109,110)
    DlgOnLineHelp(110,'Bude sestaveno daňové přiznání pro daň z příjmů fyzických osob')
    DlgButton(id_OK,'OK',290-66,230-114);
    DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
    DlgButton(id_Cancel,'Zpět',373-66,230-114);
    DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')
    if(DlgExecute(True)<>ID_OK)
      Halt
  end else
  begin
    if(Program.DanovaEvidence)
        VolbaP=False
      else
        VolbaP=True
  end

if(VolbaP)
  begin
    IF(Val(IniRok)>=2004)
      callddt('dppo14.ddt')

    IF(Val(IniRok)=2003)
      callddt('dppo13.ddt')

    IF(Val(IniRok)=2002)
      callddt('dppo12.ddt')

    IF(Val(IniRok)=2001)
     callddt('dppo11.ddt')

    IF(Val(IniRok)=2000)
     callddt('dppo10.ddt')

    IF(Val(IniRok)<=1999)
     callddt('dppo9.ddt')

  end else
  begin
    IF(Val(IniRok)>=2005)
        callddt('dapB12.ddt')
    IF(Val(IniRok)=2004)
        callddt('dapB11.ddt')
    IF(Val(IniRok)=2003)
        callddt('dapB10.ddt')
    IF(Val(IniRok)<2003)
        Halt('Formulář DAP-B lze ve WinDUO zpracovat až od roku 2003')
  end

END