;{ DDT SESTAVA - STANDARD } ;{ DDT pro DAP B - vzor. č. 17 } ;{ Verze: 21.02.2011 } ;{ Autor: WinDUO Team } ;DlgFollowMouse(True); IsXML:Boolean=False IniRok:String=Rok() FileName('DAPB'+IniRok+'.WNS') Name('Daňové přiznání DAP vzor č.17 za '+IniRok) Designed('') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') Descr('Formulář daně z příjmů fyzických osob vzor 16') if(Version()<5) Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop) if(not ExistVariable('Prazdny')) begin Prazdny:Boolean=False; end; Procedure BunkaCislo (x:Double,y:Double,p:Double) Pen(0,0.1) RoundBoxA(x,y,x+(p*5),y+6,3.3,3.3) LinesA(x+5,y+4.5,x+5,y+6,5,0,p-1) End; Procedure BunkaDatum (x:Double,y:Double) Pen(0,0.1) RoundBoxA(x,y,x+40,y+6,3.3,3.3) Pen(0,0.05) LinesA(x+5,y+4.5,x+5,y+6,10,0,2) LinesA(x+10,y+4,x+10,y+6,10,0,2) LinesA(x+25,y+4.5,x+25,y+6,5,0,3) End Procedure AddWarn(Warn:String); Inc(TotalWarn); if(TotalWarn<=16) begin Warns[TotalWarn]=Warn WarnCount=TotalWarn end else begin WarnCount=16 Warns[WarnCount]='.... a nalezeno dalších nezobrazených chyb: '+Str(TotalWarn-WarnCount+1); end; end; skrt:String[5]='-----' Procedure TiskSkrt(vstup:Double,x:LongInt,y:LongInt,t:Integer) if(vstup<>0) begin if(t=1) Text(x,y,TA_Right|TA_BaseLine,StrFinanc(vstup,0)) else Text(x,y,TA_Right|TA_BaseLine,vstup) end else begin if(t=2) Text(x,y,TA_Right|TA_BaseLine,Copy(skrt,1,3)) else Text(x,y,TA_Right|TA_BaseLine,skrt) end End; ;{definice promennych 1} ysou:LongInt DeclareRec('Program') ;DlgFollowMouse(True) INI:String=DataPath+'DPPO.INI' ;umyslne je zde tento nazev INI, protoze nacita nektere hodnoty z DPPO.INI, neni pro to novy jiny INI NactiOdpisAnoNe:Boolean=False NactiVHPredZdan:Boolean=False Souhlas:Boolean=True LocL:LongInt LocD:Double ;MamPokyny:Boolean=False ValidDatum:String='0123456789.' ValidBU:String='0123456789-/ ' ValidRC:String='0123456789/' ValidCislo:String='0123456789.,+-' ValidCisloInt:String='0123456789+-' ValidCisloKl:String='0123456789.,+-' ValidCisloK2:String='0123456789+-' ;ValidTypPrizn:String='0123456789ABCDEFGHIJKLMabcdefghijklm' ValidIntDatum:String='0123456789.-' SetDecimalSize(2) Result:Integer=999 Result2:Integer=999 LocN:Integer=0 LocB:Boolean=False LocStr:String LocStr2:String LocW:Word LocWord1:Word=0 LocShInt1:ShortInt=0 LocZn:Char LocBy:Byte PosunPrizn:ShortInt=0 ;ObdZtrat34:Byte=7 ; §34 odst. 1 = počet let, po který lze odečíst ztrátu DelkaFiscal:String=Null(Program.FiscalLength,2) VyskaFontuHodn:Real=4; 3.8 poprve:Boolean=True HelpStr:String; KodyRozliseni:Array[1..3] of String; KodyRozliseni[2]='G. za předcházející zdaňovací období, pokud nebylo DAP dosud podáno (§ 245 daňového řádu)'; KodyRozliseni[3]='I. do 6 měsíců po úmrtí poplatníka (§ 239 odst. 3 daňového řádu)'; PausalNazvy:Array[0..3] of String[4]='Ne','40%','60%','80%' PausalSazby:Array[0..3] of Byte=0,40,60,80 Pausal:Array[1..4] of Byte; Prijmy:Array[1..4] of LongInt; Vydaje:Array[1..4] of LongInt; Priznani:Boolean=True Pril1:Boolean Pril2:Boolean Pril3:Boolean Pril4:Boolean Pril5:Boolean DefDialog('Volba tisku',292,187) DlgShade(-1,'',4,27,282,87) DlgStatic(-1,'Tisknout následující formuláře',23,8,200) DlgCheckBox(101,Priznani,16,32,256,,'Přiznání k dani z příjmů - vzor č. 17'); DlgCheckBox(102,Pril1,16,52,110,,'Příloha č. 1'); DlgOnLineHelp(102,'P1 - Výpočet dílčího základu daně z příjmů z podnikání a z jiné samostatné výdělečné činnosti (§ 7 zákona)') DlgCheckBox(103,Pril2,16,72,110,,'Příloha č. 2'); DlgOnLineHelp(103,'P2 - Výpočet dílčích základů daně z příjmů z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)') DlgCheckBox(104,Pril3,16,92,110,,'Příloha č. 3'); DlgOnLineHelp(104,'P3 - Výpočet daně z příjmů dosažených za více zdaňovacích období (§ 14 zákona), daně z příjmů ze zdrojů v zahraničí (§ 38f zákona) a daně po slevě (§ 35 zákona)') DlgButton(id_OK,'OK',156,119); DlgOnLineHelp(id_OK,'Pokračuje ve zpracování') DlgButton(id_Cancel,'Zpět',222,119); DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování') DlgButton(id_Help,'Help',4,119); DlgOnLineHelp(id_Help,'Help') DlgSetHelp(help_Context,1040) if(DlgExecute(True)<>id_OK) Halt; ;{proměnné pro stránky} x21:real x22:real x23:real x24:real x25:real y2:real i21:real i22:real PocRad2:Byte SirkaPolicka21:real SirkaPolicka22:real SirkaPolicka23:real SirkaPolicka24:real x31:real x32:real x33:real x34:real x35:real x36:real x37:real x38:real x39:real y3:real i31:real i32:real PocRad3:Byte SirkaPolicka31:real SirkaPolicka32:real SirkaPolicka33:real SirkaPolicka34:real x41:real x42:real x43:real x44:real x45:real y4:real i41:real i42:real PocRad4:Byte SirkaPolicka41:real SirkaPolicka42:real SirkaPolicka43:real SirkaPolicka44:real x51:real x52:real y5:real i51:real PocRad5:Byte SirkaPolicka51:real SirkaPolicka52:real x61:real x62:real y6:real i61:real PocRad6:Byte SirkaPolicka61:real SirkaPolicka62:real x81:real x82:real x83:real x84:real x85:real y8:real i81:real i82:real PocRad8:Byte SirkaPolicka81:real SirkaPolicka82:real SirkaPolicka83:real SirkaPolicka84:real x91:real x92:real x93:real x94:real x95:real y9:real i91:real i92:real PocRad9:Byte SirkaPolicka91:real SirkaPolicka92:real SirkaPolicka93:real x101:real x102:real x103:real x104:real x105:real y10:real i101:real i102:real PocRad10:byte SirkaPolicka101:real SirkaPolicka102:real ;{strana 4} kodzastupce :string[2] =GetFromIni('DAP'+IniRok,'kodzastupce',INI) pravnickaosoba :string[34]=GetFromIni('DAP'+IniRok,'pravnickaosoba',INI) datumnarozeni :string[34]=GetFromIni('DAP'+IniRok,'datumnarozeni',INI) vztahkosobe :string[34]=GetFromIni('DAP'+IniRok,'vztahkosobe',INI) datumpodani :word =Val(GetFromIni('DAP'+IniRok,'datumpodani',INI)) Warns:Array[1..16] of String; WarnCount:Word=0 TotalWarn:Word=0; if(Prazdny) GoTo(Tisk); ;{definice uvodniho dialogu} DefDialog('POMŮCKA pro sestavení přiznání DAP vzor 17 pro rok 2010',600,400) DlgShade(-1,'',4,27,590,302) DlgStatic(-1,' TOTO JE POMŮCKA K SESTAVENÍ PŘIZNÁNÍ K DANI Z PŘÍJMŮ FYZICKÝCH OSOB',23,5,554) DlgStatic(-1,'Doporučení - seznamte se s POKYNY k vyplnění přiznání k DAP',16,34,510) DlgStatic(-1,' (25 5405/1 MFin 5405/1 - vzor č. 17) a s formulářem PŘIZNÁNÍ ...',102,50,430) DlgStatic(-1,' - seznamte se s platným zákonem o daních z příjmů',94,66,350) if(Program.DanovaEvidence) DlgStatic(-1,'Předpoklady - musí být vypočteny Přehledy o M/Z a P/V k 31.12.'+Rok(4),16,82,540) else DlgStatic(-1,'Předpoklady - musí být vypočten VZaZ včetně nezaokrouhlených údajů za '+DelkaFiscal+'/'+Rok(2),16,82,540) DlgStatic(-1,'Upozornění - tento program počítá přiznání DAP dle podkladů z 12/2010 - vzor č.17',16,100,575) if(not CompareStr(IniRok,'2010')) begin AddWarn('Daňové přiznání vzor 17 je určeno pro rok 2010 - ověřte, zda je stále platné') end Souhlas:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Souhlas',INI)) RucneVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'RucneVHPredZdan',INI)) NactiVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'NactiVHPredZdan',INI)); údaj VH z VZaZ za 12 mesíc pro ř.104 v příloze 1 VypoctiVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'VypoctiVHPredZdan',INI)) TabulkaDP1:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'TabulkaDP1',INI)) DlgBitmap(903,15,163-45) DlgCheckBox(100,Souhlas,63,177-45,528,,'jsem si vědom(a) toho, že tato funkce je pouze pomůcka pro snazší sestavení') DlgOnLineHelp(100,'Ověřte a zkontrolujte si nejen ty údaje, které zadáváte sami, ale i ty, které jsou převzaty z WinDUO. Existuje mnoho způsobů, jakými se do tohoto výpočtu může vloudit chyba. Důvěřuj, ale prověřuj!') DlgStatic(-1,'přiznání k DAP (za správnost údajů v daňovém přiznání neodpovídají autoři',83,197-45,500) DlgStatic(-1,'programu. Pokud sestavujete přiznání ručně, lze tento bod přeskočit)',83,213-45,500) DlgDivider(16,231-45,567,0) DatumUctSkup:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumUctSkup',INI) if(Program.DanovaEvidence) begin OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime DlgStatic(-1,'Údaje o příjmech a výdajích do ř.33,101,102 příl.1, 205,206 a 3.1 příl.2 si přejete vyplnit:',12,190,580) if(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgOnLineHelp(9110,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, z WinDUO nebudou přeneseny') DlgRadioButton(9111,NactiVHPredZdan,28,227,560,,'- načíst údaje z Přehledu o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ,9110,9112) DlgOnLineHelp(9111,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B budou načteny ze sestavy Přehled o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ) DlgOnLineHelp(9112,'Údaje do řádků 33 a do 101,102 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, řádek 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103') end else begin DlgStatic(-1,'- nelze převzít z Přehledu o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+', sestava nebyla vypočtena',10,227,560) DlgOnLineHelp(9110,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, z WinDUO nebudou přeneseny') DlgOnLineHelp(9112,'Údaje do řádků 33 a do 101,102 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, řádek 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103') end end else begin OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime DlgStatic(-1,'Údaj o výsledku hospodaření do ř.104 Přílohy 1 si přejete vyplnit:',16,190,500) if(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP zadáte ručně') DlgRadioButton(9111,NactiVHPredZdan,28,227,560,,'- načíst VH před zdaněním z VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ,9110,9112) DlgOnLineHelp(9111,'Údaj do řádku 104 přílohy č. 1 DAP bude načten ze sestavy VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ) DlgOnLineHelp(9112,'Údaj do řádku 104 přílohy č. 1 DAP bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') end else begin DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP zadáte ručně') DlgStatic(-1,'- nelze převzít z VZaZ za '+DelkaFiscal+'/'+ROK(2)+', sestava nebyla vypočtena',50,227,560) DlgOnLineHelp(9111,'Údaj do řádku 104 přílohy č. 1 DAP bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') end end if(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgRadioButton(9110,RucneVHPredZdan,28,206,560,,'- ručně',9110,9112) DlgRadioButton(9112,VypoctiVHPredZdan,28,249,560,,'- vypočten jako rozdíl ř.101 - ř.102 - ř.103',9110,9112) end else begin DlgRadioButton(9110,RucneVHPredZdan,28,206,560,,'- ručně',9110,9111) DlgRadioButton(9111,VypoctiVHPredZdan,28,249,560,,'- vypočten jako rozdíl ř.101 - ř.102 - ř.103',9110,9111) end DatumSkupOdp:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumSkupOdp',INI) If(Program.Majetky) begin If(LENGTH(DatumSkupOdp)<>0)) begin NactiOdpisAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'NactiOdpisAnoNe',INI)) DlgCheckBox(110,NactiOdpisAnoNe,12,273,350,,'Načíst tabulku odpisů do Přílohy 1 ze sestavy: ') DlgOnLineHelp(110,'Hodnoty daňových odpisů lze načíst ze sestavy Daňové odpisy nebo lze zadat ručně') DlgStatic(-1,'- sestava Daňové odpisy (součást roční závěrky) z data: '+DatumSkupOdp,48,292,490) DlgStatic(-1,'(odpisy je možno zadat nebo opravit ručně)',57,308,290) end else begin DlgStatic(-1,'- vypočtěte sestavu Daňové odpisy - rekapitulace,údaje z ní budou převzaty',48,292,496) DlgStatic(-1,'do výpočtů DAP, jinak je budete muset zadat ručně',57,308,345) end end; DlgButton(id_OK,'OK',414,334); DlgOnLineHelp(id_OK,'Pokračuje ve zpracování') DlgButton(id_Cancel,'Zpět',497,334); DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování') DlgButton(id_Help,'Help',33,334); DlgOnLineHelp(id_Help,'Help') DlgSetHelp(help_Context,1042) if(DlgExecute()<>ID_OK) Halt if(not(Souhlas)) begin SetToIni('TITULNI'+IniRok,'Souhlas',Souhlas,INI) Halt('Nepotvrdili jste zavazující podmínku pro zpracování formuláře '+#13+'(fajfka vedle vykřičníku).'+#13+#13+'Zpracování bylo ukončeno!') end if((not RucneVHPredZdan)and(not NactiVHPredZdan)and(not VypoctiVHPredZdan)) RucneVHPredZdan=True SetToIni('TITULNI'+IniRok,'Souhlas',Souhlas,INI) SetToIni('TITULNI'+IniRok,'NactiOdpisAnoNe',NactiOdpisAnoNe,INI) SetToIni('TITULNI'+IniRok,'NactiVHPredZdan',NactiVHPredZdan,INI) SetToIni('DAP'+IniRok,'RucneVHPredZdan',RucneVHPredZdan,INI) SetToIni('DAP'+IniRok,'NactiVHPredZdan',NactiVHPredZdan,INI) SetToIni('DAP'+IniRok,'VypoctiVHPredZdan',VypoctiVHPredZdan,INI) ;{definice promennych 2} AktualCover:Integer=0 SumaNeNakl:LongInt=0 SumaNeNaklNact:LongInt=0 SumaDanOdpis:LongInt=0 SumaDanOdpisNact:LongInt=0 OdpisNemov:LongInt=0 VHPredZdan:Double=0 ExistVZaZ:Boolean=False D34:LongInt=0 D36:LongInt=0 D36a:LongInt=0 D39:LongInt=0 D40:LongInt=0 D41:LongInt=0 D41a:LongInt=0 D42:LongInt=0 D45:LongInt=0 D60:LongInt=0 D61:LongInt=0 D62:LongInt=0 D65:LongInt=0 D66:LongInt=0 D76:LongInt=0 D77:LongInt=0 D79:LongInt=0 D86:LongInt=0 D74:LongInt=0 D75:LongInt=0 D77:LongInt=0 D80:LongInt=0 D83:LongInt=0 D91:LongInt=0 P2203:LongInt=0 P2206:LongInt=0 P2DilciSuma:LongInt=0 P2Prijmy:LongInt=0; P2Vydaje:LongInt=0; P2209:LongInt=0 P2207:LongInt=0 P2208:LongInt=0 P3303:LongInt=0 P3306:LongInt=0 P3307:LongInt=0 P3308:LongInt=0 P3309:LongInt=0 P3310:LongInt=0 P3315:LongInt=0 P3316:LongInt=0 P3320:LongInt=0 P3325:LongInt=0 P3326:LongInt=0 P3327:LongInt=0 P3330:LongInt=0 PR12:LongInt=0 PR13:LongInt=0 PR14:LongInt=0 ; {Načtení čísla řádku VZaZ, který se předává jako VH na radek 104, bych řekla} ; {samotne nactení údaje je v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} VHPredDaniR:Word ;cislo radku, ktery bude prevzat z VZaZ VHPredDaniS:Word ;cislo sloupce, ktery bude prevzat z VZaZ SouborVZaZ:TextFile Open(SouborVZaZ,GetTabName(2)) While(not(EOF(SouborVZaZ))) begin LocStr=Readln(SouborVZaZ) if(CompareStr(Copy(LocStr,1,1),'*')) begin if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANR=')) ;*radek HV pred zdanenim begin LocStr=ToChar(' ',LocStr) VHPredDaniR=Val(FromChar('=',LocStr)) end if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANS=')) ;*sloupec HV pred zdanenim, pocitano vcetne textu begin LocStr=ToChar(' ',LocStr) VHPredDaniS=Val(FromChar('=',LocStr)) end end end ;{definice a nacteni promennych z INI} begin ;{nacteni pro 1.cover} FinancniUradNum:Word=Val(GetDataINI('INFO','FinancniUradCislo')) FinancniUrad:String[32]=GetDataINI('INFO','FinancniUrad') ObchodniJmeno:String[35]=GetFromIni('TITULNI','ObchodniJmeno',INI) DodatekJmena:String[35]=GetFromIni('TITULNI','DodatekJmena',INI) Obec:String[29]=GetFromIni('TITULNI','Obec',INI) PSCdapb:String[6]=GetFromIni('TITULNI','PSC',INI) UliceBC:String[35]=GetFromIni('TITULNI','Ulice',INI) if(Length(UliceBC)=0) begin LocStr=GetFromIni('TITULNI','UliceDan',INI) LocBy=Length(LocStr) While((LocBy>0) and (Asc(Copy(LocStr,LocBy,1))<>32)) begin Dec(LocBy); end; if(LocBy>0) Dec(LocBy) UliceBC=Copy(LocStr,1,LocBy); end; UliceCP:String[6]=GetFromIni('TITULNI','CisloPopisne',INI) UliceCO:String[6]=GetFromIni('TITULNI','CisloOrientacni',INI) Stat:String[15]=GetFromIni('TITULNI','Stat',INI) Telefon:String[12]=GetFromIni('TITULNI','Telefon',INI) Fax:String[12]=GetFromIni('TITULNI','Fax',INI) EMail:String[64]=GetFromIni('TITULNI','EMail',INI) PoradceAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'PoradceAnoNe',INI)) OverAuditAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'OverAuditAnoNe',INI)) Celosvetove:LongInt=VAL(GetFromIni('TITULNI'+IniRok,'Celosvetove',INI)) DatumDodat:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDodat',INI)) Obdobi:Word=Val(GetFromIni('TITULNI'+IniRok,'Obdobi',INI)) DatumOd:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumOd',INI)) DatumDo:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDo',INI)) if((Obdobi=0)and(DatumOd=0)and(DatumDo=0)) Obdobi=Val(Rok(4)) DatumLhuta:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumLhuta',INI)) if(DatumLhuta=0) begin if(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end end EPOPath:String=GetIni('PATHS','EPO'); OprPrijmeni :String[36] =GetFromINI('TITULNI'+IniRok,'OprPrijmeni',INI) OprJmeno :String[20] =GetFromINI('TITULNI'+IniRok,'OprJmeno',INI) Postaveni :String[40] =GetFromINI('TITULNI'+IniRok,'PostaveniZastupce',INI) SestavilJmeno :String[20] =GetFromINI('TITULNI'+IniRok,'SestavilJmeno',INI) SestavilPrijmeni :String[36] =GetFromINI('TITULNI'+IniRok,'SestavilPrijmeni',INI) ZastupceKod :String[2] =GetFromINI('TITULNI'+IniRok,'ZastupceKod',INI) ZastupceNazev :String[36] =GetFromINI('TITULNI'+IniRok,'ZastupceNazev',INI) ZastupceID :String[36] =GetFromINI('TITULNI'+IniRok,'ZastupceID',INI) ZastupcePrijmeni :String[25] =GetFromINI('TITULNI'+IniRok,'ZastupcePrijmeni',INI) ZastupceJmeno :String[11] =GetFromINI('TITULNI'+IniRok,'ZastupceJmeno',INI) ZastupceTyp :Byte =Val(GetFromINI('TITULNI'+IniRok,'ZastupceTyp',INI)) if(ZastupceTyp>1) ZastupceTyp=0 ZastupceIDTyp :Byte =Val(GetFromINI('TITULNI'+IniRok,'ZastupceIDTyp',INI)) if(ZastupceIDTyp>2) ZastupceIDTyp=0 Nace:String[6]=GetDataINI('INFO','NACE') if((Val(Nace)<1000) or (Val(Nace)>99999)) Nace='' else Nace=NulL(Nace,5) Nace2:String[6]=GetDataINI('INFO','NACE2') if((Val(Nace2)<1000) or (Val(Nace2)>99999)) Nace2='' else Nace2=NulL(Nace2,5) Nace3:String[6]=GetDataINI('INFO','NACE3') if((Val(Nace3)<1000) or (Val(Nace3)>99999)) Nace3='' else Nace3=NulL(Nace3,5) Nace4:String[6]=GetDataINI('INFO','NACE4') if((Val(Nace4)<1000) or (Val(Nace4)>99999)) Nace4='' else Nace4=NulL(Nace4,5) HlavCinn1:String[140]=GetFromIni('TITULNI','HlavCinn1',INI) HlavCinn2:String[140]=GetFromIni('TITULNI','HlavCinn2',INI) HlavCinn3:String[140]=GetFromIni('TITULNI','HlavCinn3',INI) HlavCinn4:String[140]=GetFromIni('TITULNI','HlavCinn4',INI) RodneCislo:String[11]=GetDataINI('INFO','RodneCislo') RodneCislo=ValidateStr(RodneCislo,'0123456789'); Prijmeni:String[35]=GetFromIni('TITULNI','Prijmeni',INI) RodnePrijmeni:String[35]=GetFromIni('TITULNI','RodnePrijmeni',INI) Jmeno:String[35]=GetFromIni('TITULNI','Jmeno',INI) Titul:String[10]=GetFromIni('TITULNI','Titul',INI) StatPrislusnost:String[35]=GetFromIni('TITULNI','StatPrislusnost',INI) CisloPasu:String[16]=GetFromIni('TITULNI','CisloPasu',INI) Stat:String[12]=GetFromIni('TITULNI','Stat',INI) ObecTP:String[35]=GetFromIni('TITULNI','ObecTP',INI) UliceBCTP:String[35]=GetFromIni('TITULNI','UliceBCTP',INI) UliceCPTP:String[6]=GetFromIni('TITULNI','CisloPopisneTP',INI) UliceCOTP:String[6]=GetFromIni('TITULNI','CisloOrientacniTP',INI) PSCTP:String[6]=GetFromIni('TITULNI','PSCTP',INI) ObecZdrz:String[35]=GetFromIni('TITULNI','ObecZdrz',INI) UliceBCZdrz:String[35]=GetFromIni('TITULNI','UliceBCZdrz',INI) UliceCPZdrz:String[6]=GetFromIni('TITULNI','CisloPopisneZdrz',INI) UliceCOZdrz:String[6]=GetFromIni('TITULNI','CisloOrientacniZdrz',INI) PSCZdrz:String[6]=GetFromIni('TITULNI','PSCZdrz',INI) TelefonZdrz:String[35]=GetFromIni('TITULNI','TelefonZdrz',INI) FaxZdrz:String[35]=GetFromIni('TITULNI','FaxZdrz',INI) EMailZdrz:String[64]=GetFromIni('TITULNI','EMailZdrz',INI) KodStat:String[2]=GetFromIni('TITULNI','KodStat',INI) TypPriz1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'TypPriz1',INI)) EkPropojeniAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI','EkPropojeniAnoNe',INI)) SpojZahr:Byte; if(EkPropojeniAnoNe) Inc(SpojZahr) KodRozlis1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'KodRozlis1',INI)) DatumRozlis:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumRozlis',INI)) LocBy=0 While(LocBy<4) begin Inc(LocBy); Pausal[LocBy]=VAL(GetFromIni('DAP'+IniRok,'Pausal'+Str(LocBy),INI)) Prijmy[LocBy]=VAL(GetFromIni('DAP'+IniRok,'Prijmy'+Str(LocBy),INI)) Vydaje[LocBy]=VAL(GetFromIni('DAP'+IniRok,'Vydaje'+Str(LocBy),INI)) end; ;{nacteni pro 2.cover} P1Procento:Byte=Val(GetFromIni('DAP'+IniRok,'P1Procento',INI)) P1101:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1101',INI)) P1102:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1102',INI)) OP1102:LongInt P1103:LongInt P1105:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1105',INI)) P1104:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1104',INI)) P1106:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1106',INI)) P1107:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1107',INI)) P1108:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1108',INI)) P1109:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1109',INI)) P1110:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1110',INI)) P1111:LongInt P1112:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1112',INI)) P1113:LongInt CistyObrat:LongInt=VAL(GetFromIni('DAP'+IniRok,'CistyObrat',INI)) if(NactiOdpisAnoNe) ; nacita ze sestavy dan. odpisu (pres INI + Hodnoty) begin Odpis1:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 1',INI)))) Odpis2:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 2',INI)))) Odpis3:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 3',INI)))) Odpis4:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 4',INI)))) Odpis5:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 5',INI)))) Odpis6:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 6',INI)))) Odpis7:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 1a',INI)))) Odpis8:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina x',INI)))) SumaDanOdpisNact=Odpis1+Odpis2+Odpis3+Odpis4+Odpis5+Odpis6+Odpis7+Odpis8 SumaDanOdpis=SumaDanOdpisNact OdpisNemov=Odpis4+Odpis5+Odpis6 end else ; nacita z INI, kam se to dostalo z obrazovky, kde se to mohlo rucne upravit, uz to neni to, co bylo v sestave danovych odpisu begin Odpis1:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis1',INI)) Odpis2:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis2',INI)) Odpis3:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis3',INI)) Odpis4:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis4',INI)) Odpis5:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis5',INI)) Odpis6:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis6',INI)) Odpis7:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis7',INI)) SumaDanOdpis=VAL(GetFromIni('Ba'+IniRok,'SumaDanOdpis',INI)) OdpisNemov=VAL(GetFromIni('Ba'+IniRok,'OdpisNemov',INI)) end Odpis66:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis66',INI)) Odpis8:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis8',INI)) ;PopisOdpis8:STRING[150]=GetFromIni('Ba'+IniRok,'PopisOdpis8',INI) Odpis10:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis10',INI)) DatumZah:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumZah',INI)) DatumPrer:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumPrer',INI)) DatumUkon:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumUkon',INI)) DatumObnov:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumObnov',INI)) Pocetmesicu:Word=VAL(GetFromIni('TITULNI'+IniRok,'Pocetmesicu',INI)) P1ETZvys:Array[1..4] of String[50]; P1ETSniz:Array[1..4] of String[50]; P1EHZvys:Array[1..4] of LongInt; P1EHSniz:Array[1..4] of LongInt; ;{nacteni pro 3.cover} LocBy=0 While(LocBy<4) begin Inc(LocBy); P1ETZvys[LocBy]=GetFromIni('DAP'+IniRok,'P1ETZvys'+Str(LocBy),INI) P1EHZvys[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys'+Str(LocBy),INI)) P1ETSniz[LocBy]=GetFromIni('DAP'+IniRok,'P1ETSniz'+Str(LocBy),INI) P1EHSniz[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz'+Str(LocBy),INI)) end; JmenoSdr:Array[1..3] of String[36] PrijmeniSdr:Array[1..3] of String[36] DICSdr:Array[1..3] of String[14] PodilP:Array[1..3] of Real PodilV:Array[1..3] of Real LocBy=0 While(LocBy<3) begin Inc(LocBy); JmenoSdr[LocBy]=GetFromIni('DAP'+IniRok,'JmenoSdr'+Str(LocBy),INI) PrijmeniSdr[LocBy]=GetFromIni('DAP'+IniRok,'PrijmeniSdr'+Str(LocBy),INI) DICSdr[LocBy]=GetFromIni('DAP'+IniRok,'DICSdr'+Str(LocBy),INI) PodilP[LocBy]=VAL(GetFromIni('DAP'+IniRok,'PodilP'+Str(LocBy),INI)) PodilV[LocBy]=VAL(GetFromIni('DAP'+IniRok,'PodilV'+Str(LocBy),INI)) end; JmenoSpol:Array[1..2] of String[36] PrijmeniSpol:Array[1..2] of String[36] DICSpol:Array[1..2] of String[14] PodilSpol:Array[1..2] of Real; LocBy=0 While(LocBy<2) begin Inc(LocBy); JmenoSpol[LocBy]=GetFromIni('DAP'+IniRok,'JmenoSpol'+Str(LocBy),INI) PrijmeniSpol[LocBy]=GetFromIni('DAP'+IniRok,'PrijmeniSpol'+Str(LocBy),INI) DICSpol[LocBy]=GetFromIni('DAP'+IniRok,'DICSpol'+Str(LocBy),INI) PodilSpol[LocBy]=VAL(GetFromIni('DAP'+IniRok,'PodilSpol'+Str(LocBy),INI)) end; JmenoRozdel1:String=GetFromIni('DAP'+IniRok,'JmenoRozdel1',INI) PrijmeniRozdel1:String=GetFromIni('DAP'+IniRok,'PrijmeniRozdel1',INI) DICRozdel1:String=GetFromIni('DAP'+IniRok,'DICRozdel1',INI) PodilRozdel1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilRozdel1',INI)) DICVOS:String=GetFromIni('DAP'+IniRok,'DICVOS',INI) PodilVOS:Real=VAL(GetFromIni('DAP'+IniRok,'PodilVOS',INI)) ;{nacteni pro 4.cover} P1D1Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D1Z',INI)) P1D2Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D2Z',INI)) P1D3Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D3Z',INI)) P1D4Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D4Z',INI)) P1D5Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D5Z',INI)) P1D6Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D6Z',INI)) P1D7Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D7Z',INI)) P1D8Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D8Z',INI)) P1D1K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D1K',INI)) P1D2K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D2K',INI)) P1D3K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D3K',INI)) P1D4K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D4K',INI)) P1D5K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D5K',INI)) P1D6K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D6K',INI)) P1D7K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D7K',INI)) P1D8K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D8K',INI)) Mzdy1:LongInt=VAL(GetFromIni('DAP'+IniRok,'Mzdy1',INI)) ;{nacteni pro 5. cover} P2VydProcentem:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2VydProcentem',INI)) P2SpolJmeni:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2SpolJmeni',INI)) P2201:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2201',INI)) P2202:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2202',INI)) P2204:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2204',INI)) P2205:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2205',INI)) PREZZ:LongInt=VAL(GetFromIni('DAP'+IniRok,'PREZZ',INI)) PREZK:LongInt=VAL(GetFromIni('DAP'+IniRok,'PREZK',INI)) P2Druh:Array[1..4] of String[50] P2Prijem:Array[1..4] of LongInt; P2Vydaj:Array[1..4] of LongInt; P2DruhPrijmu:Array[1..4] of Byte; P2Kod:Array[1..4] of Byte; P2Kody:String=' PSZ' P2DruhyPrijmu:String=' ABCDEF' LocBy=0 While(LocBy<4) begin Inc(LocBy) P2Druh[LocBy]=GetFromIni('DAP'+IniRok,'P2Druh'+Str(LocBy),INI) P2Prijem[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P2Prijem'+Str(LocBy),INI)) P2Vydaj[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj'+Str(LocBy),INI)) P2Kod[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P2Kod'+Str(LocBy),INI)) P2DruhPrijmu[LocBy]=VAL(GetFromIni('DAP'+IniRok,'P2DruhPrijmu'+Str(LocBy),INI)) end; ;{nacteni pro 6.cover} P3301:Real=VAL(GetFromIni('DAP'+IniRok,'P3301',INI)) P3302:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3302',INI)) P3304:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3304',INI)) P3305:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3305',INI)) Tab3:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'Tab3',INI)) P3TAB1P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB1P',INI)) P3TAB2P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB2P',INI)) P3TAB3P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB3P',INI)) P3TAB4P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB4P',INI)) P3TAB5P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB5P',INI)) P3TAB1M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB1M',INI)) P3TAB2M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB2M',INI)) P3TAB3M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB3M',INI)) P3TAB4M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB4M',INI)) P3TAB5M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB5M',INI)) P3311:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3311',INI)) P3312:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3312',INI)) P3313:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3313',INI)) P3314:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3314',INI)) ;{nacteni pro 7.coveru} P3ZPS1P:Real=VAL(GetFromIni('DAP'+IniRok,'P3ZPS1P',INI)) P3ZPS1H:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3ZPS1H',INI)) P3ZPS2P:Real=VAL(GetFromIni('DAP'+IniRok,'P3ZPS2P',INI)) P3ZPS2H:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3ZPS2H',INI)) P3317:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3317',INI)) P3318:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3318',INI)) KS1:String=GetFromIni('DAP'+IniRok,'KS1',INI) RC:String=GetFromIni('DAP'+IniRok,'RC',INI) P3321:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3321',INI)) P3322:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3322',INI)) P3323:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3323',INI)) P3324:Real=VAL(GetFromIni('DAP'+IniRok,'P3324',INI)) P3328:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3328',INI)) P3329:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3329',INI)) ;{nacteni pro 11. cover} D31:LongInt=VAL(GetFromIni('DAP'+IniRok,'D31',INI)) D32:LongInt=VAL(GetFromIni('DAP'+IniRok,'D32',INI)) D33:LongInt=VAL(GetFromIni('DAP'+IniRok,'D33',INI)) D34:LongInt=VAL(GetFromIni('DAP'+IniRok,'D34',INI)) D35:LongInt=VAL(GetFromIni('DAP'+IniRok,'D35',INI)) D36:LongInt=VAL(GetFromIni('DAP'+IniRok,'D36',INI)) D36a:LongInt=VAL(GetFromIni('DAP'+IniRok,'D36a',INI)) D37:LongInt=VAL(GetFromIni('DAP'+IniRok,'D37',INI)) D38:LongInt=VAL(GetFromIni('DAP'+IniRok,'D38',INI)) D39:LongInt=VAL(GetFromIni('DAP'+IniRok,'D39',INI)) D40:LongInt=VAL(GetFromIni('DAP'+IniRok,'D40',INI)) D41:LongInt=VAL(GetFromIni('DAP'+IniRok,'D41',INI)) D41a:LongInt=VAL(GetFromIni('DAP'+IniRok,'D41a',INI)) D44:LongInt=VAL(GetFromIni('DAP'+IniRok,'D44',INI)) D46:LongInt=VAL(GetFromIni('DAP'+IniRok,'D46',INI)) D47M:Byte=VAL(GetFromIni('DAP'+IniRok,'D47M',INI)) D47:LongInt=VAL(GetFromIni('DAP'+IniRok,'D47',INI)) D48:LongInt=VAL(GetFromIni('DAP'+IniRok,'D48',INI)) D49:LongInt=VAL(GetFromIni('DAP'+IniRok,'D49',INI)) D50:LongInt=VAL(GetFromIni('DAP'+IniRok,'D50',INI)) D51:LongInt=VAL(GetFromIni('DAP'+IniRok,'D51',INI)) D52:LongInt=VAL(GetFromIni('DAP'+IniRok,'D52',INI)) D53T:String=GetFromIni('DAP'+IniRok,'D53T',INI) D53M:Byte=VAL(GetFromIni('DAP'+IniRok,'D53M',INI)) D53:LongInt=VAL(GetFromIni('DAP'+IniRok,'D53',INI)) D54:LongInt=VAL(GetFromIni('DAP'+IniRok,'D54',INI)) D55:LongInt=VAL(GetFromIni('DAP'+IniRok,'D55',INI)) D56:LongInt=VAL(GetFromIni('DAP'+IniRok,'D56',INI)) D57:LongInt=VAL(GetFromIni('DAP'+IniRok,'D57',INI)) D58:LongInt=VAL(GetFromIni('DAP'+IniRok,'D58',INI)) D59:LongInt=VAL(GetFromIni('DAP'+IniRok,'D59',INI)) D60:LongInt=VAL(GetFromIni('DAP'+IniRok,'D60',INI)) D61:LongInt=VAL(GetFromIni('DAP'+IniRok,'D61',INI)) D62:LongInt=VAL(GetFromIni('DAP'+IniRok,'D62',INI)) D63:LongInt=VAL(GetFromIni('DAP'+IniRok,'D63',INI)) ;{nacteni pro 12.cover} Duch:LongInt=VAL(GetFromIni('DAP'+IniRok,'Duch',INI)) ManzelJmeno:String[36]=GetFromIni('DAP'+IniRok,'ManzelJmeno',INI) ManzelPrijmeni:String[36]=GetFromIni('DAP'+IniRok,'ManzelPrijmeni',INI) ManzelRC:String[11]=GetFromIni('DAP'+IniRok,'ManzelRC',INI) ManzelTitul:String[10]=GetFromIni('DAP'+IniRok,'ManzelTitul',INI) D64:LongInt=VAL(GetFromIni('DAP'+IniRok,'D64',INI)) D65am:LongInt=VAL(GetFromIni('DAP'+IniRok,'D65am',INI)) D65a:LongInt=VAL(GetFromIni('DAP'+IniRok,'D65a',INI)) D65bm:LongInt=VAL(GetFromIni('DAP'+IniRok,'D65bm',INI)) D65b:LongInt=VAL(GetFromIni('DAP'+IniRok,'D65b',INI)) D66m:LongInt=VAL(GetFromIni('DAP'+IniRok,'D66m',INI)) D66:LongInt=VAL(GetFromIni('DAP'+IniRok,'D66',INI)) D67m:LongInt=VAL(GetFromIni('DAP'+IniRok,'D67m',INI)) D67:LongInt=VAL(GetFromIni('DAP'+IniRok,'D67',INI)) D68m:LongInt=VAL(GetFromIni('DAP'+IniRok,'D68m',INI)) D68:LongInt=VAL(GetFromIni('DAP'+IniRok,'D68',INI)) D69m:LongInt=VAL(GetFromIni('DAP'+IniRok,'D69m',INI)) D69:LongInt=VAL(GetFromIni('DAP'+IniRok,'D69',INI)) DiteJmeno:Array[1..4] of String[36] DitePrijmeni:Array[1..4] of String[36] DiteRC:Array[1..4] of String[11] DiteMesic:Array[1..4] of Byte DiteZTP:Array[1..4] of Byte LocBy=0 While(LocBy<4) begin Inc(LocBy); DiteJmeno[LocBy]=GetFromIni('DAP'+IniRok,'DiteJmeno'+Str(LocBy),INI) DitePrijmeni[LocBy]=GetFromIni('DAP'+IniRok,'DitePrijmeni'+Str(LocBy),INI) DiteRC[LocBy]=GetFromIni('DAP'+IniRok,'DiteRC'+Str(LocBy),INI) DiteMesic[LocBy]=VAL(GetFromIni('DAP'+IniRok,'DiteMesic'+Str(LocBy),INI)) DiteZTP[LocBy]=VAL(GetFromIni('DAP'+IniRok,'DiteZTP'+Str(LocBy),INI)) end; DiteMesicC:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesicC',INI)) DiteZTPC:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTPC',INI)) D70: LongInt D71: LongInt D72:LongInt=VAL(GetFromIni('DAP'+IniRok,'D72',INI)) D73:LongInt=VAL(GetFromIni('DAP'+IniRok,'D73',INI)) D76:LongInt=VAL(GetFromIni('DAP'+IniRok,'D76',INI)) D78:LongInt=VAL(GetFromIni('DAP'+IniRok,'D78',INI)) D79:LongInt=VAL(GetFromIni('DAP'+IniRok,'D79',INI)) D81:LongInt=VAL(GetFromIni('DAP'+IniRok,'D81',INI)) D82:LongInt=VAL(GetFromIni('DAP'+IniRok,'D82',INI)) D84:LongInt=VAL(GetFromIni('DAP'+IniRok,'D84',INI)) D85:LongInt=VAL(GetFromIni('DAP'+IniRok,'D85',INI)) D86:LongInt=VAL(GetFromIni('DAP'+IniRok,'D86',INI)) D87:LongInt=VAL(GetFromIni('DAP'+IniRok,'D87',INI)) D87a:LongInt=VAL(GetFromIni('DAP'+IniRok,'D87a',INI)) D88:LongInt=VAL(GetFromIni('DAP'+IniRok,'D88',INI)) D89:LongInt=VAL(GetFromIni('DAP'+IniRok,'D89',INI)) D90:LongInt=VAL(GetFromIni('DAP'+IniRok,'D90',INI)) ;{nacteni pro 13.cover} Pr1:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr1',INI)) Pr2:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr2',INI)) Pr3:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr3',INI)) Pr4:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr4',INI)) Pr5:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr5',INI)) Pr6:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr6',INI)) Pr7:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr7',INI)) Pr8:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr8',INI)) Pr9:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr9',INI)) Pr10:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr10',INI)) Pr11:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr11',INI)) Pr12:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr12',INI)) Pr14:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr14',INI)) Kde4:STRING=GetFromIni('DAP'+IniRok,'Kde4',INI) Kdy4:Word=ValDate(GetFromIni('DAP'+IniRok,'Kdy4',INI)) Zast1:STRING=GetFromIni('DAP'+IniRok,'Zast1',INI) Zast2:STRING=GetFromIni('DAP'+IniRok,'Zast2',INI) Zast3:STRING=GetFromIni('DAP'+IniRok,'Zast3',INI) Zast4:STRING=GetFromIni('DAP'+IniRok,'Zast4',INI) Zast5:STRING=GetFromIni('DAP'+IniRok,'Zast5',INI) Zast6:STRING=GetFromIni('DAP'+IniRok,'Zast6',INI) Zast7:STRING=GetFromIni('DAP'+IniRok,'Zast7',INI) Prep1:STRING=GetFromIni('DAP'+IniRok,'Prep1',INI) Prep3:STRING=GetFromIni('DAP'+IniRok,'Prep3',INI) Prep4:STRING=GetFromIni('DAP'+IniRok,'Prep4',INI) Prep5:STRING=GetFromIni('DAP'+IniRok,'Prep5',INI) Prep6:STRING=GetFromIni('DAP'+IniRok,'Prep6',INI) Prep7:STRING=GetFromIni('DAP'+IniRok,'Prep7',INI) Prep8:STRING=GetFromIni('DAP'+IniRok,'Prep8',INI) Prep11:STRING=GetFromIni('DAP'+IniRok,'Prep11',INI) Prep12:Word=ValDate(GetFromIni('DAP'+IniRok,'Prep12',INI)) PrepPrijmeni:String[36]=GetFromIni('DAP'+IniRok,'PrepPrijmeni',INI) PrepJmeno:String[20]=GetFromIni('DAP'+IniRok,'PrepJmeno',INI) PrepTitul:String[10]=GetFromIni('DAP'+IniRok,'PrepTitul',INI) PrepUliceBC:String[38]=GetFromIni('DAP'+IniRok,'PrepUliceBC',INI) PrepUliceCP:String[6]=GetFromIni('DAP'+IniRok,'PrepCP',INI) PrepUliceCO:String[4]=GetFromIni('DAP'+IniRok,'PrepCO',INI) PrepObec:String[48]=GetFromIni('DAP'+IniRok,'PrepObec',INI) PrepPSC:String[5]=GetFromIni('DAP'+IniRok,'PrepPSC',INI) ;{nacteni pro 14.cover} end ;{ vypocet VH na radku 104? - je to v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} ;{pro specialni pripady 50... asi vypsat do uvodni obrazovky hlaseni, ze nelze nacist} ;VZaZ musi obsahovat udaje bez zaokrouhleni if((Program.TypFirmy=0)and(not Program.DanovaEvidence)) ; {podnikatele} begin CisloFirmy:Word=Program.TypFirmy If((Program.TypFirmy=0)and(Program.ZkraceneF)) ; zkracena, zjednodusena CisloFirmy=256 OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime if(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,CisloFirmy,VHPredDaniR-1) LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s VH před zdanením VHPredZdan=GetFromWNSLine(VHPredDaniS,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end else begin CisloFirmy:Word=Program.TypFirmy OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime if(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True LocB=True While(LocB) begin LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s VH před zdanením LocStr=GetFromWNSLine(1,False) if(CompareStr(LocStr,'I.')) Prijmy[1]=RoundUp(GetFromWNSLine(4,False)) if(CompareStr(LocStr,'A.+B.')) OP1102=RoundUp(GetFromWNSLine(4,False)) ;if(CompareStr(LocStr,'*§8')) ; D33=GetFromWNSLine(4,False) if(CompareStr(LocStr,'III.')) P2205=RoundUp(GetFromWNSLine(4,False)) if(CompareStr(LocStr,'D.+E.')) P2206=RoundUp(GetFromWNSLine(4,False)) if(CompareStr(LocStr,'IV.')) P2PRIJEM[1]=GetFromWNSLine(4,False) if(CompareStr(LocStr,'F.')) begin P2VYDAJ[1]=GetFromWNSLine(4,False) LocB=False end end end end LocB=False if(Program.TypFirmy=1) ; přísp. do roku 1999 LocB=True if(Program.TypFirmy=2) ; strany a hnuti do roku 1999 LocB=True if(Program.TypFirmy=3) ; spor. druzstva do roku 2001 LocB=True if(Program.TypFirmy=4) ; obecne prospesne LocB=True if(Program.TypFirmy>7) ; neexistující LocB=True if(LocB) Halt('Výpočet není určen pro Váš typ firmy: '+Str(Program.TypFirmy,2,0)) ;{vypocet pocitanych hodnot} Vypocet: WarnCount=0 TotalWarn=0 P1101=0 P1102=0 if((P1Procento=0)and(Vydaje[1]=0)) begin Vydaje[1]=OP1102 end; LocBy=0; While(LocBy<4) begin Inc(LocBy); P1101=P1101+Prijmy[LocBy] if((Pausal[LocBy]<>0)and(P1Procento<>0)) begin Vydaje[LocBy]=Round(Prijmy[LocBy]*(PausalSazby[Pausal[LocBy]]/100)); end; P1102=P1102+Vydaje[LocBy] end; P2203=P2201-P2202 P2206=P2203+P2204-P2205 P2Prijmy=0 P2Vydaje=0 P2DilciSuma=0 LocBy=0; While(LocBy<4) begin Inc(LocBy); P2Prijmy=P2Prijmy+P2Prijem[LocBy] P2Vydaje=P2Vydaje+P2Vydaj[LocBy] if(P2Prijem[LocBy]-P2Vydaj[LocBy]>0) P2DilciSuma=P2DilciSuma+P2Prijem[LocBy]-P2Vydaj[LocBy] end; P2207=P2Prijmy P2209=P2DilciSuma P2208=P2207-P2209 Pr1=0 if(Pril1) begin Pr1=1 if(not (RucneVHPredZdan)) P1104=(P1101-P1102) P1113=(P1104+P1105-P1106-P1107+P1108+P1109-P1110-P1111+P1112) D37=P1113 end Pr2=0 if(Pril2) Pr2=1 Pr3=0 if(Pril3) Pr3=1 Pr8=0 if(D47<>0) Pr8=1 Pr9=0 if(D48<>0) Pr9=1 Pr10=0 if(D49<>0) Pr10=1 Pr13=Pr1+Pr2+Pr3+Pr4+Pr5+Pr6+Pr7+Pr8+Pr9+Pr10+Pr11+Pr12+Pr14 DiteMesicC=DiteMesic[1]+DiteMesic[2]+DiteMesic[3]+DiteMesic[4]; DiteZTPC=DiteZTP[1]+DiteZTP[2]+DiteZTP[3]+DiteZTP[4]; D34=D31+D32-D33 D36=D34 if(D31<>0) begin Pr7=1 else Pr7=0 end D39=0 if(Pril2) D39=P2206 D40=0 if(Pril2) D40=P2209 if((D39<>0)and(D40<>0)or(D40<>0)) Pr2=1 else Pr2=0 D41=D37+D38+D39+D40 if(D41a=0) D41a=D41 if(D41a<0) D42=D36a else D42=D36a+D41a D45=D42-D44 D54=D46+D47+D48+D49+D50+D51+D52+D53 D55=D45-D54 if(D55<0) D55=0 D56=(Int(D55/100))*100; D57=Int(D56*0.15) ;if(D56<=121200) ; D57=Int(D56*0.12) ;else ;if((D56>121200)and(D56<=218400)) ; D57=Int(((D56-121200)*0.19)+14544) ;else ;if((D56>218400)and(D56<=331200)) ; D57=Int(((D56-218400)*0.25)+33012) ;else ; D57=Int(((D56-331200)*0.32)+61212) D58=D57 D60=RoundUp(D58) D70=D62+D63+D64+D65a+D65b+D66+D67+D68+D69 D71=D60-D70 if(D71<0) D71=0 D73=D72 if(D73>D71) D73=D71 Pr3=0 if(Pril3) begin Pr3=1 if(D42<>0) P3301=100*D57/D42 P3301=Round(P3301*100) P3301=P3301/100 if(P3301<15) P3301=15 P3303=RoundFloat((P3301*P3302)/100,0) P3306=0 if(P3302<>0) P3306=RoundFloat((P3304/P3302)*100,0) P3307=0 if(P3303<>0) P3307=RoundFloat((P3303*P3306)/100,0) P3308=P3305 if(P3308>P3307) P3308=P3307 P3309=P3305-P3308 P3310=P3303-P3308 if(P3310<0) P3310=0 P3315=0 if(D56<>0) P3315=RoundFloat((D57/D56)*100,0) P3316=RoundFloat((P3314*P3315)/100,0) P3320=P3317+P3318 P3324=0 if(D42<>0) P3324=RoundFloat((P3321-P3322)/D42*100,0) P3325=RoundFloat((P3317*P3324)/100,0) P3326=P3323 if(P3325Program.FiscalLength) ; WarnPrizn1='- délka zdaňovacího období (na titulní straně) neodpovídá zadanému hospodářského roku') if((P3301<15)and(Pril3)) begin AddWarn('Řádek 301 v příloze 3 je menší nežli 15%') end if((P3302<>P1111)and(Pril3)) begin AddWarn('Řádek 302 v příloze 3 je různý od řádku 111 přílohy 1') end if((P3304>P3302)and(Pril3)) begin AddWarn('Řádek 304 v příloze 3 je větší nežli řádek 302 přílohy 3') end if((P3317<>D55)and(P3317<>P3316)and(Pril3)) begin AddWarn('Řádek 317 v příloze 3 je odlišný od ř. 55 DAP i od řádku 316') end if((P3318<>P3303)and(P3318<>P3310)and(Pril3)) begin AddWarn('Řádek 318 v příloze 3 je odlišný od ř. 303 i od řádku 310') end if(OdpisNemov>SumaDanOdpis) begin AddWarn('Příloha 1 - odpis nemovitostí je větší nežli uplatněné odpisy celkem') end if((D52<1000)and(D52<>0)) begin AddWarn('Hodnota daru je menší nežli 1000,-Kč') end if((D52>D42/10)and(D52<>0)) begin AddWarn('Hodnota daru je větší nežli 10% z řádku 37') end if((D520)) begin AddWarn('Hodnota daru je menší nežli 2% z řádku 37') end WarnZapor:STRING='' if(D42<0) WarnZapor=WarnZapor+' 42,' if(D67<0) WarnZapor=WarnZapor+' 67,' if((P3320<0)and(Pril3)) WarnZapor=WarnZapor+' 320,' if((DatumOd=0)and(Obdobi=0)) AddWarn('- není vyplněno Období ani Datum OD na titulní stránce daňového přiznání') if((DatumDo=0)and(Obdobi=0)) AddWarn('- není vyplněno Období ani Datum DO na titulní stránce daňového přiznání') if(DatumOd>DatumDo) AddWarn('- začátek zdaňovacího období je větší nežli konec') if((DatumOd<>0)and(Obdobi<>0)) AddWarn('- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"') if((DatumDo<>0)and(Obdobi<>0)) AddWarn('- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"') if(DatumLhuta=0) begin if(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end AddWarn('- nebyl vyplněn den lhůty pro podání DP, pro výpočet záloh bylo dosazeno '+StrDate(DatumLhuta)) end if((DatumLhuta<>0)and(DatumLhuta0)and(DatumLhuta=DatumDo)) begin AddWarn('- datum lhůty pro podání DP '+StrDate(DatumLhuta)+' je shodné s koncem zdaň.období '+StrDate(DatumDo)) end if(((Pril1)and(Pr1=0))or((not Pril1)and(Pr1<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 1'); doplnit další kontroly k přílohám 4 a 5, pozor Pr4 a Pr5 už existovali! end if(((Pril2)and(Pr2=0))or((not Pril2)and(Pr2<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 2') end if(((Pril3)and(Pr3=0))or((not Pril3)and(Pr3<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 3') end ;if((LENGTH(EvCisOsved)=0)AND(PoradceAnoNe)) ; AddWarn('- podání sestavuje poradce a není vyplněno jeho evidenční číslo') ;if((LENGTH(EvCisOsved)>0)AND(not(PoradceAnoNe))) ; AddWarn('- podání nesestavuje poradce a přitom je vyplněno jeho evidenční číslo') if(((P2PRIJEM[1]<>0)or(P2VYDAJ[1]<>0))and(Length(P2Druh[1])=0)) AddWarn('V příloze 2 část 3. Výpočet dílčího... jsou v 1.řádku hodnoty, ale chybí popis = Druh příjmu') if(Result=id_OK) begin IsXML=True GOTO(tisk) end; ;{******************************************************************************************************************} ;{formulář} begin DefDialog('! POMŮCKA ! pro výpočet daně z příjmu fyzických osob',630,502) DlgCover(199,14,5,5,620,426,False,AktualCover) begin ysou=4 SetCover(1,'S&1/1') DlgStatic(-1,'Zdaňovací období (kalendářní rok)',15,ysou+4,230) DlgEdit(101,Obdobi,246,ysou,40,,4) DlgOnLineHelp(101,'Kalendářní rok, za který DAP podáváte') DlgStatic(-1,'nebo &od',314,ysou+4,86,,,TA_RIGHT) DlgEditDate(102,DatumOd,408,ysou,78,,,,ValidDatum) DlgOnLineHelp(102,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od ...') DlgStatic(-1,'&do',494,ysou+4,20,,,TA_RIGHT) DlgEditDate(103,DatumDo,522,ysou,78,,,,ValidDatum) DlgOnLineHelp(103,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část do ...') Inc(ysou,25) DlgStatic(-1,'&Finančnímu úřadu',15,ysou+4,143) DlgCFU(,FinancniUradNum,160,ysou,440,256,FinancniUrad); DlgOnLineHelp(GetLastID(),'Název finančního úřadu - v příslušném tvaru, např. v Písku, Ostrava I apod.') Inc(ysou,25) DlgStatic(-1,'&Daňové přiznání',15,ysou+4,143) DlgCombo(,TypPriz1,160,ysou,160,128,32,CBS_DropDownList,'řádné','řádné - opravné','dodatečné','dodatečné - opravné') DlgOnLineHelp(GetLastID(),'Typ daňového přiznání') DlgStatic(-1,'Lhůta pro podání DP',352,ysou+4,160,,,TA_RIGHT) DlgEditDate(104,DatumLhuta,522,ysou,78,,,,ValidDatum) DlgOnLineHelp(104,'Poslední den lhůty pro podání daňového přiznání - §38a'+#13+'(bude použito pro výpočet kalendáře záloh na daň)') Inc(ysou,25) DlgStatic(-1,'Dů&vody pro podání dodatečného DAP zjištěny dne',16,ysou+4,496,,,TA_RIGHT) DlgEditDate(,DatumDodat,522,ysou,78,,10,,ValidDatum) DlgOnLineHelp(GetLastID(),'Důvody pro podání dodatečného daňového přiznání zjištěny dne') Inc(ysou,25) DlgStatic(-1,'Kód rozlišení typu DAP',15,ysou+4,145) DlgCombo(,KodRozlis1,160,ysou,440,128,255,CBS_DropDownList,KodyRozliseni) DlgOnLineHelp(GetLastID(),'Údaj vyplňte, pouze máte-li kód rozlišení typu DAP v případech uvedených v §38gb zákona a dále v případech uvedených v § 40 a v § 40b zákona č. 337/1992 Sb. o správě daní a poplatků, ve znění pozdějších předpisů.') Inc(ysou,25); DlgStatic(-1,'Datum rozlišení',15,ysou+4,145) DlgEditDate(,DatumRozlis,160,ysou,78,,,,ValidDatum) DlgOnLineHelp(GetLastID(),'Datum kdy nastala skutečnost uvedená v kódu rozlišení typu DAP') Inc(ysou,25); DlgDivider(10,ysou+4,596,0); Inc(ysou,12) DlgStatic(-1,'&Příjmení',15,ysou+4,143) DlgEdit(,Prijmeni,160,ysou,160,,35) DlgStatic(-1,'&Rodné příjmení',320,ysou+4,112,,,TA_RIGHT) DlgEdit(,RodnePrijmeni,440,ysou,160,,35) Inc(ysou,25) DlgStatic(-1,'&Jméno',15,ysou+4,143) DlgEdit(,Jmeno,160,ysou,160,,35) DlgStatic(-1,'&Titul',320,ysou+4,112,,,TA_RIGHT) DlgEdit(,Titul,440,ysou,48,,10) Inc(ysou,25) DlgStatic(-1,'&Rodné číslo',15,ysou+4,143) DlgEdit(,RodneCislo,160,ysou,92,,11,,'0123456789') DlgOnLineHelp(GetLastID(),'Rodné číslo ve formátu yymmddnnnn') Inc(ysou,25) DlgStatic(-1,'&Státní příslušnost',15,ysou+4,143) DlgEdit(,StatPrislusnost,160,ysou,160,,15) DlgStatic(-1,'Čís&lo pasu',320,ysou+4,112,,,TA_RIGHT) DlgEdit(,CisloPasu,440,ysou,160,,16) Inc(ysou,25) DlgStatic(-1,'&Ulice:',15,ysou+4,47) DlgEdit(,UliceBC,160,ysou,214,,27) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') DlgStatic(-1,'Čís.pop:',381,ysou+4,56) DlgEdit(,UliceCP,438,ysou,48,,6) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') DlgStatic(-1,'Čís.or.:',496,ysou+4,46) DlgEdit(,UliceCO,552,ysou,48,,6) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') Inc(ysou,25) DlgStatic(-1,'&Obec',15,ysou+4,40) DlgEdit(,Obec,160,ysou,344,,29) DlgOnLineHelp(GetLastID(),'Místo pobytu v den podání - obec') DlgStatic(-1,'P&SČ',515,ysou+4,30) DlgEdit(,PSCdapb,550,ysou,50,,5) DlgOnLineHelp(GetLastID(),'Místo pobytu v den podání - PSČ') Inc(ysou,25) DlgStatic(-1,'St&át/Kód',15,ysou+4,60) DlgEdit(,Stat,160,ysou,128,,25) DlgOnLineHelp(GetLastID(),'Místo pobytu v den podání - stát') DlgEdit(,KodStat,290,ysou,30,,2) DlgOnLineHelp(GetLastID(),'Kód státu se vyplňuje dle přílohy 18 nařízení Komise (ES) č. 2081/2003'+#13+'např. ve tvaru FR pro Francii'+#13+'... viz též http://cds.mfcr.cz položka Daně, podpoložka Daně, složka Daně z příjmů, nabídka Seznam kódů států') Inc(ysou,25) DlgStatic(-1,'&E-mail',15,ysou+4,143) DlgEdit(,Email,160,ysou,160,,48) DlgStatic(-1,'Tel.',325,ysou+4,30) DlgEdit(,Telefon,355,ysou,100,,9) DlgOnLineHelp(GetLastID(),'Číslo telefonu') DlgStatic(-1,'Fax',470,ysou+4,30) DlgEdit(,Fax,500,ysou,100,,9) DlgOnLineHelp(GetLastID(),'Číslo faxu') Inc(ysou,25) DlgStatic(-1,'&Cesta pro soubor',15,ysou+5,120) EPOPath=TransToESC(EPOPath); DlgEdit(,EPOPath,160,ysou+1,376,,255); DlgPathButton(GetLastID(),538,ysou); end; ;{******************************************************************************************************************} ;{1. cover} SetCover(2,'S1/2') ysou=8 DlgNACE(NACE,156,ysou,450,384,HlavCinn1); DlgStatic(-1,'Hlavní činnost',15,ysou+12,136) Inc(ysou,40) DlgStatic(-1,'paušál',156,ysou+4,54) DlgCombo(,Pausal[1],214,ysou,64,128,5,CBS_DropDownList,PausalNazvy) DlgStatic(-1,'příjmy',286,ysou+4,66,,,ES_RIGHT) DlgEdit(,Prijmy[1],360,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgStatic(-1,'výdaje',456,ysou+4,48,,,ES_RIGHT) DlgEdit(,Vydaje[1],512,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgDivider(15,ysou+27,591,0); Inc(ysou,30) Inc(ysou,4) DlgStatic(-1,'Další činnosti',15,ysou+12,136) DlgNACE(NACE2,156,ysou,450,384,HlavCinn2); Inc(ysou,40) DlgStatic(-1,'paušál',156,ysou+4,54) DlgCombo(,Pausal[2],214,ysou,64,128,5,CBS_DropDownList,PausalNazvy) DlgStatic(-1,'příjmy',286,ysou+4,66,,,ES_RIGHT) DlgEdit(,Prijmy[2],360,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgStatic(-1,'výdaje',456,ysou+4,48,,,ES_RIGHT) DlgEdit(,Vydaje[2],512,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgDivider(156,ysou+27,450,0); Inc(ysou,30) DlgNACE(NACE3,156,ysou,450,384,HlavCinn3); Inc(ysou,40) DlgStatic(-1,'paušál',156,ysou+4,54) DlgCombo(,Pausal[3],214,ysou,64,128,5,CBS_DropDownList,PausalNazvy) DlgStatic(-1,'příjmy',286,ysou+4,66,,,ES_RIGHT) DlgEdit(,Prijmy[3],360,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgStatic(-1,'výdaje',456,ysou+4,48,,,ES_RIGHT) DlgEdit(,Vydaje[3],512,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgDivider(156,ysou+27,450,0); Inc(ysou,30) DlgNACE(NACE4,156,ysou,450,384,HlavCinn4); Inc(ysou,40) DlgStatic(-1,'paušál',156,ysou+4,54) DlgCombo(,Pausal[4],214,ysou,64,128,5,CBS_DropDownList,PausalNazvy) DlgStatic(-1,'příjmy',286,ysou+4,66,,,ES_RIGHT) DlgEdit(,Prijmy[4],360,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgStatic(-1,'výdaje',456,ysou+4,48,,,ES_RIGHT) DlgEdit(,Vydaje[4],512,ysou,88,,9,ES_RIGHT,ValidCisloInt); DlgDivider(15,ysou+27,591,0); Inc(ysou,34) DlgCheckBox(107,PoradceAnoNe,15,ysou,600,,'Přiznání zpracoval a předložil d&aňový poradce...') DlgOnLineHelp(107,'Přiznání zpracoval a předložil daňový poradce na základě plné moci k zastupování, která byla podána správci daně před uplynutím neprodloužené lhůty') Inc(ysou,20) DlgCheckBox(109,OverAuditAnoNe,15,ysou,600,,'Zákonná povinnost ověření účetní závěrky auditorem') DlgOnLineHelp(109,'Zákonná povinnost ověření účetní závěrky auditorem') Inc(ysou,26) DlgStatic(-1,'Zahraniční spojení',15,ysou+4,145) DlgCombo(,SpojZahr,160,ysou,64,128,255,CBS_DropDownList,'Ne','Ano') Inc(ysou,25); DlgStatic(-1,'Celosvětové příjmy',15,ysou+4,145) DlgEdit(150,Celosvetove,160,ysou,80,,9,ES_RIGHT,ValidCisloInt) DlgStatic(-1,Program.Mena,248,ysou+4,128) DlgOnLineHelp(150,'Uvede se úhrn všech příjmů ze zdrojů na území ČR a v zahraničí v celých Kč,'+#13+'jen pokud jste poplatníkem podle § 2 odst. 3 zákona a uplatňujete společné'+#13+'zdanění manželů podle § 13a zákona ... viz POKYNY') ;{******************************************************************************************************************} SetCover(3,'S1/3') ysou=8 DlgShade(-1,'Místo pobytu k poslednímu dni kalendářního roku daně',8,ysou,600,86); Inc(ysou,28) DlgStatic(-1,'&Ulice:',16,ysou+4,142) DlgEdit(,UliceBCTP,160,ysou,214,,27) DlgStatic(-1,'Čís.pop:',381,ysou+4,56) DlgEdit(,UliceCPTP,438,ysou,48,,6) DlgStatic(-1,'Čís.or.:',496,ysou+4,46) DlgEdit(,UliceCOTP,552,ysou,48,,6) Inc(ysou,25) DlgStatic(-1,'&Obec',16,ysou+4,142) DlgEdit(,ObecTP,160,ysou,344,,29) DlgStatic(-1,'P&SČ',515,ysou+4,30) DlgEdit(,PSCTP,550,ysou,50,,5) Inc(ysou,42) DlgShade(-1,'Nerezidenti - adresa místa pobytu na území České republiky',8,ysou,600,111); Inc(ysou,28) DlgStatic(-1,'&Ulice:',15,ysou+4,47) DlgEdit(,UliceBCZdrz,160,ysou,214,,27) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') DlgStatic(-1,'Čís.pop:',381,ysou+4,56) DlgEdit(,UliceCPZdrz,438,ysou,48,,6) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') DlgStatic(-1,'Čís.or.:',496,ysou+4,46) DlgEdit(,UliceCOZdrz,552,ysou,48,,6) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 1') Inc(ysou,25) DlgStatic(-1,'&Obec',15,ysou+4,40) DlgEdit(,ObecZdrz,160,ysou,344,,29) DlgStatic(-1,'P&SČ',515,ysou+4,30) DlgEdit(,PSCZdrz,550,ysou,50,,5) Inc(ysou,25) DlgStatic(-1,'&E-mail',15,ysou+4,143) DlgEdit(,EmailZdrz,160,ysou,160,,48) DlgStatic(-1,'Tel.',325,ysou+4,30) DlgEdit(,TelefonZdrz,355,ysou,100,,9) DlgOnLineHelp(GetLastID(),'Číslo telefonu') DlgStatic(-1,'Fax',470,ysou+4,30) DlgEdit(,FaxZdrz,500,ysou,100,,9) DlgOnLineHelp(GetLastID(),'Číslo faxu') Inc(ysou,42) ;{******************************************************************************************************************} ;{2. cover} SetCover(9,'P1/1') if(Pril1) begin x21=5 x22=507 x23=310 x24=497 x25=519 y2=2 i21=19.5 ;radkovani 1 i22=19 ;radkovani 2 PocRad2=0 ;pomocna promenna SirkaPolicka21=80 ;standardní šířka SirkaPolicka22=20 DlgStatic(-1,'Uplatňuji výdaje procentem z příjmů',x21,y2+(PocRad2*i21)+6,x23-2) DlgCombo(200,P1Procento,x22+12,y2+(PocRad2*i21)+2,SirkaPolicka21,128,10,CBS_DropDownList,'Ne','Ano') DlgOnLineHelp(200,'Vedení účetnictví či daňové evidence se přebírá z nastavení WinDUO. Uplaňujete-li výdaje procentem z příjmů, odklikněte tuto volbu') Inc(PocRad2) Inc(PocRad2) DlgStatic(-1,'101 Příjmy podle § 7 zákona',x21,y2+(PocRad2*i21),x23-5) DlgEdit(201,P1101,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT|ws_Disabled,ValidCisloInt) DlgOnLineHelp(201,'101 Příjmy podle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'102 Výdaje související s příjmy podle § 7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgEdit(202,P1102,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT|ws_Disabled,ValidCisloInt) DlgOnLineHelp(202,'102 Výdaje související s příjmy podle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'103 (neobsazeno)',x21,y2+(PocRad2*i21),x22-2) DlgEdit(203,P1103,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT|ws_Disabled,ValidCisloInt) DlgOnLineHelp(203,'103 Pojistné') Inc(PocRad2) DlgStatic(-1,'104 Rozdíl mezi příjmy a výdaji (ř.101-ř.102)',x21,y2+(PocRad2*i21),x22-2) DlgEdit(204,P1104,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(204,'104 Rozdíl mezi příjmy a výdaji (ř. 101 - ř. 102)'+#13+'nebo výsledek hospodaření (zisk, ztráta)'+#13+'V úvodní obrazovce jste zvolili vstup Ručně, zadejte tedy ručně') Inc(PocRad2) DlgStatic(-1,'105 Úhrn částek podle §5, §23 a ostatní úpravy ... zvyšující',x21,y2+(PocRad2*i21),x22-2) DlgEdit(205,P1105,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(205,'105 Úhrn částek podle §5, §23 a ostatní úpravy podle zákona zvyšující...'+#13+'Podkladem jsou částky uvedené v odd. E na str. (2)') Inc(PocRad2) DlgStatic(-1,'106 Úhrn částek podle §5, §23 a ostatní úpravy ... snižující',x21,y2+(PocRad2*i21),x22-2) DlgEdit(206,P1106,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(206,'106 Úhrn částek podle §5, §23 zákona a ostatní úpravy podle zákona snižující...'+#13+'Podkladem jsou částky uvedené v odd. E na str. (2)') Inc(PocRad2) DlgStatic(-1,'107 Část příjmů nebo VH před zdaněním (zisk)... na spolupracující osobu',x21,y2+(PocRad2*i21),x22-2) DlgEdit(207,P1107,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(207,'107 Část příjmů nebo výsledku hospodaření před zdaněním (zisk), kterou'+#13+'rozdělujete na spolupracující osobu (osoby) podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'108 Část výdajů nebo VH před zdaněním (ztráta)... na spolupracující osobu',x21,y2+(PocRad2*i21),x22-2) DlgEdit(208,P1108,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(208,'108 Část výdajů nebo výsledku hospodaření před zdaněním (ztráta),'+#13+'kterou rozdělujete na spolupracující osobu (osoby) podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'109 Část příjmů nebo VH před zdaněním (zisk)... na Vás jako na spoluprac.os.',x21,y2+(PocRad2*i21),x22-2) DlgEdit(209,P1109,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(209,'109 Část příjmů nebo výsledku hospodaření před zdaněním (zisk), která'+#13+'připadla na Vás jako na spolupracující osobu podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'110 Část výdajů nebo VH před zdaněním (ztráta)... na Vás jako na spolup.os.',x21,y2+(PocRad2*i21),x22-2) DlgEdit(210,P1110,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(210,'110 Část příjmů nebo výsledku hospodaření před zdaněním (ztráta),'+#13+'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'111 (neobsazeno)',x21,y2+(PocRad2*i21),x22-2) DlgEdit(211,P1111,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT|ws_Disabled,ValidCisloInt) Inc(PocRad2) DlgStatic(-1,'112 Váš podíl jako společníka VOS nebo komplementáře koman. společnosti',x21,y2+(PocRad2*i21),x22-2) DlgEdit(212,P1112,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(212,'112 Váš podíl jako společníka veřejné obchodní společnosti nebo'+#13+'komplementáře komanditní společnosti. Vykáže-li společnost ztrátu,'+#13+'označte svůj podíl znaménkem mínus (-)') Inc(PocRad2) DlgStatic(-1,'113 Dílčí základ daně (ztráta) z příjmů dle §7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgStatic(-1,P1113,x22+61-52,y2+(PocRad2*i21),SirkaPolicka21,,,ES_Right) Inc(PocRad2) xx22:real=((x22-x21)/2)-80 xx23:real=x22-82 xxe21:real=((x22-x21)/2)+4 xxe22:real=x22-x21 DlgStatic(-1,'Čistý obrat',x21,y2+(PocRad2*i21),90) DlgStatic(-1,'Uplatněné odpisy celkem',xx22,y2+(PocRad2*i21),170) DlgStatic(-1,'Z toho odpisy nemovitostí',xx23,y2+(PocRad2*i21),170,,,ES_RIGHT) Inc(PocRad2) DlgEdit(220,CistyObrat,x21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(220,'Vedete-li účetnictví, uveďte roční úhrn čistého obratu podle § 20 odst. 1 písm. a) bod 2 zákona č. 563/1991 Sb. o účetnictví, ve znění pozdějších předpisů') DlgOnLineHelp(222,'Z toho odpisy nemovitostí') if(Program.Majetky) begin if(LENGTH(DatumSkupOdp)>0 begin if(NactiOdpisAnoNe) begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(221,'Uplatněné odpisy celkem - převzato ze sestavy: "Daňové odpisy - rekapitulace" ze dne '+DatumSkupOdp) NactiOdpisAnoNe=False ;kdyz sahnou na nactena data a pak to zase vrati zpet, uz to nebude hlasit datum sestavy DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(222,'Z toho odpisy nemovitostí - převzat součet odp. skupiny 4, 5 a 6 ze sestavy: "Daňové odpisy - rekapitulace" ze dne '+DatumSkupOdp) end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) if(SumaDanOdpis<>0) DlgOnLineHelp(221,'Uplatněné odpisy celkem') else DlgOnLineHelp(221,'Uplatněné odpisy celkem - nutno zadat ručně') end end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) if(SumaDanOdpis<>0) DlgOnLineHelp(221,'Uplatněné odpisy celkem - Nebyla spočtena sestava "Daňové odpisy - rekapitulace", zadáno ručně') else DlgOnLineHelp(221,'Uplatněné odpisy celkem - Nebyla spočtena sestava "Daňové odpisy - rekapitulace", nutno zadat ručně') end end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(221,'Uplatněné odpisy celkem') DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) end Inc(PocRad2) DlgStatic(-1,'Datum zahájení',x21,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum přerušení',130,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum ukončení',255,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum obnovení',380,y2+(PocRad2*i21),110) DlgStatic(-1,'Počet měsíců',505,y2+(PocRad2*i21),95) Inc(PocRad2) DlgEditDate(230,DatumZah,x21,y2-4+(PocRad2*i21),78,i21,,,ValidDatum) DlgOnLineHelp(230,'C. Údaje o podnikání - Datum zahájení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(231,DatumPrer,130,y2-4+(PocRad2*i21),78,i21,,,ValidDatum) DlgOnLineHelp(231,'C. Údaje o podnikání - Datum přerušení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(232,DatumUkon,255,y2-4+(PocRad2*i21),78,i21,,,ValidDatum) DlgOnLineHelp(232,'C. Údaje o podnikání - Datum skutečného ukončení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(233,DatumObnov,380,y2-4+(PocRad2*i21),78,i21,,,ValidDatum) DlgOnLineHelp(233,'C. Údaje o podnikání - Datum obnovení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEdit(234,Pocetmesicu,505,y2-4+(PocRad2*i21),78,i21,2) DlgOnLineHelp(234,'C. Počet měsíců činnosti - počet měsíců, ve kterých jste provozoval'+#13+'činnost podle § 7 odst. 1 písm. a),b) nebo c) zákona'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 3. cover ================================} ;{vykresleni 3. coveru} SetCover(10,'P1/2') ;DlgDivider(5,46,592,0) if(Pril1) begin x31=5 x32=246 x33=500 x34=104 x35=250 x36=396 x37=500 x38=512 x39=549 y3=2 i31=20 ;radkovani 1 i32=20 ;radkovani 2 PocRad3=0 ;pomocna promenna SirkaPolicka31=250 ;standardní šířka SirkaPolicka32=100 SirkaPolicka33=150-10 SirkaPolicka34=34 DlgStatic(-1,'E.1 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(301,P1ETZvys[1],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(301,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(302,P1EHZvys[1],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(302,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(303,P1ETZvys[2],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(303,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(304,P1EHZvys[2],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(304,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(305,P1ETZvys[3],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(305,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(306,P1EHZvys[3],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(306,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(307,P1ETZvys[4],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(307,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(308,P1EHZvys[4],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(308,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) y3=y3+7 DlgStatic(-1,'E.1 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(311,P1ETSniz[1],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(311,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(312,P1EHSniz[1],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(312,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(313,P1ETSniz[2],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(313,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(314,P1EHSniz[2],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(314,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(315,P1ETSniz[3],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(315,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(316,P1EHSniz[3],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(316,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(317,P1ETSniz[4],x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(317,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(318,P1EHSniz[4],x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(318,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) y3=y3+7 DlgStatic(-1,'Jméno',x34,y3+(PocRad3*i31),SirkaPolicka33,,,ES_CENTER) DlgStatic(-1,'Příjmení',x35,y3+(PocRad3*i31),SirkaPolicka33,,,ES_CENTER) DlgStatic(-1,'DIČ (RČ)',x36,y3+(PocRad3*i31),SirkaPolicka32+12,,,ES_CENTER) DlgStatic(-1,'pří.',x38,y3+(PocRad3*i31),SirkaPolicka34,,,ES_CENTER) DlgStatic(-1,'výd.',x39,y3+(PocRad3*i31),SirkaPolicka34,,,ES_CENTER) Inc(PocRad3); DlgStatic(-1,'1.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(330,JmenoSdr[1],x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(330,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(331,PrijmeniSdr[1],x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(331,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(332,DICSdr[1],x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(332,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(333,PodilP[1],x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(333,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(334,PodilV[1],x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(334,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'2.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(335,JmenoSdr[2],x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(335,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(336,PrijmeniSdr[2],x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(336,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(337,DICSdr[2],x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(337,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(338,PodilP[2],x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(338,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(339,PodilV[2],x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(339,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'3.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(340,JmenoSdr[3],x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(340,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(341,PrijmeniSdr[3],x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(341,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(342,DICSdr[3],x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(342,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(343,PodilP[3],x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(343,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(344,PodilV[3],x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(344,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'1.Spolupracující',x31,y3+(PocRad3*i31),x34-2+6) DlgEdit(350,JmenoSpol[1],x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,36) DlgOnLineHelp(350,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- jméno') DlgEdit(351,PrijmeniSpol[1],x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(351,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- příjmení') DlgEdit(352,DICSpol[1],x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(352,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- DIČ') DlgEdit(354,PodilSpol[1],x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(354,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'2.Spolupracující',x31,y3+(PocRad3*i31),x34-2+6) DlgEdit(355,JmenoSpol[2],x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,36) DlgOnLineHelp(355,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- jméno') DlgEdit(356,PrijmeniSpol[2],x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,36) DlgOnLineHelp(356,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- příjmení') DlgEdit(357,DICSpol[2],x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(357,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- DIČ') DlgEdit(358,PodilSpol[2],x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,14,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(358,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'1.Rozdělující os.',x31-2,y3+(PocRad3*i31),x34-2+6) DlgEdit(360,JmenoRozdel1,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) DlgOnLineHelp(360,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- jméno') DlgEdit(361,PrijmeniRozdel1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(361,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- příjmení') DlgEdit(362,DICRozdel1,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(362,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- DIČ') DlgEdit(363,PodilRozdel1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(363,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'I.Údaje o veřejné obchodní spol. nebo komanditní spol.',x31,y3+(PocRad3*i31),x34-2+282) DlgEdit(366,DICVOS,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(366,'I. Údaje o veřejné obchodní společnosti nebo komanditní společnosti'+#13+'- DIČ v.o.s. nebo k.s., kde jste společníkem nebo komplementářem') DlgEdit(367,PodilVOS,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(367,'I. Údaje o veřejné obchodní společnosti nebo komanditní společnosti'+#13+'- výše Vašeho podílu v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 4. cover ================================} ;{vykresleni 4. coveru} SetCover(11,'P1/DE') if(Pril1) begin ;if(Program.DanovaEvidence) begin DlgStatic(-1,'D. Tabulka pro poplatníky, kteří vedou daňovou evidenci podle § 7b zákona',5,2,590) ;OpenWNSIfExist(WorkPath+'PMZ1.1.'+ROK(4)+'.WNS') ;časový název? při výpočtu té sestavy se zadává od-do, jak pozná, že si má vzít data z 1.1. nebo 31.12., SEKCE? ;DatePMZ_DE:String[10]=GetWNSDate ;TimePMZ_DE:String=GetWNSTime ;DlgCheckBox(370,TabulkaDP1,5,27,528,,'údaje do tabulky D budou převzaty ze sestavy Přehled o majetku a závazcích z data: '+DatePMZ_DE+' '+TimePMZ_DE') DlgStatic(-1,'1. Hmotný majetek',5,52,285) DlgEdit(371,P1D1Z,288,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(371,'1. Hmotný majetek - na začátku zdaňovacího období') DlgEdit(372,P1D1K,433,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(372,'1. Hmotný majetek - na konci zdaňovacího období') DlgStatic(-1,'2. Peněžní prostředky v hotovosti *)',5,72,285) DlgEdit(373,P1D2Z,288,72,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(373,'2. Peněžní prostředky v hotovosti *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(374,P1D2K,433,72,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(374,'2. Peněžní prostředky v hotovosti *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'3. Peněžní prostředky na bank. účtech *)',5,92,285) DlgEdit(375,P1D3Z,288,92,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(375,'3. Peněžní prostředky na bankovních účtech *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(376,P1D3K,433,92,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(376,'3. Peněžní prostředky na bankovních účtech *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'4. Zásoby',5,112,285) DlgEdit(377,P1D4Z,288,112,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(377,'4. Zásoby - na začátku zdaňovacího období') DlgEdit(378,P1D4K,433,112,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(378,'4. Zásoby - na konci zdaňovacího období') DlgStatic(-1,'5. Pohledávky včetně posk. úvěrů a půjček',5,132,285) DlgEdit(379,P1D5Z,288,132,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(379,'5. Pohledávky včetně poskytnutých úvěrů a půjček - na začátku zdaňovacího období') DlgEdit(380,P1D5K,433,132,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(380,'5. Pohledávky včetně poskytnutých úvěrů a půjček - na konci zdaňovacího období') DlgStatic(-1,'6. Ostatní majetek *)',5,152,285) DlgEdit(381,P1D6Z,288,152,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(381,'6. Ostatní majetek *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(382,P1D6K,433,152,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(382,'6. Ostatní majetek *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'7. Závazky včetně přijatých úvěrů a půjček',5,172,285) DlgEdit(383,P1D7Z,288,172,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(383,'7. Závazky včetně přijatých úvěrů a půjček - na začátku zdaňovacího období') DlgEdit(384,P1D7K,433,172,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(384,'7. Závazky včetně přijatých úvěrů a půjček - na konci zdaňovacího období') DlgStatic(-1,'8. Rezervy',5,192,285) DlgEdit(385,P1D8Z,288,192,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(385,'8. Rezervy - na začátku zdaňovacího období') DlgEdit(386,P1D8K,433,192,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(386,'8. Rezervy - na konci zdaňovacího období') DlgStatic(-1,'9. Mzdy',5,220,285) DlgEdit(387,Mzdy1,143,220,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(387,'9. Mzdy') end else begin DlgStatic(-1,'Záložka P1/DE je určena k vyplnění pouze pro poplatníky,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'kteří vedou daňovou evidenci podle § 7b zákona',10,90,590,,,ES_CENTER,$ff0011) end end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ; ;{============================== 5. cover ================================} ;{vykresleni 5. coveru} SetCover(12,'P2') if(Pril2) begin DlgCheckBox(401,P2VydProcentem,5,5,237,,'Uplatňuji výdaje % z příjmů (30%)') DlgOnLineHelp(401,'1. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'Uplatňuji výdaje procentem z příjmů (30 %)') DlgCheckBox(402,P2SpolJmeni,247,5,350,,'Dosáhl jsem příjmů ze společného jmění manželů') DlgOnLineHelp(402,'1. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'Dosáhl jsem příjmů ze společného jmění manželů') DlgStatic(-1,'201 Příjmy podle § 9 zákona',5,30,200) DlgEdit(403,P2201,495,26,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(403,'201 Příjmy podle § 9 zákona') DlgStatic(-1,'202 Výdaje podle § 9 zákona',5,50,200) DlgEdit(404,P2202,495,46,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(404,'202 Výdaje podle § 9 zákona') DlgStatic(-1,'203 Rozdíl mezi příjmy a výdaji (ř.201-202) nebo VH před zdaněním',5,70,450) DlgStatic(-1,P2203,495,70,100,,,ES_Right) DlgStatic(-1,'204 Úhrn částek podle §5, §23 ... zvyšující rozdíl mezi příjmy a výdaji...',5,90,472) DlgEdit(405,P2204,495,86,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(405,'204 Úhrn částek podle §5, §23 a ostatní úpravy ... zvyšující rozdíl mezi příjmy a výdaji nebo VH před zdaněním (zisk, ztráta)') DlgStatic(-1,'205 Úhrn částek podle §5, §23 ... snižující rozdíl mezi příjmy a výdaji...',5,110,472) DlgEdit(406,P2205,495,106,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(406,'205 Úhrn částek podle §5, §23 a ostatní úpravy ... snižující rozdíl mezi příjmy a výdaji nebo VH před zdaněním (zisk, ztráta)') DlgStatic(-1,'206 Dílčí základ daně, daňová ztráta z pronájmu (ř.203+204-205)',5,130,430) DlgStatic(-1,P2206,495,130,100,,,ES_Right) DlgStatic(-1,'Rezervy na začátku zdaňovacího období',5,153,430) DlgEdit(451,PREZZ,495,151,100,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(451,'Rezervy na začátku zdaňovacího období') DlgStatic(-1,'Rezervy na konci zdaňovacího období',5,172,430) DlgEdit(452,PREZK,495,170,100,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(451,'Rezervy na konci zdaňovacího období') y3=195 Inc(y3,20) HelpDruhPrijmu:String=TransESC('A. příležitostná činnost\rB. prodej nemovitostí\rC. prodej movitch věcí\rD. prodej cenných papírů\rE. příjmy z převodu § 10 odst. 1 písm. c)\rF. jiné ostatní příjmy') DruhyPrijmu:Array[1..7] of String[1]=' ','A','B','C','D','E','F' HelpKod:String=TransESC('P. příjmy ze zemědělské výroby s paušálem 80%\rS. příjmy z majetku ve společném vlastnictví manželů\rZ. příjmy ze zahraničí') Kody:Array[1..4] of String[1]=' ','P','S','Z' DlgStatic(-1,'1.',5,y3+4,98) DlgEdit(407,P2Druh[1],20,y3,160,24,50) DlgOnLineHelp(407,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(408,P2Prijem[1],184,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(408,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.2 Příjmy') DlgEdit(409,P2Vydaj[1],288,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(409,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem[1]-P2Vydaj[1],9,0),392,y3+2,100,,,ES_Right) DlgCombo(,P2DruhPrijmu[1],496,y3,48,128,32,CBS_DropDownList,DruhyPrijmu) DlgOnLineHelp(GetLastID(),HelpDruhPrijmu) DlgCombo(,P2Kod[1],552,y3,48,128,32,CBS_DropDownList,Kody) DlgOnLineHelp(GetLastID(),HelpKod) Inc(y3,24) DlgStatic(-1,'2.',5,y3+4,98) DlgEdit(411,P2Druh[2],20,y3,160,24,50) DlgOnLineHelp(411,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(412,P2Prijem[2],184,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(412,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.2 Příjmy') DlgEdit(413,P2Vydaj[2],288,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(413,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem[2]-P2Vydaj[2],9,0),392,y3+2,100,,,ES_Right) DlgCombo(,P2DruhPrijmu[2],496,y3,48,128,32,CBS_DropDownList,DruhyPrijmu) DlgOnLineHelp(GetLastID(),HelpDruhPrijmu) DlgCombo(,P2Kod[2],552,y3,48,128,32,CBS_DropDownList,Kody) DlgOnLineHelp(GetLastID(),HelpKod) Inc(y3,24) DlgStatic(-1,'3.',5,y3+4,98) DlgEdit(415,P2Druh[3],20,y3,160,24,50) DlgOnLineHelp(415,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(416,P2Prijem[3],184,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(416,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.2 Příjmy') DlgEdit(417,P2Vydaj[3],288,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(417,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem[3]-P2Vydaj[3],9,0),392,y3+2,100,,,ES_Right) DlgCombo(,P2DruhPrijmu[3],496,y3,48,128,32,CBS_DropDownList,DruhyPrijmu) DlgOnLineHelp(GetLastID(),HelpDruhPrijmu) DlgCombo(,P2Kod[3],552,y3,48,128,32,CBS_DropDownList,Kody) DlgOnLineHelp(GetLastID(),HelpKod) Inc(y3,24) DlgStatic(-1,'4.',5,y3+4,98) DlgEdit(419,P2Druh[4],20,y3,160,24,50) DlgOnLineHelp(419,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(420,P2Prijem[4],184,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(420,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.2 Příjmy') DlgEdit(421,P2Vydaj[4],288,y3,100,24,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(421,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem[4]-P2Vydaj[4],9,0),392,y3+2,100,,,ES_Right) DlgCombo(,P2DruhPrijmu[4],496,y3,48,128,32,CBS_DropDownList,DruhyPrijmu) DlgOnLineHelp(GetLastID(),HelpDruhPrijmu) DlgCombo(,P2Kod[4],552,y3,48,128,32,CBS_DropDownList,Kody) DlgOnLineHelp(GetLastID(),HelpKod) Inc(y3,24) DlgStatic(-1,'Úhrn kladných rozdílů',5,y3+2,145) DlgStatic(-1,P2DilciSuma,392,y3+2,100,,,ES_Right) Inc(y3,20) DlgStatic(-1,'207 Příjmy podle §10 zákona',5,y3,210) DlgStatic(-1,P2207,495,y3,100,,,ES_Right) Inc(y3,20) DlgStatic(-1,'208 Výdaje §10 zákona (max do výše příjmů)',5,y3,310) DlgStatic(-1,P2208,495,y3,100,,,ES_Right) Inc(y3,20) DlgStatic(-1,'209 Dílčí základ daně připadající na ostatní příjmy (ř.207-208)',5,y3,420) DlgStatic(-1,P2209,495,y3,100,,,ES_Right) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 2 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{******************************************************************************************************************} ;{9. cover} SetCover(13,'P3') if(Pril3) begin x61=5 x62=497 y6=10 i61=25 ;radkovani 1 PocRad6=0 ;pomocna promenna SirkaPolicka61=380 ;standardní šířka SirkaPolicka62=100 DlgStatic(-1,'Rodné číslo',x61,y6+2,150) DlgEdit(6150,RC,95,y6,100,,11,ES_LEFT,ValidRC) DlgOnLineHelp(6150,'Rodné číslo') Inc(y6,25) DlgStatic(-1,'Kód státu',x61,y6+2,90) DlgEdit(6151,KS1,95,y6,40,,5) DlgOnLineHelp(6151,'Kód státu') Inc(y6,35) DlgStatic(-1,'321 Příjmy ze zdrojů v zahraničí - metoda zápočtu ...',x61,y6+2,410) DlgEdit(615,P3321,x62,y6,SirkaPolicka62,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(615,'321 Příjmy ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Inc(y6,25) DlgStatic(-1,'322 Výdaje',x61,y6+2,410) DlgEdit(616,P3322,x62,y6,SirkaPolicka62,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(616,'322 Výdaje') Inc(y6,25) DlgStatic(-1,'323 Daň zaplacená v zahraničí',x61,y6+2,410) DlgEdit(617,P3323,x62,y6,SirkaPolicka62,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(617,'323 Daň zaplacená v zahraničí') Inc(y6,25) DlgStatic(-1,'324 Koeficient zápočtu (ř.321-322) děleno (ř.42-příjmy vyňaté)*100',x61,y6+2,410) DlgEdit(618,P3324,x62,y6,SirkaPolicka62-20,,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(618,'324 Koeficient zápočtu'+#13+'(ř.321-322)děleno(ř.42-příjmy vyňaté) násobeno stem') DlgStatic(-1,'%',x62+83,y6+2,14,,,ES_Right) Inc(y6,25) DlgStatic(-1,'325 Z částky daně zaplacené v zahraničí lze max. započítat',x61,y6+2,410) DlgStatic(-1,P3325,x62-3,y6+2,SirkaPolicka62,,,ES_Right) Inc(y6,25) DlgStatic(-1,'326 Daň uznaná k zápočtu (ř. 323 max. však do výše ř. 325)',x61,y6+2,410) DlgStatic(-1,P3326,x62-3,y6+2,SirkaPolicka62,,,ES_Right) Inc(y6,25) DlgStatic(-1,'327 Rozdíl řádků (ř. 323 - ř. 326)',x61,y6+2,410) if(P3327<0) DlgStatic(-1,'---',x62-3,y6+2,SirkaPolicka62,,,ES_Right) else DlgStatic(-1,P3327,x62-3,y6+2,SirkaPolicka62,,,ES_Right) Inc(y6,25) DlgStatic(-1,'328 Daň uznaná k zápočtu (úhrn ř. 326 i ze samost. listů)',x61,y6+2,410) DlgEdit(619,P3328,x62,y6,SirkaPolicka62,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(619,'328 Daň uznaná k zápočtu (úhrn řádků 326 i ze samostatných listů)') Inc(y6,25) DlgStatic(-1,'329 Daň neuznaná k zápočtu (úhrn ř. 327 i ze samost. listů)',x61,y6+2,410) DlgEdit(620,P3329,x62,y6,SirkaPolicka62,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(620,'329 Daň neuznaná k zápočtu (úhrn řádků 327 i ze samostatných listů)') Inc(y6,35) DlgStatic(-1,'330 Rozdíl řádků (ř. 320 - ř. 328)',x61,y6+2,410) DlgStatic(-1,P3330,x62-3,y6,SirkaPolicka62,,,ES_Right) Inc(PocRad6) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 3 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{******************************************************************************************************************} ;{2. cover} SetCover(4,'S2') x81=5 x82=190 x83=215 x84=300 x85=516 i81=20 ;radkovani 1 i82=21 ;radkovani 2 PocRad8=0 ;pomocna promenna SirkaPolicka81=80 ;standardní šířka SirkaPolicka82=20 ;male pole SirkaPolicka83=198 ;text y8=1 DlgStatic(-1,'31 Úhrn příjmů od všech zaměstnavatelů',x81,y8,SirkaPolicka83) DlgEdit(11001,D31,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11001,'31 Úhrn příjmů od všech zaměstnavatelů') DlgStatic(-1,'32 Úhrn pojistného',x81+x84,y8,SirkaPolicka83) DlgEdit(11002,D32,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11002,'32 Úhrn pojistného, které je povinen platit zaměstnavatel sám'+#13+'za sebe') Inc(y8,i82) DlgStatic(-1,'33 Daň zaplacená v zahraničí podle § 6 odst. 14 zákona',x81,y8,SirkaPolicka83) DlgEdit(11003,D33,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11003,'33 Daň zaplacená v zahraničí podle § 6 odst. 14 zákona') DlgStatic(-1,'34 Dílčí základ daně podle § 6 zákona (ř. 31 – ř. 32 – ř. 33)',x81+x84,y8,SirkaPolicka83) DlgEdit(11004,D34,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11004,'34 Dílčí základ daně podle § 6 zákona (ř. 31 – ř. 32 – ř. 33)') Inc(y8,i82) DlgStatic(-1,'35 Úhrn příjmů plynoucí ze zahraničí snížený o pojistné',x81,y8,SirkaPolicka83) DlgEdit(11005,D35,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11005,'35 Úhrn příjmů plynoucí ze zahraničí snížený o pojistné'+#13+'uhrazené zaměstnavatelem') DlgStatic(-1,'36 Dílčí základ daně ze závislé činnosti podle § 6 zákona (ř. 34)',x81+x84,y8,SirkaPolicka83) DlgEdit(11006,D36,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11006,'36 Dílčí základ daně ze závislé činnosti podle § 6 zákona (ř. 34)') Inc(y8,i82) DlgStatic(-1,'36a Dílčí ZD po vynětí ř.36...',x81,y8,SirkaPolicka83) DlgEdit(11061,D36a,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11061,'36a Dílčí základ daně ze závislé činnosti podle § 6 zákona po vynětí'+#13+'(ř. 36 - úhrn vyňatých příjmů ze zdrojů v zahraničí podle §6 zákona'+#13+'nebo ř.36)') DlgStatic(-1,'37 Dílčí základ daně nebo ztráta z podnikání a z jiné samostatné',x81+x84,y8,SirkaPolicka83) DlgEdit(11007,D37,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11007,'37 Dílčí základ daně nebo ztráta z podnikání a z jiné samostatné'+#13+'výdělečné činnosti podle § 7 zákona (ř. 113 přílohy č. 1 DAP)') Inc(y8,i82) DlgStatic(-1,'38 Dílčí základ daně z kapitálového majetku podle § 8 zákona',x81,y8,SirkaPolicka83) DlgEdit(11008,D38,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11008,'38 Dílčí základ daně z kapitálového majetku podle § 8 zákona') DlgStatic(-1,'39 Dílčí základ daně nebo ztráta z pronájmu podle § 9 zákona',x81+x84,y8,SirkaPolicka83) DlgEdit(11009,D39,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11009,'39 Dílčí základ daně nebo ztráta z pronájmu podle § 9 zákona'+#13+'(ř. 206 přílohy č. 2 DAP)') Inc(y8,i82) DlgStatic(-1,'40 Dílčí základ daně z ostatních příjmů podle § 10 zákona',x81,y8,SirkaPolicka83) DlgEdit(11010,D40,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11010,'40 Dílčí základ daně z ostatních příjmů podle § 10 zákona'+#13+'(ř. 209 přílohy č. 2 DAP)') DlgStatic(-1,'41 Úhrn řádků (ř. 37 + ř. 38 + ř. 39 + ř. 40).',x81+x84,y8,SirkaPolicka83) DlgEdit(11011,D41,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11011,'41 Úhrn řádků (ř. 37 + ř. 38 + ř. 39 + ř. 40).') Inc(y8,i82) DlgStatic(-1,'41a Úhrn dílčích základů daně podle § 7 až § 10...',x81,y8,SirkaPolicka83) DlgEdit(11012,D41a,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11012,'41a Úhrn dílčích základů daně podle § 7 až § 10 zákona po vynětí (ř.41 - úhrn'+#13+'vyňatých příjmů ze zdrojů v zahraničí podle § 7 až § 10 zákona nebo ř.41)') DlgStatic(-1,'42 Základ daně (ř. 36a + kladná hodnota z ř. 41)',x81+x84,y8,SirkaPolicka83) DlgEdit(11013,D42,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11013,'42 Základ daně (ř. 36 + kladná hodnota z ř. 41)') Inc(y8,i82) DlgStatic(-1,'44 Uplatňovaná výše ztráty - vzniklé a vyměřené za',x81,y8,SirkaPolicka83) DlgEdit(11014,D44,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11014,'44 Uplatňovaná výše ztráty - vzniklé a vyměřené za předcházející'+#13+'zdaňovací období maximálně do výše ř. 41a') DlgStatic(-1,'45 Základ daně po odečtení ztráty (ř. 42 – ř. 44)',x81+x84,y8,SirkaPolicka83-12) DlgEdit(11015,D45,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11015,'45 Základ daně po odečtení ztráty (ř. 42 – ř. 44)) Inc(y8,i82) DlgStatic(-1,'46 Odst. 1 zákona (hodnota daru/darů)',x81,y8,SirkaPolicka83) DlgEdit(11016,D46,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11016,'46 Odst. 1 zákona (hodnota daru/darů)') DlgStatic(-1,'47 Odst. 3 a 4 zákona (odečet úroků)',x81+x84,y8,SirkaPolicka83-12) DlgEdit(11017,D47m,x82+x84,y8,SirkaPolicka82,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11017,'47 Odst. 3 a 4 zákona (odečet úroků)') DlgEdit(11018,D47,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11018,'47 Odst. 3 a 4 zákona (odečet úroků)') Inc(y8,i82) DlgStatic(-1,'48 Odst. 5 zákona (penzijní připojištění)',x81,y8,SirkaPolicka83) DlgEdit(11019,D48,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11019,'48 Odst. 5 zákona (penzijní připojištění)') DlgStatic(-1,'49 Odst. 6 zákona (životní pojištění)',x81+x84,y8,SirkaPolicka83-12) DlgEdit(11020,D49,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11020,'49 Odst. 6 zákona (životní pojištění)') Inc(y8,i82) DlgStatic(-1,'50 Odst. 7 zákona (odborové příspěvky)',x81,y8,SirkaPolicka83) DlgEdit(11021,D50,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11021,'50 Odst. 7 zákona (odborové příspěvky)') DlgStatic(-1,'51 Odst. 8 zákona (úhrada za další vzdělání)',x81+x84,y8,SirkaPolicka83) DlgEdit(11121,D51,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11121,'51 Odst. 8 zákona (úhrada za další vzdělání)') Inc(y8,i82) DlgStatic(-1,'52 § 34 odst. 4 zákona (výzkum a vývoj)',x81,y8,SirkaPolicka83) DlgEdit(11022,D52,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11022,'52 § 34 odst. 4 zákona (výzkum a vývoj)') Inc(y8,i82) DlgStatic(-1,'53 Další částky',x81,y8,SirkaPolicka83) DlgEdit(12023,D53t,x83,y8,SirkaPolicka81+180,i81,100,ES_LEFT) DlgOnLineHelp(11023,'53 Další částky') DlgEdit(11024,D53m,x82+x84,y8,SirkaPolicka82,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11024,'53 Další částky') DlgEdit(11025,D53,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11025,'53 Další částky') Inc(y8,i82) DlgStatic(-1,'54 Úhrn nezdanitelných částí základu daně a položek',x81,y8,SirkaPolicka83) DlgEdit(11026,D54,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11026,'54 Úhrn nezdanitelných částí základu daně a položek'+#13+'odčitatelných od základu daně (ř. 46 + ř. 47 + ř. 48 +'+#13+'+ ř. 49 + ř. 50 + ř. 51 + ř. 52 + ř. 53)') DlgStatic(-1,'55 Základ daně snížený o nezdanitelné části základu daně',x81+x84,y8,SirkaPolicka83) DlgEdit(11027,D55,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11027,'55 Základ daně snížený o nezdanitelné části základu daně'+#13+'a položky odčitatelné od základu daně (ř. 45 – ř. 54)') Inc(y8,i82) DlgStatic(-1,'56 Základ daně zaokrouhlený na celá sta Kč dolů',x81,y8,SirkaPolicka83) DlgEdit(11028,D56,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11028,'56 Základ daně zaokrouhlený na celá sta Kč dolů') DlgStatic(-1,'57 Daň podle § 16 zákona',x81+x84,y8,SirkaPolicka83) DlgEdit(11029,D57,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11029,'57 Daň podle § 16 zákona') Inc(y8,i82) DlgStatic(-1,'58 Daň podle § 16 odst. 1 zákona (ř. 57) nebo částka',x81,y8,SirkaPolicka83) DlgEdit(11030,D58,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11030,'58 Daň podle § 16 odst. 1 zákona (ř. 57) nebo částka'+#13+'z ř. 330 přílohy č. 3 DAP') DlgStatic(-1,'60 Daň celkem zaokrouhlená na celé Kč nahoru (ř. 58)',x81+x84,y8,SirkaPolicka83) DlgEdit(11032,D60,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11032,'60 Daň celkem zaokrouhlená na celé Kč nahoru (ř. 58)') Inc(y8,i82) DlgStatic(-1,'61 Daňová ztráta-zaokrouhlená na celé Kč nahoru',x81,y8,SirkaPolicka83) DlgEdit(11033,D61,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11033,'61 Daňová ztráta - zaokrouhlená na celé Kč nahoru'+#13+'bez znaménka mínus') DlgStatic(-1,'62 Slevy celkem podle § 35 odst. 1 zákona',x81+x84,y8,SirkaPolicka83) DlgEdit(11034,D62,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11034,'62 Slevy celkem podle § 35 odst. 1 zákona') Inc(y8,i82) DlgStatic(-1,'63 Sleva podle § 35 odst. 6, 7 a 8 (registrační pokladna)',x81,y8,SirkaPolicka83) DlgEdit(11035,D63,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11035,'63 Sleva podle § 35 odst. 6, 7 a 8 (registrační pokladna)') ;{******************************************************************************************************************} ;{3. cover} SetCover(5,'S3') x91=5 x92=190 x93=215 x94=300 x95=516 i91=20 ;radkovani 1 i92=19 ;radkovani 2 PocRad9=0 ;pomocna promenna SirkaPolicka91=80 ;standardní šířka SirkaPolicka92=20 ;male pole SirkaPolicka93=198 ;text y9=2 Inc(y9,i92-10) DlgStatic(-1,'Údaje o manželce/manželovi',x91,y9+2,SirkaPolicka93) DlgStatic(-1,'Příjmení',x93,y9+2,SirkaPolicka91,,,TA_RIGHT) DlgEdit(,ManzelPrijmeni,x93+86,y9,SirkaPolicka91+89,i91,36,ES_LEFT) DlgStatic(-1,'RČ',x94+x92-12,y9+2,SirkaPolicka92) DlgEdit(,ManzelRC,x94+x93-12,y9,SirkaPolicka91+12,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(GetLastID(),'Rodné číslo') Inc(y9,i92) DlgStatic(-1,'Jméno',x93,y9+2,SirkaPolicka91,,,TA_RIGHT) DlgEdit(,ManzelJmeno,x93+86,y9,SirkaPolicka91+89,i91,36,ES_LEFT) DlgStatic(-1,'Titul',x94+x92-12,y9+2,SirkaPolicka92+32) DlgEdit(,ManzelTitul,x94+x93+20,y9,SirkaPolicka91-20,i91,10,ES_LEFT) Inc(y9,i92+3) DlgDivider(x94,y9,0,5*i92) DlgStatic(-1,'64 písm. a) zákona (na poplatníka)',x91,y9,SirkaPolicka93) DlgEdit(12004,D64,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12064,'64 písm. a) zákona (na poplatníka)') Inc(y9,i92) DlgStatic(-1,'65a) písm. b) zákona (na manželku/manžela)',x91,y9,SirkaPolicka93) DlgEdit(12005,D65am,x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12006,D65a,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12006,'65a) písm. b) zákona (na manželku/manžela)') Inc(y9,i92) DlgStatic(-1,'65b) písm. b) zákona (na manželku/manžela,',x91,y9,SirkaPolicka93) DlgEdit(12007,D65bm,x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12008,D65b,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12008,'65b) písm. b) zákona (na manželku/manžela'+#13+'která/který je držitelem ZTP/P)') Inc(y9,i92) DlgStatic(-1,'66 písm. c) zákona (invalidní důchod I. nebo II. stupeň)',x91,y9,SirkaPolicka93) DlgEdit(12009,D66m,x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12010,D66,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12010,'66 písm. c) zákona (na poživatele invalidního důchodu pro invaliditu prvního nebo druhého stupně)') Inc(y9,i92) DlgStatic(-1,'67 písm. d) zákona (invalidní důchod III. stupně)',x91,y9,SirkaPolicka93) DlgEdit(12011,D67m,x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12012,D67,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12012,'67 písm. d) zákona (na poživatele invalidního důchodu pro invaliditu třetího stupně)') y9=y9-(4*i92) DlgStatic(-1,'68 písm. e) zákona (na držitele průkazu ZTP/P)',x94+x91,y9,SirkaPolicka93) DlgEdit(12013,D68m,x94+x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12014,D68,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12014,'68 písm. e) zákona (na držitele průkazu ZTP/P)') Inc(y9,i92) DlgStatic(-1,'69 písm. f) zákona (studium)',x94+x91,y9,SirkaPolicka93) DlgEdit(12015,D69m,x94+x92,y9,SirkaPolicka92,i91,,ES_RIGHT,ValidCisloInt) DlgEdit(12016,D69,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12016,'69 písm. f) zákona (studium)') Inc(y9,i92) DlgStatic(-1,'72 Daňové zvýhodnění na vyživované dítě',x94+x91,y9,SirkaPolicka93-10) DlgEdit(12017,D72,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12017,'72 Daňové zvýhodnění na vyživované dítě') Inc(y9,i92) DlgStatic(-1,'73 Sleva na dani (částka z ř. 72, uplatněná maxiálně',x94+x91,y9,SirkaPolicka93) DlgEdit(12018,D73,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12018,'73 Sleva na dani (částka z ř. 72, uplatněná maxiálně'+#13+'do výše daně na ř. 71)') Inc(y9,i92) DlgStatic(-1,'76 Úhrn vyplacených měsíčních daňových bonusů podle',x94+x91,y9,SirkaPolicka93) DlgEdit(12019,D76,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12019,'76 Úhrn vyplacených měsíčních daňových bonusů podle §35d'+#13+'zákona (včetně případného doplatku na daňovém bonusu)') Inc(y9,10) Inc(y9,i92+3) DlgStatic(-1,'Dítě',5,y9+2,44) DlgStatic(-1,'Jméno',44,y9+2,110,,,ES_CENTER) DlgStatic(-1,'Příjmení',180,y9+2,150,,,ES_CENTER) Inc(y9,i92+3) DlgStatic(-1,'1.',5,y9+2,16) DlgEdit(12030,DiteJmeno[1],24,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(12030,'Jméno dítěte') DlgEdit(,DitePrijmeni[1],180,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(GetLastID(),'Příjmení dítěte') DlgStatic(-1,'RČ',335,y9+2,20) DlgEdit(12031,DiteRC[1],360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12031,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9+2,30) DlgEdit(12032,DiteMesic[1],490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12032,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9+2,30) DlgEdit(12033,DiteZTP[1],560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12033,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'2.',5,y9+2,16) DlgEdit(12034,DiteJmeno[2],24,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(12034,'Jméno dítěte') DlgEdit(,DitePrijmeni[2],180,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(GetLastID(),'Příjmení dítěte') DlgStatic(-1,'RČ',335,y9+2,20) DlgEdit(12035,DiteRC[2],360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12035,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9+2,30) DlgEdit(12036,DiteMesic[2],490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12036,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9+2,30) DlgEdit(12037,DiteZTP[2],560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12037,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'3.',5,y9+2,16) DlgEdit(12038,DiteJmeno[3],24,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(12038,'Jméno dítěte') DlgEdit(,DitePrijmeni[3],180,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(GetLastID(),'Příjmení dítěte') DlgStatic(-1,'RČ',335,y9+2,20) DlgEdit(12039,DiteRC[3],360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12039,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9+2,30) DlgEdit(12040,DiteMesic[3],490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12040,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9+2,30) DlgEdit(12041,DiteZTP[3],560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12041,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'4.',5,y9+2,16) DlgEdit(12042,DiteJmeno[4],24,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(12042,'Jméno dítěte') DlgEdit(,DitePrijmeni[4],180,y9,150,i91,36,ES_LEFT) DlgOnLineHelp(GetLastID(),'Příjmení dítěte') DlgStatic(-1,'RČ',335,y9+2,20) DlgEdit(12043,DiteRC[4],360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12043,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9+2,30) DlgEdit(12044,DiteMesic[4],490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12044,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9+2,30) DlgEdit(12045,DiteZTP[4],560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12045,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'Celkem měsíců',5,y9+2,100) DlgStatic(-1,'Měs.',455,y9+2,30) DlgEdit(12046,DiteMesicC,490,y9,30,i91,3,ES_Right|ws_Disabled) DlgOnLineHelp(12046,'Součet počtu měsíců za všechny uplatňované děti.'+#13+'Uplatňujete-li daň. zvýhodnění na více jak 4 děti, přičtěte počty měsíců'+#13+'a údaje za tyto děti uveďte na volném listu') DlgStatic(-1,'ZTP',525,y9,30) DlgEdit(12047,DiteZTPC,560,y9,30,i91,3,ES_Right|ws_Disabled) DlgOnLineHelp(12047,'Součet počtu měsíců za všechny uplatňované děti, které jsou držitelé průkazu ZTP/P') Inc(y9,i92+3) DlgDivider(x94,y9,0,6*i92) DlgStatic(-1,'78 Poslední známá daňová povinnost',x91,y9,SirkaPolicka93) DlgEdit(12050,D78,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12050,'78 Poslední známá daňová povinnost') Inc(y9,i92) DlgStatic(-1,'79 Zjištěná daň podle § 141 zákona č. 280/2009 Sb.',x91,y9,SirkaPolicka93) DlgEdit(12051,D79,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12051,'79 Zjištěná daň podle § 141 zákona č. 280/2009 Sb., daňového'+#13+'řádu (ř. 74)') Inc(y9,i92) DlgStatic(-1,'81 Poslední známá daň - daňová ztráta',x91,y9,SirkaPolicka93) DlgEdit(12052,D81,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12052,'81 Poslední známá daň - daňová ztráta'+#13+'podle § 5 zákona') Inc(y9,i92) DlgStatic(-1,'82 Zjištěná ztráta podle § 141 zákona č. 280/2009 Sb.',x91,y9,SirkaPolicka93) DlgEdit(12053,D82,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12053,'82 Zjištěná ztráta podle § 141 zákona č. 280/2009 Sb.,'+#13+'daňového řádu (ř. 61)') Inc(y9,i92) DlgStatic(-1,'84 Úhrn sražených záloh na daň z příjmů ze závislé činnosti',x91,y9,SirkaPolicka93) DlgEdit(12054,D84,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12054,'84 Úhrn sražených záloh na daň z příjmů ze závislé činnosti'+#13+'a z funkčních požitků (po slevách na dani)') Inc(y9,i92) DlgStatic(-1,'85 Na zbývajících zálohách zaplaceno poplatníkem celkem',x91,y9,SirkaPolicka93) DlgEdit(12055,D85,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12055,'85 Na zbývajících zálohách zaplaceno poplatníkem celkem') y9=y9-(5*i92) DlgStatic(-1,'86 Zaplacená daň stanovená paušální částkou podle § 7a',x94+x91,y9,SirkaPolicka93) DlgEdit(12056,D86,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12056,'86 Zaplacená daň stanovená paušální částkou podle § 7a'+#13+'zákona') Inc(y9,i92) DlgStatic(-1,'87 Sražená daň podle § 36 odst. 6 zákona (státní dluhopisy)',x94+x91,y9,SirkaPolicka93) DlgEdit(12057,D87,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12057,'87 Sražená daň podle § 36 odst. 6 zákona (státní dluhopisy)') Inc(y9,i92) DlgStatic(-1,'87a Sražená daň podle § 36 odst. 7 zákona',x94+x91,y9,SirkaPolicka93) DlgEdit(12058,D87a,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12058,'87 Sražená daň podle § 36 odst. 7 zákona') Inc(y9,i92) DlgStatic(-1,'88 Zajištěná daň plátcem podle § 38e zákona',x94+x91,y9,SirkaPolicka93) DlgEdit(12059,D88,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12059,'88 Zajištěná daň plátcem podle § 38e zákona') Inc(y9,i92) DlgStatic(-1,'89 Sražená daň podle § 38f odst. 11 zákona',x94+x91,y9,SirkaPolicka93) DlgEdit(12060,D89,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12060,'89 Sražená daň podle § 38f odst. 11 zákona') Inc(y9,i92) DlgStatic(-1,'90 Zaplacená daňová povinnost (záloha)',x94+x91,y9,SirkaPolicka93) DlgEdit(12061,D90,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12061,'90 Zaplacená daňová povinnost (záloha)'+#13+'odle § 38gb odst. 4 zákona') ;{******************************************************************************************************************} ;{4. cover - 4. strana - 1. díl} SetCover(6,'S4/1') x101=5 x102=268 x103=310 x104=575 x105=516 y10=5 i101=25 ;radkovani 1 i102=20 ;radkovani 2 PocRad10=0 ;pomocna promenna SirkaPolicka101=20 ;standardní šířka SirkaPolicka102=20 DlgStatic(-1,'Příloha č.1 - Výpočet dílčích základů daně z příjmů z podnikání a z jiné samostatné výděleční činnosti (§7 zákona)...',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1001,Pr1,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1001,'Příloha č. 1 - "Výpočet dílčích základů daně z příjmů z podnikání a z jiné samostatné výděleční činnosti (§7 zákona)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.2 - Výpočet dílčích základů daně z příjmů z pronájmu (§9 zákona) a z ostatních příjmů (§10 zákona)',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1002,Pr2,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1002,'Příloha č. 2 - "Výpočet dílčích základů daně z příjmů z pronájmu (§9 zákona) a z ostatních příjmů (§10 zákona)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.3 - Výpočet daně z příjmu ze zahraničí (§38f zákona)" včetně Samostatných listů 1. oddílu',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1003,Pr3,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1003,'Příloha č. 3 - "Výpočet daně z příjmu ze zahraničí (§38f zákona)" včetně Samostatných listů 1. oddílu') Inc(PocRad10) DlgStatic(-1,'Účetní závěrka poplatníka... účetnictví',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1004,Pr4,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1004,'Přílohy DAP'+#13+'Výkaz zisku a ztráty, rozvaha a příloha pro poplatníka, který je účetní jednotkou a vede účetnictví'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Seznam pro poplatníky uplatňující nárok na vyloučení dvojího zdanění podle § 38f odst. 9 zákona',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1005,Pr5,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1005,'Seznam pro poplatníky uplatňující nárok na vyloučení dvojího zdanění podle § 38f odst. 9 zákona') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zdanitelných příjmech ze závislé činnosti a z funkčních požitků a o sražených zálohách na daň a daňovém',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1006,Pr6,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1006,'"Potvrzení o zdanitelných příjmech ze závislé činnosti a z funkčních požitků a o sražených zálohách na daň a daňovém'+#13+'zvýhodnění" za příslušné zdaňovací období od všech zaměstnavatelů (např. podle § 38j odst. 3 zákona') Inc(PocRad10) DlgStatic(-1,'Doklad o poskytnutém daru',x101,y10+(PocRad10*i101),x102-3) DlgEdit(1007,Pr7,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1007,'Doklad o poskytnutém daru') Inc(PocRad10) DlgStatic(-1,'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1008,Pr8,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1008,'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zaplacených částkách na penzijní připojištění',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1009,Pr9,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1009,'Potvrzení o zaplacených částkách na penzijní připojištění') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zaplacených částkách na soukromé životní pojištění',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1010,Pr10,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1010,'Potvrzení o zaplacených částkách na soukromé životní pojištění') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zaplacené úhradě na další vzdělávání',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1011,Pr11,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1011,'Potvrzení o zaplacené úhradě na další vzdělávání') Inc(PocRad10) DlgStatic(-1,'Důvody pro podání dodatečného DAP',x101,y10+(PocRad10*i101),x104-2) DlgEdit(,Pr14,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) Inc(PocRad10) DlgStatic(-1,'Další přílohy výše neuvedené',x101,y10+(PocRad10*i101),x104-2) DlgEdit(1012,Pr12,x104+12,y10+(PocRad10*i101)-2,SirkaPolicka101,,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1012,'Přílohy DAP'+#13+'Další přílohy výše neuvedené') Inc(PocRad10) DlgStatic(-1,'Počet listů příloh celkem',x101,y10+(PocRad10*i101),x104-3) DlgStatic(-1,Pr13,x104+12,y10+(PocRad10*i101),SirkaPolicka101,,,ES_RIGHT) ;{******************************************************************************************************************} ;{5. cover - 4. strana - 2. díl} SetCover(7,'S4/2') DlgShade(-1,'Osoba oprávněná k podpisu za daňový subjekt',4,2,608,76,,es_Center) DlgStatic(-1,'&Příjmení',12,30,60) DlgEdit(,OprPrijmeni,78,26,178,,36) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 4') DlgStatic(-1,'&Jméno',266,30,46) DlgEdit(,OprJmeno,322,26,138,,20) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 4') DlgStatic(-1,'Vztah k právnické osobě',12,54,192); DlgEdit(,Postaveni,204,50,400,,40) DlgShade(-1,'Sestavil',4,84,608,54,,es_Center) DlgStatic(-1,'Pří&jmení',12,112,60) DlgEdit(,SestavilPrijmeni,78,108,178,,23) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 4') DlgStatic(-1,'Jmé&no',266,112,46) DlgEdit(,SestavilJmeno,322,108,138,,11) DlgOnLineHelp(GetLastID(),'Údaje pro formulář... str. 4') DlgShade(-1,'Údaje o zástupci',4,144,608,158) DlgStatic(-1,'Kód &zástupce',12,174,96) DlgCombo(,ZastupceKod,116,170,48,256,2,CBS_DropDownList,'','1','2','3','4a','4b','4c') DlgStatic(-1,'&Typ zástupce',166,174,140,,,TA_Right) DlgCombo(,ZastupceTyp,312,170,148,260,2,CBS_DropDownList,'Fyzická osoba','Právnická osoba'); DlgStatic(-1,'Název právnické osoby',12,202,448) DlgEdit(,ZastupceNazev,12,220,448,,36) DlgStatic(-1,'&Příjmení',12,248,60) DlgEdit(,ZastupcePrijmeni,78,244,178,,23) DlgStatic(-1,'&Jméno',266,248,46) DlgEdit(,ZastupceJmeno,322,244,138,,11) DlgCombo(,ZastupceIDTyp,12,268,160,128,32,CBS_DropDownList,'Datum narození','Evidenční číslo','IČ právnické osoby') DlgEdit(,ZastupceID,172,268,288,,36) Inc(ysou,100) DlgStatic(-1,'Datum podání',12,ysou+4,128) DlgEditDate(,DatumPodani,126,ysou,78,,,,ValidDatum) DlgOnLineHelp(GetLastID(),'Datum') ;{******************************************************************************************************************} ;{6. cover - 4. strana - 3. díl} SetCover(8,'S4/3') ysou=2 DlgStatic(-1,'ŽÁDOST O VRÁCENÍ PENĚZ PŘEPLATKU NA DANI Z PŘÍJMU FYZICKÝCH OSOB',5,ysou+2,610,,,,$0000aa) Inc(ysou,25) DlgStatic(-1,'... žádám o vrácení přeplatku na dani z příjmů FO',5,ysou+2,300) Inc(ysou,22) DlgEdit(930,prep1,5,ysou,96) DlgOnLineHelp(930,'... žádám o vrácení přeplatku na dani z příjmů fyzických osob ... Kč.') DlgStatic(-1,'Kč',109,ysou+2,96) Inc(ysou,25) DlgStatic(-1,'Přeplatek zašlete na adresu',5,ysou+2,500) Inc(ysou,25) DlgStatic(-1,'&Příjmení',15,ysou+4,143) DlgEdit(,PrepPrijmeni,160,ysou,160,,35) DlgStatic(-1,'&Jméno',320,ysou+4,112,,,TA_RIGHT) DlgEdit(,PrepJmeno,440,ysou,160,,35) Inc(ysou,25) DlgStatic(-1,'&Titul',320,ysou+4,112,,,TA_RIGHT) DlgEdit(,PrepTitul,440,ysou,48,,10) Inc(ysou,25) DlgStatic(-1,'&Ulice:',15,ysou+4,47) DlgEdit(,PrepUliceBC,160,ysou,214,,27) DlgStatic(-1,'Čís.pop:',381,ysou+4,56) DlgEdit(,PrepUliceCP,440,ysou,48,,6) DlgStatic(-1,'Čís.or.:',496,ysou+4,46) DlgEdit(,PrepUliceCO,552,ysou,48,,6) Inc(ysou,25) DlgStatic(-1,'&Obec',15,ysou+4,40) DlgEdit(,PrepObec,160,ysou,344,,29) DlgStatic(-1,'P&SČ',515,ysou+4,30) DlgEdit(,PrepPSC,550,ysou,50,,5) Inc(ysou,25) DlgStatic(-1,'Přeplatek vraťte na účet vedený u',5,ysou+2,500) Inc(ysou,22) DlgEdit(932,prep3,5,ysou,605) DlgOnLineHelp(932,'Přeplatek vraťte na účet vedený u') Inc(ysou,25) DlgStatic(-1,'č.',5,ysou+2,245) DlgStatic(-1,'kód banky',255,ysou+2,95) DlgStatic(-1,'specifický symbol',355,ysou+2,145) Inc(ysou,22) DlgEdit(933,prep4,5,ysou,245) DlgOnLineHelp(933,'číslo účtu, na který má být vrácen přeplatek') DlgEdit(934,prep5,255,ysou,95) DlgOnLineHelp(934,'kód banky') DlgEdit(935,prep6,355,ysou,145) DlgOnLineHelp(935,'specifický symbol') Inc(ysou,25) DlgStatic(-1,'vlastník účtu',5,ysou+2,495) DlgStatic(-1,'měna',505,ysou+2,95) Inc(ysou,22) DlgEdit(936,prep7,5,ysou,495) DlgOnLineHelp(936,'Vlastník účtu') DlgEdit(937,prep8,505,ysou,105) DlgOnLineHelp(937,'měna, ve které je účet veden') Inc(ysou,25) DlgStatic(-1,'v',5,ysou+2,515) DlgStatic(-1,'dne',530,ysou+2,80) Inc(ysou,22) DlgEdit(938,prep11,5,ysou,520) DlgOnLineHelp(938,'město kde bylo daňové přiznání podepsáno') DlgEditDate(939,prep12,530,ysou,80,,,,ValidDatum) DlgOnLineHelp(939,'datum podpisu daňového přiznání') ;{******************************************************************************************************************} ;{12. cover - protokol} SetCover(14,'Protokol') radek:INTEGER=0 ;{radek*20+5} While(Radek0; SetToIni('TITULNI','EkPropojeniAnoNe',EkPropojeniAnoNe,INI)) SetToIni('TITULNI','ObecTP',ObecTP,INI) SetToIni('TITULNI','UliceBCTP',UliceBCTP,INI) SetToIni('TITULNI','CisloPopisneTP',UliceCPTP,INI) SetToIni('TITULNI','CisloOrientacniTP',UliceCOTP,INI) SetToIni('TITULNI','PSCTP',PSCTP,INI) SetToIni('TITULNI','ObecZdrz',ObecZdrz,INI) SetToIni('TITULNI','UliceBCZdrz',UliceBCZdrz,INI) SetToIni('TITULNI','CisloPopisneZdrz',UliceCPZdrz,INI) SetToIni('TITULNI','CisloOrientacniZdrz',UliceCOZdrz,INI) SetToIni('TITULNI','PSCZdrz',PSCZdrz,INI) SetToIni('TITULNI','TelefonZdrz',TelefonZdrz,INI) SetToIni('TITULNI','FaxZdrz',FaxZdrz,INI) SetToIni('TITULNI','EMailZdrz',EMailZdrz,INI) LocBy=0 While(LocBy<4) begin Inc(LocBy); SetToIni('DAP'+IniRok,'Pausal'+Str(LocBy),Str(Pausal[LocBy]),INI) SetToIni('DAP'+IniRok,'Prijmy'+Str(LocBy),Str(Prijmy[LocBy]),INI) SetToIni('DAP'+IniRok,'Vydaje'+Str(LocBy),Str(Vydaje[LocBy]),INI) end; ;{ulozeni hodnot 2. coveru} SetToIni('DAP'+IniRok,'P1Procento',Str(P1Procento),INI) SetToIni('DAP'+IniRok,'P1101',P1101,INI) SetToIni('DAP'+IniRok,'P1102',P1102,INI) SetToIni('DAP'+IniRok,'P1103',P1103,INI) SetToIni('DAP'+IniRok,'P1104',P1104,INI) SetToIni('DAP'+IniRok,'P1105',P1105,INI) SetToIni('DAP'+IniRok,'P1106',P1106,INI) SetToIni('DAP'+IniRok,'P1107',P1107,INI) SetToIni('DAP'+IniRok,'P1108',P1108,INI) SetToIni('DAP'+IniRok,'P1109',P1109,INI) SetToIni('DAP'+IniRok,'P1110',P1110,INI) SetToIni('DAP'+IniRok,'P1111',P1111,INI) SetToIni('DAP'+IniRok,'P1112',P1112,INI) SetToIni('DAP'+IniRok,'CistyObrat',CistyObrat,INI) SetToIni('Ba'+IniRok,'Odpis1',Odpis1,INI) SetToIni('Ba'+IniRok,'Odpis2',Odpis2,INI) SetToIni('Ba'+IniRok,'Odpis3',Odpis3,INI) SetToIni('Ba'+IniRok,'Odpis4',Odpis4,INI) SetToIni('Ba'+IniRok,'Odpis5',Odpis5,INI) SetToIni('Ba'+IniRok,'Odpis6',Odpis6,INI) SetToIni('Ba'+IniRok,'Odpis66',Odpis66,INI) SetToIni('Ba'+IniRok,'Odpis7',Odpis7,INI) SetToIni('Ba'+IniRok,'Odpis8',Odpis8,INI) ;SetToIni('Ba'+IniRok,'PopisOdpis8',PopisOdpis8,INI) SetToIni('Ba'+IniRok,'Odpis10',Odpis10,INI) SetToIni('Ba'+IniRok,'SumaDanOdpis',SumaDanOdpis,INI) SetToIni('Ba'+IniRok,'OdpisNemov',OdpisNemov,INI) SetToIni('TITULNI'+IniRok,'DatumZah',StrDate(DatumZah),INI) SetToIni('TITULNI'+IniRok,'DatumPrer',StrDate(DatumPrer),INI) SetToIni('TITULNI'+IniRok,'DatumUkon',StrDate(DatumUkon),INI) SetToIni('TITULNI'+IniRok,'DatumObnov',StrDate(DatumObnov),INI) SetToIni('TITULNI'+IniRok,'PocetMesicu',Str(PocetMesicu,2,0),INI) ;{ulozeni hodnot 3. coveru} LocBy=0 While(LocBy<4) begin Inc(LocBy); SetToIni('DAP'+IniRok,'P1ETZvys'+Str(LocBy),P1ETZvys[LocBy],INI) SetToIni('DAP'+IniRok,'P1EHZvys'+Str(LocBy),Str(P1EHZvys[LocBy]),INI)) SetToIni('DAP'+IniRok,'P1ETSniz'+Str(LocBy),P1ETSniz[LocBy],INI) SetToIni('DAP'+IniRok,'P1EHSniz'+Str(LocBy),Str(P1EHSniz[LocBy]),INI)) end; LocBy=0 While(LocBy<3) begin Inc(LocBy); SetToIni('DAP'+IniRok,'JmenoSdr'+Str(LocBy),JmenoSdr[LocBy],INI) SetToIni('DAP'+IniRok,'PrijmeniSdr'+Str(LocBy),PrijmeniSdr[LocBy],INI) SetToIni('DAP'+IniRok,'DICSdr'+Str(LocBy),DICSdr[LocBy],INI) SetToIni('DAP'+IniRok,'PodilP'+Str(LocBy),Str(PodilP[LocBy],,2),INI)) SetToIni('DAP'+IniRok,'PodilV'+Str(LocBy),Str(PodilV[LocBy],,2),INI)) end; LocBy=0 While(LocBy<2) begin Inc(LocBy); SetToIni('DAP'+IniRok,'JmenoSpol'+Str(LocBy),JmenoSpol[LocBy],INI) SetToIni('DAP'+IniRok,'PrijmeniSpol'+Str(LocBy),PrijmeniSpol[LocBy],INI) SetToIni('DAP'+IniRok,'DICSpol'+Str(LocBy),DICSpol[LocBy],INI) SetToIni('DAP'+IniRok,'PodilSpol'+Str(LocBy),Str(PodilSpol[LocBy],,2),INI) end; SetToIni('DAP'+IniRok,'JmenoRozdel1',JmenoRozdel1,INI) SetToIni('DAP'+IniRok,'PrijmeniRozdel1',PrijmeniRozdel1,INI) SetToIni('DAP'+IniRok,'DICRozdel1',DICRozdel1,INI) SetToIni('DAP'+IniRok,'PodilRozdel1',PodilRozdel1,INI) SetToIni('DAP'+IniRok,'DICVOS',DICVOS,INI) SetToIni('DAP'+IniRok,'PodilVOS',PodilVOS,INI) ;{ulozeni hodnot 4. coveru} SetToIni('DAP'+IniRok,'P1D1Z',P1D1Z,INI) SetToIni('DAP'+IniRok,'P1D2Z',P1D2Z,INI) SetToIni('DAP'+IniRok,'P1D3Z',P1D3Z,INI) SetToIni('DAP'+IniRok,'P1D4Z',P1D4Z,INI) SetToIni('DAP'+IniRok,'P1D5Z',P1D5Z,INI) SetToIni('DAP'+IniRok,'P1D6Z',P1D6Z,INI) SetToIni('DAP'+IniRok,'P1D7Z',P1D7Z,INI) SetToIni('DAP'+IniRok,'P1D8Z',P1D8Z,INI) SetToIni('DAP'+IniRok,'P1D1K',P1D1K,INI) SetToIni('DAP'+IniRok,'P1D2K',P1D2K,INI) SetToIni('DAP'+IniRok,'P1D3K',P1D3K,INI) SetToIni('DAP'+IniRok,'P1D4K',P1D4K,INI) SetToIni('DAP'+IniRok,'P1D5K',P1D5K,INI) SetToIni('DAP'+IniRok,'P1D6K',P1D6K,INI) SetToIni('DAP'+IniRok,'P1D7K',P1D7K,INI) SetToIni('DAP'+IniRok,'P1D8K',P1D8K,INI) SetToIni('DAP'+IniRok,'Mzdy1',Mzdy1,INI) ;{ulozeni hodnot 5. coveru} SetToIni('DAP'+IniRok,'P2VydProcentem',P2VydProcentem,INI) SetToIni('DAP'+IniRok,'P2SpolJmeni',P2SpolJmeni,INI) SetToIni('DAP'+IniRok,'P2201',P2201,INI) SetToIni('DAP'+IniRok,'P2202',P2202,INI) SetToIni('DAP'+IniRok,'P2204',P2204,INI) SetToIni('DAP'+IniRok,'P2205',P2205,INI) SetToIni('DAP'+IniRok,'PREZZ',PREZZ,INI) SetToIni('DAP'+IniRok,'PREZK',PREZK,INI) LocBy=0 While(LocBy<4) begin Inc(LocBy) SetToIni('DAP'+IniRok,'P2Druh'+Str(LocBy),P2Druh[LocBy],INI) SetToIni('DAP'+IniRok,'P2Prijem'+Str(LocBy),Str(P2Prijem[LocBy]),INI)) SetToIni('DAP'+IniRok,'P2Vydaj'+Str(LocBy),Str(P2Vydaj[LocBy]),INI)) SetToIni('DAP'+IniRok,'P2Kod'+Str(LocBy),Str(P2Kod[LocBy]),INI)) SetToIni('DAP'+IniRok,'P2DruhPrijmu'+Str(LocBy),Str(P2DruhPrijmu[LocBy]),INI)) end; ;{ulozeni hodnot 6. coveru} SetToIni('DAP'+IniRok,'P3301',P3301,INI) SetToIni('DAP'+IniRok,'P3302',P3302,INI) ; SetToIni('DAP'+IniRok,'P3303',P3303,INI) SetToIni('DAP'+IniRok,'P3304',P3304,INI) SetToIni('DAP'+IniRok,'P3305',P3305,INI) ;SetToIni('DAP'+IniRok,'P3306',P3306,INI) ;SetToIni('DAP'+IniRok,'P3307',P3307,INI) ;SetToIni('DAP'+IniRok,'P3308',P3308,INI) ;SetToIni('DAP'+IniRok,'P3309',P3309,INI) ;SetToIni('DAP'+IniRok,'P3310',P3310,INI) SetToIni('DAP'+IniRok,'Tab3',Tab3,INI) SetToIni('DAP'+IniRok,'P3TAB1P',P3TAB1P,INI) SetToIni('DAP'+IniRok,'P3TAB2P',P3TAB2P,INI) SetToIni('DAP'+IniRok,'P3TAB3P',P3TAB3P,INI) SetToIni('DAP'+IniRok,'P3TAB4P',P3TAB4P,INI) SetToIni('DAP'+IniRok,'P3TAB5P',P3TAB5P,INI) SetToIni('DAP'+IniRok,'P3TAB1M',P3TAB1M,INI) SetToIni('DAP'+IniRok,'P3TAB2M',P3TAB2M,INI) SetToIni('DAP'+IniRok,'P3TAB3M',P3TAB3M,INI) SetToIni('DAP'+IniRok,'P3TAB4M',P3TAB4M,INI) SetToIni('DAP'+IniRok,'P3TAB5M',P3TAB5M,INI) SetToIni('DAP'+IniRok,'P3311',P3311,INI) SetToIni('DAP'+IniRok,'P3312',P3312,INI) SetToIni('DAP'+IniRok,'P3313',P3313,INI) SetToIni('DAP'+IniRok,'P3314',P3314,INI) ;SetToIni('DAP'+IniRok,'P3315',P3315,INI) ;SetToIni('DAP'+IniRok,'P3316',P3316,INI) ;{ulozeni hodnot 7. coveru} SetToIni('DAP'+IniRok,'P3317',P3317,INI) SetToIni('DAP'+IniRok,'P3318',P3318,INI) SetToIni('DAP'+IniRok,'KS1',KS1,INI) SetToIni('DAP'+IniRok,'RC',RC,INI) SetToIni('DAP'+IniRok,'P3321',P3321,INI) SetToIni('DAP'+IniRok,'P3322',P3322,INI) SetToIni('DAP'+IniRok,'P3323',P3323,INI) SetToIni('DAP'+IniRok,'P3324',P3324,INI) ;SetToIni('DAP'+IniRok,'P3325',P3325,INI) ;SetToIni('DAP'+IniRok,'P3326',P3326,INI) ;SetToIni('DAP'+IniRok,'P3327',P3327,INI) SetToIni('DAP'+IniRok,'P3328',P3328,INI) SetToIni('DAP'+IniRok,'P3329',P3329,INI) ;SetToIni('DAP'+IniRok,'P3330',P3330,INI) SetToIni('DAP'+IniRok,'P3ZPS1P',P3ZPS1P,INI) SetToIni('DAP'+IniRok,'P3ZPS1H',P3ZPS1H,INI) SetToIni('DAP'+IniRok,'P3ZPS2P',P3ZPS2P,INI) SetToIni('DAP'+IniRok,'P3ZPS2H',P3ZPS2H,INI) ;{ulozeni hodnot 11. coveru} SetToIni('DAP'+IniRok,'D31',D31,INI) SetToIni('DAP'+IniRok,'D32',D32,INI) SetToIni('DAP'+IniRok,'D33',D33,INI) SetToIni('DAP'+IniRok,'D34',D34,INI) SetToIni('DAP'+IniRok,'D35',D35,INI) SetToIni('DAP'+IniRok,'D36',D36,INI) SetToIni('DAP'+IniRok,'D36a',D36a,INI) SetToIni('DAP'+IniRok,'D37',D37,INI) SetToIni('DAP'+IniRok,'D38',D38,INI) SetToIni('DAP'+IniRok,'D39',D39,INI) SetToIni('DAP'+IniRok,'D40',D40,INI) SetToIni('DAP'+IniRok,'D41',D41,INI) SetToIni('DAP'+IniRok,'D41a',D41a,INI) SetToIni('DAP'+IniRok,'D42',D42,INI) SetToIni('DAP'+IniRok,'D44',D44,INI) SetToIni('DAP'+IniRok,'D46',D46,INI) SetToIni('DAP'+IniRok,'D47M',D47M,INI) SetToIni('DAP'+IniRok,'D47',D47,INI) SetToIni('DAP'+IniRok,'D48',D48,INI) SetToIni('DAP'+IniRok,'D49',D49,INI) SetToIni('DAP'+IniRok,'D50',D50,INI) SetToIni('DAP'+IniRok,'D51',D51,INI) SetToIni('DAP'+IniRok,'D52',D52,INI) SetToIni('DAP'+IniRok,'D53T',D53T,INI) SetToIni('DAP'+IniRok,'D53M',D53M,INI) SetToIni('DAP'+IniRok,'D53',D53,INI) SetToIni('DAP'+IniRok,'D54',D54,INI) SetToIni('DAP'+IniRok,'D55',D55,INI) SetToIni('DAP'+IniRok,'D56',D56,INI) SetToIni('DAP'+IniRok,'D57',D57,INI) SetToIni('DAP'+IniRok,'D58',D58,INI) SetToIni('DAP'+IniRok,'D59',D59,INI) SetToIni('DAP'+IniRok,'D60',D60,INI) SetToIni('DAP'+IniRok,'D61',D61,INI) SetToIni('DAP'+IniRok,'D62',D62,INI) SetToIni('DAP'+IniRok,'D63',D63,INI) ;{ulozeni hodnot 12. coveru} SetToIni('DAP'+IniRok,'Duch',Duch,INI) SetToIni('DAP'+IniRok,'ManzelJmeno',ManzelJmeno,INI) SetToIni('DAP'+IniRok,'ManzelPrijmeni',ManzelPrijmeni,INI) SetToIni('DAP'+IniRok,'ManzelRC',ManzelRC,INI) SetToIni('DAP'+IniRok,'ManzelTitul',ManzelTitul,INI) SetToIni('DAP'+IniRok,'D64',D64,INI) SetToIni('DAP'+IniRok,'D65am',D65am,INI) SetToIni('DAP'+IniRok,'D65a',D65a,INI) SetToIni('DAP'+IniRok,'D65bm',D65bm,INI) SetToIni('DAP'+IniRok,'D65b',D65b,INI) SetToIni('DAP'+IniRok,'D66m',D66m,INI) SetToIni('DAP'+IniRok,'D66',D66,INI) SetToIni('DAP'+IniRok,'D67m',D67m,INI) SetToIni('DAP'+IniRok,'D67',D67,INI) SetToIni('DAP'+IniRok,'D68m',D68m,INI) SetToIni('DAP'+IniRok,'D68',D68,INI) SetToIni('DAP'+IniRok,'D69m',D69m,INI) SetToIni('DAP'+IniRok,'D69',D69,INI) LocBy=0 While(LocBy<4) begin Inc(LocBy); SetToIni('DAP'+IniRok,'DiteJmeno'+Str(LocBy),DiteJmeno[LocBy],INI) SetToIni('DAP'+IniRok,'DitePrijmeni'+Str(LocBy),DitePrijmeni[LocBy],INI) SetToIni('DAP'+IniRok,'DiteRC'+Str(LocBy),DiteRC[LocBy],INI) SetToIni('DAP'+IniRok,'DiteMesic'+Str(LocBy),Str(DiteMesic[LocBy]),INI)) SetToIni('DAP'+IniRok,'DiteZTP'+Str(LocBy),DiteZTP[LocBy],INI)) end; SetToIni('DAP'+IniRok,'DiteMesicC',DiteMesicC,INI) SetToIni('DAP'+IniRok,'DiteZTPC',DiteZTPC,INI) SetToIni('DAP'+IniRok,'D72',D72,INI) SetToIni('DAP'+IniRok,'D73',D73,INI) SetToIni('DAP'+IniRok,'D76',D76,INI) SetToIni('DAP'+IniRok,'D78',D78,INI) SetToIni('DAP'+IniRok,'D79',D79,INI) SetToIni('DAP'+IniRok,'D81',D81,INI) SetToIni('DAP'+IniRok,'D82',D82,INI) SetToIni('DAP'+IniRok,'D84',D84,INI) SetToIni('DAP'+IniRok,'D85',D85,INI) SetToIni('DAP'+IniRok,'D86',D86,INI) SetToIni('DAP'+IniRok,'D87',D87,INI) SetToIni('DAP'+IniRok,'D87a',D87a,INI) SetToIni('DAP'+IniRok,'D88',D88,INI) SetToIni('DAP'+IniRok,'D89',D89,INI) SetToIni('DAP'+IniRok,'D90',D90,INI) ;{ulozeni hodnot 13. coveru} SetToIni('DAP'+IniRok,'kodzastupce',kodzastupce,INI) SetToIni('DAP'+IniRok,'pravnickaosoba',pravnickaosoba,INI) SetToIni('DAP'+IniRok,'datumnarozeni',datumnarozeni,INI) SetToIni('DAP'+IniRok,'vztahkosobe',vztahkosobe,INI) SetToIni('DAP'+IniRok,'datumpodani',datumpodani,INI) SetToIni('DAP'+IniRok,'Pr1',Pr1,INI) SetToIni('DAP'+IniRok,'Pr2',Pr2,INI) SetToIni('DAP'+IniRok,'Pr3',Pr3,INI) SetToIni('DAP'+IniRok,'Pr4',Pr4,INI) SetToIni('DAP'+IniRok,'Pr5',Pr5,INI) SetToIni('DAP'+IniRok,'Pr6',Pr6,INI) SetToIni('DAP'+IniRok,'Pr7',Pr7,INI) SetToIni('DAP'+IniRok,'Pr8',Pr8,INI) SetToIni('DAP'+IniRok,'Pr9',Pr9,INI) SetToIni('DAP'+IniRok,'Pr10',Pr10,INI) SetToIni('DAP'+IniRok,'Pr11',Pr11,INI) SetToIni('DAP'+IniRok,'Pr12',Pr12,INI) SetToIni('DAP'+IniRok,'Pr14',Pr14,INI) SetToIni('DAP'+IniRok,'Kde4',Kde4,INI) SetToIni('DAP'+IniRok,'Kdy4',StrDate(Kdy4),INI) SetToIni('DAP'+IniRok,'Zast1',Zast1,INI) SetToIni('DAP'+IniRok,'Zast2',Zast2,INI) SetToIni('DAP'+IniRok,'Zast3',Zast3,INI) SetToIni('DAP'+IniRok,'Zast4',Zast4,INI) SetToIni('DAP'+IniRok,'Zast5',Zast5,INI) SetToIni('DAP'+IniRok,'Zast6',Zast6,INI) SetToIni('DAP'+IniRok,'Zast7',Zast7,INI) SetToIni('DAP'+IniRok,'Prep1',Prep1,INI) SetToIni('DAP'+IniRok,'Prep3',Prep3,INI) SetToIni('DAP'+IniRok,'Prep4',Prep4,INI) SetToIni('DAP'+IniRok,'Prep5',Prep5,INI) SetToIni('DAP'+IniRok,'Prep6',Prep6,INI) SetToIni('DAP'+IniRok,'Prep7',Prep7,INI) SetToIni('DAP'+IniRok,'Prep8',Prep8,INI) SetToIni('DAP'+IniRok,'Prep11',Prep11,INI) SetToIni('DAP'+IniRok,'Prep12',StrDate(Prep12),INI) SetToIni('DAP'+IniRok,'PrepPrijmeni',PrepPrijmeni,INI) SetToIni('DAP'+IniRok,'PrepJmeno',PrepJmeno,INI) SetToIni('DAP'+IniRok,'PrepTitul',PrepTitul,INI) SetToIni('DAP'+IniRok,'PrepUliceBC',PrepUliceBC,INI) SetToIni('DAP'+IniRok,'PrepCP',PrepUliceCP,INI) SetToIni('DAP'+IniRok,'PrepCO',PrepUliceCO,INI) SetToIni('DAP'+IniRok,'PrepObec',PrepObec,INI) SetToIni('DAP'+IniRok,'PrepPSC',PrepPSC,INI) end if(Result=ID_OK) ;pri OK jede tudy na tisk sestavy GoTo(Vypocet) if(Result2=ID_Yes) Halt ;{******************************************************************************************************************} ;{TISK} Tisk: if(Prazdny) IsXML=False; if(IsXML) begin XML:TextFile; XMLName:String=EPOPath+'DPFDP4-'+Copy(Program.DIC,3)+'-'+Str(AmendYear(Val(IniRok)))+'.XML'; Rewrite(XML,XMLName); WriteLn(XML,''); WriteLn(XML,''); WriteLn(XML,''); Write(XML,'0) begin Write(XML,' c_ufo_cil="'+NulL(Str(FinancniUradNum))+'"'); end; if(KodRozlis1<>0) begin WriteDatum('d_duvpod',DatumRozlis) WriteSubStr('duvpoddapdpf',' GI',KodRozlis1); end; WriteDatum('d_uv',DatumPodani) WriteDatum('d_zjist',DatumDodat) WriteMena('da_celod13',D60) WriteMena('da_slevy',D62) WriteMena('da_slevy35ba',D71) WriteMena('da_slevy35c',D74) WriteMena('da_slezap',D58) WriteSubStr('dap_typ','BODE',TypPriz1); WriteMena('kc_csprij',Celosvetove) WriteMena('kc_danbonus',D75) WriteMena('kc_dazvyhod',D72) WriteMena('kc_dztrata',D61) WriteMena('kc_konkurs',D90) WriteMena('kc_manztpp',D65b) WriteMena('kc_op15_1a',D64) WriteMena('kc_op15_1c',D65a) WriteMena('kc_op15_1d',D66) WriteMena('kc_op15_1e1',D67) WriteMena('kc_op15_1e2',D68) WriteMena('kc_pausal',D86) WriteMena('kc_pzdp',D78) WriteMena('kc_pzzt',D81) WriteMena('kc_rozdbonus',D77) WriteMena('kc_rozdil_dp',D80) WriteMena('kc_rozdil_zt',D83) WriteMena('kc_slevy35c',D73) WriteMena('kc_sraz367',D87) WriteMena('kc_sraz3810',D89) WriteMena('kc_sraz385',D88) WriteMena('kc_sraz_rezehp',D87) WriteMena('kc_stud',D69) WriteMena('kc_vyplbonus',D76) WriteMena('kc_zalpred',D85) WriteMena('kc_zalzavc',D84) WriteMena('kc_zbyvpred',D91) WriteMena('kc_zjidp',D79) WriteMena('kc_zjizt',D82) WriteStr('kod_popl',KodStat) WriteNum('m_cinvduch',D66m); WriteNum('m_deti',DiteMesicC); WriteNum('m_detiztpp',DiteZTPC); WriteNum('m_invduch',D67m); WriteNum('m_manz',D65am); WriteNum('m_stud',D69m); WriteNum('m_vyzmanzl',D65bm); WriteNum('m_ztpp',D68m); WriteStr('manz_jmeno',ManzelJmeno); WriteStr('manz_prijmeni',ManzelPrijmeni); WriteStr('manz_r_cislo',ValidateStr(RodneCislo,'0123456789')) WriteStr('manz_titul',ManzelTitul) WriteBool('pln_moc',PoradceAnoNe) WriteBool('prop_zahr',EkPropojeniAnoNe) if(Obdobi<>0) WriteNum('rok',Obdobi); WriteMena('sleva_rp',D63) WriteMena('uhrn_slevy35ba',D70) if(DatumOd|DatumDo<>0) begin WriteDatum('zdobd_do',DatumDo) WriteDatum('zdobd_od',DatumOd) end; WriteLn(XML,' />'); Write(XML,'0) begin LocZn='F' if(ZastupceTyp<>0) LocZn='P' WriteStr('zast_typ',LocZn); WriteStr('zast_kod',ZastupceKod); if(ZastupceTyp=0) begin WriteStr('zast_prijmeni',ZastupcePrijmeni) WriteStr('zast_jmeno',ZastupceJmeno) end else begin WriteStr('zast_nazev',ZastupceNazev) end LocStr='' if(ZastupceIDTyp=0) LocStr='zast_dat_nar' else if(ZastupceIDTyp=1) LocStr='zast_ev_cislo' else if(ZastupceIDTyp=2) LocStr='zast_ic' if(Length(LocStr)<>0) WriteStr(LocStr,ZastupceID); end; WriteLn(XML,' />'); Write(XML,''); Write(XML,''); LocBy=0 While(LocBy<4) begin Inc(LocBy) if(DiteMesic[LocBy]+DiteZTP[LocBy]<>0) begin Write(XML,''); end; end; Write(XML,''); Write(XML,'0)and(Pausal[1]<>0)) begin WriteNum('pr_sazba',PausalSazby[Pausal[1]]); end else begin if(Program.DanovaEvidence) LocBy=1 else LocBy=2 WriteNum('uc_soust',LocBy); end; WriteMena('pr_vyd7',Vydaje[1]); WriteBool('vyd7proc',P1Procento<>0); WriteLn(XML,' />'); xn:String; LocBy=1; While(LocBy<4) begin Inc(LocBy); xn='NACE'+Str(LocBy); if((Length(@xn)<>0)or(Prijmy[LocBy]<>0)or(Vydaje[LocBy]<>0)) begin Write(XML,'0)and(Pausal[LocBy]<>0)) begin WriteNum('sazba_dal',PausalSazby[Pausal[LocBy]]); end; WriteMena('vydaje7',Vydaje[LocBy]); WriteLn(XML,' />'); end; end; if((P1Procento=0)and(Program.DanovaEvidence)) begin Write(XML,''); end; LocBy=0; While(LocBy<4) begin Inc(LocBy); if((P1EHZvys[LocBy]<>0)or(Length(P1ETZvys[LocBy])<>0)) begin Write(XML,''); end; end; LocBy=0; While(LocBy<4) begin Inc(LocBy); if((P1EHSniz[LocBy]<>0)or(Length(P1ETSniz[LocBy])<>0)) begin Write(XML,''); end; end; LocBy=0; While(LocBy<3) begin Inc(LocBy); if((PodilP[LocBy]<>0)or(PodilV[LocBy]<>0)) begin Write(XML,''); end; end; LocBy=0; While(LocBy<2) begin Inc(LocBy); if(PodilSpol[LocBy]<>0) begin Write(XML,''); end; end; if(PodilRozdel1<>0) begin Write(XML,''); end; if(PodilVOS<>0) begin Write(XML,''); end; Write(XML,''); LocBy=0; While(LocBy<4) begin Inc(LocBy); if((P2Prijem[LocBy]<>0)or(P2Vydaj[LocBy]<>0)) begin Write(XML,'P2Vydaj[LocBy]) LocL=P2Prijem[LocBy]-P2Vydaj[LocBy] WriteMena('rozdil10',LocL); WriteMena('vydaje10',P2Vydaj[LocBy]); WriteLn(XML,' />'); end; end; Write(XML,''); WriteLn(XML,''); WriteLn(XML,''); Close(XML); end; ;{******************************************************************************************************************} ;{ tisk 1. strany } if(Priznani) begin Pen(0,0.1) FontSize(3.2) FontFace(NORMAL) RoundBox(18,13,80,6,3.3,3.3) Text(18,12,TA_Left|TA_BaseLine,'Finančnímu úřadu v, ve, pro') RoundBox(18,25,60,6,3.3,3.3) LinesA(23,29.5,23,31,5,0,11) Text(18,24,TA_Left|TA_BaseLine,'01 Daňové identifikační číslo') RoundBox(18,37,55,6,3.3,3.3) LinesA(23,41.5,23,43,5,0,10) LinesA(28,40.5,28,43,10,0,3) Text(18,36,TA_Left|TA_BaseLine,'02 Rodné číslo') RoundBox(113,27,80,35,3.3,3.3) FontSize(2.7) Text(153,59.5,TA_CENTER|TA_BaseLine,'Otisk prezentačního razítka finančního úřadu') FontSize(3.2) FontFace(NORMAL) Text(18,63,TA_Left|TA_BaseLine,'03 DAP') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(22,67,TA_Left|TA_BaseLine,'řádné') RoundBox(22,68,10.5,6,3.3,3.3) Text(45,67,TA_Left|TA_BaseLine,'opravné') RoundBox(45,68,10.5,6,3.3,3.3) Text(68,67,TA_Left|TA_BaseLine,'dodatečné') RoundBox(68,68,10.5,6,3.3,3.3) Text(108,70,TA_Left|TA_BaseLine,'Důvody pro podání dodatečného') Text(108,73.5,TA_Left|TA_BaseLine,'DAP zjištěny dne') RoundBox(153,68,40,6,3.3,3.3) LinesA(158,72.5,158,74,10,0,2) LinesA(163,71,163,74,10,0,2) LinesA(178,72.5,178,74,5,0,3) Text(18,78.5,TA_Left|TA_BaseLine,'04 Kód rozlišení typu DAP') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'2)'); FontSize(3.2) RoundBox(22,79.5,10.5,6,3.3,3.3) Text(141,91.5,TA_Left|TA_BaseLine,'Datum') RoundBox(153,87,40,6,3.3,3.3) LinesA(158,91.5,158,93,10,0,2) LinesA(163,90,163,93,10,0,2) LinesA(178,91.5,178,93,5,0,3) Text(18,97.5,TA_Left|TA_BaseLine,'05 DAP zpracoval a předkládá daňový poradce na základě plné moci k zastupování,') Text(22,101,TA_Left|TA_BaseLine,'která byla podána správci daně před uplynutím neprodloužené lhůty') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1)'); FontSize(3.2) Text(162,98,TA_RIGHT|TA_BaseLine,'ano') Text(182,98,TA_RIGHT|TA_BaseLine,'ne') RoundBox(163,94,10.5,6,3.3,3.3) RoundBox(183,94,10.5,6,3.3,3.3) Text(18,106.5,TA_Left|TA_BaseLine,'05a Zákonná povinnost ověření účetní závěrky auditorem') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1)'); FontSize(3.2) Text(162,106,TA_RIGHT|TA_BaseLine,'ano') Text(182,106,TA_RIGHT|TA_BaseLine,'ne') RoundBox(163,102,10.5,6,3.3,3.3) RoundBox(183,102,10.5,6,3.3,3.3) FontSize(10) FontFace(BOLD) FontWidthScale(.9) Text(106,126,TA_CENTER|TA_BaseLine,'P Ř I Z N Á N Í') FontSize(5.5) Text(106,132,TA_CENTER|TA_BaseLine,'k dani z příjmů fyzických osob') FontFace(BOLD) FontSize(3.8) Text(106,137,TA_CENTER|TA_BaseLine,'podle zákona č. 586/1992 Sb., o daních z příjmů, ve znění pozdějších předpisů (dále jen „zákon“)') Stext(20.5,29,TA_CENTER|TA_BaseLine,5,2,'CZ') FontFace(Normal) Stext(50.5,41,TA_CENTER|TA_BaseLine,5,1,'/') FontFace(BOLD) Text(89,143.5,TA_RIGHT|TA_BaseLine,'za zdaňovací období (kalendářní rok)') RoundBox(90.5,139.5,17,6,3.3,3.3) Text(109,143.5,TA_Left|TA_BaseLine,'nebo jeho část') FontSize(2) Text(0,-1.9,TA_Left|TA_RELATIVE|TA_BaseLine,'2') FontSize(3.8) Text(0,1.9,TA_Left|TA_RELATIVE|TA_BaseLine,')') Text(141.5,143.5,TA_RIGHT|TA_BaseLine,'od') RoundBox(143,139.5,17,6,3.3,3.3) Text(165.5,143.5,TA_RIGHT|TA_BaseLine,'do') RoundBox(167,139.5,17,6,3.3,3.3) Text(106,149,TA_CENTER|TA_BaseLine,'dále jen „DAP“') FontSize(3.7) FontFace(BOLD) Text(106,7,TA_CENTER|TA_BaseLine,'Než začnete vyplňovat tiskopis, přečtěte si, prosím, pokyny.'); Text(106,158,TA_Center|TA_BaseLine,'1. ODDÍL - Údaje o poplatníkovi') Pen(0,0.3) RoundBox(18,160,174.5,20,3.3,3.3) Pen(0,0.1) Line(18,170,174.5,0) Line(88,160,0,20) Line(152,160,0,10) Line(133,170,0,10) FontSize(3.2) FontFace(NORMAL) Text(20,163,TA_Left|TA_BaseLine,'06 Příjmení') Text(90,163,TA_Left|TA_BaseLine,'07 Rodné příjmení') Text(154,163,TA_Left|TA_BaseLine,'08 Jméno (-a)') Text(20,173,TA_Left|TA_BaseLine,'09 Titul') Text(90,173,TA_Left|TA_BaseLine,'10 Státní příslušnost') Text(135,173,TA_Left|TA_BaseLine,'11 Číslo pasu') FontSize(3.7) FontFace(BOLD) Text(18,184.5,TA_Left|TA_BaseLine,'Adresa bydliště (místa trvalého pobytu) v den podání DAP') Pen(0,0.3) RoundBox(18,186.5,174.5,20,3.3,3.3) Pen(0,0.1) Line(18,196.5,174.5,0) Line(73,186.5,0,10) Line(153,186.5,0,20) Line(44,196.5,0,10) Line(88,196.5,0,10) FontSize(3.2) FontFace(NORMAL) Text(20,189.5,TA_Left|TA_BaseLine,'12 Obec') Text(75,189.5,TA_Left|TA_BaseLine,'13 Ulice / část obce') XText(155,189.5,37,TA_Left|TA_BaseLine,'14 Číslo popisné / orientační') Text(20,199.5,TA_Left|TA_BaseLine,'15 PSČ') XText(46,199.5,43,TA_Left|TA_BaseLine,'16 Telefon / mobilní telefon') Text(90,199.5,TA_Left|TA_BaseLine,'17 Fax / e-mail') Text(155,199.5,TA_Left|TA_BaseLine,'18 Stát') FontSize(3.7) FontFace(BOLD) XText(18,211.5,175,TA_Left|TA_BaseLine,'Adresa bydliště (místa trvalého pobytu) k poslednímu dni kalendářního roku, za který se daň vyměřuje') FontSize(3.2) FontFace(NORMAL) XText(18,215,175,TA_Left|TA_BaseLine,'Řádky 19 až 22 vyplňte pouze v případě, že adresa k poslednímu dni kalendářního roku, za který se DAP podává, je rozdílná od adresy') Text(18,218,TA_Left|TA_BaseLine,'v den podání DAP.') Pen(0,0.3) RoundBox(18,220.5,174.5,10,3.3,3.3) Pen(0,0.1) Line(73,220.5,0,10) Line(128,220.5,0,10) Line(168,220.5,0,10) Text(20,223.5,TA_Left|TA_BaseLine,'19 Obec') Text(75,223.5,TA_Left|TA_BaseLine,'20 Ulice / část obce') XText(130,223.5,37,TA_Left|TA_BaseLine,'21 Číslo popisné / orientační') Text(170,223.5,TA_Left|TA_BaseLine,'22 PSČ') FontSize(3.7) FontFace(BOLD) XText(18,235.5,175,TA_Left|TA_BaseLine,'Adresa pobytu na území České republiky, kde se poplatník obvykle ve zdaňovacím období zdržoval') FontSize(3.2) FontFace(NORMAL) XText(18,239,175,TA_Left|TA_BaseLine,'Řádky 23 až 28 vyplňte pouze v případě, že nemáte bydliště (trvalý pobyt) na území České republiky') Pen(0,0.3) RoundBox(18,240.5,174.5,20,3.3,3.3) Pen(0,0.1) Line(18,250.5,174.5,0) Line(73,240.5,0,20) Line(122,250.5,0,10) Line(153,240.5,0,10) Text(20,243.5,TA_Left|TA_BaseLine,'23 Obec') Text(75,243.5,TA_Left|TA_BaseLine,'24 Ulice / část obce') XText(155,243.5,37,TA_Left|TA_BaseLine,'25 Číslo popisné / orientační') Text(20,253.5,TA_Left|TA_BaseLine,'26 PSČ') XText(75,253.5,46,TA_Left|TA_BaseLine,'27 Telefon / mobilní telefon') Text(124,253.5,TA_Left|TA_BaseLine,'28 Fax / e-mail') FontSize(3.2) FontFace(NORMAL) XText(18,266,56,TA_Left|TA_BaseLine,'29 Kód státu - vyplní jen daňový nerezident') Pen(0,0.1) RoundBox(77,262,10.5,6,3.3,3.3) RoundBox(149.5,262,42,6,3.3,3.3) Text(148,266,TA_Right|TA_BaseLine,'29a Výše celosvětových příjmů') Text(187,266,TA_Left|TA_BaseLine,'Kč') FontSize(3.2) FontFace(NORMAL) XText(18,275.5,85,TA_Left|TA_BaseLine,'30 Spojení se zahraničními osobami') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(74,275.5,TA_RIGHT|TA_BaseLine,'ano') Text(94,275.5,TA_RIGHT|TA_BaseLine,'ne') Pen(0,0.1) RoundBox(77,271,10.5,6,3.3,3.3) RoundBox(97,271,10.5,6,3.3,3.3) FontSize(2.5) Text(18,282,TA_Left|TA_BaseLine,'25 5405 MFin 5405 vzor č. 17') Text(193,282,TA_RIGHT|TA_BaseLine,'Vytištěno systémem WinDUO') FontSize(3.2) Text(106,284,TA_CENTER|TA_BaseLine,'1') ;{Tisk hodnot 1. strany} if(Prazdny) goto(KonecUdaju1) FontSize(3.2) FontFace(Italic|BOLD) Text(21,17.5,TA_Left|TA_BaseLine,FinancniUrad) FontSize(3.8) SText(30,29.5,TA_Left|TA_BaseLine,5,10,FromChar('Z',Program.DIC)) SText(20,41.5,TA_Left|TA_BaseLine,5,11,Copy(RodneCislo,1,6)+' '+Copy(RodneCislo,7,255)) FontSize(3.2) if((TypPriz1=0)or(TypPriz1=1)) begin Line(24,69,6.5,4) Line(24,73,6.5,-4) end if((TypPriz1=2)or(TypPriz1=3)) begin Line(70,69,6.5,4) Line(70,73,6.5,-4) end; if((TypPriz1=1)or(TypPriz1=3)) begin Line(47,69,6.5,4) Line(47,73,6.5,-4) end; Stext(154.5,72.5,TA_Left|TA_BaseLine,5,2,Day(DatumDodat,2)) Stext(164.5,72.5,TA_Left|TA_BaseLine,5,2,Month(DatumDodat,2)) Stext(174.5,72.5,TA_Left|TA_BaseLine,5,4,Year(DatumDodat,4)) if(KodRozlis1<>0) Text(27.5,83.5,TA_Center|TA_BaseLine,Copy(' GI',KodRozlis1+1,1)) FontSize(VyskaFontuHodn) FontFace(Italic|BOLD) Stext(154.5,91.5,TA_Left|TA_BaseLine,5,2,Day(DatumRozlis,2)) Stext(164.5,91.5,TA_Left|TA_BaseLine,5,2,Month(DatumRozlis,2)) Stext(174.5,91.5,TA_Left|TA_BaseLine,5,4,Year(DatumRozlis,4)) if(PoradceAnoNe) begin Line(165,95,6.5,4) Line(165,99,6.5,-4) end else begin Line(185,95,6.5,4) Line(185,99,6.5,-4) end if(OverAuditAnoNe) begin Line(165,103,6.5,4) Line(165,107,6.5,-4) end else begin Line(185,103,6.5,4) Line(185,107,6.5,-4) end XText(99,143.5,15,TA_Center|TA_BaseLine,Str(Obdobi,4,0)) XText(151,143.5,15,TA_Center|TA_BaseLine,StrDate(DatumOd)) XText(175,143.5,15,TA_Center|TA_BaseLine,StrDate(DatumDo)) XText(53,168,64,TA_Center|TA_BaseLine,Prijmeni) XText(120,168,60,TA_Center|TA_BaseLine,RodnePrijmeni) XText(172,168,37,TA_Center|TA_BaseLine,Jmeno) XText(53,178,64,TA_Center|TA_BaseLine,Titul) XText(110,178,40,TA_Center|TA_BaseLine,StatPrislusnost) XText(164,178,52,TA_Center|TA_BaseLine,CisloPasu) XText(40,194.5,52,TA_Center|TA_BaseLine,Obec) XText(113,194.5,77,TA_Center|TA_BaseLine,UliceBC) LocStr=UliceCO; if(Length(UliceCO)=0) begin LocStr=UliceCP; end else if(Length(UliceCP)<>0) begin LocStr=LocStr+'/'+UliceCP; end; XText(173,194.5,36,TA_Center|TA_BaseLine,LocStr) XText(31,204.5,22,TA_Center|TA_BaseLine,PSCdapb) XText(66,204.5,43,TA_Center|TA_BaseLine,Telefon) LocStr=Fax; if(Length(LocStr)=0) begin LocStr=EMail; end else if(Length(EMail)<>0) begin LocStr=LocStr+'/'+EMail; end; XText(120,204.5,62,TA_Center|TA_BaseLine,LocStr) XText(173,204.5,36,TA_Center|TA_BaseLine,Stat) XText(46,228.5,52,TA_Center|TA_BaseLine,ObecTP) XText(100,228.5,52,TA_Center|TA_BaseLine,UliceBCTP) LocStr=UliceCOTP; if(Length(UliceCOTP)=0) begin LocStr=UliceCPTP; end else if(Length(UliceCPTP)<>0) begin LocStr=LocStr+'/'+UliceCPTP; end; xText(148,228.5,38,TA_Center|TA_BaseLine,LocStr) XText(180,228.5,22,TA_Center|TA_BaseLine,PSCTP) XText(46,248.5,52,TA_Center|TA_BaseLine,ObecZdrz) XText(113,248.5,77,TA_Center|TA_BaseLine,UliceBCZdrz) LocStr=UliceCOZdrz; if(Length(UliceCOZdrz)=0) begin LocStr=UliceCPZdrz; end else if(Length(UliceCPZdrz)<>0) begin LocStr=LocStr+'/'+UliceCPZdrz; end; XText(173,248.5,36,TA_Center|TA_BaseLine,LocStr) XText(46,258.5,52,TA_Center|TA_BaseLine,PSCZdrz) XText(97,258.5,46,TA_Center|TA_BaseLine,TelefonZdrz) LocStr=FaxZdrz; if(Length(LocStr)=0) begin LocStr=EMailZdrz; end else if(Length(EMailZdrz)<>0) begin LocStr=LocStr+'/'+EMailZdrz; end; XText(157,258.5,68,TA_Center|TA_BaseLine,LocStr) Text(82.25,266,TA_Center|TA_BaseLine,KodStat) XText(185,266,33,TA_RIGHT|TA_BaseLine,Celosvetove) if(EkPropojeniAnoNe) begin Line(79,272,6.5,4) Line(79,276,6.5,-4) end else begin Line(99,272,6.5,4) Line(99,276,6.5,-4) end KonecUdaju1: NextPage; ;{******************************************************************************************************************} ;{ tisk 2. strany } FontSize(3.7) FontFace(BOLD) Text(94,6,TA_CENTER|TA_BaseLine,'2. ODDÍL - Základ daně, ztráta') XText(7,10,174.5,TA_Left|TA_BaseLine,'1. Výpočet dílčího základu daně z příjmů fyzických osob ze závislé činnosti a z funkčních požitků (§ 6 zákona)') Pen(0,0.3) RoundBox(7,12,174.5,40,3.3,3.3) Pen(0,0.1) LineS(7,17,174.5,0,0,7,5) LineS(91.5,12,0,40,45,0,2) XText(7,56,174.5,TA_Left|TA_BaseLine,'2. Dílčí základy daně z příjmů fyzických osob podle § 6, § 7, § 8, § 9 a § 10 zákona, základ daně a ztráta') Pen(0,0.3) RoundBox(7,58,174.5,79.5,3.3,3.3) Pen(0,0.1) Line(7,63,174.5,0) Line(7,72.5,174.5,0) Line(7,80,174.5,0) Line(7,85,174.5,0) Line(7,92.5,174.5,0) Line(7,100,174.5,0) Line(7,105,174.5,0) Line(7,112.5,174.5,0) Line(7,120,174.5,0) Line(7,125,174.5,0) Line(7,132.5,174.5,0) LineS(91.5,58,0,79.5,45,0,2) Text(94,141.5,TA_CENTER|TA_BaseLine,'3. ODDÍL - Nezdanitelné části základu daně, odčitatelné položky a daň celkem') Pen(0,0.3) RoundBox(7,143.5,174.5,46.5,3.3,3.3) RoundBox(7,191,174.5,30,3.3,3.3) Pen(0,0.1) LineS(7,150,174.5,0,0,5,8) LineS(91.5,143.5,0,46.5,45,0,2) LineS(103.5,143.5,0,46.5,45,0,2) Line(32,185,0,5) Lines(91.5,191,0,30,45,0,2) Line(7,201,174.5,0) Line(7,211,174.5,0) Line(7,216,174.5,0) Text(106,225,TA_CENTER|TA_BaseLine,'4. ODDÍL - Daň celkem, ztráta') Pen(0,0.3) RoundBox(7,227,174.5,28,3.3,3.3) Pen(0,0.1) LineS(7,234,174.5,0,0,7,3) Lines(91.5,227,0,28,45,0,2) Text(106,259,TA_CENTER|TA_BaseLine,'5. ODDÍL - Uplatnění slev na dani a daňového zvýhodnění') Pen(0,0.3) RoundBox(7,261,174.5,10,3.3,3.3) Pen(0,0.1) Line(7,266,174.5,0) Lines(91.5,261,0,10,45,0,2) FontSize(3.3) FontFace(Normal) XText(114,15.5,43,TA_CENTER|TA_BaseLine,'poplatník'); XText(159,15.5,43,TA_CENTER|TA_BaseLine,'finanční úřad'); TabPos=21.5 XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'31'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn příjmů od všech zaměstnavatelů'); Inc(TabPos,7); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'32'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn pojistného podle § 6 odst.13 zákona'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,''); Inc(TabPos,7); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'33'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Daň zaplacená v zahraničí podle § 6 odst. 14 zákona'); Inc(TabPos,7); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'34'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně podle § 6 zákona (ř. 31 + ř. 32 - ř. 33)'); Inc(TabPos,5.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'35'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn příjmů plynoucí ze zahraničí zvýšený o pojistné'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'podle § 6 odst.13 zákona'); TabPos=62 XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'36'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně ze závislé činnosti podle § 6 zákona (ř. 34)'); Inc(TabPos,4.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'36a'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně ze závislé činnosti podle § 6 zákona po vynětí'); XText(15,TabPos+2.5,75,TA_Left|TA_BaseLine,'(ř. 36 - úhrn vyňatých příjmů ze zdrojů v zahraničí podle § 6 zákona'); XText(15,TabPos+5,75,TA_Left|TA_BaseLine,'nebo ř. 36)'); Inc(TabPos,9.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'37'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně nebo ztráta z podnikání a z jiné samostatné'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'výdělečné činnosti podle §7 zákona (ř. 113 přílohy č. 1 DAP)'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'38'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně z kapitálového majetku podle § 8 zákona'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'39'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně nebo ztráta z pronájmu podle § 9 zákona'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'(ř. 206 přílohy č. 2 DAP)'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'40'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Dílčí základ daně z ostatních příjmů podle § 10 zákona'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'(ř. 209 přílohy č. 2 DAP)'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'41'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn řádků (ř. 37 + ř. 38 + ř. 39 + ř. 40).'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'41a'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn dílčích základů daně podle § 7 až § 10 zákona po vynětí (ř. 41 - úhrn'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'vyňatých příjmů ze zdrojů v zahraničí podle §7 až § 10 zákona nebo ř. 41)'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'42'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Základ daně'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'(ř. 36a + kladná hodnota z ř. 41a)'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'43'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'(neobsazeno)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'44'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Uplatňovaná výše ztráty - vzniklé a vyměřené za předcházející'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'zdaňovací období maximálně do výše ř. 41a'); Inc(TabPos,7.5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'45'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Základ daně po odečtení ztráty (ř. 42 - ř. 44)'); TabPos=148 XText(9,TabPos,81,TA_Left|TA_BaseLine,'Částka podle § 15'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'46'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 1 zákona (hodnota daru/darů)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'47'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 3 a 4 zákona (odečet úroků)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'48'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 5 zákona (penzijní připojištění)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'49'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 6 zákona (životní pojištění)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'50'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 7 zákona (odborové příspěvky)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'51'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Odst. 8 zákona (úhrada za další vzdělávání)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'52'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'§ 34 odst. 4 zákona (výzkum a vývoj)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'53'); XText(15,TabPos,16,TA_Left|TA_BaseLine,'Další částky'); Inc(TabPos,6); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'54'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Úhrn nezdanitelných částí základu daně a položek'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'odčitatelných od základu daně (ř. 46 + ř.47 + ř. 48 +'); XText(15,TabPos+6,75,TA_Left|TA_BaseLine,'ř. 49 + ř.50 + ř. 51 + ř.52 + ř. 53)'); Inc(TabPos,10); XText(9,TabPos+1,5.5,TA_Left|TA_BaseLine,'55'); XText(15,TabPos+1,75,TA_Left|TA_BaseLine,'Základ daně snížený o nezdanitelné části základu daně'); XText(15,TabPos+4,75,TA_Left|TA_BaseLine,'a položky odčitatelné od základu daně (ř. 45 - ř.54)'); Inc(TabPos,10); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'56'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Základ daně zaokrouhlený na celá sta Kč dolů'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'57'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Daň podle § 16 zákona'); TabPos=230 XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'58'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Daň podle § 16 zákona (ř.57) nebo částka'); XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'z ř. 330 přílohy č. 3 DAP'); Inc(TabPos,7); XText(9,TabPos+1.5,5.5,TA_Left|TA_BaseLine,'59'); XText(15,TabPos+1.5,75,TA_Left|TA_BaseLine,'(neobsazeno)'); Inc(TabPos,9); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'60'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Daň celkem zaokrouhlená'); FontFace(Bold) XText(0,0,75,TA_Left|TA_RELATIVE|TA_BaseLine,' na celé Kč'); FontFace(Normal) XText(0,0,75,TA_Left|TA_RELATIVE|TA_BaseLine,' nahoru (ř. 58)'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'61'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Daňová ztráta - zaokrouhlená'); FontFace(Bold) XText(0,0,75,TA_Left|TA_RELATIVE|TA_BaseLine,' na celé Kč'); FontFace(Normal) XText(0,0,75,TA_Left|TA_RELATIVE|TA_BaseLine,' nahoru'); FontFace(Bold) XText(15,TabPos+3,75,TA_Left|TA_BaseLine,'bez znaménka mínus'); FontFace(Normal) TabPos=264.5 XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'62'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Slevy celkem podle § 35 odst. 1 zákona'); Inc(TabPos,5); XText(9,TabPos,5.5,TA_Left|TA_BaseLine,'63'); XText(15,TabPos,75,TA_Left|TA_BaseLine,'Sleva podle § 35 odst. 6 až 8, §35a nebo § 35b zákona'); FontSize(2.8) XText(98,146.5,10,TA_CENTER|TA_BaseLine,'Počet'); XText(98,149,10,TA_CENTER|TA_BaseLine,'měsíců'); XText(143,146.5,10,TA_CENTER|TA_BaseLine,'Počet'); XText(143,149,10,TA_CENTER|TA_BaseLine,'měsíců'); FontSize(3.2) Text(94,284,TA_CENTER|TA_BaseLine,'2') ;{Tisk hodnot 2. strany} if(Prazdny) goto(KonecUdaju2) FontSize(VyskaFontuHodn) FontFace(Italic|BOLD) TiskSkrt(D31,133.5,22,1) TiskSkrt(D32,133.5,29,1) TiskSkrt(D33,133.5,36,1) TiskSkrt(D34,133.5,43,1) TiskSkrt(D35,133.5,50,1) TiskSkrt(D36,133.5,62,1) TiskSkrt(D36a,133.5,69,1) TiskSkrt(D37,133.5,77,1) TiskSkrt(D38,133.5,83.5,1) TiskSkrt(D39,133.5,89.5,1) TiskSkrt(D40,133.5,97,1) TiskSkrt(D41,133.5,103.5,1) TiskSkrt(D41a,133.5,109.5,1) TiskSkrt(D42,133.5,117,1) TiskSkrt(D44,133.5,129.5,1) TiskSkrt(D45,133.5,136,1) TiskSkrt(D46,133.5,154,1) TiskSkrt(D47m,100,159,2) TiskSkrt(D47,133.5,159,1) TiskSkrt(D48,133.5,164,1) TiskSkrt(D49,133.5,169,1) TiskSkrt(D50,133.5,174,1) TiskSkrt(D51,133.5,179,1) TiskSkrt(D52,133.5,184,1) Text(35,189,TA_Left|TA_BaseLine,D53T) TiskSkrt(D53M,100,189,2) TiskSkrt(D53,133.5,189,1) TiskSkrt(D54,133.5,197,1) TiskSkrt(D55,133.5,207,1) TiskSkrt(D56,133.5,215,1) TiskSkrt(D57,133.5,220,1) TiskSkrt(D58,133.5,232.5,1) TiskSkrt(D60,133.5,246,1) TiskSkrt(D61,133.5,253,1) TiskSkrt(D62,133.5,264.5,1) TiskSkrt(D63,133.5,269.5,1) KonecUdaju2: NextPage ;{******************************************************************************************************************} ;{ tisk 3. strany } Pen(0,0.3) RoundBox(18,16,174.5,7,3.3,3.3) Pen(0,0.1) Line(136.5,16,0,7) LineS(47,16,0,7,108,0,2); Pen(0,0.3) RoundBox(18,25,175,60,3.3,3.3) Pen(0,0.1) LineS(18,31,174.5,0,0,6,9) LineS(102.5,25,0,60,45,0,2) LineS(114.5,25,0,60,45,0,2) ;{tab 2} Pen(0,0.3) RoundBox(18,91,174.5,35,3.3,3.3) Pen(0,0.1) Line(23,98,169.5,0) LineS(18,102,174.5,0,0,4.5,5) LineS(23,91,0,35,95,0,2) LineS(152.5,91,0,35,20,0,2) TabPos=127 Pen(0,0.3) RoundBox(18,TabPos,174.5,18,3.3,3.3) Pen(0,0.1) LineS(18,TabPos+6,174.5,0,0,6,2) LineS(102.5,TabPos,0,18,45,0,2) TabPos=146 Pen(0,0.3) RoundBox(18,TabPos,174.5,18,3.3,3.3) Pen(0,0.1) LineS(18,TabPos+6,174.5,0,0,6,2) LineS(102.5,TabPos,0,18,45,0,2) TabPos=170 Pen(0,0.3) RoundBox(18,TabPos,174.5,42,3.3,3.3) Pen(0,0.1) LineS(18,TabPos+7,174.5,0,0,7,5) LineS(102.5,TabPos,0,42,45,0,2) TabPos=218 Pen(0,0.3) RoundBox(18,TabPos,174.5,63,3.3,3.3) Pen(0,0.1) LineS(18,TabPos+7,174.5,0,0,7,8) LineS(102.5,TabPos,0,63,56,0,2) FontSize(3.4) FontFace(BOLD) XText(18,13,174.5,TA_Left|TA_BaseLine,'Tab. č. 1 ÚDAJE O MANŽELCE (MANŽELOVI)') XText(18,89,174.5,TA_Left|TA_BaseLine,'Tab. č. 2 ÚDAJE O DĚTECH ŽIJÍCÍCH V DOMÁCNOSTI') FontSize(3.7) FontFace(BOLD) Text(106,168,TA_CENTER|TA_BaseLine,'6. ODDÍL - Dodatečné DAP') Text(106,216,TA_CENTER|TA_BaseLine,'7. ODDÍL - Placení daně') FontSize(2.8) FontFace(Normal) XText(108.5,27.5,10,TA_CENTER|TA_BaseLine,'Počet'); XText(108.5,30,10,TA_CENTER|TA_BaseLine,'měsíců'); XText(153.5,27.5,10,TA_CENTER|TA_BaseLine,'Počet'); XText(153.5,30,10,TA_CENTER|TA_BaseLine,'měsíců'); FontSize(3.3) FontFace(Normal) TabPos=19 XText(20,TabPos,50,TA_Left|TA_BaseLine,'Příjmení, jméno, titul'); XText(20,TabPos+3,50,TA_Left|TA_BaseLine,'manželky (manžela)'); XText(138,TabPos+1.5,50,TA_Left|TA_BaseLine,'Rodné číslo'); TabPos=29 XText(20,TabPos,75,TA_Left|TA_BaseLine,'Částka podle § 35ba odst. 1'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'64'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'písm. a) zákona (na poplatníka)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'65a)'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'písm. b) zákona (na manželku/manžela)'); Inc(TabPos,6); XText(20,TabPos-1.5,5.5,TA_Left|TA_BaseLine,'65b)'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'písm. b) zákona (na manželku/manžela,'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'která/který je držitelem ZTP/P)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'66'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'písm. c) zákona (na poživatele invalidního důchodu'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'pro invaliditu prvního nebo druhého stupně)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'67'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'písm. d) zákona (na poživatele invalidního důchodu)'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'pro invaliditu třetího stupně)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'68'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'písm. e) zákona (na držitele průkazu ZTP/P)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'69'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'písm. f) zákona (studium)'); Inc(TabPos,6); XText(20,TabPos-1.5,5.5,TA_Left|TA_BaseLine,'70'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'Úhrn slev na dani podle § 35, §35 a, § 35b a § 35ba zákona'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'(ř.62 + ř.63 + ř.64 + ř.65a + ř.65b + ř.66 + ř.67 + ř.68 + ř.69)'); Inc(TabPos,6); XText(20,TabPos-1.5,5.5,TA_Left|TA_BaseLine,'71'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'Daň po uplatnění slev podle § 35, §35a, §35b a § 35ba'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'zákona (ř. 60 – ř. 70)'); TabPos=105.5 XText(20.5,TabPos,4,TA_CENTER|TA_BaseLine,'1'); XText(20.5,TabPos+4.5,4,TA_CENTER|TA_BaseLine,'2'); XText(20.5,TabPos+9,4,TA_CENTER|TA_BaseLine,'3'); XText(20.5,TabPos+13.5,4,TA_CENTER|TA_BaseLine,'4'); XText(24.5,TabPos+18,90,TA_Left|TA_BaseLine,'Celkem'); XText(70.5,TabPos-9.5,93,TA_CENTER|TA_BaseLine,'Příjmení a jméno (-a)'); XText(70.5,TabPos-4.5,93,TA_CENTER|TA_BaseLine,'1'); XText(135.5,TabPos-9.5,33,TA_CENTER|TA_BaseLine,'Rodné číslo'); XText(135.5,TabPos-4.5,33,TA_CENTER|TA_BaseLine,'2'); XText(162.5,TabPos-9.5,18,TA_CENTER|TA_BaseLine,'Počet měsíců'); XText(162.5,TabPos-4.5,18,TA_CENTER|TA_BaseLine,'3'); XText(182.5,TabPos-11.5,18,TA_CENTER|TA_BaseLine,'Počet měsíců'); XText(182.5,TabPos-8.5,18,TA_CENTER|TA_BaseLine,'se ZTP/P; XText(182.5,TabPos-4.5,18,TA_CENTER|TA_BaseLine,'4'); TabPos=131 XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'72'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Daňové zvýhodnění na vyživované dítě'); Inc(TabPos,6); XText(20,TabPos-1.5,5.5,TA_Left|TA_BaseLine,'73'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'Sleva na dani (částka z ř. 72, uplatněná maximálně'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'do výše daně na ř. 71)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'74'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Daň po uplatnění slevy podle § 35c zákona (ř. 71 – ř. 73)'); TabPos=150 XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'75'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Daňový bonus (ř. 72 - ř. 73)'); Inc(TabPos,6); XText(20,TabPos-1.5,5.5,TA_Left|TA_BaseLine,'76'); XText(26,TabPos-1.5,75,TA_Left|TA_BaseLine,'Úhrn vyplacených měsíčních daňových bonusů podle § 35d'); XText(26,TabPos+1.5,75,TA_Left|TA_BaseLine,'zákona (včetně případného doplatku na daňovém bonusu)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'77'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Rozdíl na daňovém bonusu (ř. 75 - ř. 76)'); TabPos=174 XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'78'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Poslední známá daňová povinnost'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'79'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Zjištěná daň podle § 141 zákona č. 280/2009 Sb., daňového'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'řádu (ř. 74)'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'80'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Rozdíl řádků (ř. 79 – ř. 78) : zvýšení (+) částka daně'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'se zvyšuje, snížení (–) částka daně se snižuje'); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'81'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Poslední známá daň - daňová ztráta podle § 5 zákona'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'82'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Zjištěná ztráta podle § 141 zákona č. 280/2009 Sb.,'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'daňového řádu (ř. 61)'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'83'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Rozdíl řádků (ř. 82 – ř. 81) : zvýšení (+) - daňová ztráta'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'se zvyšuje, snížení (–) daňová ztráta se snižuje'); TabPos=222 XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'84'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Úhrn sražených záloh na daň z příjmů ze závislé činnosti'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'a z funkčních požitků (po slevách na dani)'); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'85'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Na zbývajících zálohách zaplaceno poplatníkem celkem'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'86'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Zaplacená daň stanovená paušální částkou podle § 7a'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'zákona'); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'87'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Sražená daň podle § 36 odst. 6 zákona (státní dluhopisy)'); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'87 a'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Sražená daň podle § 36 odst. 7 zákona '); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'88'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Zajištěná daň plátcem podle § 38e zákona'); Inc(TabPos,7); XText(20,TabPos,5.5,TA_Left|TA_BaseLine,'89'); XText(26,TabPos,75,TA_Left|TA_BaseLine,'Sražená daň podle § 38f odst. 12 zákona'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'90'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Zaplacená daňová povinnost (záloha)'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'podle § 38gb odst. 4 zákona'); Inc(TabPos,7); XText(20,TabPos-1,5.5,TA_Left|TA_BaseLine,'91'); XText(26,TabPos-1,75,TA_Left|TA_BaseLine,'Zbývá doplatit (ř. 74 – ř. 77 – ř. 84 – ř. 85 – ř. 86 – ř. 87 –'); XText(26,TabPos+2,75,TA_Left|TA_BaseLine,'-87a – ř. 88 – ř. 89 – ř. 90) : (+) zbývá doplatit, (–) zaplaceno více'); FontSize(3.2) Text(106,284,TA_CENTER|TA_BaseLine,'3') ;{Tisk hodnot 3. strany} if(Prazdny) goto(KonecUdaju3) FontSize(VyskaFontuHodn) FontFace(Italic|BOLD) if(Length(ManzelRC)>0) begin LocStr=XTrim(ManzelPrijmeni+' '+ManzelJmeno) Text(50,20.5,TA_Left|TA_BaseLine,LocStr) Text(160,20.5,TA_Left|TA_BaseLine,ManzelRC) end else begin Text(50,20.5,TA_Left|TA_BaseLine,skrt) Text(160,20.5,TA_Left|TA_BaseLine,skrt) end; TiskSkrt(D64,140,35.5,1) TiskSkrt(D65am,110,41.5,0) TiskSkrt(D65a,140,41.5,1) TiskSkrt(D65bm,110,47.5,0) TiskSkrt(D65b,140,47.5,1) TiskSkrt(D66m,110,53.5,0) TiskSkrt(D66,140,53.5,1) TiskSkrt(D67m,110,59.5,0) TiskSkrt(D67,140,59.5,1) TiskSkrt(D68m,110,65.5,0) TiskSkrt(D68,140,65.5,1) TiskSkrt(D69m,110,71.5,0) TiskSkrt(D69,140,71.5,1) TiskSkrt(D70,140,77.5,1) TiskSkrt(D71,140,83.5,1) ;dite 1 LocStr=XTrim(DitePrijmeni[1]+' '+DiteJmeno[1]) if(Length(Trim(LocStr))<>0) XText(25,105.5,92,TA_Left|TA_BaseLine,LocStr) else Text(25,105.5,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DiteRC[1]))<>0) XText(135,105.5,32,TA_Center|TA_BaseLine,DiteRC[1]) else Text(135,105.5,TA_Center|TA_BaseLine,skrt) if(DiteMesic[1]<>0) Text(162.5,105.5,TA_Center|TA_BaseLine,DiteMesic[1]) else Text(162.5,105.5,TA_Center|TA_BaseLine,skrt) if(DiteZTP[1]<>0) Text(182.5,105.5,TA_Center|TA_BaseLine,DiteZTP[1]) else Text(182.5,105.5,TA_Center|TA_BaseLine,skrt) ;dite 2 LocStr=XTrim(DitePrijmeni[2]+' '+DiteJmeno[2]) if(Length(Trim(LocStr))<>0) XText(25,110,92,TA_Left|TA_BaseLine,LocStr) else Text(25,110,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DiteRC[2]))<>0) XText(135,110,32,TA_Center|TA_BaseLine,DiteRC[2]) else Text(135,110,TA_Center|TA_BaseLine,skrt) if(DiteMesic[2]<>0) Text(162.5,110,TA_Center|TA_BaseLine,DiteMesic[2]) else Text(162.5,110,TA_Center|TA_BaseLine,skrt) if(DiteZTP[2]<>0) Text(182.5,110,TA_Center|TA_BaseLine,DiteZTP[2]) else Text(182.5,110,TA_Center|TA_BaseLine,skrt) ;dite 3 LocStr=XTrim(DitePrijmeni[3]+' '+DiteJmeno[3]) if(Length(Trim(LocStr))<>0) XText(25,114.5,92,TA_Left|TA_BaseLine,LocStr) else Text(25,114.5,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DiteRC[3]))<>0) XText(135,114.5,32,TA_Center|TA_BaseLine,DiteRC[3]) else Text(135,114.5,TA_Center|TA_BaseLine,skrt) if(DiteMesic[3]<>0) Text(162.5,114.5,TA_Center|TA_BaseLine,DiteMesic[3]) else Text(162.5,114.5,TA_Center|TA_BaseLine,skrt) if(DiteZTP[3]<>0) Text(182.5,114.5,TA_Center|TA_BaseLine,DiteZTP[3]) else Text(182.5,114.5,TA_Center|TA_BaseLine,skrt) ;dite 4 LocStr=XTrim(DitePrijmeni[4]+' '+DiteJmeno[4]) if(Length(Trim(LocStr))<>0) XText(25,119,92,TA_Left|TA_BaseLine,LocStr) else Text(25,119,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DiteRC[4]))<>0) XText(135,119,32,TA_Center|TA_BaseLine,DiteRC[4]) else Text(135,119,TA_Center|TA_BaseLine,skrt) if(DiteMesic[4]<>0) Text(162.5,119,TA_Center|TA_BaseLine,DiteMesic[4]) else Text(162.5,119,TA_Center|TA_BaseLine,skrt) if(DiteZTP[4]<>0) Text(182.5,119,TA_Center|TA_BaseLine,DiteZTP[4]) else Text(182.5,119,TA_Center|TA_BaseLine,skrt) if(DiteMesicC<>0) Text(162.5,124,TA_Center|TA_BaseLine,DiteMesicC) else Text(162.5,124,TA_Center|TA_BaseLine,skrt) if(DiteZTPC<>0) Text(182.5,124,TA_Center|TA_BaseLine,DiteZTPC) else Text(182.5,124,TA_Center|TA_BaseLine,skrt) TiskSkrt(D72,140,131.5,1) TiskSkrt(D73,140,137.5,1) D74=D71-D73 TiskSkrt(D74,140,143.5,1) D75=D72-D73 TiskSkrt(D75,140,150.5,1) TiskSkrt(D76,140,156.5,1) D77=D75-D76 TiskSkrt(D77,140,162.5,1) TiskSkrt(D78,140,175,1) TiskSkrt(D79,140,182,1) D80=D79-D78 TiskSkrt(D80,140,189,1) TiskSkrt(D81,140,196,1) TiskSkrt(D82,140,203,1) D83=D82-D81 TiskSkrt(D83,140,210,1) TiskSkrt(D84,140,223,1) TiskSkrt(D85,140,230,1) TiskSkrt(D86,140,237,1) TiskSkrt(D87,140,244,1) TiskSkrt(D87a,140,251,1) TiskSkrt(D88,140,258,1) TiskSkrt(D89,140,265,1) TiskSkrt(D90,140,272,1) D91=D74-D77-D84-D85-D86-D87-D87a-D88-D89-D90 TiskSkrt(D91,140,279,1) KonecUdaju3: NextPage ;{******************************************************************************************************************} ;{ tisk 4. strany } FontSize(3.7) FontFace(Bold) XText(7,6,175,TA_Left|TA_BaseLine,'Přílohy DAP:') Pen(0,0.3) RoundBox(7,12,175,88,3.3,3.3) Pen(0,0.1) LineS(7,16,175,0,0,6,14) Line(171,12,0,88) FontSize(3.3) FontFace(Normal) Text(7,9.5,TA_Left|TA_BaseLine,'Ve sloupci uveďte počet listů příloh.'); XText(9,15,160,TA_Left|TA_BaseLine,'Název přílohy'); XText(9,20,160,TA_Left|TA_BaseLine,'Příloha č. 1 - „Výpočet dílčího základu daně z příjmů z podnikání a z jiné samostatné výdělečné činnosti (§ 7 zákona)“'); XText(9,26,160,TA_Left|TA_BaseLine,'Příloha č. 2 - „Výpočet dílčích základů daně z příjmů z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)“'); XText(9,32,160,TA_Left|TA_BaseLine,'Příloha č. 3 - „Výpočet daně z příjmů ze zahraničí (§ 38f zákona)" včetně Samostatných listů 1. oddílu'); XText(9,38,160,TA_Left|TA_BaseLine,'Účetní závěrka poplatníka, který vede účetnictví'); XText(9,44,160,TA_Left|TA_BaseLine,'Seznam pro poplatníky uplatňující nárok na vyloučení dvojího zdanění podle § 38f odst. 10 zákona'); XText(9,48.5,160,TA_Left|TA_BaseLine,'„Potvrzení o zdanitelných příjmech ze závislé činnosti a z funkčních požitků a o sražených zálohách na daň a daňovém'); XText(9,51.5,160,TA_Left|TA_BaseLine,'zvýhodnění“ za příslušné zdaňovací období od všech zaměstnavatelů (např. podle § 38j odst. 3 zákona)'); XText(9,56,160,TA_Left|TA_BaseLine,'Doklad o poskytnutém daru'); XText(9,62,160,TA_Left|TA_BaseLine,'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru'); XText(9,68,160,TA_Left|TA_BaseLine,'Potvrzení o zaplacených částkách na penzijní připojištění'); XText(9,74,160,TA_Left|TA_BaseLine,'Potvrzení o zaplacených částkách na soukromé životní pojištění'); XText(9,80,160,TA_Left|TA_BaseLine,'Potvrzení o zaplacené úhradě na další vzdělávání'); XText(9,86,160,TA_Left|TA_BaseLine,'Důvody pro podání dodatečného DAP'); XText(9,92,160,TA_Left|TA_BaseLine,'Další přílohy výše neuvedené'); XText(9,98,160,TA_Left|TA_BaseLine,'Počet listů příloh celkem'); TabPos=111 Pen(0,0.7) Line(7,TabPos-3,174.5,0) Pen(0,0.3) RoundBox(7,TabPos+7,175,47,3.3,3.3) RoundBox(7,TabPos+59,175,26,3.3,3.3) Pen(0,0.1) BunkaCislo(60,TabPos+11,2) BunkaCislo(10,TabPos+21,34) BunkaCislo(10,TabPos+31,34) BunkaCislo(10,TabPos+47,34) BunkaDatum(10,TabPos+72) RoundBox(120,TabPos+70,60,14,3.3,3.3) FontSize(2.8) Text(86,TabPos+75,TA_Center|TA_BaseLine,'Otisk') Text(86,TabPos+77.5,TA_Center|TA_BaseLine,'razítka') FontSize(3.6) FontFace(NORMAL|BOLD) Text(94.5,TabPos+2,TA_Center|TA_BaseLine,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO PŘIZNÁNÍ JSOU PRAVDIVÉ A ÚPLNÉ') Text(94.5,TabPos+5,TA_Center|TA_BaseLine,'A STVRZUJI JE SVÝM PODPISEM') FontSize(3.2) FontFace(BOLD) Text(11,TabPos+10.5,TA_Left|TA_BaseLine,'Údaje o zástupci') FontFace(NORMAL) Text(60.5,TabPos+10.5,TA_Left|TA_BaseLine,'Kód zástupce:') Text(11,TabPos+20.5,TA_Left|TA_BaseLine,'Jméno(-a) a příjmení / Název právnické osoby') Text(11,TabPos+30.5,TA_Left|TA_BaseLine,'Datum narození / Evidenční číslo osvědčení daňového poradce / IČ právnické osoby') FontFace(BOLD) Text(11,TabPos+40.5,TA_Left|TA_BaseLine,'Fyzická osoba oprávněná k podpisu') Text(11,TabPos+43.5,TA_Left|TA_BaseLine,'s uvedením vztahu k právnické osobě') FontFace(NORMAL) Text(11,TabPos+46.5,TA_Left|TA_BaseLine,'Jméno(-a) a příjmení / Vztah k právnické osobě') Text(11,TabPos+69.5,TA_Left|TA_BaseLine,'Datum') FontSize(2.3) Text(60,TabPos+40,TA_Left|TA_BaseLine,'(je-li daňový subjekt či zástupce právnickou osobou),') Text(63,TabPos+43,TA_Left|TA_BaseLine,'(např. jednatel, pověřený pracovník apod.)') Text(150,TabPos+67.5,TA_Center|TA_BaseLine,'Vlastnoruční podpis') Text(150,TabPos+69.5,TA_Center|TA_BaseLine,'daňového subjektu / osoby oprávněné k podpisu') TabPos=247 Pen(0,0.3) Box(7,TabPos-10,175,42) FontSize(3.6) FontFace(NORMAL|BOLD) Text(90.5,TabPos-6,TA_Center|TA_BaseLine,'ŽÁDOST O VRÁCENÍ PŘEPLATKU NA DANI Z PŘÍJMŮ FYZICKÝCH OSOB') FontSize(3.2) FontFace(NORMAL) XText(12,TabPos,163.5,TA_Left|TA_BaseLine,'Podle ust. § 154 a § 155 zákona č. 280/2009 Sb., daňového řádu, ve znění pozdějších předpisů, žádám o vrácení:'); XText(12,TabPos+5,55,TA_Left|TA_BaseLine,'přeplatku na dani z přijmů fyzických osob'); XText(68,TabPos+5,100,TA_Left|TA_BaseLine,DupChar('.',125)); Text(175.5,TabPos+5,TA_RIGHT|TA_BaseLine,'Kč.'); XText(12,TabPos+10,35.5,TA_Left|TA_BaseLine,'Přeplatek zašlete na adresu:'); XText(175.5,TabPos+10,125,TA_RIGHT|TA_BaseLine,DupChar('.',180)); XText(12,TabPos+15,43,TA_Left|TA_BaseLine,'Přeplatek vraťte na účet vedený u'); XText(55.5,TabPos+15,60,TA_Left|TA_BaseLine,DupChar('.',78)); XText(119,TabPos+15,3,TA_Right|TA_BaseLine,'č.'); XText(175.5,TabPos+15,55,TA_Right|TA_BaseLine,DupChar('.',71)); XText(12,TabPos+20,13.5,TA_Left|TA_BaseLine,'kód banky'); XText(25.5,TabPos+20,69,TA_Left|TA_BaseLine,DupChar('.',89)); XText(119,TabPos+20,23,TA_Right|TA_BaseLine,'specifický symbol'); XText(175.5,TabPos+20,55,TA_RIGHT|TA_BaseLine,DupChar('.',71)); XText(12,TabPos+25,114.5,TA_Left|TA_BaseLine,'Vlastník účtu '+DupChar('.',66)); XText(119,TabPos+25,80,TA_Right|TA_BaseLine,'měna, ve které je účet veden'); XText(175.5,TabPos+25,55,TA_Right|TA_BaseLine,DupChar('.',71)); XText(12,TabPos+30,2,TA_Left|TA_BaseLine,'V'); XText(14,TabPos+30,46.5,TA_Left|TA_BaseLine,DupChar('.',60)); XText(65,TabPos+30,6,TA_CENTER|TA_BaseLine,'dne'); XText(69,TabPos+30,27,TA_Left|TA_BaseLine,DupChar('.',36)); XText(97.5,TabPos+30,36.5,TA_Left|TA_BaseLine,'Podpis poplatníka (zástupce)'); XText(175.5,TabPos+30,40,TA_RIGHT|TA_BaseLine,DupChar('.',52)); TabPos=199 FontSize(3.2) FontFace(NORMAL) FontSize(3) Text(141.5,TabPos+35,TA_CENTER|TA_BaseLine,'Otisk prezentačního razítka finančního úřadu'); Pen(0,0.1) RoundBox(102,TabPos+1,80,35,3.3,3.3) FontSize(2) Text(7,TabPos+22,TA_Left|TA_BaseLine,'1'); FontSize(2.8) Text(0,0.5,TA_RELATIVE|TA_BaseLine,')') Text(11,TabPos+22.5,TA_Left|TA_BaseLine,'Označte křížkem odpovídající variantu'); FontSize(2) Text(7,TabPos+25,TA_Left|TA_BaseLine,'2'); FontSize(2.8) XText(0,0.5,173,TA_RELATIVE|TA_BaseLine,')'); Text(11,TabPos+25.5,TA_Left|TA_BaseLine,'Údaj vyplňte '); FontFace(BOLD) Text(0,0,TA_Relative|TA_BaseLine,'pouze') FontFace(NORMAL) Text(0,0,TA_Relative|TA_BaseLine,' máte-li kód rozlišení typu DAP v případech') Text(11,TabPos+28.5,TA_Left|TA_BaseLine,'uvedených v § 38gb zákona a dále v případech uvedených v § 239'); Text(11,TabPos+31.5,TA_Left|TA_BaseLine,'a § 244 zákona č. 280/2009 Sb., daňového řádu ve znění pozdějších'); Text(11,TabPos+34.5,TA_Left|TA_BaseLine,'předpisů'); FontSize(3.2) Text(94,284,TA_CENTER|TA_BaseLine,'4') ;{Tisk hodnot 4. strany} if(Prazdny) goto(KonecUdaju4) FontSize(VyskaFontuHodn) FontFace(Italic|BOLD) TiskSkrt(Pr1,179,20,0) TiskSkrt(Pr2,179,26,0) TiskSkrt(Pr3,179,32,0) TiskSkrt(Pr4,179,38,0) TiskSkrt(Pr5,179,44,0) TiskSkrt(Pr6,179,50,0) TiskSkrt(Pr7,179,56,0) TiskSkrt(Pr8,179,62,0) TiskSkrt(Pr9,179,68,0) TiskSkrt(Pr10,179,74,0) TiskSkrt(Pr11,179,80,0) TiskSkrt(Pr14,179,86,0) TiskSkrt(Pr12,179,92,0) TiskSkrt(Pr13,179,98,0) ;{podpisy} TabPos=111 if(DatumPodani<>0) begin SText(12,TabPos+77,TA_Left|TA_BaseLine,5,2,Day(DatumPodani,2)) SText(22,TabPos+77,TA_Left|TA_BaseLine,5,2,Month(DatumPodani,2)) SText(32,TabPos+77,TA_Left|TA_BaseLine,5,4,Year(DatumPodani,4)) end if(Length(ZastupceKod)<>0) begin SText(62,TabPos+15,TA_Left|TA_BaseLine,5,2,ZastupceKod) if(ZastupceTyp=0) begin LocStr=Trim(ZastupceJmeno+' '+ZastupcePrijmeni) end else begin LocStr=ZastupceNazev; end SText(12,TabPos+25,TA_Left|TA_BaseLine,5,34,LocStr) SText(12,TabPos+35,TA_Left|TA_BaseLine,5,34,ZastupceID) LocStr=Trim(Jmeno+' '+Prijmeni+'/'+Postaveni) SText(12,TabPos+51,TA_Left|TA_BaseLine,5,34,LocStr) end; TabPos=251 FontSize(3.8) Text(75,TabPos,TA_Left|TA_BaseLine,Prep1) LocStr=XTrim(PrepTitul+' '+PrepJmeno+' '+PrepPrijmeni); if(Length(LocStr)<>0) LocStr=LocStr+', '; LocStr2=PrepUliceBC+' '; if(Length(PrepUliceCO)<>0) begin LocStr2=LocStr2+PrepUliceCO; if(Length(PrepUliceCP)<>0) LocStr2=LocStr2+'/'; end; if(Length(PrepUliceCP)<>0) begin LocStr2=LocStr2+PrepUliceCP; end; if(Length(PrepObec)<>0) begin if(Length(LocStr2)<>0) begin LocStr2=LocStr2+', ' end; LocStr2=LocStr2+PrepObec; end; if(Length(PrepPSC)<>0) begin if(Length(LocStr2)<>0) begin LocStr2=LocStr2+', ' end; LocStr2=LocStr2+PrepPSC; end; LocStr=XTrim(LocStr+LocStr2) XText(55,TabPos+5,125,TA_Left|TA_BaseLine,LocStr) XText(57,TabPos+10,56,TA_Left|TA_BaseLine,Prep3) XText(130,TabPos+10,50,TA_Left|TA_BaseLine,Prep4) Text(30,TabPos+15,TA_Left|TA_BaseLine,Prep5) Text(130,TabPos+15,TA_Left|TA_BaseLine,Prep6) XText(30,TabPos+20,50,TA_Left|TA_BaseLine,Prep7) XText(130,TabPos+20,40,TA_Left|TA_BaseLine,Prep8) XText(16,TabPos+25,44,TA_Left|TA_BaseLine,Prep11) Text(72,TabPos+25,TA_Left|TA_BaseLine,StrDate(Prep12)) KonecUdaju4: if((Pril1)or(Pril2)or(Pril3)) NextPage; end ;{******************************************************************************************************************} ;{ tisk 1. přílohy } if(Pril1) begin ;{1. strana} Pen(0,0.1) RoundBoxA(137,5,193,11,3.3,3.3) LinesA(142,9.5,142,11,10,0,3) LinesA(172,9.5,172,11,5,0,4) LinesA(147,9,147,11,10,0,3) FontSize(5) FontFace(NORMAL|BOLD) Text(18,10,TA_Left|TA_BaseLine,'PŘÍLOHA č. 1') FontSize(3.2) Text(18,13,TA_Left|TA_BaseLine,'je součástí tiskopisu PŘIZNÁNÍ k dani z příjmů fyzických osob') Text(18,16,TA_Left|TA_BaseLine,'za zdaňovací období 2010 - 25 5405 MFin 5405 vzor č. 17 (dále jen "DAP")') Text(18,21,TA_Left|TA_BaseLine,'Částky uveďte v celých Kč. Číselné hodnoty počítané v průběhu výpočtu daňové povinnosti jsou ukazatelé ve smyslu ustanovení') Text(18,24,TA_Left|TA_BaseLine,'§ 146 zákona č. 280/2009 Sb., daňový řád, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí s přesností na dvě desetinná') Text(18,27,TA_Left|TA_BaseLine,'místa. Postupné zaokrouhlování ve dvou nebo více stupních je nepřípustné.') FontSize(4) Text(18,32,TA_Left|TA_BaseLine,'Výpočet dílčího základu daně z příjmů z podnikání a z jiné samostatné výdělečné činnosti (§7 zákona)') FontSize(3.4) Text(18,36,TA_Left|TA_BaseLine,'1. Výpočet dílčího základu daně z příjmů z podnikání a z jiné samostatné výdělečné činnosti (§7 zákona)') FontFace(NORMAL) FontSize(3.2) Text(135,10,TA_Right|TA_BaseLine,'Rodné číslo:') Text(105.5,40,TA_Center|TA_BaseLine,'Příjmy plynoucí ze zdrojů na území České republiky a příjmy plynoucí ze zdrojů v zahraničí') FontSize(3.8) SText(169.5,9,TA_CENTER|TA_BaseLine,5,1,'/') Pen(0,0.3) RoundBoxA(18,43,72,53,3.3,3.3) RoundBoxA(78,43,132,53,3.3,3.3) RoundBoxA(138,43,193,53,3.3,3.3) Pen(0,0.1) LinesA(58,43,58,53,60,0,3) FontSize(3.2) Text(20,48.5,TA_Left|TA_BaseLine,'Vedu daňovou evidenci') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'1'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(80,48.5,TA_Left|TA_BaseLine,'Vedu účetnictví') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'1'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(140,47,TA_Left|TA_BaseLine,'Uplatňuji výdaje') Text(140,50,TA_Left|TA_BaseLine,'procentem z příjmů') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'1'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Pen(0,0.3) RoundBoxA(18,56,193,204,3.3,3.3) Pen(0,0.1) LinesA(113,56,113,204,40,0,2) LinesA(18,61,193,61,0,11,13) Text(133,59.5,TA_Center|TA_BaseLine,'poplatník') Text(173,59.5,TA_Center|TA_BaseLine,'finanční úřad') Text(19,67.5,TA_Left|TA_BaseLine,'101') Text(25,67.5,TA_Left|TA_BaseLine,'Příjmy podle § 7 zákona') Text(19,78.5,TA_Left|TA_BaseLine,'102') Text(25,78.5,TA_Left|TA_BaseLine,'Výdaje související s příjmy podle § 7 zákona') Text(19,89.5,TA_Left|TA_BaseLine,'103') Text(25,89.5,TA_Left|TA_BaseLine,'(neobsazeno)') Text(19,99,TA_Left|TA_BaseLine,'104') Text(25,99,TA_Left|TA_BaseLine,'Rozdíl mezi příjmy a výdaji (ř. 101 - ř. 102 )') Text(25,102,TA_Left|TA_BaseLine,'nebo výsledek hospodaření (zisk, ztráta)') Text(19,108.5,TA_Left|TA_BaseLine,'105') XText(25,108.5,86,TA_Left|TA_BaseLine,'Úhrn částek podle § 5, § 23 a ostatní úpravy podle zákona zvyšující') XText(25,111.5,86,TA_Left|TA_BaseLine,'- uveďte úhrn částek zvyšujících výsledek hospodaření nebo rozdíl') XText(25,114.5,86,TA_Left|TA_BaseLine,'mezi příjmy a výdaji. Podkladem jsou částky uvedené v odd. E na str. (2)') Text(19,119.5,TA_Left|TA_BaseLine,'106') FontWidthScale(0.93) XText(25,119.5,86,TA_Left|TA_BaseLine,'Úhrn částek podle § 5, § 23 zákona a ostatní úpravy podle zákona snižující') XText(25,122.5,86,TA_Left|TA_BaseLine,'- uveďte úhrn částek snižujících výsledek hospodaření nebo rozdíl mezi') XText(25,125.5,86,TA_Left|TA_BaseLine,'příjmy a výdaji. Podkladem jsou částky uvedené v odd. E na str. (2)') FontWidthScale(0) Text(19,132,TA_Left|TA_BaseLine,'107') XText(25,132,86,TA_Left|TA_BaseLine,'Část příjmů nebo výsledku hospodaření před zdaněním (zisk), kterou') XText(25,135,86,TA_Left|TA_BaseLine,'rozdělujete na spolupracující osobu (osoby) podle § 13 zákona') Text(19,141.5,TA_Left|TA_BaseLine,'108') XText(25,141.5,86,TA_Left|TA_BaseLine,'Část výdajů nebo výsledku hospodaření před zdaněním (ztráta),') XText(25,144.5,86,TA_Left|TA_BaseLine,'kterou rozdělujete na spolupracující osobu (osoby) podle') XText(25,147.5,86,TA_Left|TA_BaseLine,'§ 13 zákona') Text(19,153.7,TA_Left|TA_BaseLine,'109') Text(25,153.7,TA_Left|TA_BaseLine,'Část příjmů nebo výsledku hospodaření před zdaněním (zisk), která') Text(25,157.3,TA_Left|TA_BaseLine,'připadla na Vás jako na spolupracující osobu podle § 13 zákona') Text(19,164.7,TA_Left|TA_BaseLine,'110') Text(25,164.7,TA_Left|TA_BaseLine,'Část výdajů nebo výsledku hospodaření před zdaněním (ztráta),') Text(25,168.3,TA_Left|TA_BaseLine,'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Text(19,177.5,TA_Left|TA_BaseLine,'111') XText(25,177.5,86,TA_Left|TA_BaseLine,'(neobsazeno)') Text(19,185.5,TA_Left|TA_BaseLine,'112') XText(25,185.5,86,TA_Left|TA_BaseLine,'Váš podíl jako společníka veřejné obchodní společnosti nebo') XText(25,188.5,86,TA_Left|TA_BaseLine,'komplementáře komanditní společnosti. Vykáže-li společnost ztrátu,') XText(25,191.5,86,TA_Left|TA_BaseLine,'označte svůj podíl znaménkem mínus (-)') Text(19,197.7,TA_Left|TA_BaseLine,'113') Text(25,197.7,TA_Left|TA_BaseLine,'Dílčí základ daně (ztráta) z příjmů dle § 7 zákona (ř. 104 + ř. 105 -') Text(25,200.7,TA_Left|TA_BaseLine,'- ř. 106 - ř. 107 + ř. 108 + ř. 109 - ř. 110 - ř. 111 + ř. 112)') FontFace(NORMAL|BOLD) FontSize(3.4) Text(18,208,TA_Left|TA_BaseLine,'2. Doplňující údaje (§ 7 zákona)') FontFace(Italic|BOLD) FontSize(3.2) Text(21,212,TA_Left|TA_BaseLine,'A. Údaje o obratu a odpisech') FontFace(NORMAL) Text(21,215,TA_Left|TA_BaseLine,'Roční úhrn čistého obratu') Text(82,215,TA_Left|TA_BaseLine,'Uplatněné odpisy celkem') Text(142,215,TA_Left|TA_BaseLine,'Z toho odpisy nemovitostí') Pen(0,0.3) RoundBoxA(18,216,68,226,3.3,3.3) RoundBoxA(78,216,128,226,3.3,3.3) RoundBoxA(138,216,193,226,3.3,3.3) FontSize(3.2) FontFace(Italic|BOLD) Text(21,231,TA_Left|TA_BaseLine,'B. Druh činnosti') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FontFace(NORMAL) Text(21,234.5,TA_Left|TA_BaseLine,'Název hlavní (převažující) činnosti') Text(85.5,231,TA_Left|TA_BaseLine,'Sazba výdajů') Text(87,234.5,TA_Left|TA_BaseLine,'% z příjmů') Text(113,234.5,TA_Left|TA_BaseLine,'Příjmy') Text(138,234.5,TA_Left|TA_BaseLine,'Výdaje') Text(173,234.5,TA_Center|TA_BaseLine,'CZ - NACE') Pen(0,0.3) RoundBoxA(18,236,193,243,3.3,3.3) Pen(0,0.1) LinesA(80,236,80,243,25,0,4) FontFace(NORMAL) Text(21,246.5,TA_Left|TA_BaseLine,'Název dalších činností') Text(21,273.5,TA_Left|TA_BaseLine,'Celkem') RoundBoxA(18,248,193,276,3.3,3.3) Pen(0,0.1) LinesA(80,248,80,276,25,0,4) LinesA(18,255,192,255,0,7,3) FontSize(2.5) FontFace(NORMAL) Text(18,279,TA_Left|TA_Baseline,'25 5405/P1 MFin 5405/P1 - vzor č. 6'); FontSize(3) Text(105.5,284,TA_CENTER|TA_BaseLine,'(1)') ;{údaje - 1. strana} if(Prazdny) goto(KonecUdajuP11) FontSize(3.8) FontFace(Italic|BOLD) SText(139,9.5,TA_Left|TA_BaseLine,5,11,Copy(RodneCislo,1,6)+' '+Copy(RodneCislo,7,255)) if(P1Procento<>0) begin Line(179,44,12,8) Line(179,52,12,-8) end else begin if(Program.DanovaEvidence) begin Line(59,44,12,8) Line(59,52,12,-8) end else begin Line(119,44,12,8) Line(119,52,12,-8) end end FontSize(VyskaFontuHodn) if(P1101<>0) Text(150,70,TA_Right|TA_BaseLine,StrFinanc(P1101,0,True)) else Text(150,70,TA_Right|TA_BaseLine,skrt) if(P1102<>0) Text(150,81,TA_Right|TA_BaseLine,StrFinanc(P1102,0,True)) else Text(150,81,TA_Right|TA_BaseLine,skrt) if(P1104<>0) Text(150,103,TA_Right|TA_BaseLine,StrFinanc(P1104,0)) else Text(150,103,TA_Right|TA_BaseLine,skrt) if(P1105<>0) Text(150,114,TA_Right|TA_BaseLine,StrFinanc(P1105,0)) else Text(150,114,TA_Right|TA_BaseLine,skrt) if(P1106<>0) Text(150,125,TA_Right|TA_BaseLine,StrFinanc(P1106,0)) else Text(150,125,TA_Right|TA_BaseLine,skrt) if(P1107<>0) Text(150,136,TA_Right|TA_BaseLine,StrFinanc(P1107,0,True)) else Text(150,136,TA_Right|TA_BaseLine,skrt) if(P1108<>0) Text(150,147,TA_Right|TA_BaseLine,StrFinanc(P1108,0,True)) else Text(150,147,TA_Right|TA_BaseLine,skrt) if(P1109<>0) Text(150,158,TA_Right|TA_BaseLine,StrFinanc(P1109,0)) else Text(150,158,TA_Right|TA_BaseLine,skrt) if(P1110<>0) Text(150,169,TA_Right|TA_BaseLine,StrFinanc(P1110,0)) else Text(150,169,TA_Right|TA_BaseLine,skrt) if(P1112<>0) Text(150,191,TA_Right|TA_BaseLine,StrFinanc(P1112,0)) else Text(150,191,TA_Right|TA_BaseLine,skrt) if(P1113<>0) Text(150,202,TA_Right|TA_BaseLine,StrFinanc(P1113,0)) else Text(150,202,TA_Right|TA_BaseLine,skrt) if(CistyObrat<>0) Text(65,224,TA_Right|TA_BaseLine,StrFinanc(CistyObrat,0)) else Text(65,224,TA_Right|TA_BaseLine,skrt) if(SumaDanOdpis<>0) Text(125,224,TA_Right|TA_BaseLine,StrFinanc(SumaDanOdpis,0)) else Text(125,224,TA_Right|TA_BaseLine,skrt) if(OdpisNemov<>0) Text(190,224,TA_Right|TA_BaseLine,StrFinanc(OdpisNemov,0)) else Text(190,224,TA_Right|TA_BaseLine,skrt) LocBy=0; if((Length(Nace)<>0)or(Prijmy[1]<>0)or(Vydaje[1]<>0)) begin XText(20,241,60,TA_Left|TA_BaseLine,HlavCinn1) if(Pausal[1]<>0) XText(93,241,22,TA_Center|TA_BaseLine,Str(PausalSazby[Pausal[1]])) XText(127,241,22,TA_Right|TA_BaseLine,StrFinanc(Prijmy[1]])) XText(152,241,22,TA_Right|TA_BaseLine,StrFinanc(Vydaje[1]])) Inc(LocBy) end; if((Length(Nace2)<>0)or(Prijmy[2]<>0)or(Vydaje[2]<>0)) begin XText(20,253,60,TA_Left|TA_BaseLine,HlavCinn2) if(Pausal[2]<>0) XText(93,253,22,TA_Center|TA_BaseLine,Str(PausalSazby[Pausal[2]])) XText(127,253,22,TA_Right|TA_BaseLine,StrFinanc(Prijmy[2]])) XText(152,253,22,TA_Right|TA_BaseLine,StrFinanc(Vydaje[2]])) Inc(LocBy) end; if((Length(Nace3)<>0)or(Prijmy[3]<>0)or(Vydaje[3]<>0)) begin XText(20,260,60,TA_Left|TA_BaseLine,HlavCinn3) if(Pausal[3]<>0) XText(93,260,22,TA_Center|TA_BaseLine,Str(PausalSazby[Pausal[3]])) XText(127,260,22,TA_Right|TA_BaseLine,StrFinanc(Prijmy[3]])) XText(152,260,22,TA_Right|TA_BaseLine,StrFinanc(Vydaje[3]])) Inc(LocBy) end; if((Length(Nace4)<>0)or(Prijmy[4]<>0)or(Vydaje[4]<>0)) begin XText(20,267,60,TA_Left|TA_BaseLine,HlavCinn4) if(Pausal[4]<>0) XText(93,267,22,TA_Center|TA_BaseLine,Str(PausalSazby[Pausal[4]])) XText(127,267,22,TA_Right|TA_BaseLine,StrFinanc(Prijmy[4]])) XText(152,267,22,TA_Right|TA_BaseLine,StrFinanc(Vydaje[4]])) Inc(LocBy) end; if(LocBy<>0) begin XText(127,274,22,TA_Right|TA_BaseLine,StrFinanc(P1101)) XText(152,274,22,TA_Right|TA_BaseLine,StrFinanc(P1102)) end; KonecUdajuP11: NextPage ;{2. strana} FontSize(3.2) FontFace(Italic|BOLD) Text(0,5,TA_Left|TA_BaseLine,'C. Údaje o podnikání a jiné samostatné výdělečné činnosti') FontFace(NORMAL) Text(3,8,TA_Left|TA_BaseLine,'Datum zahájení činnosti') Text(37,8,TA_Left|TA_BaseLine,'Datum přerušení činnosti') Text(72,8,TA_Left|TA_BaseLine,'Datum ukončení činnosti') Text(107,8,TA_Left|TA_BaseLine,'Datum obnovení činnosti') Text(142,8,TA_Left|TA_BaseLine,'Počet měsíců činnosti') Pen(0,0.3) RoundBoxA(0,9,175,16,3.3,3.3) Pen(0,0.1) LinesA(35,9,35,16,35,0,4) FontSize(3.2) FontFace(Italic|BOLD) Text(0,22,TA_Left|TA_BaseLine,'D. Tabulka pro poplatníky, kteří vedou daňovou evidenci podle § 7b zákona') FontFace(NORMAL) XText(0,26,175,TA_Left|TA_BaseLine,'Vyplňte pouze v případě, vedete-li daňovou evidenci podle § 7b zákona. Údaje, prosím, vyplňte v celých korunách.') Pen(0,0.3) RoundBoxA(0,28,175,77.5,3.3,3.3) Pen(0,0.1) LinesA(69,28,69,77.5,53,0,2) LinesA(0,33.5,175,33.5,0,5.5,8) Text(96.5,31.5,TA_Center|TA_BaseLine,'Na začátku zdaňovacího období') Text(150,31.5,TA_Center|TA_BaseLine,'Na konci zdaňovacího období') Text(4,37.5,TA_Left|TA_BaseLine,'1. Hmotný majetek') Text(4,43,TA_Left|TA_BaseLine,'2. Peněžní prostředky v hotovosti') FontSize(2.8) Text(1,-2.2,TA_Left|TA_Relative,'*'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(4,48.5,TA_Left|TA_BaseLine,'3. Peněžní prostředky na bankovních účtech') FontSize(2.8) Text(1,-2.2,TA_Left|TA_Relative,'*'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(4,54,TA_Left|TA_BaseLine,'4. Zásoby') Text(4,59.5,TA_Left|TA_BaseLine,'5. Pohledávky včetně poskytnutých úvěrů a půjček') Text(4,65,TA_Left|TA_BaseLine,'6. Ostatní majetek') FontSize(2.8) Text(1,-2.2,TA_Left|TA_Relative,'*'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(4,70.5,TA_Left|TA_BaseLine,'7. Závazky včetně přijatých úvěrů a půjček') Text(4,76,TA_Left|TA_BaseLine,'8. Rezervy') Pen(0,0.3) RoundBoxA(0,82,65,88,3.3,3.3) Pen(0,0.1) LineA(20,82,20,88) Text(4,86,TA_Left|TA_BaseLine,'9. Mzdy') FontSize(2.8) Text(0,92,TA_Left|TA_BaseLine,'*) označené údaje jsou nepovinné') YPosun1:Real=-5 FontSize(3.2) FontFace(Italic|BOLD) Text(0,98.5,TA_Left|TA_BaseLine,'E. Úpravy podle § 5, § 23 zákona') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FontFace(NORMAL) Pen(0,0.3) RoundBoxA(0,100,175,129,3.3,3.3) RoundBoxA(0,131,175,160,3.3,3.3) Pen(0,0.1) LineA(10,100,10,129) LineA(135,100,135,129) LinesA(0,107,175,107,0,5.5,4) LineA(10,131,10,160) LineA(135,131,135,160) LinesA(0,138,175,138,0,5.5,4) Text(5,104.5,TA_Center|TA_BaseLine,'č.ř.') Text(12,103,TA_Left|TA_BaseLine,'Popis úpravy podle § 5, § 23 zákona') FontFace(NORMAL|BOLD) Text(1,-2.5,TA_Left|TA_RELATIVE,'zvyšující') FontFace(NORMAL) Text(12,106,TA_Left|TA_BaseLine,'výsledek hospodaření nebo rozdíl mezi příjmy a výdaji') Text(155,104.5,TA_Center|TA_BaseLine,'poplatník uvede v celých Kč') Text(5,111,TA_Center|TA_BaseLine,'1.') Text(5,116.5,TA_Center|TA_BaseLine,'2.') Text(5,122,TA_Center|TA_BaseLine,'3.') Text(5,127.5,TA_Center|TA_BaseLine,'4.') FontSize(3.2) FontFace(NORMAL) Text(5,135.5,TA_Center|TA_BaseLine,'č.ř.') Text(12,134,TA_Left|TA_BaseLine,'Popis úpravy podle § 5, § 23 zákona') FontFace(NORMAL|BOLD) Text(1,-2.5,TA_Left|TA_RELATIVE,'snižující') FontFace(NORMAL) Text(12,137,TA_Left|TA_BaseLine,'výsledek hospodaření nebo rozdíl mezi příjmy a výdaji') Text(155,135.5,TA_Center|TA_BaseLine,'poplatník uvede v celých Kč') Text(5,142,TA_Center|TA_BaseLine,'1.') Text(5,147.5,TA_Center|TA_BaseLine,'2.') Text(5,153,TA_Center|TA_BaseLine,'3.') Text(5,158.5,TA_Center|TA_BaseLine,'4.') FontSize(3.2) FontFace(Italic|BOLD) Text(0,165,TA_Left|TA_BaseLine,'F. Údaje o účastnících sdružení') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FontFace(NORMAL) Pen(0,0.3) RoundBoxA(0,167,175,197,3.3,3.3) Pen(0,0.1) LineA(10,172,10,197) LineA(45,172,45,197) LineA(82,172,82,197) LineA(119,172,119,197) LineA(147,172,147,197) LineA(0,172,175,172) LinesA(0,179,175,179,0,6,3) Text(5,170.5,TA_Left|TA_BaseLine,'Jste-li účastník sdružení, které není právnickou osobou, vyplňte údaje o ostatních členech sdružení') Text(27.5,176.5,TA_Center|TA_BaseLine,'Jméno') Text(63.5,176.5,TA_Center|TA_BaseLine,'Příjmení') Text(100.5,176.5,TA_Center|TA_BaseLine,'DIČ') Text(133,175,TA_Center|TA_BaseLine,'Podíl') Text(133,178,TA_Center|TA_BaseLine,'na příjmech v %') Text(161,175,TA_Center|TA_BaseLine,'Podíl') Text(161,178,TA_Center|TA_BaseLine,'na výdajích v %') Text(5,183,TA_Center|TA_BaseLine,'1.') Text(5,189,TA_Center|TA_BaseLine,'2.') Text(5,195,TA_Center|TA_BaseLine,'3.') FontSize(3.2) FontFace(Italic|BOLD) Text(0,203.5,TA_Left|TA_BaseLine,'G. Údaje o spolupracující osobě') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FontFace(NORMAL) Pen(0,0.3) RoundBoxA(0,205,175,230,3.3,3.3) Pen(0,0.1) LineA(10,210,10,230) LineA(45,210,45,230) LineA(82,210,82,230) LineA(119,210,119,230) LineA(0,210,175,210) LinesA(0,218,175,218,0,6,2) Text(5,209,TA_Left|TA_BaseLine,'Jste-li osoba, která rozděluje příjmy a výdaje podle § 13 zákona, uveďte údaje o spolupracující osobě') Text(27.5,215.5,TA_Center|TA_BaseLine,'Jméno') Text(63.5,215.5,TA_Center|TA_BaseLine,'Příjmení') Text(100.5,215.5,TA_Center|TA_BaseLine,'DIČ (RČ)') Text(147,215.5,TA_Center|TA_BaseLine,'Podíl na příjmech a výdajích v %') Text(5,222,TA_Center|TA_BaseLine,'1.') Text(5,228,TA_Center|TA_BaseLine,'2.') FontSize(3.2) FontFace(Italic|BOLD) Text(0,237.5,TA_Left|TA_BaseLine,'H. Údaje o osobě, která rozděluje příjmy a výdaje') FontFace(NORMAL) Pen(0,0.3) RoundBoxA(0,239,175,258,3.3,3.3) Pen(0,0.1) LineA(10,244,10,258) LineA(45,244,45,258) LineA(82,244,82,258) LineA(119,244,119,258) LineA(0,244,175,244) LineA(0,252,175,252) Text(5,243,TA_Left|TA_BaseLine,'Jste-li spolupracující osoba podle § 13 zákona, uveďte údaje o osobě, která na Vás rozdělila příjmy a výdaje') Text(27.5,249.5,TA_Center|TA_BaseLine,'Jméno') Text(63.5,249.5,TA_Center|TA_BaseLine,'Příjmení') Text(100.5,249.5,TA_Center|TA_BaseLine,'DIČ') Text(147,249.5,TA_Center|TA_BaseLine,'Podíl na příjmech a výdajích v %') Text(5,256,TA_Center|TA_BaseLine,'1.') FontSize(3.2) FontFace(Italic|BOLD) Text(0,263.5,TA_Left|TA_BaseLine,'I. Údaje o veřejné obchodní společností nebo komanditní společnosti') FontSize(2) Text(1,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FontFace(NORMAL) Pen(0,0.3) RoundBoxA(0,265,175,275,3.3,3.3) Pen(0,0.1) LineA(125,265,125,275) LineA(165,265,165,275) FontFace(NORMAL) XText(2,269,120,TA_Left|TA_BaseLine,'Daňové identifikační číslo veřejné obchodní společnosti, kde jste společníkem, nebo komanditní') XText(2,272,120,TA_Left|TA_BaseLine,'společnosti, kde jste komplementářem, a výše Vašeho podílu v procentech') Text(127,269,TA_Left|TA_BaseLine,'DIČ') Text(166.5,269,TA_Left|TA_BaseLine,'%') FontFace(NORMAL) FontSize(1.8) Text(0,278,TA_Left|TA_Baseline,'1'); FontSize(2.5) Text(1,278.3,TA_Left|TA_BaseLine,') Z předtištěných možností v rámečku vyberte odpovídající variantu a označte křížkem') FontSize(1.8) Text(0,280.5,TA_Left|TA_Baseline,'2'); FontSize(2.5) Text(1,280.8,TA_Left|TA_BaseLine,') Údaje, pro které nedostačuje vyhrazené místo, uveďte na volný list a přiložte k tiskopisu') FontSize(3) Text(87.5,284,TA_CENTER|TA_BaseLine,'(2)') ;{údaje - 2. strana} if(Prazdny) goto(KonecUdajuP12) FontFace(Italic|BOLD) FontSize(VyskaFontuHodn) if(DatumZah<>0) Text(17,14,TA_Center|TA_BaseLine,StrDate(DatumZah)) else Text(17,14,TA_Center|TA_BaseLine,skrt) if(DatumPrer<>0) Text(52,14,TA_Center|TA_BaseLine,StrDate(DatumPrer)) else Text(52,14,TA_Center|TA_BaseLine,skrt) if(DatumUkon<>0) Text(87,14,TA_Center|TA_BaseLine,StrDate(DatumUkon)) else Text(87,14,TA_Center|TA_BaseLine,skrt) if(DatumObnov<>0) Text(122,14,TA_Center|TA_BaseLine,StrDate(DatumObnov)) else Text(122,14,TA_Center|TA_BaseLine,skrt) if(PocetMesicu<>0) Text(157,14,TA_Center|TA_BaseLine,PocetMesicu) else Text(157,14,TA_Center|TA_BaseLine,skrt) if(Program.DanovaEvidence) begin if(P1D1Z<>0) Text(119,38,TA_Right|TA_BaseLine,StrFinanc(P1D1Z,0,True)) else Text(119,38,TA_Right|TA_BaseLine,skrt) if(P1D1K<>0) Text(172,38,TA_Right|TA_BaseLine,StrFinanc(P1D1K,0,True)) else Text(172,38,TA_Right|TA_BaseLine,skrt) if(P1D2Z<>0) Text(119,43.5,TA_Right|TA_BaseLine,StrFinanc(P1D2Z,0)) else Text(119,43.5,TA_Right|TA_BaseLine,skrt) if(P1D2K<>0) Text(172,43.5,TA_Right|TA_BaseLine,StrFinanc(P1D2K,0)) else Text(172,43.5,TA_Right|TA_BaseLine,skrt) if(P1D3Z<>0) Text(119,49,TA_Right|TA_BaseLine,StrFinanc(P1D3Z,0)) else Text(119,49,TA_Right|TA_BaseLine,skrt) if(P1D3K<>0) Text(172,49,TA_Right|TA_BaseLine,StrFinanc(P1D3K,0)) else Text(172,49,TA_Right|TA_BaseLine,skrt) if(P1D4Z<>0) Text(119,54.5,TA_Right|TA_BaseLine,StrFinanc(P1D4Z,0,True)) else Text(119,54.5,TA_Right|TA_BaseLine,skrt) if(P1D4K<>0) Text(172,54.5,TA_Right|TA_BaseLine,StrFinanc(P1D4K,0,True)) else Text(172,54.5,TA_Right|TA_BaseLine,skrt) if(P1D5Z<>0) Text(119,60,TA_Right|TA_BaseLine,StrFinanc(P1D5Z,0)) else Text(119,60,TA_Right|TA_BaseLine,skrt) if(P1D5K<>0) Text(172,60,TA_Right|TA_BaseLine,StrFinanc(P1D5K,0)) else Text(172,60,TA_Right|TA_BaseLine,skrt) if(P1D6Z<>0) Text(119,65.5,TA_Right|TA_BaseLine,StrFinanc(P1D6Z,0)) else Text(119,65.5,TA_Right|TA_BaseLine,skrt) if(P1D6K<>0) Text(172,65.5,TA_Right|TA_BaseLine,StrFinanc(P1D6K,0)) else Text(172,65.5,TA_Right|TA_BaseLine,skrt) if(P1D7Z<>0) Text(119,71,TA_Right|TA_BaseLine,StrFinanc(P1D7Z,0)) else Text(119,71,TA_Right|TA_BaseLine,skrt) if(P1D7K<>0) Text(172,71,TA_Right|TA_BaseLine,StrFinanc(P1D7K,0)) else Text(172,71,TA_Right|TA_BaseLine,skrt) if(P1D8Z<>0) Text(119,76.5,TA_Right|TA_BaseLine,StrFinanc(P1D8Z,0)) else Text(119,76.5,TA_Right|TA_BaseLine,skrt) if(P1D8K<>0) Text(172,76.5,TA_Right|TA_BaseLine,StrFinanc(P1D8K,0)) else Text(172,76.5,TA_Right|TA_BaseLine,skrt) if(MZDY1<>0) Text(62,87,TA_Right|TA_BaseLine,StrFinanc(MZDY1,0,True)) else Text(62,87,TA_Right|TA_BaseLine,skrt) end; ;E if(Length(Trim(P1ETZvys[1]))<>0) XText(12,111.5,123,TA_Left|TA_BaseLine,P1ETZvys[1]) else Text(12,111.5,TA_Left|TA_BaseLine,skrt) if(P1EHZvys[1]<>0) Text(172,111.5,TA_Right|TA_BaseLine,StrFinanc(P1EHZvys[1],0)) else Text(172,111.5,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETZvys[2]))<>0) XText(12,117,123,TA_Left|TA_BaseLine,P1ETZvys[2]) else Text(12,117,TA_Left|TA_BaseLine,skrt) if(P1EHZvys[2]<>0) Text(172,117,TA_Right|TA_BaseLine,StrFinanc(P1EHZvys[2],0)) else Text(172,117,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETZvys[3]))<>0) XText(12,122.5,123,TA_Left|TA_BaseLine,P1ETZvys[3]) else Text(12,122.5,TA_Left|TA_BaseLine,skrt) if(P1EHZvys[3]<>0) Text(172,122.5,TA_Right|TA_BaseLine,StrFinanc(P1EHZvys[3],0)) else Text(172,122.5,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETZvys[4]))<>0) XText(12,128,123,TA_Left|TA_BaseLine,P1ETZvys[4]) else Text(12,128,TA_Left|TA_BaseLine,skrt) if(P1EHZvys[4]<>0) Text(172,128,TA_Right|TA_BaseLine,StrFinanc(P1EHZvys[4],0)) else Text(172,128,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETSniz[1]))<>0) XText(12,142.5,123,TA_Left|TA_BaseLine,P1ETSniz[1]) else Text(12,142.5,TA_Left|TA_BaseLine,skrt) if(P1EHSniz[1]<>0) Text(172,142.5,TA_Right|TA_BaseLine,StrFinanc(P1EHSniz[1],0)) else Text(172,142.5,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETSniz[2]))<>0) XText(12,148,123,TA_Left|TA_BaseLine,P1ETSniz[2]) else Text(12,148,TA_Left|TA_BaseLine,skrt) if(P1EHSniz[2]<>0) Text(172,148,TA_Right|TA_BaseLine,StrFinanc(P1EHSniz[2],0)) else Text(172,148,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETSniz[3]))<>0) XText(12,153.5,123,TA_Left|TA_BaseLine,P1ETSniz[3]) else Text(12,153.5,TA_Left|TA_BaseLine,skrt) if(P1EHSniz[3]<>0) Text(172,153.5,TA_Right|TA_BaseLine,StrFinanc(P1EHSniz[3],0)) else Text(172,153.5,TA_Right|TA_BaseLine,skrt) if(Length(Trim(P1ETSniz[4]))<>0) XText(12,159,123,TA_Left|TA_BaseLine,P1ETSniz[4]) else Text(12,159,TA_Left|TA_BaseLine,skrt) if(P1EHSniz[4]<>0) Text(172,159,TA_Right|TA_BaseLine,StrFinanc(P1EHSniz[4],0)) else Text(172,159,TA_Right|TA_BaseLine,skrt) ;F if(Length(Trim(JmenoSdr[1]))<>0) XText(12,184,34,TA_Left|TA_BaseLine,JmenoSdr[1]) else Text(12,184,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniSdr[1]))<>0) XText(47,184,36,TA_Left|TA_BaseLine,PrijmeniSdr[1]) else Text(47,184,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICSdr[1]))<>0) XText(100.5,184,36,TA_Center|TA_BaseLine,DICSdr[1]) else Text(100.5,184,TA_Center|TA_BaseLine,skrt) if(PodilP[1]<>0) Text(145,184,TA_Right|TA_BaseLine,PodilP[1]) else Text(145,184,TA_Right|TA_BaseLine,skrt) if(PodilV[1]<>0) Text(172,184,TA_Right|TA_BaseLine,PodilV[1]) else Text(172,184,TA_Right|TA_BaseLine,skrt) if(Length(Trim(JmenoSdr[2]))<>0) XText(12,190,34,TA_Left|TA_BaseLine,JmenoSdr[2]) else Text(12,190,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniSdr[2]))<>0) XText(47,190,36,TA_Left|TA_BaseLine,PrijmeniSdr[2]) else Text(47,190,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICSdr[2]))<>0) XText(100.5,190,36,TA_Center|TA_BaseLine,DICSdr[2]) else Text(100.5,190,TA_Center|TA_BaseLine,skrt) if(PodilP[2]<>0) Text(145,190,TA_Right|TA_BaseLine,PodilP[2]) else Text(145,190,TA_Right|TA_BaseLine,skrt) if(PodilV[2]<>0) Text(172,190,TA_Right|TA_BaseLine,PodilV[2]) else Text(172,190,TA_Right|TA_BaseLine,skrt) if(Length(Trim(JmenoSdr[3]))<>0) XText(12,196,34,TA_Left|TA_BaseLine,JmenoSdr[3]) else Text(12,196,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniSdr[3]))<>0) XText(47,196,36,TA_Left|TA_BaseLine,PrijmeniSdr[3]) else Text(47,196,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICSdr[3]))<>0) XText(100.5,196,36,TA_Center|TA_BaseLine,DICSdr[3]) else Text(100.5,196,TA_Center|TA_BaseLine,skrt) if(PodilP[3]<>0) Text(145,196,TA_Right|TA_BaseLine,PodilP[3]) else Text(145,196,TA_Right|TA_BaseLine,skrt) if(PodilV[3]<>0) Text(172,196,TA_Right|TA_BaseLine,PodilV[3]) else Text(172,196,TA_Right|TA_BaseLine,skrt) if(Length(Trim(JmenoSpol[1]))<>0) XText(12,223,34,TA_Left|TA_BaseLine,JmenoSpol[1]) else Text(12,223,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniSpol[1]))<>0) XText(47,223,36,TA_Left|TA_BaseLine,PrijmeniSpol[1]) else Text(47,223,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICSpol[1]))<>0) XText(100.5,223,36,TA_Center|TA_BaseLine,DICSpol[1]) else Text(100.5,223,TA_Center|TA_BaseLine,skrt) if(PodilSpol[1]<>0) Text(172,223,TA_Right|TA_BaseLine,PodilSpol[1]) else Text(172,223,TA_Right|TA_BaseLine,skrt) if(Length(Trim(JmenoSpol[2]))<>0) XText(12,229,34,TA_Left|TA_BaseLine,JmenoSpol[2]) else Text(12,229,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniSpol[2]))<>0) XText(47,229,36,TA_Left|TA_BaseLine,PrijmeniSpol[2]) else Text(47,229,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICSpol[2]))<>0) XText(100.5,229,36,TA_Center|TA_BaseLine,DICSpol[2]) else Text(100.5,229,TA_Center|TA_BaseLine,skrt) if(PodilSpol[2]<>0) Text(172,229,TA_Right|TA_BaseLine,PodilSpol[2]) else Text(172,229,TA_Right|TA_BaseLine,skrt) if(Length(Trim(JmenoRozdel1))<>0) XText(12,257,34,TA_Left|TA_BaseLine,JmenoRozdel1) else Text(12,257,TA_Left|TA_BaseLine,skrt) if(Length(Trim(PrijmeniRozdel1))<>0) XText(47,257,36,TA_Left|TA_BaseLine,PrijmeniRozdel1) else Text(47,257,TA_Left|TA_BaseLine,skrt) if(Length(Trim(DICRozdel1))<>0) XText(100.5,257,36,TA_Center|TA_BaseLine,DICRozdel1) else Text(100.5,257,TA_Center|TA_BaseLine,skrt) if(PodilRozdel1<>0) Text(172,257,TA_Right|TA_BaseLine,PodilRozdel1) else Text(172,257,TA_Right|TA_BaseLine,skrt) if(Length(Trim(DICVOS))<>0) XText(145,273,40,TA_Center|TA_BaseLine,DICVOS) else Text(145,273,TA_Center|TA_BaseLine,skrt) if(Length(Trim(PodilVOS))<>0) XText(172,273,7,TA_Right|TA_BaseLine,PodilVOS) else Text(172,273,TA_Right|TA_BaseLine,skrt) KonecUdajuP12: if((Pril2)or(Pril3)) NextPage; end ;{******************************************************************************************************************} ;{ tisk 2. přílohy } if(Pril2) begin Pen(0,0.1) RoundBoxA(137,4,193,10,3.3,3.3) LinesA(142,8.5,142,10,10,0,3) LinesA(172,8.5,172,10,5,0,4) LinesA(147,8,147,10,10,0,3) FontSize(5) FontFace(NORMAL|BOLD) Text(18,14,TA_Left|TA_BaseLine,'PŘÍLOHA č. 2') FontSize(3.2) Text(18,19,TA_Left|TA_BaseLine,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob') Text(18,22,TA_Left|TA_BaseLine,'za zdaňovací období 2010 - 25 5405 MFin 5405 vzor č. 17 (dále jen "DAP")') Text(18,32,TA_Left|TA_BaseLine,'Částky uveďte v celých Kč. Číselné hodnoty počítané v průběhu výpočtu daňové povinnosti jsou ukazatelé ve smyslu ustanovení') Text(18,35,TA_Left|TA_BaseLine,'§ 146 zákona č. 280/2009 Sb., daňový řád, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí s přesností na dvě desetinná') Text(18,38,TA_Left|TA_BaseLine,'místa. Postupné zaokrouhlování ve dvou nebo více stupních je nepřípustné.') FontSize(4) XText(18,46.5,175,TA_Left|TA_BaseLine,'Výpočet dílčích základů daně z příjmů z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)') FontFace(NORMAL) FontSize(3.2) Text(135,10,TA_Right|TA_BaseLine,'Rodné číslo:') FontSize(3.8) SText(169.5,8,TA_CENTER|TA_BaseLine,5,1,'/') FontSize(3.6) FontFace(NORMAL|BOLD) Text(18,54.5,TA_Left|TA_BaseLine,'1. Výpočet dílčího základu daně z příjmů z pronájmu (§9 zákona)') FontFace(NORMAL) FontSize(3.2) Text(18,58.5,TA_Left|TA_BaseLine,'Příjmy plynoucí ze zdrojů na území České republiky a příjmy ze zdrojů v zahraničí') Pen(0,0.1) RoundBoxA(18,62.5,102,70.5,3.3,3.3) RoundBoxA(108,62.5,193,70.5,3.3,3.3) LineA(92,62.5,92,70.5) LineA(183,62.5,183,70.5) XText(20,67.5,70,TA_Left|TA_BaseLine,'Uplatňuji výdaje procentem z příjmů (30 %)') FontSize(2) Text(1,-2.6,TA_Left|TA_Relative,'1)'); FontSize(3.2) XText(110,67.5,70,TA_Left|TA_BaseLine,'Dosáhl jsem příjmů ze společného jmění manželů') FontSize(2) Text(1,-2.6,TA_Left|TA_Relative,'1)'); Pen(0,0.3) RoundBoxA(18,72.5,193,134.5,3.3,3.3) Pen(0,0.1) LinesA(18,80.5,193,80.5,0,8,4) LinesA(18,115.5,193,115.5,0,11,2) LinesA(113,72.5,113,134.5,40,0,2) FontSize(3.2) Text(133,77.5,TA_Center|TA_BaseLine,'poplatník') Text(173,77.5,TA_Center|TA_BaseLine,'finanční úřad') Text(20,85,TA_Left|TA_BaseLine,'201') Text(27,85,TA_Left|TA_BaseLine,'Příjmy podle § 9 zákona') Text(20,93,TA_Left|TA_BaseLine,'202') Text(27,93,TA_Left|TA_BaseLine,'Výdaje podle § 9 zákona') Text(20,100.5,TA_Left|TA_BaseLine,'203') XText(27,100.5,88,TA_Left|TA_BaseLine,'Rozdíl mezi příjmy a výdaji (ř. 201 - ř. 202) nebo výsledek') XText(27,103.5,88,TA_Left|TA_BaseLine,'hospodaření před zdaněním (zisk, ztráta)') Text(20,108.5,TA_Left|TA_BaseLine,'204') XText(27,108.5,88,TA_Left|TA_BaseLine,'Úhrn částek podle § 5, § 23 a ostatní úpravy podle zákona') XText(27,111.5,88,TA_Left|TA_BaseLine,'zvyšující rozdíl mezi příjmy a výdaji nebo výsledek hospodaření') XText(27,114.5,88,TA_Left|TA_BaseLine,'před zdaněním (zisk, ztráta)') Text(20,119,TA_Left|TA_BaseLine,'205') XText(27,119,88,TA_Left|TA_BaseLine,'Úhrn částek podle § 5, § 23 a ostatní úpravy podle zákona') XText(27,122,88,TA_Left|TA_BaseLine,'snižující rozdíl mezi příjmy a výdaji nebo výsledek hospodaření') Text(27,125,TA_Left|TA_BaseLine,'před zdaněním (zisk, ztráta)') Text(20,129.5,TA_Left|TA_BaseLine,'206') Text(27,129.5,TA_Left|TA_BaseLine,'Dílčí základ daně, daňová ztráta z pronájmu podle § 9 zákona') Text(27,132.5,TA_Left|TA_BaseLine,'(ř. 203 + ř. 204 - ř. 205)') Pen(0,0.1) RoundBoxA(18,136.5,193,145,3.3,3.3) FontSize(3.2) Text(20,140,TA_Left|TA_BaseLine,'Rezervy na začátku') Text(20,143.5,TA_Left|TA_BaseLine,'zdaňovacího období') Text(107,140,TA_Left|TA_BaseLine,'Rezervy na konci') Text(107,143.5,TA_Left|TA_BaseLine,'zdaňovacího období') Line(47,136.5,0,8.5) Line(105,136.5,0,8.5) Line(134,136.5,0,8.5) FontSize(3.6) FontFace(NORMAL|BOLD) Text(18,150.5,TA_Left|TA_BaseLine,'2. Výpočet dílčího základu daně z ostatních příjmů (§10 zákona)') FontFace(NORMAL) FontSize(3.2) Text(18,154,TA_Left|TA_BaseLine,'Příjmy plynoucí ze zdrojů na území České republiky a příjmy plynoucí ze zdrojů v zahraničí') Pen(0,0.3) RoundBoxA(18,158,193,212,3.3,3.3) Pen(0,0.1) LineA(18,166,193,166) LinesA(18,172,193,172,0,8,5) LineA(28,172,28,204) LinesA(93,158,93,212,30,0,4) Text(55.5,163,TA_Center|TA_BaseLine,'Druh příjmů podle § 10 odst. 1 zákona') Text(108,163,TA_Center|TA_BaseLine,'Příjmy') Text(138,163,TA_Center|TA_BaseLine,'Výdaje') Text(168,163,TA_Center|TA_BaseLine,'Rozdíl') FontSize(2.6) Text(168,164.5,TA_Center|TA_BaseLine,'(sloupec 2 - sloupec 3)') FontSize(3.2) Text(187,163,TA_Center|TA_BaseLine,'Kód') FontSize(1.8) Text(3,-2.2,TA_Left|TA_Relative,'2'); FontSize(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(55.5,169,TA_Center|TA_BaseLine,'1') Text(108,169,TA_Center|TA_BaseLine,'2') Text(138,169,TA_Center|TA_BaseLine,'3') Text(168,169,TA_Center|TA_BaseLine,'4') Text(188,169,TA_Center|TA_BaseLine,'5') Text(23,177,TA_Center|TA_BaseLine,'1') Text(23,185,TA_Center|TA_BaseLine,'2') Text(23,193,TA_Center|TA_BaseLine,'3') Text(23,201,TA_Center|TA_BaseLine,'4') Text(20,209,TA_Left|TA_BaseLine,'Úhrn') FontFace(NORMAL|BOLD) Text(1,-2.5,TA_Left|TA_RELATIVE,'kladných') FontFace(NORMAL) Text(1,0,TA_Left|TA_RELATIVE,'rozdílů jednotlivých druhů příjmu') Pen(0,0.3) RoundBoxA(18,220,193,250,3.3,3.3) Pen(0,0.1) LinesA(18,226,193,226,0,8,3) LinesA(113,220,113,250,40,0,2) FontFace(NORMAL) FontSize(3.2) Text(133,224,TA_Center|TA_BaseLine,'poplatník') Text(173,224,TA_Center|TA_BaseLine,'finanční úřad') Text(20,231,TA_Left|TA_BaseLine,'207') Text(27,231,TA_Left|TA_BaseLine,'Příjmy podle § 10 zákona') Text(20,239,TA_Left|TA_BaseLine,'208') Text(27,239,TA_Left|TA_BaseLine,'Výdaje podle § 10 zákona (maximálně do výše příjmů)') Text(20,245.5,TA_Left|TA_BaseLine,'209') Text(27,245.5,TA_Left|TA_BaseLine,'Dílčí základ daně připadající na ostatní příjmy podle § 10 zákona') Text(27,249,TA_Left|TA_BaseLine,'(ř. 207 - ř. 208)') FontFace(Normal) FontSize(1.8) Text(18,264,TA_Left|TA_Baseline,'1'); FontSize(2.3) XText(19,265,175,TA_Left|TA_BaseLine,') Označte křížkem odpovídající variantu') FontSize(1.8) Text(18,267,TA_Left|TA_Baseline,'2'); FontSize(2.3) XText(19,268,175,TA_Left|TA_BaseLine,') Pokud jste uplatnil výdaje procentem z příjmů (týká se pouze zemědělské výroby) uveďte ve sloupci 5 (kód) písmeno "p". Pokud příjmy plynou z majektu, který') XText(19,271,175,TA_Left|TA_BaseLine,'je ve společném jmění manželů, uveďte ve sloupci 5 (kód) písmeno "s". Pokud jste dosáhl příjmy ze zdrojů v zahraničí, uveďte ve sloupci 5 (kód) písmeno "z".') Text(18,278,TA_Left|TA_Baseline,'25 5405/P2 MFin 5405/P2 - vzor č. 6'); ;{údaje - 2. příloha} if(Prazdny) goto(KonecUdajuP2) FontSize(3.8) FontFace(Italic|BOLD) SText(139,8.5,TA_Left|TA_BaseLine,5,11,Copy(RodneCislo,1,6)+' '+Copy(RodneCislo,7,255)) if(P2VydProcentem) begin Line(93,63.5,8,6) Line(93,69.5,8,-6) end if(P2SpolJmeni) begin Line(184,63.5,8,6) Line(184,69.5,8,-6) end FontSize(VyskaFontuHodn) TiskSkrt(P2201,150,85.5,1) TiskSkrt(P2202,150,93.5,1) TiskSkrt(P2203,150,102,1) TiskSkrt(P2204,150,112.5,1) TiskSkrt(P2205,150,123,1) TiskSkrt(P2206,150,131.5,1) TiskSkrt(PREZZ,95,142,1) TiskSkrt(PREZK,185,142,1) if(Length(Trim(P2Druh[1]))<>0) XText(30,178,65,TA_Left|TA_BaseLine,P2Druh[1]) else Text(30,178,TA_Left|TA_BaseLine,skrt) TiskSkrt(P2Prijem[1],120,178,1) TiskSkrt(P2Vydaj[1],150,178,1) TiskSkrt(P2Prijem[1]-P2Vydaj[1],180,178,1) LocStr=Copy(P2Kody,P2Kod[1]+1,1); if(Length(Trim(LocStr))<>0) XText(188,178,10,TA_Center|TA_BaseLine,LocStr) else Text(188,178,TA_Center|TA_BaseLine,skrt) if(Length(Trim(P2Druh[2]))<>0) XText(30,186,65,TA_Left|TA_BaseLine,P2Druh[2]) else Text(30,186,TA_Left|TA_BaseLine,skrt) TiskSkrt(P2Prijem[2],120,186,1) TiskSkrt(P2Vydaj[2],150,186,1) TiskSkrt(P2Prijem[2]-P2Vydaj[2],180,186,1) LocStr=Copy(P2Kody,P2Kod[2]+1,1); if(Length(Trim(LocStr))<>0) XText(188,186,10,TA_Center|TA_BaseLine,LocStr) else Text(188,186,TA_Center|TA_BaseLine,skrt) if(Length(Trim(P2Druh[3]))<>0) XText(30,194,65,TA_Left|TA_BaseLine,P2Druh[3]) else Text(30,194,TA_Left|TA_BaseLine,skrt) TiskSkrt(P2Prijem[3],120,194,1) TiskSkrt(P2Vydaj[3],150,194,1) TiskSkrt(P2Prijem[3]-P2Vydaj[3],180,194,1) LocStr=Copy(P2Kody,P2Kod[3]+1,1); if(Length(Trim(LocStr))<>0) XText(188,194,10,TA_Center|TA_BaseLine,LocStr) else Text(188,194,TA_Center|TA_BaseLine,skrt) if(Length(Trim(P2Druh[4]))<>0) XText(30,202,65,TA_Left|TA_BaseLine,P2Druh[4]) else Text(30,202,TA_Left|TA_BaseLine,skrt) TiskSkrt(P2Prijem[4],120,202,1) TiskSkrt(P2Vydaj[4],150,202,1) TiskSkrt(P2Prijem[4]-P2Vydaj[4],180,202,1) LocStr=Copy(P2Kody,P2Kod[4]+1,1); if(Length(Trim(LocStr))<>0) XText(188,202,10,TA_Center|TA_BaseLine,LocStr) else Text(188,202,TA_Center|TA_BaseLine,skrt) TiskSkrt(P2DilciSuma,180,210,1) TiskSkrt(P2207,150,232,1) TiskSkrt(P2208,150,240,1) TiskSkrt(P2209,150,248,1) KonecUdajuP2: if(Pril3) NextPage; end; ;{******************************************************************************************************************} ;{ tisk 3. přílohy } if(Pril3) begin FontSize(5) FontFace(Normal|Bold) Text(18,14,TA_Left|TA_BaseLine,'PŘÍLOHA č. 3') FontFace(Normal) FontSize(3.2) Text(135,13,TA_Right|TA_BaseLine,'Rodné číslo:') FontSize(3.8) SText(169.5,13.5,TA_CENTER|TA_BaseLine,5,1,'/') Pen(0,0.1) RoundBoxA(137,9,193,15,3.3,3.3) LinesA(142,13.5,142,15,10,0,3) LinesA(172,13.5,172,15,5,0,4) LinesA(147,13,147,15,10,0,3) FontSize(3.2) Text(18,18,TA_Left|TA_BaseLine,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob') Text(18,21,TA_Left|TA_BaseLine,'za zdaňovací období 2010 – 25 5405 MFin 5405 vzor č. 17 (dále jen „DAP“).') Text(18,25,TA_Left|TA_BaseLine,'Částky uveďte v celých Kč. Číselné hodnoty počítané v průběhu výpočtu daňové povinnosti jsou ukazatelé ve smyslu ustanovení') Text(18,28,TA_Left|TA_BaseLine,'§ 146 zákona č. 280/2009 Sb., daňový řád, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí s přesností na dvě desetinná') Text(18,31,TA_Left|TA_BaseLine,'místa. Postupné zaokrouhlování ve dvou nebo více stupních je nepřípustné.') FontSize(3.6) XText(18,36,175,TA_Left|TA_BaseLine,'Výpočet daně z příjmů ze zdrojů v zahraničí (§ 38f zákona)') XText(18,41,175,TA_Left|TA_BaseLine,'Příjmy ze zdrojů v zahraničí - metoda zápočtu daně zaplacené v zahraničí') FontFace(Normal) Text(18,47,TA_Left|TA_BaseLine,'Podle § 38f odst. 8 zákona se metoda prostého zápočtu provádí za každý stát samostatně. Proto v případě, že Vám') Text(18,51,TA_Left|TA_BaseLine,'plynou příjmy z více států, použijte k výpočtu za každý další stát Samostatný list ') FontFace(Bold) Text(1.5,0,TA_Relative|TA_Baseline,'Přílohy č. 3') FontFace(Normal) Text(1.5,0,TA_Relative|TA_Baseline,'zveřejněný na webové adrese') FontFace(Bold) Text(18,55,TA_Left|TA_BaseLine,'http://cds.mfcr.cz) Text(18,62,TA_Left|TA_BaseLine,'Kód státu') Pen(0,0.1) RoundBox(32,58,11,6,3.3,3.3) Pen(0,0.3) RoundBoxA(18,65,193,165,3.3,3.3) Pen(0,0.1) LineA(113,70,193,70) LinesA(18,75,193,75,0,10,9) LineA(113,65,113,165) LineA(153,70,153,165) Pen(0,0.5) RoundBoxA(18,169,193,179,3.3,3.3) RoundBoxA(18,135,193,165,3.3,3.3) Pen(0,1,$FFFFFF) Box(18.5,135.5,2,2) Box(191,135.5,2,2) Pen(0,0.5,$000000) BoxA(18,135,193,145) BoxA(18,145,193,155) FontFace(Normal) FontSize(3.2) Text(153,68.5,TA_Center|TA_BaseLine,'Vyplní v celých Kč') Text(133,73.5,TA_Center|TA_BaseLine,'poplatník') Text(173,73.5,TA_Center|TA_BaseLine,'finanční úřad') Text(20,81,TA_Left|TA_BaseLine,'321') XText(27,81,84,TA_Left|TA_BaseLine,'Příjmy ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Text(20,91,TA_Left|TA_BaseLine,'322') XText(27,91,84,TA_Left|TA_BaseLine,'Výdaje') Text(20,101,TA_Left|TA_BaseLine,'323') XText(27,101,84,TA_Left|TA_BaseLine,'Daň zaplacená v zahraničí') Text(20,109,TA_Left|TA_BaseLine,'324') XText(27,109,84,TA_Left|TA_BaseLine,'Koeficient zápočtu') XText(27,113,84,TA_Left|TA_BaseLine,'(ř. 321 - ř. 322) děleno ř. 42 výsledek vynásobte stem ') Text(20,119,TA_Left|TA_BaseLine,'325') XText(27,119,84,TA_Left|TA_BaseLine,'Z částky daně zaplacené v zahraničí lze maximálně započítat') XText(27,123,84,TA_Left|TA_BaseLine,'(ř. 57 násobeno ř. 324, děleno stem)') Text(20,131,TA_Left|TA_BaseLine,'326') XText(27,131,84,TA_Left|TA_BaseLine,'Daň uznaná k zápočtu (ř. 323 maximálně však do výše ř. 325)') Text(20,141,TA_Left|TA_BaseLine,'327') XText(27,141,84,TA_Left|TA_BaseLine,'Rozdíl řádků (ř. 323 - ř. 326)') Text(20,151,TA_Left|TA_BaseLine,'328') XText(27,151,84,TA_Left|TA_BaseLine,'Daň uznaná k zápočtu (úhrn řádků 326 i ze samostatných listů)') Text(20,161,TA_Left|TA_BaseLine,'329') XText(27,161,84,TA_Left|TA_BaseLine,'Daň neuznaná k zápočtu (úhrn řádků 327 i ze samostatných listů)') Text(20,175,TA_Left|TA_BaseLine,'330') XText(27,175,84,TA_Left|TA_BaseLine,'Rozdíl řádků (ř. 57 - ř. 328)') FontFace(Normal) FontSize(2.3) Text(18,278,TA_Left|TA_Baseline,'25 5405/P3 MFin 5405/P3 - vzor č. 5'); ;{Tisk hodnot} if(not Prazdny) begin FontSize(3.8) FontFace(Italic|Bold) SText(139,8.5,TA_Left|TA_BaseLine,5,11,RC) FontFace(Normal) TiskSkrt(KS1,40,62,0) TiskSkrt(P3321,148,81,1) TiskSkrt(P3322,148,91,1) TiskSkrt(P3323,148,101,1) TiskSkrt(P3324,148,111,0) TiskSkrt(P3325,148,121,1) TiskSkrt(P3326,148,131,1) TiskSkrt(P3327,148,141,1) TiskSkrt(P3328,148,151,1) TiskSkrt(P3329,148,161,1) TiskSkrt(P3330,148,175,1) end end Procedure WriteDatum(Nazev:String,Datum:Word) if((IsXML)and(Length(Nazev)<>0)and(Datum<>0)) begin Write(XML,' '+Nazev+'="'+Day(Datum,2)+'.'+Month(Datum,2)+'.'+Year(Datum,4)+'"'); end; end; Procedure WriteBool(Nazev:String,Bool:Boolean) if(IsXML) begin Write(XML,' '+Nazev+'="'); if(Bool) Write(XML,'A"') else Write(XML,'N"'); end; end; Procedure WriteSubstr(Nazev:String,IndexStr:String,Index:Byte) if((IsXML)and(Index