; Rozcestnik 'Přiznání k DPH'
; verze: z 26.8.2015
; Autor: Milan Slíva

Name('Přiznání DPH')
Designed('EmptyForm')
Author('Milan Slíva','EMail: sliva@fi.cz','http://www.fi.cz')
Descr('Formulář pro přiznání DPH')
IF(Version()<6)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)

FileName('DPHDDT.WNS')

DeclareRec('Program')

Global Vzor:Integer
Global Prazdny:Boolean=CompareStr(UpCase(GetBindName()),'EMPTYFORM');

if(Prazdny)
  begin
    DefDialog('Výběr formuláře',256,112);
    DlgShade(-1,,8,8,240,32);
    vyber:integer=0;
    DlgCombo(101,vyber,12,12,232,256,33,CBS_DropDownList,'Vzor 20.','Vzor 19.','Vzor 18.','Vzor 17.','Vzor 16.','Vzor 15.','Vzor 14.','Vzor 13.');
    DlgButton(id_OK,'OK',56,46);
    DlgButton(id_Cancel,'Zpět',138,46);
    if(DlgExecute(True)<>id_OK)
      Halt;
    if(Vyber=0)
      begin
        Vzor=20
        callddt('dph_cz21.ddt')
      end else
    if(Vyber=1)
      begin
        Vzor=19
        callddt('dph_cz20.ddt')
      end else
    if(Vyber=2)
      begin
        Vzor=18
        callddt('dph_cz19.ddt')
      end else
    if(Vyber=3)
      begin
        Vzor=17
        callddt('dph_cz17.ddt')
      end else
    if(Vyber=4)
      begin
        Vzor=16
        callddt('dph_cz16.ddt')
      end else
    if(Vyber=5)
      begin
        Vzor=15
        callddt('dph_cz15.ddt')
      end else
    if(Vyber=6)
      begin
        Vzor=14
        callddt('dph_cz14.ddt')
      end else
    if(Vyber=7)
      begin
        Vzor=13
        callddt('dph_cz13.ddt')
      end;
  end else
  begin
    OPENWNS('HLASDPH.WNS')
    LongInt=CountWNSLines(3,0)
    IF(x=19)
      begin
       Vzor=9
       callddt('dph10.ddt')
      end else
    IF(x=22)
      begin
        Vzor=10
        callddt('dph10.ddt')
      end else
    IF(x=39)
      begin
        Vzor=11
        callddt('dph11.ddt')
      end else
        Error('Chybný typ přiznání '+Str(x),mb_IconStop)
  end;

END