; Popis formuláře 'Přiznání k dani z přidané hodnoty - vzor č.20'
; verze: z 26.8.2016
; Autor: Milan Slíva

Name('Přiznání DPH - formulář č.20')
Designed('')
Author('Milan Slíva','EMail: sliva@fi.cz','http://www.fi.cz')
Descr('Formulář pro přiznání DPH')

Vzor:Integer=20

if(not ExistVariable('Prazdny'))
  Prazdny:Boolean=False

INIzDPPO:String=DataPath+'DPPO.INI'

Jednotky:Array[1..5] of String='gram','kus','','','kilogram'

FileName('DPHpriz.WNS')
DeclareRec('Program')

LocStr:String
LocStr2:String
LocStr3:String
LocB:Byte
LocL:LongInt;

IsXML:Boolean=False
IsXML2:Boolean=False
IsXML3:Boolean=False

t92_1:LongInt=0;
t92_2:LongInt=0;

if(not(Prazdny))
  begin
    if(not CompareStr(UpCase(Copy(Program.DIC,1,2)),'CZ'))
      begin
        Halt('DIČ musí začínat znaky CZ !!!');
      end;
    ObdMode:Byte
    ;DlgFollowMouse(True)
    ValidDIC:String='0123456789CZcz'
    ValidCisla:String='0123456789'

    ViesPath:String=GetFromIni('PATHS','Vies',INIzDPPO);
    if(Length(ViesPath)=0)
      ViesPath=GetIni('PATHS','Vies');

    Nace:String[6]=GetFromINI('INFO','NACE',INIzDPPO)
    if(Length(Nace)=0)
      Nace=GetDataINI('INFO','NACE')
    if((Val(Nace)<1000) or (Val(Nace)>99999))
      Nace=''
    else
      Nace=NulL(Nace,5)

    ;definice dialogu
    AktualCover:Integer=0
    FinancniUradNum:Word=Val(GetFromINI('INFO','FinancniUradCislo',INIzDPPO))
    if(FinancniUradNum=0)
      FinancniUradNum=Val(GetDataINI('INFO','FinancniUradCislo'))
    FinancniUrad:String[32]=GetFromINI('INFO','FinancniUrad',INIzDPPO)
    if(Length(FinancniUrad)=0)
      FinancniUrad=GetDataINI('INFO','FinancniUrad')
    PracovisteFUNum:Word=Val(GetFromINI('INFO','PracovisteFUCislo',INIzDPPO))
    if(PracovisteFUNum=0)
      PracovisteFUNum=Val(GetDataINI('INFO','PracovisteFUCislo'))
    PracovisteFU:String[32]=GetFromINI('INFO','PracovisteFU',INIzDPPO)
    if(Length(PracovisteFU)=0)
      PracovisteFU=GetDataINI('INFO','PracovisteFU')
    LocStr=GetFromINI('INFO','TypSubjektu',INIzDPPO)
    if(Length(LocStr)=0)
      LocStr=GetDataINI('INFO','TypSubjektu')
    TypSubjektu:Byte=Val(LocStr)
    DatumPriznani:Word=ValDate(GetFromINI('DPH','DatumPriznani',INIzDPPO))
    if(DatumPriznani=0)
      DatumPriznani=ValDate(GetDataINI('DPH','DatumPriznani'))
    Prijmeni:String[25]=GetFromINI('INFO','PrijmeniZastupce',INIzDPPO)
    if(Length(Prijmeni)=0)
      Prijmeni=GetDataINI('INFO','PrijmeniZastupce')
    Jmeno:String[11]=GetFromINI('INFO','JmenoZastupce',INIzDPPO)
    if(Length(Jmeno)=0)
      Jmeno=GetDataINI('INFO','JmenoZastupce')
    ObchodniJmeno:String[37]=GetFromINI('INFO','ObchodniJmeno',INIzDPPO)
    if(Length(ObchodniJmeno)=0)
      ObchodniJmeno=GetDataINI('INFO','ObchodniJmeno')
    ObchodniJmeno2:String[25]=GetFromINI('INFO','ObchodniJmeno2',INIzDPPO)
    if(Length(ObchodniJmeno2)=0)
      ObchodniJmeno2=GetDataINI('INFO','ObchodniJmeno2')
    DodatekJmena:String[11]=GetFromINI('INFO','DodatekJmena',INIzDPPO)
    if(Length(DodatekJmena)=0)
      DodatekJmena=GetDataINI('INFO','DodatekJmena')
    IDDatSch:String[7]=GetFromINI('TITULNI','DatovaSchranka',INIzDPPO)

    Postaveni:String[37]=GetFromINI('INFO','PostaveniZastupce',INIzDPPO)
    if(Length(Postaveni)=0)
      Postaveni=GetDataINI('INFO','PostaveniZastupce')
    FOPrijmeni:String[21]=GetFromINI('INFO','FOPrijmeni',INIzDPPO)
    if(Length(FOPrijmeni)=0)
      FOPrijmeni=GetDataINI('INFO','FOPrijmeni')
    FOJmeno:String[11]=GetFromINI('INFO','FOJmeno',INIzDPPO)
    if(Length(FOJmeno)=0)
      FOJmeno=GetDataINI('INFO','FOJmeno')
    FOTitul:String[4]=GetFromINI('INFO','FOTitul',INIzDPPO)
    if(Length(FOTitul)=0)
      FOTitul=GetDataINI('INFO','FOTitul')

    HlCinnost1:String[37]=GetFromINI('INFO','HlCinnost1',INIzDPPO)
    if(Length(HlCinnost1)=0)
      HlCinnost1=GetDataINI('INFO','HlCinnost1')
    LocStr=GetFromINI('DPH','TypPriz',INIzDPPO)
    if(Length(LocStr)=0)
      LocStr=GetDataIni('DPH','TypPriz')
    TypPriz:Byte=Val(LocStr)
    LocStr=GetFromINI('DPH','TypPlatce',INIzDPPO)
    if(Length(LocStr)=0)
      LocStr=GetDataIni('DPH','TypPlatce')
    TypPlatce:Byte=Val(LocStr)
    SestavilJmeno:String[20]=GetFromINI('INFO','SestavilJmeno',INIzDPPO)
    if(Length(SestavilJmeno)=0)
      SestavilJmeno=GetDataINI('INFO','SestavilJmeno')
    SestavilPrijmeni:String[36]=GetFromINI('INFO','SestavilPrijmeni',INIzDPPO)
    if(Length(SestavilPrijmeni)=0)
    SestavilPrijmeni=GetDataINI('INFO','SestavilPrijmeni')
    Sestavil:String[25]
    TelefonDPH:String[20]=GetFromINI('INFO','TelefonDPH',INIzDPPO)
    if(Length(TelefonDPH)=0)
    TelefonDPH=GetDataINI('INFO','TelefonDPH')

    ZastupceDPHKod:String[2]=GetFromINI('INFO','ZastupceDPHKod',INIzDPPO)
    ZastupceDPHKod:String[2]=GetDataINI('INFO','ZastupceDPHKod')
    ZastupceDPHNazev:String[36]=GetFromINI('INFO','ZastupceDPHNazev',INIzDPPO)
    ZastupceDPHNazev:String[36]=GetDataINI('INFO','ZastupceDPHNazev')
    ZastupceDPHID:String[36]=GetFromINI('INFO','ZastupceDPHID',INIzDPPO)
    ZastupceDPHID:String[36]=GetDataINI('INFO','ZastupceDPHID')
    ZastupceDPHPrijmeni:String[25]=GetFromINI('INFO','ZastupceDPHPrijmeni',INIzDPPO)
    ZastupceDPHPrijmeni:String[25]=GetDataINI('INFO','ZastupceDPHPrijmeni')
    ZastupceDPHJmeno:String[11]=GetFromINI('INFO','ZastupceDPHJmeno',INIzDPPO)
    ZastupceDPHJmeno:String[11]=GetDataINI('INFO','ZastupceDPHJmeno')
    LocStr=GetFromINI('INFO','ZastupceDPHTyp',INIzDPPO)
    LocStr=GetDataINI('INFO','ZastupceDPHTyp')
    ZastupceDPHTyp:Byte=Val(LocStr)
    if(ZastupceDPHTyp>1)
      ZastupceDPHTyp=0
    LocStr=GetFromINI('INFO','ZastupceDPHIDTyp',INIzDPPO)
    LocStr=GetDataINI('INFO','ZastupceDPHIDTyp')
    ZastupceDPHIDTyp:Byte=Val(LocStr)
    if(ZastupceDPHIDTyp>2)
      ZastupceDPHIDTyp=0

    Obec:String[29]=GetFromIni('TITULNI','Obec',INIzDPPO)
    PSCDan:String=GetFromIni('TITULNI','PSC',INIzDPPO)
    PSCDan=NTrim(PSCDan)
    ;if(Length(PSCDan)=0)
    ;  PSCDan=ValidateStrNeg(PSC,' ')
    UliceBC:String[35]=GetFromIni('TITULNI','Ulice',INIzDPPO)
    if(Length(UliceBC)=0)
      begin
        LocStr=GetFromIni('TITULNI','UliceDan',INIzDPPO)
        LocB=Length(LocStr)
        While((LocB>0) and (Asc(Copy(LocStr,LocB,1))<>32))
          begin
            Dec(LocB);
          end;
        if(LocB>0)
          Dec(LocB)
        UliceBC=Copy(LocStr,1,LocB);
      end;
    UliceCP:String[6]=GetFromIni('TITULNI','CisloPopisne',INIzDPPO)
    UliceCO:String[6]=GetFromIni('TITULNI','CisloOrientacni',INIzDPPO)
    Stat:String[15]=GetFromIni('TITULNI','Stat',INIzDPPO)
    Telefon:String[12]=GetFromIni('TITULNI','Telefon',INIzDPPO)
    Email:String[64]=GetFromIni('TITULNI','Email',INIzDPPO)
    DICZastupce:String[12]=GetFromIni('TITULNI','DICZastupce',INIzDPPO)

    Sestavil=XTrim(SestavilPrijmeni+' '+SestavilJmeno);

    DefDialog('Údaje pro přiznání k DPH',492,474)
    DlgShade(-1,'',4,4,482,400)
    DlgButton(id_OK,'OK',334,408);
    DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
    DlgButton(id_Cancel,'Zpět',404,408);
    DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')
    DlgCover(1710,4,8,8,474,392,False,AktualCover)

    ;{####### Cover 1 #######}

    SetCover(1,'&Společné údaje')
    DlgStatic(-1,'&Finančnímu úřadu pro',10,18,194)
    DlgCFU(101,FinancniUradNum,204,14,256,384,FinancniUrad);
    DlgOnLineHelp(101,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Územní &pracoviště v,ve,pro',10,42,194)
    DlgSubCFU(,PracovisteFUNum,204,38,256,384,PracovisteFU);
    DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&Typ přiznání',12,68,90)
    DlgCombo(103,TypPriz,102,64,100,128,9,CBS_DropDownList,'řádné','opravné')
    DlgOnLineHelp(103,'Údaje pro formulář... str. 1'+#13+'(dodatečné DP program WinDUO neumí)')

    DlgStatic(-1,'od',210,68,20)
    DlgCombo(114,TypPlatce,234,64,226,128,9,CBS_DropDownList,'Plátce daně § 6 až § 6f','Identifikovaná osoba § 6g až § 6l','Skupina § 5a','Neplátce daně § 19 nebo § 108')

    DlgStatic(-1,'&Typ daňového subjektu',10,94,160)
    DlgCombo(135,TypSubjektu,170,90,148,260,2,CBS_DropDownList,'Fyzická osoba','Právnická osoba');

    DlgStatic(-1,'&Datum',332,94,44,,,ES_LEFT)
    DlgEditDate(102,DatumPriznani,380,90,80)
    DlgOnLineHelp(102,'Údaje pro formulář... str. 4')

    DlgStatic(-1,'&Cesta pro soubory',10,128,120)
    DlgEdit(134,ViesPath,136,124,262,,255);
    DlgPathButton(134,398,123);

    DlgStatic(-1,'&Sídlo (právnické osoby) / adresa místa pobytu fyzické osoby podle § 13 odst. 1 daňového řádu',10,160,400)
    DlgStatic(-1,'&Obec:',10,186,47)
    DlgEdit(105,Obec,58,182,182,,29)
    DlgOnLineHelp(105,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Psč:',243,186,28)
    DlgEdit(106,PSCDan,273,182,50,,5,,ValidCisla)
    DlgOnLineHelp(106,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Tlf:',326,186,21)
    DlgEdit(107,Telefon,348,182,114,,12)
    DlgOnLineHelp(107,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&Ulice:',10,214,47)
    DlgEdit(108,UliceBC,58,210,182,,27)
    DlgOnLineHelp(108,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Čís.pop:',243,214,56)
    DlgEdit(109,UliceCP,300,210,48,,6)
    DlgOnLineHelp(109,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Čís.or.:',358,214,46)
    DlgEdit(709,UliceCO,414,210,48,,6)
    DlgOnLineHelp(149,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&email:',10,242,47)
    DlgEdit(110,Email,58,238,217,,64)
    DlgOnLineHelp(110,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&Stát:',280,242,29)
    DlgEdit(111,Stat,313,238,149,,16)
    DlgOnLineHelp(111,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'Hlavní ekonomická činnost (CZ &NACE)',10,300,190)

    DlgNACE(NACE,10,318,450,384,HlCinnost1);

    KodNaslRok:String[3]
    if((Val(ObdMesic)=12)or(Val(ObdKvart)=4))
      begin
        DlgStatic(-1,'Kód zdaňovacího období následujícího roku',10,276,376,,,es_Right)
        DlgCombo(113,KodNaslRok,394,272,68,128,9,CBS_DropDownList,'','Q2','M10','Q','M')
      end;

    DlgDivider(6,118,458);
    DlgDivider(6,152,458);
    DlgDivider(6,266,458);

    ;{####### Cover 2 #######}

    SetCover(2,'&Právnická osoba')
    DlgStatic(-1,'&Obchodní jméno',12,14,110)
    DlgEdit(201,ObchodniJmeno,120,10,338,,37)
    DlgOnLineHelp(201,'Údaje pro formulář... str. 1')
    DlgEdit(202,ObchodniJmeno2,12,38,240,,25)
    DlgOnLineHelp(202,'Údaje pro formulář... str. 1')
    ;DlgStatic(-1,'&Dodatek obchodního jména',12,70,184)
    DlgEdit(203,DodatekJmena,265,38,193,,11)
    DlgOnLineHelp(203,'Údaje pro formulář... str. 1')
    DlgStatic(-1,'Postavení osoby opravněné k podpisu za daňový subjekt',12,114,440)
    DlgEdit(204,Postaveni,12,136,446,,37)
    DlgOnLineHelp(204,'Údaje pro formulář... str. 4')

    DlgDivider(10,100,450);

    ;{####### Cover 3 #######}

    SetCover(3,'&Fyzická osoba')
    DlgStatic(-1,'&Příjmení',12,14,64)
    DlgEdit(301,FOPrijmeni,80,10,258,,21)
    DlgOnLineHelp(301,'Údaje pro formulář... str. 1')
    DlgStatic(-1,'&Jméno',12,42,64)
    DlgEdit(302,FOJmeno,80,38,258,,11)
    DlgOnLineHelp(302,'Údaje pro formulář... str. 1')
    DlgStatic(-1,'&Titul',12,70,64)
    DlgEdit(303,FOTitul,80,66,80,,4)
    DlgOnLineHelp(303,'Údaje pro formulář... str. 1')


    ;{####### Cover 4 #######}

    SetCover(4,'&Ostatní spol.')

    DlgShade(-1,'Osoba oprávněná k podpisu za daňový subjekt',4,2,464,54,,es_Center)
    DlgStatic(-1,'&Příjmení',12,30,60)
    DlgEdit(401,Prijmeni,78,26,178,,23)
    DlgOnLineHelp(401,'Údaje pro formulář... str. 4')

    DlgStatic(-1,'&Jméno',266,30,46)
    DlgEdit(402,Jmeno,322,26,138,,11)
    DlgOnLineHelp(402,'Údaje pro formulář... str. 4')

    DlgShade(-1,'Sestavil',4,62,464,76,,es_Center)

    DlgStatic(-1,'Pří&jmení',12,88,60)
    DlgEdit(405,SestavilPrijmeni,78,84,178,,23)
    DlgOnLineHelp(405,'Údaje pro formulář... str. 4')

    DlgStatic(-1,'Jmé&no',266,88,46)
    DlgEdit(406,SestavilJmeno,322,84,138,,11)
    DlgOnLineHelp(406,'Údaje pro formulář... str. 4')

    DlgStatic(-1,'&Telefon',266,112,53)
    DlgEdit(404,TelefonDPH,322,108,138,,20)
    DlgOnLineHelp(404,'Telefon - údaje pro formulář... str. 4')

    DlgShade(-1,'Údaje o podepisující osobě',4,144,464,158)
    DlgStatic(-1,'Kód osoby',12,174,96)
    DlgCombo(450,ZastupceDPHKod,116,170,48,256,2,CBS_DropDownList,'','1','2','3','4a','4b','4c')

    DlgStatic(-1,'&Typ zástupce',166,174,140,,,TA_Right)
    DlgCombo(455,ZastupceDPHTyp,312,170,148,260,2,CBS_DropDownList,'Fyzická osoba','Právnická osoba');

    DlgStatic(-1,'Název právnické osoby',12,202,448)
    DlgEdit(451,ZastupceDPHNazev,12,220,448,,36)

    DlgStatic(-1,'&Příjmení',12,248,60)
    DlgEdit(453,ZastupceDPHPrijmeni,78,244,178,,23)

    DlgStatic(-1,'&Jméno',266,248,46)
    DlgEdit(454,ZastupceDPHJmeno,322,244,138,,11)

    DlgCombo(456,ZastupceDPHIDTyp,12,268,160,128,32,CBS_DropDownList,'Datum narození','Evidenční číslo','IČ právnické osoby')
    DlgEdit(452,ZastupceDPHID,172,268,288,,36)

    Result:Integer=DlgExecute()

    if(Result<>id_OK)
      Halt

    SetDataINI('INFO','FinancniUrad',FinancniUrad)
    SetDataINI('INFO','FinancniUradCislo',Str(FinancniUradNum))
    SetDataINI('INFO','PracovisteFU',PracovisteFU)
    SetDataINI('INFO','PracovisteFUCislo',Str(PracovisteFUNum))
    SetDataINI('INFO','TypSubjektu',Str(TypSubjektu))
    SetDataINI('DPH','DatumPriznani',StrDate(DatumPriznani))
    ;SetDataINI('INFO','UplnaAdresa',Adresa)
    SetDataINI('INFO','PrijmeniZastupce',Prijmeni)
    SetDataINI('INFO','JmenoZastupce',Jmeno)
    SetDataINI('INFO','ObchodniJmeno',ObchodniJmeno)
    SetDataINI('INFO','ObchodniJmeno2',ObchodniJmeno2)
    SetDataINI('INFO','DodatekJmena',DodatekJmena)
    SetDataINI('INFO','PostaveniZastupce',Postaveni)
    SetDataINI('INFO','FOPrijmeni',FOPrijmeni)
    SetDataINI('INFO','FOJmeno',FOJmeno)
    SetDataINI('INFO','FOTitul',FOTitul)
    SetDataINI('INFO','HlCinnost1',HlCinnost1)
    SetDataINI('INFO','SestavilJmeno',SestavilJmeno)
    SetDataINI('INFO','SestavilPrijmeni',SestavilPrijmeni)
    SetDataINI('INFO','TelefonDPH',TelefonDPH)
    SetDataINI('INFO','ZastupceDPHKod',ZastupceDPHKod)
    SetDataINI('INFO','ZastupceDPHNazev',ZastupceDPHNazev)
    SetDataINI('INFO','ZastupceDPHID',ZastupceDPHID)
    SetDataINI('INFO','ZastupceDPHPrijmeni',ZastupceDPHPrijmeni)
    SetDataINI('INFO','ZastupceDPHJmeno',ZastupceDPHJmeno)
    SetDataINI('INFO','ZastupceDPHTyp',Str(ZastupceDPHTyp))
    SetDataINI('INFO','ZastupceDPHIDTyp',Str(ZastupceDPHIDTyp))

    SetToIni('TITULNI','Obec',Obec,INIzDPPO)
    SetToIni('TITULNI','PSC',PSCDan,INIzDPPO)
    SetToIni('TITULNI','Ulice',UliceBC,INIzDPPO)
    SetToIni('TITULNI','CisloPopisne',UliceCP,INIzDPPO)
    SetToIni('TITULNI','CisloOrientacni',UliceCO,INIzDPPO)
    SetToIni('TITULNI','Stat',Stat,INIzDPPO)
    SetToIni('TITULNI','Telefon',telefon,INIzDPPO)
    SetToIni('TITULNI','Email',email,INIzDPPO)
    SetToIni('TITULNI','DICZastupce',DICZastupce,INIzDPPO)

    SetDataIni('DPH','TypPriz',TypPriz)
    SetDataIni('DPH','TypPlatce',TypPlatce)
    ;SetDataIni('DPH','EU',EU)

    SetToIni('PATHS','VIES',TransToEsc(ViesPath),INIzDPPO);
    SetToIni('INFO','NACE',Nace,INIzDPPO)

    OPENWNS('HLASDPH.WNS')
    x:LongInt=CountWNSLines(3,0)
    t91_1:LongInt=CountWNSLines(4,1)
    t91_2:LongInt=CountWNSLines(4,2)
    IsXML=True
    IsXML2=t91_1<>0
    IsXML3=t91_2<>0

  end;

if(IsXML)
  begin
    XML:TextFile;
    XMLName:String=ViesPath+'DPHDP3-'+Copy(Program.DIC,3)+'-'+Str(AmendYear(Val(ObdRok)))+'-';
    XMLName2:String=ViesPath+'DPHEVD-ODB-'+Copy(Program.DIC,3)+'-'+Str(AmendYear(Val(ObdRok)))+'-';
    XMLName3:String=ViesPath+'DPHEVD-DOD-'+Copy(Program.DIC,3)+'-'+Str(AmendYear(Val(ObdRok)))+'-';
    if(Val(ObdMesic)<>0)
      begin
        ObdMode=1
        XMLName=XMLName+NulL(Str(Val(ObdMesic)),2)
        XMLName2=XMLName2+NulL(Str(Val(ObdMesic)),2)
        XMLName3=XMLName3+NulL(Str(Val(ObdMesic)),2)
      end else
    if(Val(ObdKvart)<>0)
      begin
        ObdMode=2
        XMLName=XMLName+Str(Val(ObdKvart))+'Q'
        XMLName2=XMLName2+Str(Val(ObdKvart))+'Q'
        XMLName3=XMLName3+Str(Val(ObdKvart))+'Q'
      end;
    XMLName=XMLName+'.XML'
    XMLName2=XMLName2+'.XML'
    XMLName3=XMLName3+'.XML'
    Rewrite(XML,XMLName);

    if(IsXML2)
      begin
        XML2:TextFile;
        Rewrite(XML2,XMLName2);
      end;
    if(IsXML3)
      begin
        XML3:TextFile;
        Rewrite(XML3,XMLName3);
      end;

    WriteLn(XML,'<?xml version="1.0" encoding="UTF-8" ?>');
    WriteLn(XML,'<Pisemnost nazevSW="WinDUO" verzeSW="'+Program.Verze+'">');
    WriteLn(XML,'<DPHDP3 verzePis="01.03">');

    Write(XML,'<VetaD k_uladis="DPH" dokument="DP3" trans="A" ')
    if(ObdMode=1)
      Write(XML,'mesic="'+Str(Val(ObdMesic)))
    else
    if(ObdMode=2)
      Write(XML,'ctvrt="'+Str(Val(ObdKvart)))
    LocZn:String[1]='B'
    if(TypPriz=1)
      LocZn='O'
    else
    if(TypPriz=2)
      LocZn='D'
    if(Length(Nace)<5)
      Nace=NulL(Nace,5)
    if(Length(Nace)<6)
      Nace=FillStrR(Nace,6,'0')

    Write(XML,'" rok="'+Str(AmendYear(Val(ObdRok)))+'" d_poddp="'+StrDate(DatumPriznani)+'" dapdph_forma="'+LocZn+'" c_okec="'+NACE+'"');
    if(Length(KodNaslRok)<>0)
      begin
        Write(XML,' kod_zo="'+KodNaslRok+'"');
      end;
    LocZn='';
    if(TypPlatce=0)
      LocZn='P'
    else
    if(TypPlatce=1)
      LocZn='I'
    else
    if(TypPlatce=2)
      LocZn='S'
    WriteLn(XML,' typ_platce="'+LocZn+'" />');

    WriteVetaP('XML');

    if(IsXML2)
      begin
        WriteLn(XML2,'<?xml version="1.0" encoding="UTF-8" ?>');
        WriteLn(XML2,'<Pisemnost nazevSW="WinDUO" verzeSW="'+Program.Verze+'">');
        WriteLn(XML2,'<DPHEVD verzePis="01.02.07">');
        Write(XML2,'<VetaD k_uladis="DPH" dokument="EVD" ')
        if(ObdMode=1)
          Write(XML2,'mesic="'+Str(Val(ObdMesic)))
        else
        if(ObdMode=2)
          Write(XML2,'ctvrt="'+Str(Val(ObdKvart)))
        WriteLn(XML2,'" rok="'+Str(AmendYear(Val(ObdRok)))+'" d_poddp="'+StrDate(DatumPriznani)+'" typ_vypisu="O" />');
        WriteVetaP('XML2');
      end;
    if(IsXML3)
      begin
        WriteLn(XML3,'<?xml version="1.0" encoding="UTF-8" ?>');
        WriteLn(XML3,'<Pisemnost nazevSW="WinDUO" verzeSW="'+Program.Verze+'">');
        WriteLn(XML3,'<DPHEVD verzePis="01.02.07">');
        Write(XML3,'<VetaD k_uladis="DPH" dokument="EVD" ')
        if(ObdMode=1)
          Write(XML3,'mesic="'+Str(Val(ObdMesic)))
        else
        if(ObdMode=2)
          Write(XML3,'ctvrt="'+Str(Val(ObdKvart)))
        WriteLn(XML3,'" rok="'+Str(AmendYear(Val(ObdRok)))+'" d_poddp="'+StrDate(DatumPriznani)+'" typ_vypisu="D" />');
        WriteVetaP('XML3');
      end;

  end;


;{####### Tisk 1. strany ######}

PEN(0,0.2)
ROUNDBOX(0,12,80,6,3.3,3.3) ; financnimu uradu
ROUNDBOX(0,22,80,6,3.3,3.3) ; uzemni pracoviste
ROUNDBOX(0,32,60,6,3.3,3.3) ; DIC
LINES(5,36.5,0,1.3,5,0,11)
ROUNDBOX(0,42,55,6,3.3,3.3) ; Rodne cislo / IC
LINES(5,46.5,0,1.3,5,0,10)
LINES(10,45.2,0,2.5,10,0,3)
ROUNDBOX(0,49,23,6,3.3,3.3)
ROUNDBOX(29,49,23,6,3.3,3.3)
ROUNDBOX(57,49,23,6,3.3,3.3)
LINE(15,49,0,5.8)
LINE(44,49,0,5.8)
LINE(72,49,0,5.8)
ROUNDBOX(43.5,56,36.5,6,3.3,3.3)
ROUNDBOX(29,64,17,6,3.3,3.3)

ROUNDBOX(105,12,80,40,3.3,3.3)

RoundBox(74,87,20,6,3.3,3.3); mesic
RoundBox(112,87,20,6,3.3,3.3); ctvrtleti
RoundBox(142,87,20,6,3.3,3.3); rok

RoundBox(74,94,20,6,3.3,3.3); za obdobi od
RoundBox(112,94,20,6,3.3,3.3); za obdobi do

RoundBox(0,101,102,12,3.3,3.3);
Line(0,107,102,0)
Line(33,101,0,12)
Line(43,101,0,12)
Line(92,101,0,12)

RoundBox(105,101,80,12,3.3,3.3);
Line(105,107,80,0)
Line(175,101,0,12)

RoundBox(0,118,185,6,3.3,3.3); nazev pravnicke osoby
Lines(5,122.5,0,1.3,5,0,36)
RoundBox(0,125,125,6,3.3,3.3);
Lines(5,129.5,0,1.3,5,0,24)
RoundBox(130,125,55,6,3.3,3.3);
Lines(135,129.5,0,1.3,5,0,10)

RoundBox(0,136,105,6,3.3,3.3); prijmeni
Lines(5,140.5,0,1.3,5,0,20)
RoundBox(110,136,50,6,3.3,3.3); jmeno
Lines(115,140.5,0,1.3,4.55,0,10)
RoundBox(165,136,20,6,3.3,3.3); titul
Lines(170,140.5,0,1.3,5,0,3)

RoundBox(0,150,90,6,3.3,3.3); obec
Lines(5,154.5,0,1.3,5,0,17)
RoundBox(95,150,25,6,3.3,3.3); PSC
Lines(100,154.5,0,1.3,5,0,4)
RoundBox(125,150,60,6,3.3,3.3); telefon
Lines(130,154.5,0,1.3,5,0,11)

RoundBox(0,160,135,6,3.3,3.3); ulice
Lines(5,164.5,0,1.3,5,0,26)
RoundBox(140,160,45,6,3.3,3.3); cislo popisne
Lines(145,164.5,0,1.3,5,0,8)

RoundBox(0,170,100,6,3.3,3.3); email
Lines(5,172.5,0,1.3,5,0,19)
RoundBox(105,170,80,6,3.3,3.3); stat
Lines(110,172.5,0,1.3,5,0,15)

RoundBox(0,180,185,6,3.3,3.3); hlavni ekonomicka cinnost
Lines(5,184.5,0,1.3,5,0,36)

RoundBox(52,206,10,6,3.3,3.3); kod zastupce
Line(57,210.5,0,1.3)

RoundBox(2.5,216,180,6,3.3,3.3); jmeno prijmeni - nazev
Lines(7.5,220.5,0,1.3,5,0,35)

RoundBox(2.5,226,180,6,3.3,3.3); datum narozeni - ev.cislo - ic
Lines(7.5,230.5,0,1.3,5,0,35)

RoundBox(2.5,243,180,6,3.3,3.3); jmeno a prijmeni - vztah
Lines(7.5,247.5,0,1.3,5,0,35)

RoundBox(2.5,259,40,6,3.3,3.3);  datum
Lines(7.5,263.5,0,1.3,5,0,7)
Lines(12.5,262.2,0,2.5,10,0,2)

RoundBox(52,259,60,12,3.3,3.3); razitko a podpis
RoundBox(122,259,60,12,3.3,3.3);

RoundBox(20,273,105,6,3.3,3.3);
RoundBox(140,273,45,6,3.3,3.3);

Pen(0,0.6)
Line(0,187,185,0);

Pen(0,0.4);
Box(0,202,185,48);
Box(0,251,185,21);

FontSize(5)
FontFace(Bold)
Text(0,6,ta_Left|ta_BaseLine,'A. ODDÍL')
Text(0,192,ta_Left|ta_BaseLine,'B. ODDÍL')

FontSize(9)
Text(92.5,78,ta_Center|ta_BaseLine,'P Ř I Z N Á N Í')
FontSize(6)
Text(92.5,84,ta_Center|ta_BaseLine,'k dani z přidané hodnoty')

FontSize(3)
Text(92.5,3,ta_Center|ta_BaseLine,'Než začnete vyplňovat tiskopis, přečtěte si, prosím, pokyny.')
Text(92.5,6,ta_Center|ta_BaseLine,'Údaje v daňovém přiznání se uvedou zaokrouhlené na celé koruny.')

FontSize(4.5)
Text(72,91,ta_Right|ta_BaseLine,'za zdaňovací období:  měsíc')
Text(110,91,ta_Right|ta_BaseLine,'čtvrtletí')
Text(140.5,91,ta_Right|ta_BaseLine,'rok')

Text(72,98,ta_Right|ta_BaseLine,'za období od')
Text(110,98,ta_Right|ta_BaseLine,'do')

FontSize(3.8)

LocStr='PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V ODDÍLECH A, B, C TOHOTO PŘIZNÁNÍ JSOU PRAVDIVÉ A ÚPLNÉ'
ClearFontIndex()
GetFontIndex(185,LocStr)
FontIndex()
Text(92.5,197,ta_Center|ta_BaseLine,LocStr)
Text(92.5,201,ta_Center|ta_BaseLine,'A STVRZUJI JE SVÝM PODPISEM')
ClearFontIndex()

FontSize(3.2)
Text(0,117,ta_BaseLine,'Právnická osoba: ')
FontFace(Normal)
Text(0,0,ta_Relative|ta_BaseLine,'Název právnické osoby')
Text(0,11,ta_Left|ta_BaseLine,'Finančnímu úřadu pro / Specializovanému finančnímu úřadu')
Text(0,21,ta_Left|ta_BaseLine,'Územní pracoviště v, ve, pro')
Text(0,31,ta_BaseLine,'Daňové identifikační číslo')
Text(0,41,ta_BaseLine,'Rodné číslo / IČ')
XText(7.5,53,14,ta_Center|ta_BaseLine,'řádné')
XText(36.5,53,14,ta_Center|ta_BaseLine,'dodatečné')
XText(64.5,53,14,ta_Center|ta_BaseLine,'opravné')
XText(0,58,42.5,ta_Left|ta_BaseLine,'Důvody pro podání dodatečného')
XText(0,61,42.5,ta_Left|ta_BaseLine,'daňového přiznání zjištěny dne')
XText(0,68,42.5,ta_Left|ta_BaseLine,'Počet příloh / listů')
FontFace(Bold)
Text(2.5,205.5,ta_BaseLine,'Údaje o podepisující osobě')
Text(2.5,254.5,ta_BaseLine,'Daňový subjekt / osoba oprávněná k podpisu')
Text(0,135,ta_BaseLine,'Fyzická osoba: ')
FontFace(Normal)
Text(0,0,ta_Relative|ta_BaseLine,'Příjmení')
Text(52,205.5,ta_BaseLine,'Kód podepisující osoby')
Text(110,135,ta_BaseLine,'Jméno')
Text(165,135,ta_BaseLine,'Titul')

FontFace(Bold)
Text(0,146,ta_BaseLine,'Sídlo právnické / fyzické osoby nebo adresa místa pobytu fyzické osoby:')
Text(2.5,236,ta_BaseLine,'Fyzická osoba oprávněná k podpisu ')
FontFace(Normal)
Text(0,0,ta_BaseLine|ta_Relative,'(je-li daňový subjekt či zástupce právnickou osobou),')
Text(0,149,ta_BaseLine,'a) obec')
Text(95,149,ta_BaseLine,'b) PSČ')
Text(125,149,ta_BaseLine,'c) telefon')
Text(0,159,ta_BaseLine,'d) ulice (nebo část obce)')
Text(140,159,ta_BaseLine,'e) číslo popisné / orientační')
Text(0,169,ta_BaseLine,'f) e-mail')
Text(105,169,ta_BaseLine,'g) stát')
Text(0,179,ta_BaseLine,'Hlavní ekonomická činnost')

Text(2,105,ta_Left|ta_BaseLine,'Plátce daně § 6 až § 6f')
Text(45,105,ta_Left|ta_BaseLine,'Identifikovaná osoba § 6g až § 6l')
Text(2,111,ta_Left|ta_BaseLine,'Skupina § 5a')
Text(45,111,ta_Left|ta_BaseLine,'Neplátce daně § 19 nebo § 108')
Text(107,105,ta_Left|ta_BaseLine,'Neexistují-li údaje pro stranu 2, proškrtněte (X)')
Text(107,111,ta_Left|ta_BaseLine,'Kód zdaňovacího období následujícího roku')

Text(2.5,215,ta_BaseLine,'Jméno(-a) a příjmení / Název právnické osoby')
Text(2.5,225,ta_BaseLine,'Datum narození / Evidenční číslo osvědčení daňového poradce / IČ právnické osoby')
Text(2.5,242,ta_BaseLine,'Jméno(-a) a příjmení / Vztah k právnické osobě')

FontFace(Bold)
Text(2.5,239,ta_BaseLine,'s uvedením vztahu k právnické osobě ')
FontFace(Normal)
Text(0,0,ta_BaseLine|ta_Relative,'(např. jednatel, pověřený pracovník apod.)')

FontSize(2.9)
Text(145,49,ta_Center|ta_BaseLine,'otisk podacího razítka finančního úřadu')
Text(2.5,258,ta_Left|ta_BaseLine,'Datum')
Text(82,258,ta_Center|ta_BaseLine,'Otisk razítka')
Text(92.5,286,ta_Center|ta_BaseLine,'1')
XText(152,255.5,50,ta_Center|ta_BaseLine,'Vlastnoruční podpis')
XText(152,258,50,ta_Center|ta_BaseLine,'daňového subjektu / osoby oprávněné k podpisu')
XText(0,277,20,ta_Left|ta_BaseLine,'Kontaktní osoba')
XText(137,277,20,ta_Right|ta_BaseLine,'Telefon')
FontSize(2.5)
Text(0,285,ta_BaseLine,'25 5401 MFin 5401 - vzor č. '+Str(Vzor))
Text(185,285,ta_Right|ta_BaseLine,'Vytištěno systémem WinDUO')

FontSize(3.5);
SText(2.5,36,ta_Center|ta_BaseLine,5,2,'CZ')
Text(32.5,46,ta_Center|ta_BaseLine,'/')
Text(37.5,68,ta_Center|ta_BaseLine,'/')

if(not Prazdny)
  begin
    PEN(0,0.3)
    LINE(17,50.5,4,3)
    LINE(17,53.5,4,-3)
    IF(TypPriz=1)
      begin
       LINE(74,50.5,4,3)
       LINE(74,53.5,4,-3)
      end;
    if(TypPlatce=1)
      begin
        LINE(95,102,4,4);
        LINE(95,106,4,-4);
      end else
    if(TypPlatce=2)
      begin
        LINE(36,108,4,4);
        LINE(36,112,4,-4);
      end else
    if(TypPlatce=3)
      begin
        LINE(95,108,4,4);
        LINE(95,112,4,-4);
      end else
      begin
        LINE(36,102,4,4);
        LINE(36,106,4,-4);
      end;
    FontFace(Bold|Italic)
    XText(2.5,16,75,ta_Left|ta_BaseLine,FinancniUrad)
    XText(2.5,26,75,ta_Left|ta_BaseLine,PracovisteFU)
    SText(12.5,36,ta_Center|ta_BaseLine,5,10,Copy(Program.DIC,3,255))
    SText(2.5,122,ta_Center|ta_BaseLine,5,37,ObchodniJmeno)
    SText(2.5,129,ta_Center|ta_BaseLine,5,25,ObchodniJmeno2)
    SText(132.5,129,ta_Center|ta_BaseLine,5,11,DodatekJmena)
    SText(2.5,140,ta_Center|ta_BaseLine,5,21,FOPrijmeni)
    SText(112.5,140,ta_Center|ta_BaseLine,4.55,11,FOJmeno)
    SText(167.5,140,ta_Center|ta_BaseLine,5,4,FOTitul)
    SText(2.5,154,ta_Center|ta_BaseLine,5,18,Obec)
    SText(97.5,154,ta_Center|ta_BaseLine,5,5,PSCDan)
    SText(127.5,154,ta_Center|ta_BaseLine,5,12,Telefon)
    SText(2.5,164,ta_Center|ta_BaseLine,5,27,UliceBC)
    LocStr=UliceCP;
    if((Length(LocStr)<>0)and(Length(UliceCO<>0)))
      LocStr=LocStr+'/';
    LocStr=LocStr+UliceCO;
    SText(142.5,164,ta_Center|ta_BaseLine,5,9,LocStr)
    SText(2.5,174,ta_Center|ta_BaseLine,5,20,Email)
    SText(107.5,174,ta_Center|ta_BaseLine,5,16,Stat)
    SText(2.5,184,ta_Center|ta_BaseLine,5,37,HlCinnost1)

    SText(54.5,210,ta_Center|ta_BaseLine,5,36,ZastupceDPHKod)
    if(ZastupceDPHTyp=0)
      LocStr=XTrim(ZastupceDPHJmeno+' '+ZastupceDPHPrijmeni)
    else
      LocStr=ZastupceDPHNazev;
    SText(5,220,ta_Center|ta_BaseLine,5,36,LocStr)
    SText(5,230,ta_Center|ta_BaseLine,5,36,ZastupceDPHID)

    LocStr=Trim(Jmeno+' '+Prijmeni);
    if(Length(Trim(Postaveni))<>0)
      begin
        if(Length(LocStr+Postaveni)<=33)
          LocStr=LocStr+' / '+Postaveni
        else
          LocStr=LocStr+'/'+Postaveni
      end;

    SText(5,247,ta_Center|ta_BaseLine,5,36,LocStr)

    IF(DatumPriznani<>0)
      begin
        SText(5,263,TA_Center|ta_BaseLine,5,2,DenZData(GetDataINI('DPH','DatumPriznani')))
        SText(15,263,TA_Center|ta_BaseLine,5,2,MesicZData(GetDataINI('DPH','DatumPriznani'),2))
        SText(25,263,TA_Center|ta_BaseLine,5,4,RokZData(GetDataINI('DPH','DatumPriznani')))
      end
    XText(22.5,277,100,ta_Left|ta_BaseLine,Sestavil)
    XText(142.5,277,40,ta_Left|ta_BaseLine,TelefonDPH)
    Text(84,91,ta_Center|ta_BaseLine,ObdMesic);
    Text(122,91,ta_Center|ta_BaseLine,ObdKvart);
    Text(152,91,ta_Center|ta_BaseLine,ObdRok);
    Text(179,111,ta_Center|ta_BaseLine,KodNaslRok);
  end;

NextPage;

;{####### Tisk 2. strany ######}

Pen(0,0.4)
RoundBox(0,10,185.2,255,3.3,3.3);
LineS(0,15,185,0,0,65,2)
LineS(0,85,185,0,0,35,2)
LineS(0,125,185,0,0,25,2)
LineS(0,155,185,0,0,35,2)
LineS(0,195,185,0,0,5,2)
LineS(0,225,185,0,0,5,2)

PEN(0,0.2)
LineS(0,25,185,0,0,10,4)
LineS(0,60,185,0,0,10,2)
LineS(72,20,113,0,0,10,4)
LineS(72,65,113,0,0,10,2)
Line(72,15,0,40)
Line(72,60,0,20)
LineS(84,10,0,70,7,0,2)
Line(139,10,0,110)
LineS(0,90,185,0,0,5,6)
Line(132,85,0,35)
LineS(115,130,70,0,0,15,2)
LineS(0,135,185,0,0,5,2)
Line(115,125,0,10)
Line(115,140,0,10)
LineS(146,125,0,25,7,0,2)

LineS(72,160,113,0,0,15,2)
LineS(0,165,185,0,0,5,2)
LineS(0,180,185,0,0,5,2)
Line(72,155,0,10);
Line(72,170,0,10);
Line(84,155,0,40);
LineS(91,150,0,45,31,0,3)

Line(0,205,185,0);
Line(91,210,94,0)
LineS(0,215,185,0,0,5,2)
LineS(84,200,0,25,7,0,2)
LineS(120,215,0,10,33,0,2)
Line(131,200,0,25)

LineS(0,235,185,0,0,5,6)
LineS(132,230,0,35,7,0,2)

FontSize(5)
FontFace(Bold)
Text(0,8,ta_Left|ta_BaseLine,'C. ODDÍL - daň z přidané hodnoty')

FontSize(3.5)
Text(1.5,13.5,ta_Left|ta_BaseLine,'I. Zdanitelná plnění')
Text(1.5,83.5,ta_Left|ta_BaseLine,'II. Ostatní plnění s místem plnění mimo tuzemsko s nárokem na odpočet daně')
Text(1.5,123.5,ta_Left|ta_BaseLine,'III. Doplňující údaje')
Text(1.5,153.5,ta_Left|ta_BaseLine,'IV. Nárok na odpočet daně')
Text(1.5,198.5,ta_Left|ta_BaseLine,'V. Krácení nároku na odpočet daně')
Text(1.5,228.5,ta_Left|ta_BaseLine,'VI. Výpočet daňové povinnosti')

FontSize(3)
Text(115.5,13.5,ta_Center|ta_BaseLine,'Základ daně')
Text(162.5,13.5,ta_Center|ta_BaseLine,'Daň na výstupu')
Text(162.5,83.5,ta_Center|ta_BaseLine,'Hodnota')
Text(130.5,128.5,ta_Center|ta_BaseLine,'Pořízení zboží')
Text(130.5,133.5,ta_Center|ta_BaseLine,'Dodání zboží')
Text(130.5,143.5,ta_Center|ta_BaseLine,'Věřitel')
Text(130.5,148.5,ta_Center|ta_BaseLine,'Dlužník')
Text(106.5,153.5,ta_Center|ta_BaseLine,'Základ daně')
Text(137.5,153.5,ta_Center|ta_BaseLine,'V plné výši')
Text(168.5,153.5,ta_Center|ta_BaseLine,'Krácený odpočet')

Text(111,208.5,ta_Center|ta_BaseLine,'S nárokem na odpočet')
Text(158,208.5,ta_Center|ta_BaseLine,'Bez nároku na odpočet')

Text(1.5,19,ta_Left|ta_BaseLine,'Dodání zboží nebo poskytnutí služby s místem')
Text(1.5,22,ta_Left|ta_BaseLine,'plnění v tuzemsku (např. § 13, § 14, § 8)')
Text(1.5,29,ta_Left|ta_BaseLine,'Pořízení zboží z jiného členského státu')
Text(1.5,32,ta_Left|ta_BaseLine,'(§ 16; § 17 odst. 6 písm. e); § 19 odst. 3)')
Text(1.5,39,ta_Left|ta_BaseLine,'Přijetí služby s místem plnění podle § 9 odst. 1')
Text(1.5,42,ta_Left|ta_BaseLine,'od osoby registrované k dani v jiném členském státě')
Text(1.5,51,ta_Left|ta_BaseLine,'Dovoz zboží (§ 23)')
Text(1.5,58.5,ta_Left|ta_BaseLine,'Pořízení nového dopravního prostředku (§ 19 odst. 4)')
Text(1.5,64,ta_Left|ta_BaseLine,'Režim přenesení daňové povinnosti (§ 92a) - odběratel')
Text(1.5,67,ta_Left|ta_BaseLine,'zboží nebo příjemce služeb')
Text(1.5,74,ta_Left|ta_BaseLine,'Ostatní zdanitelná plnění, u kterých je povinnost přiznat')
Text(1.5,77,ta_Left|ta_BaseLine,'daň při jejich přijetí (§ 108)')

Text(1.5,161,ta_Left|ta_BaseLine,'Z přijatých zdanitelných plnění od plátců')
Text(1.5,168.5,ta_Left|ta_BaseLine,'Při dovozu zboží, kdy je správcem daně celní úřad')
Text(1.5,176,ta_Left|ta_BaseLine,'Ze zdanitelných plnění vykázaných na řádcích 3 až 13')
Text(1.5,183.5,ta_Left|ta_BaseLine,'Korekce odpočtů daně podle § 75 odst. 4, § 77, § 79 až § 79c')
Text(1.5,188.5,ta_Left|ta_BaseLine,'Odpočet daně celkem (40 + 41 + 42 + 43 + 44 + 45)')
XText(1.5,193.5,81,ta_Left|ta_BaseLine,'Hodnota pořízeného majetku vymezeného v § 4 odst. 4 písm. d) a e)')

FontFace(Normal)
Text(87.5,13.5,ta_Center|ta_BaseLine,'ř.')
Text(78,18.5,ta_Center|ta_BaseLine,'základní')
Text(78,23.5,ta_Center|ta_BaseLine,'snížená')
Text(78,28.5,ta_Center|ta_BaseLine,'základní')
Text(78,33.5,ta_Center|ta_BaseLine,'snížená')
Text(78,38.5,ta_Center|ta_BaseLine,'základní')
Text(78,43.5,ta_Center|ta_BaseLine,'snížená')
Text(78,48.5,ta_Center|ta_BaseLine,'základní')
Text(78,53.5,ta_Center|ta_BaseLine,'snížená')
Text(78,63.5,ta_Center|ta_BaseLine,'základní')
Text(78,68.5,ta_Center|ta_BaseLine,'snížená')
Text(78,73.5,ta_Center|ta_BaseLine,'základní')
Text(78,78.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,18.5,ta_Center|ta_BaseLine,'1')
Text(87.5,23.5,ta_Center|ta_BaseLine,'2')
Text(87.5,28.5,ta_Center|ta_BaseLine,'3')
Text(87.5,33.5,ta_Center|ta_BaseLine,'4')
Text(87.5,38.5,ta_Center|ta_BaseLine,'5')
Text(87.5,43.5,ta_Center|ta_BaseLine,'6')
Text(87.5,48.5,ta_Center|ta_BaseLine,'7')
Text(87.5,53.5,ta_Center|ta_BaseLine,'8')
Text(87.5,58.5,ta_Center|ta_BaseLine,'9')
Text(87.5,63.5,ta_Center|ta_BaseLine,'10')
Text(87.5,68.5,ta_Center|ta_BaseLine,'11')
Text(87.5,73.5,ta_Center|ta_BaseLine,'12')
Text(87.5,78.5,ta_Center|ta_BaseLine,'13')
Text(1.5,88.5,ta_Left|ta_BaseLine,'Dodání zboží do jiného členského státu (§ 64)')
Text(135.5,88.5,ta_Center|ta_BaseLine,'20')
XText(1.5,93.5,130,ta_Left|ta_BaseLine,'Poskytnutí služeb s místem plnění v jiném členském státě vymezených v § 102 odst. 1 písm. d) a odst. 2')
Text(135.5,93.5,ta_Center|ta_BaseLine,'21')
Text(1.5,98.5,ta_Left|ta_BaseLine,'Vývoz zboží (§ 66)')
Text(135.5,98.5,ta_Center|ta_BaseLine,'22')
XText(1.5,103.5,130,ta_Left|ta_BaseLine,'Dodání nového dopravního prostředku osobě neregistrované k dani v jiném členském státě (§ 19 odst. 4)')
Text(135.5,103.5,ta_Center|ta_BaseLine,'23')
Text(1.5,108.5,ta_Left|ta_BaseLine,'Zasílání zboží do jiného členského státu (§ 8)')
Text(135.5,108.5,ta_Center|ta_BaseLine,'24')
Text(1.5,113.5,ta_Left|ta_BaseLine,'Režim přenesení daňové povinnosti (§ 92a) - dodavatel zboží nebo poskytovatel služeb')
Text(135.5,113.5,ta_Center|ta_BaseLine,'25')
XText(1.5,118.5,126,ta_Left|ta_BaseLine,'Ostatní uskutečněná plnění s nárokem na odpočet daně (např. § 24a, § 67, § 68, § 69, § 70, § 89, § 90, § 92)')
Text(135.5,118.5,ta_Center|ta_BaseLine,'26')
XText(1.5,131,113,ta_Left|ta_BaseLine,'Zjednodušený postup při dodání zboží formou třístranného obchodu (§ 17) prostřední osobou')
Text(149.5,128.5,ta_Center|ta_BaseLine,'30')
Text(149.5,133.5,ta_Center|ta_BaseLine,'31')
Text(1.5,138.5,ta_Left|ta_BaseLine,'Dovoz zboží osvobozený podle § 71g')
Text(149.5,138.5,ta_Center|ta_BaseLine,'32')
XText(1.5,146,113,ta_Left|ta_BaseLine,'Oprava výše daně u pohledávek za dlužníky v insolvenčním řízení (§ 44)')
Text(149.5,143.5,ta_Center|ta_BaseLine,'33')
Text(149.5,148.5,ta_Center|ta_BaseLine,'34')

Text(78,158.5,ta_Center|ta_BaseLine,'základní')
Text(87.5,158.5,ta_Center|ta_BaseLine,'40')
Text(78,163.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,163.5,ta_Center|ta_BaseLine,'41')
Text(87.5,168.5,ta_Center|ta_BaseLine,'42')
Text(78,173.5,ta_Center|ta_BaseLine,'základní')
Text(87.5,173.5,ta_Center|ta_BaseLine,'43')
Text(78,178.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,178.5,ta_Center|ta_BaseLine,'44')
Text(87.5,183.5,ta_Center|ta_BaseLine,'45')
Text(87.5,188.5,ta_Center|ta_BaseLine,'46')
Text(87.5,193.5,ta_Center|ta_BaseLine,'47')
Text(1.5,203.5,ta_Left|ta_BaseLine,'Plnění osvobozená od daně bez nároku na odpočet daně')
Text(87.5,203.5,ta_Center|ta_BaseLine,'50')
XText(1.5,211,80,ta_Left|ta_BaseLine,'Hodnota plnění nezapočítavaných do výpočtu koeficientu (§ 76 odst. 4)')
Text(87.5,211,ta_Center|ta_BaseLine,'51')
Text(1.5,218.5,ta_Left|ta_BaseLine,'Část odpočtu v krácené výši')
Text(87.5,218.5,ta_Center|ta_BaseLine,'52')
Text(1.5,223.5,ta_Left|ta_BaseLine,'Vypořádání odpočtu daně (§ 76 odst. 7 až 10)')
Text(87.5,223.5,ta_Center|ta_BaseLine,'53')
XText(1.5,233.5,128,ta_Left|ta_BaseLine,'Úprava odpočtu daně (§ 78 až § 78d)')
Text(135.5,233.5,ta_Center|ta_BaseLine,'60')
Text(1.5,238.5,ta_Left|ta_BaseLine,'Vrácení daně (§ 84)')
Text(135.5,238.5,ta_Center|ta_BaseLine,'61')
XText(1.5,243.5,128,ta_Left|ta_BaseLine,'Daň na výstupu (1 až 13 - 61 + daň podle § 108 jinde neuvedená)')
Text(135.5,243.5,ta_Center|ta_BaseLine,'62')
Text(1.5,248.5,ta_Left|ta_BaseLine,'Odpočet daně (46 V plné výši + 52 Odpočet + 53 Změna odpočtu + 60)')
Text(135.5,248.5,ta_Center|ta_BaseLine,'63')
Text(1.5,253.5,ta_Left|ta_BaseLine,'Vlastní daňová povinnost (62 - 63)')
Text(135.5,253.5,ta_Center|ta_BaseLine,'64')
Text(1.5,258.5,ta_Left|ta_BaseLine,'Nadměrný odpočet (63 - 62)')
Text(135.5,258.5,ta_Center|ta_BaseLine,'65')
XText(1.5,263.5,128,ta_Left|ta_BaseLine,'Rozdíl oproti poslední známé daňové povinnosti při podání dodatečného daňového přiznání (62 - 63)')
Text(135.5,263.5,ta_Center|ta_BaseLine,'66')

FontSize(2.5)
Text(185,285,ta_Right|ta_BaseLine,'Vytištěno systémem WinDUO')

FontSize(2.9)
Text(92.5,286,ta_Center|ta_BaseLine,'2')

FontFace(Bold)
Text(92.5,218.5,ta_Left|ta_BaseLine,'Koeficient (%)')
XText(92.5,223.5,27,ta_Left|ta_BaseLine,'Vypořádací koeficient (%)')
Text(132.5,218.5,ta_Left|ta_BaseLine,'Odpočet')
Text(132.5,223.5,ta_Left|ta_BaseLine,'Změna odpočtu')

if(not Prazdny)
  begin
    FontSize(4)
    FONTFACE(BOLD|ITALIC)
    TabPos(20)
    DefTab(2,5,135,38,ta_Right|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    if(IsXML)
      begin
        SaveWNSPos(1);
        Write(XML,'<Veta1')
        LoadWNSLine(3,1);
        Write(XML,' obrat23="'+GetFromWNSLine(5,True)+'" dan23="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' obrat5="'+GetFromWNSLine(5,True)+'" dan5="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_zb23="'+GetFromWNSLine(5,True)+'" dan_pzb23="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_zb5="'+GetFromWNSLine(5,True)+'" dan_pzb5="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_sl23_e="'+GetFromWNSLine(5,True)+'" dan_psl23_e="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_sl5_e="'+GetFromWNSLine(5,True)+'" dan_psl5_e="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dov_zb23="'+GetFromWNSLine(5,True)+'" dan_dzb23="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dov_zb5="'+GetFromWNSLine(5,True)+'" dan_dzb5="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_dop_nrg="'+GetFromWNSLine(5,True)+'" dan_pdop_nrg="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' rez_pren23="'+GetFromWNSLine(5,True)+'" dan_rpren23="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' rez_pren5="'+GetFromWNSLine(5,True)+'" dan_rpren5="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_sl23_z="'+GetFromWNSLine(5,True)+'" dan_psl23_z="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' p_sl5_z="'+GetFromWNSLine(5,True)+'" dan_psl5_z="'+GetFromWNSLine(6,True)+'"');
        WriteLn(XML,' />')
        Write(XML,'<Veta2')
        LoadWNSLine(3,1);
        Write(XML,' dod_zb="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_sluzby="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_vyvoz="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dod_dop_nrg="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_zaslani="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_rez_pren="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_ost="'+GetFromWNSLine(5,True)+'"');
        WriteLn(XML,' />')
        Write(XML,'<Veta3')
        LoadWNSLine(3,1);
        Write(XML,' tri_pozb="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' tri_dozb="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dov_osv="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' opr_verit="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' opr_dluz="'+GetFromWNSLine(5,True)+'"');
        WriteLn(XML,' />')
        Write(XML,'<Veta4')
        LoadWNSLine(3,1);
        Write(XML,' pln23="'+GetFromWNSLine(5,True)+'" odp_tuz23_nar="'+GetFromWNSLine(6,True)+'" odp_tuz23="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln5="'+GetFromWNSLine(5,True)+'" odp_tuz5_nar="'+GetFromWNSLine(6,True)+'" odp_tuz5="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dov_cu="'+GetFromWNSLine(5,True)+'" odp_cu_nar="'+GetFromWNSLine(6,True)+'" odp_cu="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' nar_zdp23="'+GetFromWNSLine(5,True)+'" od_zdp23="'+GetFromWNSLine(6,True)+'" odkr_zdp23="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' nar_zdp5="'+GetFromWNSLine(5,True)+'" od_zdp5="'+GetFromWNSLine(6,True)+'" odkr_zdp5="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' odp_rez_nar="'+GetFromWNSLine(6,True)+'" odp_rezim="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' odp_sum_nar="'+GetFromWNSLine(6,True)+'" odp_sum_kr="'+GetFromWNSLine(7,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' nar_maj="'+GetFromWNSLine(5,True)+'" od_maj="'+GetFromWNSLine(6,True)+'" odkr_maj="'+GetFromWNSLine(7,True)+'"');
        WriteLn(XML,' />')
        Write(XML,'<Veta5')
        LoadWNSLine(3,1);
        Write(XML,' plnosv_kf="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' pln_nkf="'+GetFromWNSLine(5,True)+'" plnosv_nkf="'+GetFromWNSLine(6,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' koef_p20_nov="'+GetFromWNSLine(6,True)+'" odp_uprav_kf="'+GetFromWNSLine(8,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' koef_p20_vypor="'+GetFromWNSLine(6,True)+'" vypor_odp="'+GetFromWNSLine(8,True)+'"');
        WriteLn(XML,' />')
        Write(XML,'<Veta6')
        LoadWNSLine(3,1);
        Write(XML,' uprav_odp="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dan_vrac="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dan_zocelk="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' odp_zocelk="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dano_da="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dano_no="'+GetFromWNSLine(5,True)+'"');
        LoadWNSLine(3,1);
        Write(XML,' dano="'+GetFromWNSLine(5,True)+'"');
        WriteLn(XML,' />')
        WriteLn(XML,'</DPHDP3>'+#13+#10+'</Pisemnost>');
        Close(XML)
        LoadWNSPos(1);
      end;
    TabFromWns(3,1,13,$30)
    Inc(TabPos,5)
    DefTab(1,5,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,7,$10)
    Inc(TabPos,5)
    TabFromWns(3,1,5,$10)
    Inc(TabPos,5)
    DefTab(3,5,117,27,ta_Right|ta_BaseLine,148,27,ta_Right|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,8,$70)
    Inc(TabPos,5)
    DefTab(1,5,126,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,1,$10)
    Inc(TabPos,5)
    DefTab(2,5,126,35,ta_Right|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,1,$30)
    DefTab(2,5,125.5,35,ta_Center|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,2,$A0)
    Inc(TabPos,5)
    DefTab(1,5,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,7,$10)

    if(IsXML2)
      begin
        LoadWNSPos(1);
        LocL=0;
        While(LocL<t91_1)
          begin
            Inc(LocL);
            LoadWNSLine(4,1);
            LocStr=XTrim(GetFromWNSLine(3,True))
            LocStr2=XTrim(GetFromWNSLine(6,True))
            LocStr3=XTrim(GetFromWNSLine(7,True))
            Write(XML2,'<VetaE c_radku="'+GetFromWNSLine(1,True)+'" d_uskut_pl="'+GetFromWNSLine(4,True)+'" dic_dod="'+Copy(GetFromWNSLine(2,True),3)+'" kod_pred_pl="'+LocStr+'" zakl_dane="'+GetFromWNSLine(5,True))
            WriteLn(XML2,'" roz_pl="'+LocStr2+'" roz_pl_j="'+LocStr3+'"'+' />')
          end;
        WriteLn(XML2,'</DPHEVD>'+#13+#10+'</Pisemnost>');
        Close(XML2)
      end;
    if(IsXML3)
      begin
        LoadWNSPos(1);
        LocL=0;
        While(LocL<t91_2)
          begin
            Inc(LocL);
            LoadWNSLine(4,2);
            LocB=Val(GetFromWNSLine(3,True))
            LocStr=XTrim(GetFromWNSLine(3,True))
            LocStr2=XTrim(GetFromWNSLine(6,True))
            LocStr3=XTrim(GetFromWNSLine(7,True))
            Write(XML3,'<VetaE c_radku="'+GetFromWNSLine(1,True)+'" d_uskut_pl="'+GetFromWNSLine(4,True)+'" dic_dod="'+Copy(GetFromWNSLine(2,True),3)+'" kod_pred_pl="'+LocStr+'" zakl_dane="'+GetFromWNSLine(5,True))
            WriteLn(XML3,'" roz_pl="'+LocStr2+'" roz_pl_j="'+LocStr3+'"'+' />')
          end;
        WriteLn(XML3,'</DPHEVD>'+#13+#10+'</Pisemnost>');
        Close(XML3)
      end;
  end;

if((IsXML)or(IsXML2)or(IsXML3))
  begin
    LocStr='Byly vytvořeny následující XML soubory:'+#13+#13
    if(IsXML)
      begin
        LocStr=LocStr+'Přiznání DPH:'+#13+TransToESC(XMLName)+#13+#13;
      end;
    if(IsXML2)
      begin
        LocStr=LocStr+'Výpis §92 odběratel:'+#13+TransToESC(XMLName2)+#13+#13;
      end;
    if(IsXML3)
      begin
        LocStr=LocStr+'Výpis §92 dodavatel:'+#13+TransToESC(XMLName3);
      end;
    Message(LocStr,mb_IconInformation);
  end;

Procedure WriteVetaP(ToXML:String)
  Write(@ToXML,'<VetaP c_ufo="'+Str(FinancniUradNum)+'" c_pracufo="'+Str(PracovisteFUNum)+'" dic="'+copy(Program.DIC,3)+'"');
  if(TypSubjektu=0) ; fyzicka osoba
    begin
      Write(@ToXML,' typ_ds="F" jmeno="'+StrToUTF8(FOJmeno)+'" prijmeni="'+StrToUTF8(FOPrijmeni)+'" titul="'+StrToUTF8(FOTitul)+'"');
    end else
  if(TypSubjektu=1) ; pravnicka osoba
    begin
      LocStr=XTrim(StrToUTF8(ObchodniJmeno)+' '+StrToUTF8(ObchodniJmeno2)+' '+StrToUTF8(DodatekJmena))
      Write(@ToXML,' typ_ds="P" zkrobchjm="'+LocStr+'"');
    end
  Write(@ToXML,' ulice="'+StrToUTF8(UliceBC)+'" c_pop="'+StrToUTF8(UliceCP)+'" c_orient="'+StrToUTF8(UliceCO)+'" naz_obce="'+StrToUTF8(Obec)+'" psc="'+NTrim(PSCDan)+'" c_telef="'+Telefon+'"');
  Write(@ToXML,' opr_jmeno="'+StrToUTF8(Jmeno)+'" opr_prijmeni="'+StrToUTF8(Prijmeni)+'" opr_postaveni="'+StrToUTF8(Postaveni)+'"');
  Write(@ToXML,' sest_jmeno="'+StrToUTF8(SestavilJmeno)+'" sest_prijmeni="'+StrToUTF8(SestavilPrijmeni)+'" sest_telef="'+StrToUTF8(TelefonDPH)+'" email="'+email+'"');
  if(Length(ZastupceDPHKod)<>0)
    begin
      LocZn='F'
      if(ZastupceDPHTyp<>0)
        LocZn='P'
      Write(@ToXML,' zast_typ="'+LocZn+'" zast_kod="'+StrToUTF8(ZastupceDPHKod)+'"');
      if(ZastupceDPHTyp=0)
         Write(@ToXML,' zast_prijmeni="'+StrToUTF8(ZastupceDPHPrijmeni)+'" zast_jmeno="'+StrToUTF8(ZastupceDPHJmeno)+'"');
      else
         Write(@ToXML,' zast_nazev="'+StrToUTF8(ZastupceDPHNazev)+'"')
      LocStr=''
      if(ZastupceDPHIDTyp=0)
        LocStr='zast_dat_nar'
      else
      if(ZastupceDPHIDTyp=1)
        LocStr='zast_ev_cislo'
      else
      if(ZastupceDPHIDTyp=2)
        LocStr='zast_ic'
      if(Length(LocStr)<>0)
        Write(@ToXML,' '+LocStr+'="'+ZastupceDPHID+'"');
    end;
  Writeln(@ToXML,'/>');
end;

END