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

Name('Přiznání DPH - formulář č.15')
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://wwww.winduo.cz')
Descr('Formulář pro přiznání DPH')

Vzor:Integer=15

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

INIzDPPO:String=DataPath+'DPPO.INI'

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

LocStr:String
LocB:Byte


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

    ;definice dialogu
    AktualCover:Integer=0
    FinancniUrad:String[32]=GetDataINI('INFO','FinancniUrad')
    DatumPriznani:Word=ValDate(GetDataINI('DPH','DatumPriznani'))
    ;Adresa:String[37]=GetDataINI('INFO','UplnaAdresa')
    Prijmeni:String[25]=GetDataINI('INFO','PrijmeniZastupce')
    Jmeno:String[11]=GetDataINI('INFO','JmenoZastupce')
    ObchodniJmeno:String[37]=GetDataINI('INFO','ObchodniJmeno')
    ObchodniJmeno2:String[25]=GetDataINI('INFO','ObchodniJmeno2')
    DodatekJmena:String[11]=GetDataINI('INFO','DodatekJmena')

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

    HlCinnost1:String[37]=GetDataINI('INFO','HlCinnost1')
    TypPriz:Byte=Val(GetDataIni('DPH','TypPriz'))
    TypPlatce:Byte=Val(GetDataIni('DPH','TypPlatce'))
    ;EU:Byte=Val(GetDataIni('DPH','EU'))
    Sestavil:String[25]=GetDataINI('INFO','Sestavil')
    TelefonDPH:String[20]=GetDataINI('INFO','TelefonDPH')

    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;
    UliceCislo:String[9]=GetFromIni('TITULNI','UliceCislo',INIzDPPO)
    Stat:String[15]=GetFromIni('TITULNI','Stat',INIzDPPO)
    Telefon:String[12]=GetFromIni('TITULNI','Telefon',INIzDPPO)
    Email:String[20]=GetFromIni('TITULNI','Email',INIzDPPO)
    DICZastupce:String[12]=GetFromIni('TITULNI','DICZastupce',INIzDPPO)

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

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

    SetCover(1,'&Společné údaje')
    DlgStatic(-1,'&Finančnímu úřadu v,ve,pro',10,18,180)
    DlgEdit(101,FinancniUrad,190,14,136,,32)
    DlgOnLineHelp(101,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&Typ přiznání',12,44,90)
    DlgCombo(103,TypPriz,102,40,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,44,20)
    DlgCombo(114,TypPlatce,234,40,226,128,9,CBS_DropDownList,'Plátce daně § 94','Osoba identifikovaná k dani § 96','Skupina § 95a','Neplátce daně § 19 nebo § 108')

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

    ;DlgStatic(-1,'Plnění uskutečněná do zemí &EU',12,112,214)
    ;DlgCombo(104,EU,228,108,100,96,9,CBS_DropDownList,'Ne','Ano')
    ;DlgOnLineHelp(104,'Údaje pro formulář... str. 1')

    DlgStatic(-1,'&Sídlo (právnické osoby) nebo trvalé bydliště fyzické osoby',10,74,400)
    DlgStatic(-1,'&Obec:',10,100,47)
    DlgEdit(105,Obec,58,96,182,,18)
    DlgOnLineHelp(105,'Údaje pro formulář... str. 1')

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

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

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

    DlgStatic(-1,'číslo:',318,128,40)
    DlgEdit(109,UliceCislo,358,124,104,,9)
    DlgOnLineHelp(109,'Údaje pro formulář... str. 1')

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

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


    DlgStatic(-1,'Hlavní ekonomická činnost',10,188,190)
    DlgEdit(112,HlCinnost1,10,206,455,,37)
    DlgOnLineHelp(112,'Hlavní ekonomická činnost (1. řádek) - údaje pro formulář... str. 1')

    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,236,376,,,es_Right)
        DlgCombo(113,KodNaslRok,394,232,71,128,9,CBS_DropDownList,'','Q2','M10','Q','M')
      end;

    DlgDivider(6,70,458);
    DlgDivider(6,181,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.')

    DlgStatic(-1,'Osoba oprávněná k podpisu za daňový subjekt',10,4,322)
    DlgStatic(-1,'&Příjmení',12,30,60)
    DlgEdit(401,Prijmeni,78,26,178,,25)
    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')


    DlgStatic(-1,'&Sestavil',10,92,64)
    DlgEdit(403,Sestavil,78,88,178,,25)
    DlgOnLineHelp(403,'Přiznání sestavil - údaje pro formulář... str. 4')
    DlgStatic(-1,'&Telefon',266,92,53)
    DlgEdit(404,TelefonDPH,322,88,138,,20)
    DlgOnLineHelp(404,'Telefón - údaje pro formulář... str. 4')

    ;DlgStatic(-1,'&DIČ daňového zástupce',10,120,156)
    ;DlgEdit(405,DICZastupce,172,118,110,,12,,ValidDIC)
    ;DlgOnLineHelp(405,'Daňové identifikační číslo daňového zástupce - údaje pro formulář... str. 1')


    Result:Integer=DlgExecute()

    if(Result<>id_OK)
      Halt

    SetDataINI('INFO','FinancniUrad',FinancniUrad)
    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','Sestavil',Sestavil)
    SetDataINI('INFO','TelefonDPH',TelefonDPH)

    SetToIni('TITULNI','Obec',Obec,INIzDPPO)
    SetToIni('TITULNI','PSC',PSCDan,INIzDPPO)
    SetToIni('TITULNI','Ulice',UliceBC,INIzDPPO)
    SetToIni('TITULNI','UliceCislo',UliceCislo,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)

    OPENWNS('HLASDPH.WNS')
    x:LongInt=CountWNSLines(3,0)
  end;

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

PEN(0,0.2)
ROUNDBOX(0,12,80,6,3.3,3.3)
ROUNDBOX(0,22,60,6,3.3,3.3)
LINES(5,26.5,0,1.3,5,0,11)
ROUNDBOX(0,32,55,6,3.3,3.3)
LINES(5,36.5,0,1.3,5,0,10)
LINES(10,35.2,0,2.5,10,0,3)
ROUNDBOX(0,39.5,23,6,3.3,3.3)
ROUNDBOX(29,39.5,23,6,3.3,3.3)
ROUNDBOX(57,39.5,23,6,3.3,3.3)
LINE(15,39.5,0,5.8)
LINE(44,39.5,0,5.8)
LINE(72,39.5,0,5.8)
ROUNDBOX(105,12,80,40,3.3,3.3)
ROUNDBOX(43.5,47,36.5,6,3.3,3.3)

RoundBox(74,74,20,6,3.3,3.3);
RoundBox(112,74,20,6,3.3,3.3);
RoundBox(142,74,20,6,3.3,3.3);

RoundBox(74,82,20,6,3.3,3.3);
RoundBox(112,82,20,6,3.3,3.3);

RoundBox(0,93,85,6,3.3,3.3);
Line(5,93,0,5.8)
Line(70,93,0,5.8)
RoundBox(0,100.5,85,6,3.3,3.3);
Line(5,100.5,0,5.8)
Line(70,100.5,0,5.8)
RoundBox(0,108,85,6,3.3,3.3);
Line(5,108,0,5.8)
Line(76.5,108,0,5.8)

RoundBox(100,93,85,6,3.3,3.3);
Line(105,93,0,5.8)
Line(170,93,0,5.8)
RoundBox(100,100.5,85,6,3.3,3.3);
Line(105,100.5,0,5.8)
Line(170,100.5,0,5.8)
RoundBox(100,108,85,6,3.3,3.3);
Line(105,108,0,5.8)
Line(170,108,0,5.8)

RoundBox(0,122,185,6,3.3,3.3);
Lines(5,126.5,0,1.3,5,0,36)
RoundBox(0,129.5,125,6,3.3,3.3);
Lines(5,134,0,1.3,5,0,24)
RoundBox(130,129.5,55,6,3.3,3.3);
Lines(135,134,0,1.3,5,0,10)

RoundBox(0,144,105,6,3.3,3.3);
Lines(5,148.5,0,1.3,5,0,20)
RoundBox(110,144,50,6,3.3,3.3);
Lines(115,148.5,0,1.3,4.55,0,10)
RoundBox(165,144,20,6,3.3,3.3);
Lines(170,148.5,0,1.3,5,0,3)

RoundBox(0,158,90,6,3.3,3.3);
Lines(5,162.5,0,1.3,5,0,17)
RoundBox(95,158,25,6,3.3,3.3);
Lines(100,162.5,0,1.3,5,0,4)
RoundBox(125,158,60,6,3.3,3.3);
Lines(130,162.5,0,1.3,5,0,11)

RoundBox(0,169,135,6,3.3,3.3);
Lines(5,173.5,0,1.3,5,0,26)
RoundBox(140,169,45,6,3.3,3.3);
Lines(145,173.5,0,1.3,5,0,8)

RoundBox(0,180,100,6,3.3,3.3);
Lines(5,184.5,0,1.3,5,0,19)
RoundBox(105,180,80,6,3.3,3.3);
Lines(110,184.5,0,1.3,5,0,15)

RoundBox(0,191,185,6,3.3,3.3);
Lines(5,195.5,0,1.3,5,0,36)

RoundBox(0,221,125,6,3.3,3.3);
Lines(5,225.5,0,1.3,5,0,24)
RoundBox(130,221,55,6,3.3,3.3);
Lines(135,225.5,0,1.3,5,0,10)

RoundBox(0,232,185,6,3.3,3.3);
Lines(5,236.5,0,1.3,5,0,36)

RoundBox(0,247,40,6,3.3,3.3);
Lines(5,251.5,0,1.3,5,0,7)
Lines(10,250.2,0,2.5,10,0,2)
RoundBox(63,247,50,20,3.3,3.3);
RoundBox(135,247,50,20,3.3,3.3);

RoundBox(21,270,105,6,3.3,3.3);
RoundBox(140,270,45,6,3.3,3.3);

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

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

FontSize(9)
Text(92.5,65,ta_Center|ta_BaseLine,'P Ř I Z N Á N Í')
FontSize(6)
Text(92.5,70,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,78,ta_Right|ta_BaseLine,'za zdaňovací období:  měsíc')
Text(110,78,ta_Right|ta_BaseLine,'čtvrtletí')
Text(140.5,78,ta_Right|ta_BaseLine,'rok')

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

FontSize(3.8)

XText(92.5,212,185,ta_Center|ta_BaseLine,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V ODDÍLECH A, B, C TOHOTO PŘIZNÁNÍ JSOU PRAVDIVÉ A ÚPLNÉ.')

FontSize(3.2)
Text(0,121,ta_BaseLine,'Právnická osoba: ')
FontFace(Normal)
Text(0,0,ta_Relative|ta_BaseLine,'Obchodní firma')
Text(0,11,ta_Left|ta_BaseLine,'Finančnímu úřadu v, ve, pro')
Text(0,21,ta_BaseLine,'Daňové identifikační číslo')
Text(0,31,ta_BaseLine,'Rodné číslo / IČ')
XText(7.5,43.5,14,ta_Center|ta_BaseLine,'řádné')
XText(36.5,43.5,14,ta_Center|ta_BaseLine,'opravné')
XText(64.5,43.5,14,ta_Center|ta_BaseLine,'dodatečné')
XText(0,49.5,42.5,ta_Left|ta_BaseLine,'Důvody pro podání dodatečného')
XText(0,52.5,42.5,ta_Left|ta_BaseLine,'daňového přiznání zjištěny dne')
Text(0,219.5,ta_BaseLine,'Příjmení')
Text(130,219.5,ta_BaseLine,'Jméno')
Text(0,231,ta_BaseLine,'Vztah k daňovému subjektu')
FontFace(Bold)
Text(0,143,ta_BaseLine,'Fyzická osoba: ')
FontFace(Normal)
Text(0,0,ta_Relative|ta_BaseLine,'Příjmení')
Text(110,143,ta_BaseLine,'Jméno')
Text(165,143,ta_BaseLine,'Titul')
FontFace(Bold)
Text(0,154,ta_BaseLine,'Sídlo právnické osoby nebo trvalé bydliště fyzické osoby:')
Text(0,216.5,ta_BaseLine,'Osoba, která je oprávněná k podpisu za daňový subjekt:')
FontFace(Normal)
Text(0,157,ta_BaseLine,'a) obec')
Text(95,157,ta_BaseLine,'b) PSČ')
Text(125,157,ta_BaseLine,'c) telefon')
Text(0,168,ta_BaseLine,'d) ulice (nebo část obce)')
Text(140,168,ta_BaseLine,'e) číslo popisné / orientační')
Text(0,179,ta_BaseLine,'f) e-mail')
Text(105,179,ta_BaseLine,'g) stát')
Text(0,190,ta_BaseLine,'Hlavní ekonomická činnost')
Text(2.5,97,ta_Center|ta_BaseLine,'1')
Text(102.5,97,ta_Center|ta_BaseLine,'2')
Text(7,97,ta_Left|ta_BaseLine,'Plátce daně § 94')
Text(107,97,ta_Left|ta_BaseLine,'Osoba identifikovaná k dani § 96')
Text(2.5,104.5,ta_Center|ta_BaseLine,'3')
Text(102.5,104.5,ta_Center|ta_BaseLine,'4')
Text(7,104.5,ta_Left|ta_BaseLine,'Skupina § 95a')
Text(107,104.5,ta_Left|ta_BaseLine,'Neplátce daně § 19 nebo § 108')
Text(2.5,112,ta_Center|ta_BaseLine,'5')
Text(102.5,112,ta_Center|ta_BaseLine,'6')
Text(7,112,ta_Left|ta_BaseLine,'Neexistují-li údaje pro C. ODDÍL, proškrtněte (X)')
Text(107,112,ta_Left|ta_BaseLine,'Kód zdaňovacího období následujícího roku')
FontSize(2.9)
Text(145,49,ta_Center|ta_BaseLine,'otisk podacího razítka finančního úřadu')
Text(0,246,ta_Left|ta_BaseLine,'Datum')
Text(63,246,ta_Left|ta_BaseLine,'Otisk razítka')
Text(92.5,286,ta_Center|ta_BaseLine,'1')
XText(135,243.5,50,ta_Left|ta_BaseLine,'Podpis daňového subjektu nebo osoby')
XText(135,246,50,ta_Left|ta_BaseLine,'oprávněné k podpisu za daňový subjekt')
XText(0,274,20,ta_Left|ta_BaseLine,'Přiznání sestavil')
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,26,ta_Center|ta_BaseLine,5,2,'CZ')
Text(32.5,36,ta_Center|ta_BaseLine,'/')

if(not Prazdny)
  begin
    PEN(0,0.3)
    IF(TypPriz=0)
      begin
       LINEA(17,41,21,44)
       LINEA(17,44,21,41)
      end;
    IF(TypPriz=1)
      begin
       LINEA(46,41,50,44)
       LINEA(46,44,50,41)
      end;
    if(TypPlatce=1)
      begin
        LINEA(175,94,179,98);
        LINEA(175,98,179,94);
      end else
    if(TypPlatce=2)
      begin
        LINEA(75,101.5,79,105.5);
        LINEA(75,105.5,79,101.5);
      end else
    if(TypPlatce=3)
      begin
        LINEA(175,101.5,179,105.5);
        LINEA(175,105.5,179,101.5);
      end else
      begin
        LINEA(75,94,79,98);
        LINEA(75,98,79,94);
      end;
    FontFace(Bold|Italic)
    XText(2.5,16,75,ta_Left|ta_BaseLine,FinancniUrad)
    SText(12.5,26,ta_Center|ta_BaseLine,5,10,Copy(Program.DIC,3,255))
    SText(2.5,126,ta_Center|ta_BaseLine,5,37,ObchodniJmeno)
    SText(2.5,133.5,ta_Center|ta_BaseLine,5,25,ObchodniJmeno2)
    SText(132.5,133.5,ta_Center|ta_BaseLine,5,11,DodatekJmena)
    SText(2.5,148,ta_Center|ta_BaseLine,5,21,FOPrijmeni)
    SText(112.5,148,ta_Center|ta_BaseLine,4.55,11,FOJmeno)
    SText(167.5,148,ta_Center|ta_BaseLine,5,4,FOTitul)
    SText(2.5,162,ta_Center|ta_BaseLine,5,18,Obec)
    SText(97.5,162,ta_Center|ta_BaseLine,5,5,PSCDan)
    SText(127.5,162,ta_Center|ta_BaseLine,5,12,Telefon)
    SText(2.5,173,ta_Center|ta_BaseLine,5,27,UliceBC)
    SText(142.5,173,ta_Center|ta_BaseLine,5,9,UliceCislo)
    SText(2.5,184,ta_Center|ta_BaseLine,5,20,Email)
    SText(107.5,184,ta_Center|ta_BaseLine,5,16,Stat)
    SText(2.5,195,ta_Center|ta_BaseLine,5,37,HlCinnost1)
    SText(2.5,225,ta_Center|ta_BaseLine,5,25,Prijmeni)
    SText(132.5,225,ta_Center|ta_BaseLine,5,11,Jmeno)
    SText(2.5,236,ta_Center|ta_BaseLine,5,37,Postaveni)
    IF(DatumPriznani<>0)
      begin
        SText(2.5,251,TA_Center|ta_BaseLine,5,2,DenZData(GetDataINI('DPH','DatumPriznani')))
        SText(12.5,251,TA_Center|ta_BaseLine,5,2,MesicZData(GetDataINI('DPH','DatumPriznani'),2))
        SText(22.5,251,TA_Center|ta_BaseLine,5,4,RokZData(GetDataINI('DPH','DatumPriznani')))
      end
    XText(23.5,274,100,ta_Left|ta_BaseLine,Sestavil)
    XText(142.5,274,40,ta_Left|ta_BaseLine,TelefonDPH)
    Text(84,78,ta_Center|ta_BaseLine,ObdMesic);
    Text(122,78,ta_Center|ta_BaseLine,ObdKvart);
    Text(152,78,ta_Center|ta_BaseLine,ObdRok);
    Text(177.5,112,ta_Center|ta_BaseLine,KodNaslRok);
  end;

NextPage;

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

Pen(0,0.4)
RoundBox(0,10,185.2,256.5,3.3,3.3);
LineS(0,15,185,0,0,63,2)
LineS(0,83,185,0,0,30,2)
LineS(0,118,185,0,0,10,2)
LineS(0,133,185,0,0,51,2)
LineS(0,189,185,0,0,25,2)
Line(0,219,185,0)
RoundBox(130,268,55.2,11,3.3,3.3);

PEN(0,0.2)
LineS(0,28,185,0,0,10,4)
LineS(0,63,185,0,0,5,2)
Line(72,21.5,113,0)
LineS(72,33,113,0,0,10,5)
LineS(0,88,185,0,0,5,5)
Line(72,15,0,43)
Line(72,68,0,10)
LineS(84,10,0,68,7,0,2)
Line(140,10,0,103)
Line(133,83,0,30)
Line(116,118,0,10)
LineS(123,118,0,66,31,0,2)
Line(123,123,62,0)
Line(72,139.5,113,0)
LineS(0,146,185,0,0,10,3)
LineS(72,151,113,0,0,10,2)
LineS(0,171,185,0,0,6.5,2)
Line(72,133,0,33)
Line(84,133,0,51)
Line(91,128,0,56)
LineS(84,189,0,25,7,0,2)
Line(131,189,0,25)
LineS(120.5,204,0,10,33.5,0,2)
Line(0,194,185,0)
LineS(0,204,185,0,0,5,2)
Line(91,199,94,0)
LineS(0,224,185,0,0,5,3)
LineS(0,240.5,185,0,0,6.5,4)
LineS(133,219,0,47.5,7,0,2)
RoundBox(34,276,40,6,3.3,3.3);
LineS(39,280.5,0,1.3,5,0,7)
LineS(44,279.3,0,2.5,10,0,2)
RoundBox(85,276,40,6,3.3,3.3);
LineS(90,280.5,0,1.3,5,0,7)
LineS(95,279.3,0,2.5,10,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,81.5,ta_Left|ta_BaseLine,'II. Plnění osvobozená a s místem plnění mimo tuzemsko s nárokem na odpočet daně')
Text(1.5,116.5,ta_Left|ta_BaseLine,'III. Doplňující údaje')
Text(1.5,131.5,ta_Left|ta_BaseLine,'IV. Nárok na odpočet daně')
Text(1.5,187.5,ta_Left|ta_BaseLine,'V. Krácení nároku na odpočet daně')
Text(1.5,217.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,81.5,ta_Center|ta_BaseLine,'Hodnota')
Text(138.5,121.5,ta_Center|ta_BaseLine,'Pořízení zboží')
Text(169.5,121.5,ta_Center|ta_BaseLine,'Dodání zboží')
Text(107,131.5,ta_Center|ta_BaseLine,'Základ daně')
Text(138.5,131.5,ta_Center|ta_BaseLine,'V plné výši')
Text(169.5,131.5,ta_Center|ta_BaseLine,'Krácený odpočet')
Text(111,197.5,ta_Center|ta_BaseLine,'S nárokem na odpočet')
Text(158,197.5,ta_Center|ta_BaseLine,'Bez nároku na odpočet')
Text(1.5,21,ta_Left|ta_BaseLine,'Dodání zboží nebo poskytnutí služby s místem')
Text(1.5,24,ta_Left|ta_BaseLine,'plnění v tuzemsku (např. § 13, § 14, § 18)')
Text(1.5,32.5,ta_Left|ta_BaseLine,'Pořízení zboží z jiného členského státu')
Text(1.5,35.5,ta_Left|ta_BaseLine,'(§ 16; § 17 odst. 6 písm. e); § 19 odst. 3)')
Text(1.5,42.5,ta_Left|ta_BaseLine,'Přijetí služby od osoby registrované')
Text(1.5,45.5,ta_Left|ta_BaseLine,'k dani v jiném členském státě (§ 15)')
Text(1.5,54,ta_Left|ta_BaseLine,'Dovoz zboží (§ 23 odst. 3 a 4)')
Text(1.5,61.5,ta_Left|ta_BaseLine,'Pořízení nového dopravního prostředku (§ 19 odst. 4)')
Text(1.5,66.5,ta_Left|ta_BaseLine,'Dodání zlata podle zvláštního režimu (§ 92a odst. 2)')
Text(1.5,72.5,ta_Left|ta_BaseLine,'Ostatní zdanitelná plnění, u kterých je povinen přiznat')
Text(1.5,75.5,ta_Left|ta_BaseLine,'daň plátce při jejich plnění (§ 15)')
Text(1.5,140.5,ta_Left|ta_BaseLine,'Z přijatých zdanitelných plnění od plátců')
Text(1.5,152,ta_Left|ta_BaseLine,'Při dovozu zboží, kdy je správcem daně celní úřad')
Text(1.5,162,ta_Left|ta_BaseLine,'Ze zdanitelných plnění vykázaných na řádcích 3 až 12')
Text(1.5,169.5,ta_Left|ta_BaseLine,'Odpočet daně při změně režimu (§ 74)')
Text(1.5,175.5,ta_Left|ta_BaseLine,'Odpočet daně celkem (40 + 41 + 42 + 43 + 44 + 45 + 46)')
Text(1.5,181.5,ta_Left|ta_BaseLine,'z toho hodnota pořízeného majetku vymezeného v § 78 odst. 2')
Text(0,269.5,ta_Left|ta_BaseLine,'Záznamy finančního úřadu:')

FontFace(Normal)
Text(87.5,13.5,ta_Center|ta_BaseLine,'ř.')
Text(78,19,ta_Center|ta_BaseLine,'základní')
Text(78,25.5,ta_Center|ta_BaseLine,'snížená')
Text(78,31.5,ta_Center|ta_BaseLine,'základní')
Text(78,36.5,ta_Center|ta_BaseLine,'snížená')
Text(78,41.5,ta_Center|ta_BaseLine,'základní')
Text(78,46.5,ta_Center|ta_BaseLine,'snížená')
Text(78,51.5,ta_Center|ta_BaseLine,'základní')
Text(78,56.5,ta_Center|ta_BaseLine,'snížená')
Text(78,71.5,ta_Center|ta_BaseLine,'základní')
Text(78,76.5,ta_Center|ta_BaseLine,'snížená')
Text(89,19,ta_Right|ta_BaseLine,'1')
Text(89,25.5,ta_Right|ta_BaseLine,'2')
Text(89,31.5,ta_Right|ta_BaseLine,'3')
Text(89,36.5,ta_Right|ta_BaseLine,'4')
Text(89,41.5,ta_Right|ta_BaseLine,'5')
Text(89,46.5,ta_Right|ta_BaseLine,'6')
Text(89,51.5,ta_Right|ta_BaseLine,'7')
Text(89,56.5,ta_Right|ta_BaseLine,'8')
Text(89,61.5,ta_Right|ta_BaseLine,'9')
Text(89,66.5,ta_Right|ta_BaseLine,'10')
Text(89,71.5,ta_Right|ta_BaseLine,'11')
Text(89,76.5,ta_Right|ta_BaseLine,'12')
Text(1.5,86.5,ta_Left|ta_BaseLine,'Dodání zboží do jiného členského státu (§ 64)')
Text(136.5,86.5,ta_Center|ta_BaseLine,'20')
XText(1.5,91.5,130,ta_Left|ta_BaseLine,'Poskytnutí služeb s místem plnění mimo tuzemsko osobě registrované k dani v jiném členském státě (§ 24a)')
Text(136.5,91.5,ta_Center|ta_BaseLine,'21')
Text(1.5,96.5,ta_Left|ta_BaseLine,'Vývoz zboží (§ 66)')
Text(136.5,96.5,ta_Center|ta_BaseLine,'22')
XText(1.5,101.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(136.5,101.5,ta_Center|ta_BaseLine,'23')
Text(1.5,106.5,ta_Left|ta_BaseLine,'Zasílání zboží do jiného členského státu (§ 18)')
Text(136.5,106.5,ta_Center|ta_BaseLine,'24')
XText(1.5,111.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, § 92a)')
Text(136.5,111.5,ta_Center|ta_BaseLine,'25')
XText(1.5,124,113,ta_Left|ta_BaseLine,'Zjednodušený postup při dodání zboží formou třístranného obchodu (§ 17) prostřední osobou')
Text(119.5,124,ta_Center|ta_BaseLine,'30')
Text(78,137,ta_Center|ta_BaseLine,'základní')
Text(87.5,137,ta_Center|ta_BaseLine,'40')
Text(78,143.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,143.5,ta_Center|ta_BaseLine,'41')
Text(78,149.5,ta_Center|ta_BaseLine,'základní')
Text(87.5,149.5,ta_Center|ta_BaseLine,'42')
Text(78,154.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,154.5,ta_Center|ta_BaseLine,'43')
Text(78,159.5,ta_Center|ta_BaseLine,'základní')
Text(87.5,159.5,ta_Center|ta_BaseLine,'44')
Text(78,164.5,ta_Center|ta_BaseLine,'snížená')
Text(87.5,164.5,ta_Center|ta_BaseLine,'45')
Text(87.5,169.5,ta_Center|ta_BaseLine,'46')
Text(87.5,175.5,ta_Center|ta_BaseLine,'47')
Text(87.5,181.5,ta_Center|ta_BaseLine,'48')
Text(1.5,192.5,ta_Left|ta_BaseLine,'Plnění osvobozená od daně bez nároku na odpočet daně')
Text(87.5,192.5,ta_Center|ta_BaseLine,'50')
XText(1.5,200,80,ta_Left|ta_BaseLine,'Hodnota plnění nezapočítavaných do výpočtu koeficientu (§ 76 odst. 3)')
Text(87.5,200,ta_Center|ta_BaseLine,'51')
Text(1.5,207.5,ta_Left|ta_BaseLine,'Vypočtená poměrná část odpočtu daně (§ 76)')
Text(87.5,207.5,ta_Center|ta_BaseLine,'52')
Text(1.5,212.5,ta_Left|ta_BaseLine,'Vypořádání odpočtu daně (§ 76 odst. 7 až 10)')
Text(87.5,212.5,ta_Center|ta_BaseLine,'53')
Text(1.5,222.5,ta_Left|ta_BaseLine,'Úprava odpočtu daně (§ 78)')
Text(136.5,222.5,ta_Center|ta_BaseLine,'60')
Text(1.5,227.5,ta_Left|ta_BaseLine,'Vyrovnání odpočtu daně (§ 79)')
Text(136.5,227.5,ta_Center|ta_BaseLine,'61')
Text(1.5,232.5,ta_Left|ta_BaseLine,'Vrácení daně (§ 84)')
Text(136.5,232.5,ta_Center|ta_BaseLine,'62')
Text(1.5,238,ta_Left|ta_BaseLine,'Daň na výstupu (1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 - 62)')
Text(136.5,238,ta_Center|ta_BaseLine,'63')
Text(1.5,244.5,ta_Left|ta_BaseLine,'Odpočet daně (47 V plné výši + 52 Odpočet + 53 Změna odpočtu + 60 + 61)')
Text(136.5,244.5,ta_Center|ta_BaseLine,'64')
Text(1.5,251,ta_Left|ta_BaseLine,'Vlastní daňová povinnost (63 - 64)')
Text(136.5,251,ta_Center|ta_BaseLine,'65')
Text(1.5,257.5,ta_Left|ta_BaseLine,'Nadměrný odpočet (64 - 63)')
Text(136.5,257.5,ta_Center|ta_BaseLine,'66')
XText(1.5,264,128,ta_Left|ta_BaseLine,'Rozdíl proti poslední známé daňové povinnosti při podání dodatečného daňového přiznání (63 - 64)')
Text(136.5,264,ta_Center|ta_BaseLine,'67')
Text(0,272.5,ta_Left|ta_BaseLine,'Finanční úřad přiznanou daň vyměřil/dodatečně vyměřil a předepsal')
Text(0,275.5,ta_Left|ta_BaseLine,'podle § 46 zákona ČNR č. 337/1992 Sb., o správě daní a poplatků, ve znění')
Text(0,280,ta_Left|ta_BaseLine,'pozdějších předpisů, dne')
Text(79.5,280,ta_Center|ta_BaseLine,'ke dni')

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

FontSize(2.9)
xText(157.5,282,55,ta_Center|ta_BaseLine,'Podpis oprávněného pracovníka správce daně')
Text(92.5,286,ta_Center|ta_BaseLine,'2')

FontFace(Bold)
Text(92.5,207.5,ta_Left|ta_BaseLine,'Koeficient')
Text(92.5,212.5,ta_Left|ta_BaseLine,'Vypořádací koeficient')
Text(132.5,207.5,ta_Left|ta_BaseLine,'Odpočet')
Text(132.5,212.5,ta_Left|ta_BaseLine,'Změna odpočtu')

if(not Prazdny)
  begin
    FontSize(4)
    FONTFACE(BOLD|ITALIC)
    TabPos(20.5)
    DefTab(2,6.5,135,38,ta_Right|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,2,$30)
    Dec(TabPos,1)
    DefTab(2,5,135,38,ta_Right|ta_BaseLine,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,10,$30)
    Inc(TabPos,5)
    DefTab(1,5,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,6,$10)
    Inc(TabPos,10)
    DefTab(2,5,149,25,ta_Right|ta_BaseLine,180,25,ta_Right|ta_BaseLine)
    TabFromWns(3,1,1,$30)
    Inc(TabPos,6)
    DefTab(3,5,118,25,ta_Right|ta_BaseLine,149,25,ta_Right|ta_BaseLine,180,25,ta_Right|ta_BaseLine)
    TabFromWns(3,1,1,$70)
    Inc(TabPos,1.5)
    TabFromWns(3,1,1,$70)
    Inc(TabPos,0.5)
    TabFromWns(3,1,5,$70)
    Inc(TabPos,1)
    TabFromWns(3,1,1,$70)
    Inc(TabPos,1.5)
    TabFromWns(3,1,1,$70)
    Inc(TabPos,5.5)
    DefTab(2,5,126,30,ta_Right|ta_BaseLine,180,45,ta_Right|ta_BaseLine)
    TabFromWns(3,1,1,$10)
    Inc(TabPos,5)
    TabFromWns(3,1,1,$30)
    DefTab(2,5,125.75,10.5,ta_Center|ta_BaseLine,180,25,ta_Right|ta_BaseLine)
    TabFromWns(3,1,2,$A0)
    Inc(TabPos,5)
    DefTab(1,5,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,3,$10)
    Inc(TabPos,1)
    DefTab(1,6.5,180,35,ta_Right|ta_BaseLine)
    TabFromWns(3,1,5,$10)
  end;

END