; DDT pro DAP B 2005 - vzor. č. 13 ; verze z 22.2.2005, úprava do 31.12.2006 ; Autor: WinDUO Team IniRok:String=Rok() FileName('DAPB'+IniRok+'.WNS') Name('Daňové přiznání DAP vzor č.13 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 13') 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; ;{definice promennych 1} 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[17]='' LocW:Word LocWord1:Word=0 LocShInt1:ShortInt=0 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) HlasVHPredZdan:String VyskaFontuHodn:Real=4; 3.8 poprve:Boolean=True HelpStr:String; Priznani:Boolean=True Pril1:Boolean Pril2:Boolean Pril3:Boolean Pril4:Boolean Pril5:Boolean DlgFollowMouse(True) DefDialog('Volba tisku',292,232) DlgShade(-1,'',4,27,282,132) 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 č. 13'); 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)') DlgCheckBox(105,Pril4,16,112,110,,'Příloha č. 4'); DlgOnLineHelp(105,'P4 - Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona') DlgCheckBox(106,Pril5,16,132,110,,'Příloha č. 5'); DlgOnLineHelp(106,'P5 - Výpočet společného základu daně manželů podle § 13a zákona') DlgButton(id_OK,'OK',156,164); DlgOnLineHelp(id_OK,'Pokračuje ve zpracování') DlgButton(id_Cancel,'Zpět',222,164); DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování') DlgButton(id_Help,'Help',4,164); 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 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 13 pro rok 2005',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 č. 13) 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/2006 - vzor č.13',16,100,575) IF(not CompareStr(IniRok,'2005')) begin AddWarn('Daňové přiznání vzor 13 je určeno pro rok 2006 - 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 skrt:String[5]='-----' 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 D39:LongInt=0 D40:LongInt=0 D41: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 P2203:LongInt=0 P2206:LongInt=0 P2DilciSuma: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 P3319:LongInt=0 P3320:LongInt=0 P3325:LongInt=0 P3326:LongInt=0 P3327:LongInt=0 P3330:LongInt=0 P4405:LongInt=0 P4406:LongInt=0 P4407:LongInt=0 P4408:LongInt=0 P4409:LongInt=0 P4410:LongInt=0 P4411:LongInt=0 P4414:LongInt=0 P4415:LongInt=0 P4416:LongInt=0 P4417:LongInt=0 P4418:LongInt=0 P5501P:LongInt=0 P5502P:LongInt=0 P5503P:LongInt=0 P5504P:LongInt=0 P5505P:LongInt=0 P5506P:LongInt=0 P5506M:LongInt=0 P5507PM:LongInt=0 P5519P:LongInt=0 P5519M:LongInt=0 P5520PM:LongInt=0 P5522:LongInt=0 P5526:LongInt=0 PR12: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} ;FinancniUrad:String[50]=GetFromIni('TITULNI','FinancniUrad',INI) 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) PSCdppo:String=GetFromIni('TITULNI','PSC',INI) UliceDppo:String[35]=GetFromIni('TITULNI','Ulice',INI) Stat:String[15]=GetFromIni('TITULNI','Stat',INI) Telefon:String[12]=GetFromIni('TITULNI','Telefon',INI) Fax:String[12]=GetFromIni('TITULNI','Fax',INI) BankovniUcet:String[30]=GetFromIni('TITULNI','BankovniUcet',INI) PoradceAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'PoradceAnoNe',INI)) EvCisOsved:STRING[6]=GetFromIni('ZAVER'+IniRok,'EvCisOsved',INI) OverAuditAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'OverAuditAnoNe',INI)) ZdanManzelu:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'ZdanManzelu',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 HlavCinn1:String[140]=GetFromIni('TITULNI','HlavCinn1',INI) HlavCinn2:String[140]=GetFromIni('TITULNI','HlavCinn2',INI) RodneCislo:String[11]=GetDataINI('INFO','RodneCislo') RodneCislo=ValidateStr(RodneCislo,'0123456789'); RodneCislo=Copy(RodneCislo,1,6)+' '+Copy(RodneCislo,7,255); Prijmeni:String[35]=GetFromIni('TITULNI','Prijmeni',INI) RodnePrijmeni:String[35]=GetFromIni('TITULNI','RodnePrijmeni',INI) Jmeno:String[35]=GetFromIni('TITULNI','Jmeno',INI) Titul:String[35]=GetFromIni('TITULNI','Titul',INI) StatPrislusnost:String[35]=GetFromIni('TITULNI','StatPrislusnost',INI) CisloPasu:String[35]=GetFromIni('TITULNI','CisloPasu',INI) ObecDapb:String[35]=GetFromIni('TITULNI','ObecDapb',INI) UliceDapb:String[35]=GetFromIni('TITULNI','UliceDapb',INI) CisloPODapb:String[12]=GetFromIni('TITULNI','CisloPODapb',INI) PSCDapb:String[6]=GetFromIni('TITULNI','PSCDapb',INI) TelefonDapb:String[35]=GetFromIni('TITULNI','TelefonDapb',INI) FaxDapb:String[35]=GetFromIni('TITULNI','FaxDapb',INI) Stat:String[12]=GetFromIni('TITULNI','Stat',INI) ObecTP:String[35]=GetFromIni('TITULNI','ObecTP',INI) UliceTP:String[35]=GetFromIni('TITULNI','UliceTP',INI) PSCTP:String[6]=GetFromIni('TITULNI','PSCTP',INI) CisloPOTP:String[12]=GetFromIni('TITULNI','CisloPOTP',INI) ObecZdrz:String[35]=GetFromIni('TITULNI','ObecZdrz',INI) UliceZdrz:String[35]=GetFromIni('TITULNI','UliceZdrz',INI) CisloPOZdrz:String[12]=GetFromIni('TITULNI','CisloPOZdrz',INI) PSCZdrz:String[6]=GetFromIni('TITULNI','PSCZdrz',INI) TelefonZdrz:String[35]=GetFromIni('TITULNI','TelefonZdrz',INI) FaxZdrz:String[35]=GetFromIni('TITULNI','FaxZdrz',INI) KodStat:String[2]=GetFromIni('TITULNI','KodStat',INI) BankovniUcet:String[30]=GetFromIni('TITULNI','BankovniUcet',INI) TypPriz1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'TypPriz1',INI)) EkPropojeniAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI','EkPropojeniAnoNe',INI)) KodRozlis1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'KodRozlis1',INI)) DatumRozlis:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumRozlis',INI)) ;{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=VAL(GetFromIni('DAP'+IniRok,'P1103',INI)) 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=VAL(GetFromIni('DAP'+IniRok,'P1111',INI)) 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)) ;{nacteni pro 3.cover} P1ETZvys1:String=GetFromIni('DAP'+IniRok,'P1ETZvys1',INI) P1ETZvys2:String=GetFromIni('DAP'+IniRok,'P1ETZvys2',INI) P1ETZvys3:String=GetFromIni('DAP'+IniRok,'P1ETZvys3',INI) P1ETZvys4:String=GetFromIni('DAP'+IniRok,'P1ETZvys4',INI) P1EHZvys1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys1',INI)) P1EHZvys2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys2',INI)) P1EHZvys3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys3',INI)) P1EHZvys4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys4',INI)) P1ETSniz1:String=GetFromIni('DAP'+IniRok,'P1ETSniz1',INI) P1ETSniz2:String=GetFromIni('DAP'+IniRok,'P1ETSniz2',INI) P1ETSniz3:String=GetFromIni('DAP'+IniRok,'P1ETSniz3',INI) P1ETSniz4:String=GetFromIni('DAP'+IniRok,'P1ETSniz4',INI) P1EHSniz1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz1',INI)) P1EHSniz2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz2',INI)) P1EHSniz3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz3',INI)) P1EHSniz4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz4',INI)) JmenoSdr1:String=GetFromIni('DAP'+IniRok,'JmenoSdr1',INI) JmenoSdr2:String=GetFromIni('DAP'+IniRok,'JmenoSdr2',INI) JmenoSdr3:String=GetFromIni('DAP'+IniRok,'JmenoSdr3',INI) PrijmeniSdr1:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr1',INI) PrijmeniSdr2:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr2',INI) PrijmeniSdr3:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr3',INI) DICSdr1:String=GetFromIni('DAP'+IniRok,'DICSdr1',INI) DICSdr2:String=GetFromIni('DAP'+IniRok,'DICSdr2',INI) DICSdr3:String=GetFromIni('DAP'+IniRok,'DICSdr3',INI) PodilP1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP1',INI)) PodilP2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP2',INI)) PodilP3:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP3',INI)) PodilV1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV1',INI)) PodilV2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV2',INI)) PodilV3:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV3',INI)) JmenoSpol1:String=GetFromIni('DAP'+IniRok,'JmenoSpol1',INI) JmenoSpol2:String=GetFromIni('DAP'+IniRok,'JmenoSpol2',INI) PrijmeniSpol1:String=GetFromIni('DAP'+IniRok,'PrijmeniSpol1',INI) PrijmeniSpol2:String=GetFromIni('DAP'+IniRok,'PrijmeniSpol2',INI) DICSpol1:String=GetFromIni('DAP'+IniRok,'DICSpol1',INI) DICSpol2:String=GetFromIni('DAP'+IniRok,'DICSpol2',INI) PodilSpol1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilSpol1',INI)) PodilSpol2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilSpol2',INI)) 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)) P2Druh1:String=GetFromIni('DAP'+IniRok,'P2Druh1',INI) P2Druh2:String=GetFromIni('DAP'+IniRok,'P2Druh2',INI) P2Druh3:String=GetFromIni('DAP'+IniRok,'P2Druh3',INI) P2Druh4:String=GetFromIni('DAP'+IniRok,'P2Druh4',INI) P2Prijem1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem1',INI)) P2Prijem2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem2',INI)) P2Prijem3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem3',INI)) P2Prijem4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem4',INI)) P2Vydaj1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj1',INI)) P2Vydaj2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj2',INI)) P2Vydaj3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj3',INI)) P2Vydaj4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj4',INI)) P2Kod1:String=GetFromIni('DAP'+IniRok,'P2Kod1',INI) P2Kod2:String=GetFromIni('DAP'+IniRok,'P2Kod2',INI) P2Kod3:String=GetFromIni('DAP'+IniRok,'P2Kod3',INI) P2Kod4:String=GetFromIni('DAP'+IniRok,'P2Kod4',INI) ;{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)) P3319A:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3319A',INI)) KS1:String=GetFromIni('DAP'+IniRok,'KS1',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 8.cover} P4401:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4401',INI)) P4402:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4402',INI)) P4403:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4403',INI)) P4404:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4404',INI)) P4412:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4412',INI)) P4413:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4413',INI)) ;{nacteni pro 9. cover + 10. cover} P5Manzel:String=GetFromIni('DAP'+IniRok,'P5Manzel',INI) P5DIC:String=GetFromIni('DAP'+IniRok,'P5DIC',INI) P5Adresa:String=GetFromIni('DAP'+IniRok,'P5Adresa',INI) P5Urad:String=GetFromIni('DAP'+IniRok,'P5Urad',INI) P501P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P501P',INI)) P501M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P501m',INI)) P502P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P502P',INI)) P502M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P502m',INI)) P503P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P503P',INI)) P503M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P503m',INI)) P504P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P504P',INI)) P504M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P504m',INI)) P505P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P505P',INI)) P505M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P505m',INI)) P506P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P506P',INI)) P506M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P506m',INI)) P507 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P507',INI)) P508P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P508P',INI)) P508M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P508m',INI)) P509PM:Byte=VAL(GetFromIni('DAP'+IniRok,'P509PM',INI)) P509P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P509P',INI)) P509MM:Byte=VAL(GetFromIni('DAP'+IniRok,'P509MM',INI)) P509M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P509m',INI)) P510P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P510P',INI)) P510M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P510m',INI)) P511P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P511P',INI)) P511M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P511m',INI)) P512P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P512P',INI)) P512M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P512m',INI)) P513P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P513P',INI)) P513M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P513m',INI)) P514 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P514',INI)) P515 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P515',INI)) P516 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P516',INI)) P517 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P517',INI)) P518 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P518',INI)) P519 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P519',INI)) P519T:String=GetFromIni('DAP'+IniRok,'P519T',INI)) P520 :LongInt=VAL(GetFromIni('DAP'+IniRok,'P520',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)) D37:LongInt=VAL(GetFromIni('DAP'+IniRok,'D37',INI)) D38:LongInt=VAL(GetFromIni('DAP'+IniRok,'D38',INI)) D43M:Byte=VAL(GetFromIni('DAP'+IniRok,'D43M',INI)) D43:LongInt=VAL(GetFromIni('DAP'+IniRok,'D43',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=GetFromIni('DAP'+IniRok,'ManzelJmeno',INI) ManzelRC:String=GetFromIni('DAP'+IniRok,'ManzelRC',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)) DiteJmeno1:String=GetFromIni('DAP'+IniRok,'DiteJmeno1',INI) DiteRC1:String=GetFromIni('DAP'+IniRok,'DiteRC1',INI) DiteMesic1:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesic1',INI)) DiteZTP1:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTP1',INI)) DiteJmeno2:String=GetFromIni('DAP'+IniRok,'DiteJmeno2',INI) DiteRC2:String=GetFromIni('DAP'+IniRok,'DiteRC2',INI) DiteMesic2:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesic2',INI)) DiteZTP2:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTP2',INI)) DiteJmeno3:String=GetFromIni('DAP'+IniRok,'DiteJmeno3',INI) DiteRC3:String=GetFromIni('DAP'+IniRok,'DiteRC3',INI) DiteMesic3:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesic3',INI)) DiteZTP3:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTP3',INI)) DiteJmeno4:String=GetFromIni('DAP'+IniRok,'DiteJmeno4',INI) DiteRC4:String=GetFromIni('DAP'+IniRok,'DiteRC4',INI) DiteMesic4:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesic4',INI)) DiteZTP4:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTP4',INI)) DiteMesicC:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteMesicC',INI)) DiteZTPC:Byte=VAL(GetFromIni('DAP'+IniRok,'DiteZTPC',INI)) 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)) 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)) 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) Prep2:STRING=GetFromIni('DAP'+IniRok,'Prep2',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) Prep9:STRING=GetFromIni('DAP'+IniRok,'Prep9',INI) Prep10:STRING=GetFromIni('DAP'+IniRok,'Prep10',INI) Prep11:STRING=GetFromIni('DAP'+IniRok,'Prep11',INI) Prep12:Word=ValDate(GetFromIni('DAP'+IniRok,'Prep12',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.')) P1101=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.')) P2PRIJEM1=GetFromWNSLine(4,False) if(CompareStr(LocStr,'F.')) begin P2VYDAJ1=GetFromWNSLine(4,False) LocB=False end end ; if((P1101<>0)or(P1102<>0)) ; Pril1=True ; if((P2205<>0)or(P2206<>0)or(P2PRIJEM1<>0)or(P2VYDAJ1<>0)) ; Pril2=True 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 if((P1Procento=0)and(P1102=0)) P1102=OP1102 if(P1Procento=1) P1102=Round(P1101*0.6) if(P1Procento=2) P1102=Round(P1101*0.5) if(P1Procento=3) P1102=Round(P1101*0.4) if(P1Procento=4) P1102=Round(P1101*0.2) P2203=P2201-P2202 P2206=P2203+P2204-P2205 P2207=P2Prijem1+P2Prijem2+P2Prijem3+P2Prijem4 P2DilciSuma=0 IF(P2Prijem1-P2Vydaj1>0) P2DilciSuma=P2DilciSuma+P2Prijem1-P2Vydaj1 IF(P2Prijem2-P2Vydaj2>0) P2DilciSuma=P2DilciSuma+P2Prijem2-P2Vydaj2 IF(P2Prijem3-P2Vydaj3>0) P2DilciSuma=P2DilciSuma+P2Prijem3-P2Vydaj3 IF(P2Prijem4-P2Vydaj4>0) P2DilciSuma=P2DilciSuma+P2Prijem4-P2Vydaj4 P2209=P2DilciSuma P2208=P2207-P2209 Pr1=0 if(Pril1) begin Pr1=1 P1104=(P1101-P1102-P1103) 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 Pr4=0 if(Pril4) Pr4=1 Pr8=0 if(D47<>0) Pr8=1 Pr9=0 if(D48<>0) Pr9=1 Pr10=0 if(D49<>0) Pr10=1 Pr11=0 if(D46<>0)or(D50<>0)or(D51<>0)or(D52<>0)or(D53<>0) Pr10=1 Pr12=Pr1+Pr2+Pr3+Pr4+Pr5+Pr6+Pr7+Pr8+Pr9+Pr10+Pr11 if(DiteMesicC=0) DiteMesicC=DiteMesic1+DiteMesic2+DiteMesic3+DiteMesic4; Pr5=0 If(Pril5) begin Pr5=1 if(D36<>0) P501P=D36 else P501P=0 if(D37>0) P502P=D37 else P502P=0 if(D38<>0) P503P=D38 else P503P=0 if(D39>0) P504P=D39 else P504P=0 if(D40<>0) P505P=D40 else P505P=0 P506P=P501P+P502P+P503P+P504P+P505P P506M=P501M+P502M+P503M+P504M+P505M P507=P506P+P506M if(D46<>0) P508P=D46 else P508P=0 if(D47>0) begin P509PM=D47M P509P=D47 end; else begin P509PM=0 P509P=0 end; if(D48<>0) P510P=D48 else P510P=0 if(D49>0) P511P=D49 else P511P=0 if(D50<>0) P512P=D50 else P512P=0 P513P=P508P+P509P+P510P+P511P+P512P P513M=P508M+P509M+P510M+P511M+P512M P514=P513M+P513P P515=P507-P514 P516=RoundUp(P515/2) P520=P516-P517-P518-P519 end 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(D41<0) D42=D36 else D42=D36+D41 if(D43>=D42) D45=D43 else begin if(D41>0) D45=D42-D44 else D45=D42 end D54=D46+D47+D48+D49+D50+D51+D52+D53 if(Pril5) D55=P520 else D55=D45-D54 D56=(Int(D55/100))*100; if(D56<=121200) D57=Int(D56*0.12) else if((D56>121200)and(D56<218400)) D57=Int(((D56-121200)*0.19)+14544) else if((D55>218400)and(D55<311200)) D57=Int(((D56-218400)*0.25)+33012) else D57=Int(((D56-311200)*0.32)+61212) D58=D57 D60=RoundUp(D58+D59) if(D72<(D60-(D62+D63+D64+D65a+D65b+D66+D67+D68+D69))) D73=D72 else D73=D60-(D62+D63+D64+D65a+D65b+D66+D67+D68+D69) Pr3=0 if(Pril3) begin Pr3=1 ; if(D43<>0) ;zrušila jsem výpočet ř.301, protože si bral údaje z ř.63 - vypočtená daň, která už může být pouze poloviční (při společném zdanění manželů) ; else ; P3301=100*D63/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=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(D62<>0) P3315=RoundFloat((D63/D62)*100,0) P3316=RoundFloat((P3314*P3315)/100,0) P3319=P3ZPS1H+P3ZPS2H P3320=P3317+P3318-P3319-P3319A P3325=RoundFloat((P3317*P3324)/100,0) P3326=P3323 if(P33250) P4405=P4401 if(P4402<>0) P4406=P4402 P4407=P4403-P4404 if(P4405+P4407>0) P4408=Double((P4405+P4407)*0.15) ;zaokrouhlení na celé kč - aritmeticky? else P4408=0 if(P4406>0) P4409=Double(P4406*0.2) ;zaokrouhlení na celé kč else P4409=0 P4410=P4405+P4407 P4411=P4406 P4414=P4412 if(P4412>P4408) P4414=P4408 P4415=P4413 if(P4413>P4409) P4415=P4409 P4416=P4408-P4414 P4417=P4409-P4415 P4418=P4416+P4417 end D65=0 ;{kontroly pro 10.cover} ;WarnPrizn1:STRING='' ;úprava délky období, je-li jinak nez 12 mesíců: ;IF(DelkaObdobi<>Program.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(((P2PRIJEM1<>0)or(P2VYDAJ1<>0))and(Length(P2Druh1)=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) GOTO(tisk) ;{definice hlavniho dialogu} begin DefDialog('! POMŮCKA ! pro výpočet daně z příjmu fyzických osob',620,470) ;{vykreslení uvodu} DlgShade(-1,'',4,4,610,440) DlgCover(199,14,8,8,604,390,False,AktualCover) ;{============================== 1. cover ================================} ;{vykresleni 1. coveru} SetCover(1,'S1') DlgStatic(-1,'Zdaňovací období (kalendářní rok)',32,22,230) DlgEdit(103,Obdobi,260,20,40,,4) DlgOnLineHelp(103,'Kalendářní rok, za který DAP podáváte') DlgStatic(-1,'nebo &od',314,22,54) DlgEditDate(1031,DatumOd,379,18,78,,,,ValidDatum) DlgOnLineHelp(1031,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od ...') DlgStatic(-1,'&do',469,22,20) DlgEditDate(1032,DatumDo,491,18,78,,,,ValidDatum) DlgOnLineHelp(1032,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část do ...') DlgStatic(-1,'Lhůta pro podání DP',32,53,135) DlgEditDate(162,DatumLhuta,175,49,78,,,,ValidDatum) DlgOnLineHelp(162,'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ň)') DlgStatic(-1,'Typ &DAP',409,53,57) ;DlgCombo(102,TypPriz1,469,49,100,128,9,CBS_DropDownList,'řádné','opravné','dodatečné'), vytvořil p. Čapek, zjistit záludnosti dodatečného DP, LĎ DlgCombo(102,TypPriz1,469,49,100,128,9,CBS_DropDownList,'řádné','opravné') DlgOnLineHelp(102,'03 Typ daňového přiznání DAP - viz POKYNY k vyplnění ...') DlgCheckBox(130,PoradceAnoNe,16,98,340,,'Přiznání zpracoval a předložil d&aňový poradce...') DlgOnLineHelp(130,'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') DlgStatic(-1,'Číslo poradce',405,98,91) DlgEdit(131,EvCisOsved,500,94,68,,6) DlgOnLineHelp(131,'Pokud daňové přiznání zpracovává daňový poradce, uvede evidenční číslo osvědčení') DlgCheckBox(135,OverAuditAnoNe,16,120,500,,'Zákonná povinnost ověření účetní závěrky auditorem') DlgOnLineHelp(135,'Zákonná povinnost ověření účetní závěrky auditorem') DlgCheckBox(140,ZdanManzelu,16,263-160+37,500,,'V DAP je uplatňováno společné zdanění manželů podle § 13a zákona') DlgOnLineHelp(140,'V DAP je uplatňováno společné zdanění manželů podle § 13a zákona') DlgStatic(-1,'Výše celosvětových příjmů',304,173,180) DlgEdit(150,Celosvetove,488,169,80,,9,ES_RIGHT,ValidCisloInt) 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') DlgStatic(-1,'Ostatní údaje pro titulní stranu DAP je nutno vyplnit',20,225,560,,,ES_CENTER) DlgStatic(-1,'v Nastavení + Nastavení údajů pro sestavy (DDT) + První strana DAP',20,241,560,,,ES_CENTER) LocStr=StrTime(GetTime(),True) LocStr=FromChar(':',LocStr) LocStr=FromChar(':',LocStr) LocStr=ToChar(':',LocStr) LocN=Val(LocStr)/10 if(LocN<=1) begin DlgStatic(-1,'Murphy: "Když nemáme dost času na správné vyplnění daňového přiznání,',20,284,560,,,ES_CENTER,$FF0000) DlgStatic(-1,'musíme pak mít dost času na dodatečné daňové přiznání."',20,302,560,,,ES_CENTER,$FF0000) end if(LocN=2) begin DlgStatic(-1,'Daňová spravedlnost je teorie pro dívčí gymnázia.',20,284,560,,,ES_CENTER,$FF0000) end if(LocN=3) begin DlgStatic(-1,'Bezchybná daňová přiznání jsou ta, která berní úřad dosud nezpochybnil.',20,284,560,,,ES_CENTER,$FF0000) end if(LocN=4) begin DlgStatic(-1,'Ty křížovky jsou trapně jednoduché! Podejte mi nějaké daňové přiznání!',20,284,560,,,ES_CENTER,$FF0000) end if(LocN>=5) begin DlgStatic(-1,'Co nedokáže počítač, to dokáže tužka!',20,284,560,,,ES_CENTER,$FF0000) end ;Nejsilnější zbraní berního úřadníka jsou nejasné zákony. ;{============================== 2. cover ================================} ;{vykresleni 2. coveru} SetCover(5,'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),x23-2) DlgCombo(200,P1Procento,x23,y2+(PocRad2*i21),200,128,10,CBS_DropDownList,'Ne','40% - jiné podnikání','50% - živnosti ostatní', '60% - živnosti řemeslné', '80% - zemědělská výroba') 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) 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,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,ValidCisloInt) DlgOnLineHelp(202,'102 Výdaje související s příjmy podle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'103 Pojistné',x21,y2+(PocRad2*i21),x22-2) DlgEdit(203,P1103,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(203,'103 Pojistné') Inc(PocRad2) DlgStatic(-1,'104 '+HlasVHPredZdan,x21,y2+(PocRad2*i21),x22-2) if(RucneVHPredZdan) begin ;DlgStatic(-1,'104 Rozdíl mezi příjmy a výdaji ... nebo VH (zisk, ztráta)',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 - ř. 103)'+#13+'nebo výsledek hospodaření (zisk, ztráta)'+#13+'V úvodní obrazovce jste zvolili vstup Ručně, zadejte tedy ručně') end else begin DlgStatic(-1,P1104,x22+9,y2+(PocRad2*i21),SirkaPolicka21,,,ES_Right) end 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 Zbývající část příjmů za více zdaňovacích období snížená ...',x21,y2+(PocRad2*i21),x22-2) DlgEdit(211,P1111,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(211,'111 Zbývající část příjmů za více zdaňovacích období snížená o zbývající'+#13+'část výdajů připadající na příjmy za více zdaňovacích období podle'+#13+'§ 14 zákona') 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(6,'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,P1ETZvys1,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,P1EHZvys1,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,P1ETZvys2,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,P1EHZvys2,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,P1ETZvys3,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,P1EHZvys3,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,P1ETZvys4,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,P1EHZvys4,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,P1ETSniz1,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,P1EHSniz1,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,P1ETSniz2,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,P1EHSniz2,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,P1ETSniz3,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,P1EHSniz3,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,P1ETSniz4,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,P1EHSniz4,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,'1.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(330,JmenoSdr1,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(330,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(331,PrijmeniSdr1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(331,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(332,DICSdr1,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,PodilP1,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,PodilV1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,JmenoSdr2,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(335,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(336,PrijmeniSdr2,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(336,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(337,DICSdr2,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,PodilP2,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,PodilV2,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,JmenoSdr3,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(340,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(341,PrijmeniSdr3,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(341,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(342,DICSdr3,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,PodilP3,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,PodilV3,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,JmenoSpol1,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) 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,PrijmeniSpol1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) 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,DICSpol1,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,PodilSpol1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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,JmenoSpol2,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) 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,PrijmeniSpol2,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) 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,DICSpol2,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,PodilSpol2,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,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(7,'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. Dlouhodobý hmotný majetek',5,52,285) DlgEdit(371,P1D1Z,288,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(371,'1. Dlouhodobý hmotný majetek - na začátku zdaňovacího období') DlgEdit(372,P1D1K,433,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(372,'1. Dlouhodobý 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(8,'P2') if(Pril2) begin DlgCheckBox(401,P2VydProcentem,5,5,210,,'Uplatňuji výdaje % z příjmů') 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ů') DlgCheckBox(402,P2SpolJmeni,230,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,'1 Druh příjmů',5,154,98) DlgEdit(407,P2Druh1,103,152,160,19,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,P2Prijem1,268,152,100,19,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,P2Vydaj1,373,152,100,19,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(P2Prijem1-P2Vydaj1,9,0),475,152,77,,,ES_Right) DlgEdit(410,P2Kod1,560,152,35,19,3,ES_RIGHT) DlgOnLineHelp(410,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.5 Kód') DlgStatic(-1,'2 Druh příjmů',5,173,98) DlgEdit(411,P2Druh2,103,171,160,19,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,P2Prijem2,268,171,100,19,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,P2Vydaj2,373,171,100,19,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(P2Prijem2-P2Vydaj2,9,0),475,171,77,,,ES_Right) DlgEdit(414,P2Kod2,560,171,35,19,3,ES_RIGHT) DlgOnLineHelp(414,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.5 Kód') DlgStatic(-1,'3 Druh příjmů',5,192,98) DlgEdit(415,P2Druh3,103,190,160,19,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,P2Prijem3,268,190,100,19,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,P2Vydaj3,373,190,100,19,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(P2Prijem3-P2Vydaj3,9,0),475,190,77,,,ES_Right) DlgEdit(418,P2Kod3,560,190,35,19,3,ES_RIGHT) DlgOnLineHelp(418,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.5 Kód') DlgStatic(-1,'4 Druh příjmů',5,211,98) DlgEdit(419,P2Druh4,103,209,160,19,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,P2Prijem4,268,209,100,19,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,P2Vydaj4,373,209,100,19,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(P2Prijem4-P2Vydaj4,9,0),475,209,77,,,ES_Right) DlgEdit(422,P2Kod4,560,209,35,19,3,ES_RIGHT) DlgOnLineHelp(422,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.5 Kód') DlgStatic(-1,'Úhrn kladných rozdílů',5,231,145) DlgStatic(-1,P2DilciSuma,475,231,77,,,ES_Right) DlgStatic(-1,'207 Příjmy podle §10 zákona',5,258,210) DlgStatic(-1,P2207,495,258,100,,,ES_Right) DlgStatic(-1,'208 Výdaje §10 zákona (max do výše příjmů)',5,278,310) DlgStatic(-1,P2208,495,278,100,,,ES_Right) DlgStatic(-1,'209 Dílčí základ daně připadající na ostatní příjmy (ř.207-208)',5,298,420) DlgStatic(-1,P2209,495,298,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 ;{============================== 6. cover ================================} ;{vykresleni 6. coveru} SetCover(9,'P3/1') if(Pril3) begin x51=5 x52=497 y5=2 i51=19 ;radkovani 1 PocRad5=0 ;pomocna promenna SirkaPolicka51=380 ;standardní šířka SirkaPolicka52=100 DlgStatic(-1,'301 Procento daně ze základu daně ...',x51,y5+(PocRad5*i51),x52-10-14) DlgEdit(501,P3301,x52,y5+(PocRad5*i51)-2,SirkaPolicka52-20,i51,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(501,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'301 Procento daně ze základu daně (ř. 63 děleno ř.42 / popřípadě ř.43'+#13+'násobeno stem.) Jestliže takto zjištěné procento je menší než 15 %,'+#13+' použije se 15%') DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'302 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgEdit(502,P3302,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(502,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'302 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období (ř.111)') Inc(PocRad5) DlgStatic(-1,'303 Daň ze zbývající části příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3303,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'304 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgEdit(504,P3304,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(504,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'304 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období,snížený o příslušnou část výdajů,na který je uplatňován zápočet daně zaplacené v zahraničí') Inc(PocRad5) DlgStatic(-1,'305 Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí',x51,y5+(PocRad5*i51),x52-10) DlgEdit(505,P3305,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(505,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'305 Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí příjmů dosažených za více zdaňovacích období v souladu se smlouvou') Inc(PocRad5) DlgStatic(-1,'306 Procento z úhrnu zbývajících částí příjmů',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,StrNative(P3306,2),x52-21,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'307 Z částky daně zaplacené v zahraničí lze max. započítat',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3307,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'308 Daň ze zbývajících částí příjmů dosažených za více zd. období',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3308,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'309 Rozdíl řádků (ř. 305 - ř. 308)',x51,y5+(PocRad5*i51),x52-10) if(P3309<0) DlgStatic(-1,'---',x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) else DlgStatic(-1,Str(P3309,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'310 Daň ze zbývajících částí příjmů ... po zápočtu daně zapl.v zahraničí',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,P3310,x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgCheckBox(3101,Tab3,x51,y5+(PocRad5*i51),105,,'Tabulka č. 3') DlgOnLineHelp(3101,'Tabulku č. 3 vyplňte pouze, pokud použijete metodu vynětí s výhradou progrese'+#13+'a současně uplatňujete výpočet společného ZD manželů podle § 13a zákona.'+#13+'Dále pokračujte ve výpočtu na ř. 311 a následujících.') IF(Tab3) begin DlgStatic(-1,'Dílčí základy daně po vynětí - § 6 zákona',134,y5+(PocRad5*i51),300) DlgEdit(3102,P3Tab1P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3102,'1 Dílčí základ daně podle § 6 zákona po vynětí'+#13+'- poplatník') DlgEdit(3103,P3Tab1M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3103,'1 Dílčí základ daně podle § 6 zákona po vynětí'+#13+'- manžel/ka') Inc(PocRad5) DlgStatic(-1,'2 ZD nebo ztráta §7',x51,y5+(PocRad5*i51),132) DlgEdit(3104,P3Tab2P,134,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3104,'2 Dílčí základ daně nebo ztráta podle § 7 po vynětí'+#13+'- poplatník') DlgEdit(3105,P3Tab2M,216,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3105,'2 Dílčí základ daně nebo ztráta podle § 7 po vynětí'+#13+'- manžel/ka') DlgStatic(-1,'3 Dílčí ZD - §8',298,y5+(PocRad5*i51),130) DlgEdit(3106,P3Tab3P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3106,'3 Dílčí základ daně podle § 8 po vynětí'+#13+'- poplatník') DlgEdit(3107,P3Tab3M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3107,' 3 Dílčí základ daně podle § 8 po vynětí'+#13+'- manžel/ka') Inc(PocRad5) DlgStatic(-1,'4 ZD nebo ztráta §9',x51,y5+(PocRad5*i51),132) DlgEdit(3108,P3Tab4P,134,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3108,'4 Dílčí základ daně nebo ztráta podle § 9 zákona po vynětí'+#13+'- poplatník') DlgEdit(3109,P3Tab4M,216,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3109,'4 Dílčí základ daně nebo ztráta podle § 9 zákona po vynětí'+#13+'- manžel/ka') DlgStatic(-1,'5 Dílčí ZD - § 10',298,y5+(PocRad5*i51),130) DlgEdit(3110,P3Tab5P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3110,'5 Dílčí základ daně podle § 10 zákona po vynětí'+#13+'- poplatník') DlgEdit(3111,P3Tab5M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3111,'5 Dílčí základ daně podle § 10 zákona po vynětí'+#13+'- manžel/ka') end Inc(PocRad5) DlgStatic(-1,'311 Příjmy po vynětí dle § 6 zákona',x51,y5+(PocRad5*i51),x52-10) DlgEdit(520,P3311,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(520,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'311 Příjmy po vynětí dle § 6 zákona (ř.36-úhrn vyňatých příjmů ze zdrojů v zahraničí dle § 6 zákona)') Inc(PocRad5) DlgStatic(-1,'312 Příjmy po vynětí dle § 7 až § 10 zákona',x51,y5+(PocRad5*i51),x52-10) DlgEdit(521,P3312,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(521,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'312 Příjmy po vynětí dle § 7 až § 10 zákona (ř.41-úhrn vyňatých příjmů ze zdrojů v zahraničí dle § 7 až § 10 zákona)') Inc(PocRad5) DlgStatic(-1,'313 Základ daně po vynětí příjmů ze zdrojů v zahraničí (311+klad.312)',x51,y5+(PocRad5*i51),x52-10) DlgEdit(522,P3313,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_Right,ValidCisloInt) DlgOnLineHelp(522,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'313 Základ daně po vynětí příjmů ze zdrojů v zahraničí (ř. 311 + kladný ř. 312)') Inc(PocRad5) DlgStatic(-1,'314 Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený ...',x51,y5+(PocRad5*i51),x52-10) DlgEdit(523,P3314,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(523,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'314 Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený o nezdanitelné části základu daně a odčitatelné položky (ř.313 - ř.60 - ř.44)') Inc(PocRad5) DlgStatic(-1,'315 Sazba celk. daň. zatížení',x51,y5+(PocRad5*i51),208) DlgStatic(-1,StrNative(P3315,2),215,y5+(PocRad5*i51),50,,,ES_Right) DlgStatic(-1,'%',271,y5+(PocRad5*i51),14,,,ES_Right) DlgStatic(-1,'316 Daň po vynětí příjmů...',295,y5+(PocRad5*i51),218) DlgStatic(-1,P3316,513,y5+(PocRad5*i51),80,,,ES_Right) Inc(PocRad5) 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 ; ;{============================== 7. cover ================================} ;{vykresleni 7. coveru} SetCover(10,'P3/2') if(Pril3) begin x61=5 x62=497 y6=2 i61=20 ;radkovani 1 PocRad6=0 ;pomocna promenna SirkaPolicka61=380 ;standardní šířka SirkaPolicka62=100 DlgStatic(-1,'Vyplňte v případě, že zaměstnáváte osoby se změněnou pracovní schopností...',x61,y6+(PocRad6*i61),590) Inc(PocRad6) DlgStatic(-1,'a) se ZP bez TZP',x61,y6+(PocRad6*i61),140) DlgEdit(601,P3ZPS1P,120,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloKl,2) DlgOnLineHelp(601,'a) průměrný roční přepočtený stav zaměstnanců se zdravotním postižením bez těžšího zdravotního postižení (se ZP bez TZP)') DlgStatic(-1,'sleva',203,y6+(PocRad6*i61),35) DlgEdit(602,P3ZPS1H,245-5,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(602,'sleva na dani (ZP bez TZP)') DlgStatic(-1,'b) s TZP',355-35+6,y6+(PocRad6*i61),74) DlgEdit(603,P3ZPS2P,345+38+14,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloKl,2) DlgOnLineHelp(603,'b) průměrný roční přepočtený stav zaměstnanců s těžším zdravotním postižením (s TZP)') DlgStatic(-1,'sleva',480,y6+(PocRad6*i61),35) DlgEdit(604,P3ZPS2H,480+38,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(604,'sleva na dani (TZP)') Inc(PocRad6) DlgStatic(-1,'317 Daň podle §16 odst.1 nebo po případném vynětí příjmů ze zdrojů zahr.',x61,y6+(PocRad6*i61),x62-10) DlgEdit(610,P3317,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(610,'3. Daň po vynětí a po slevě'+#13+'317 Daň podle §16 odst.1 zákona nebo daň po případném vynětí příjmů ze zdrojů v zahraničí (ř. 63 DAP nebo ř. 316)') Inc(PocRad6) DlgStatic(-1,'318 Daň ze zbývajících částí příjmů dosažených za více zdaň. období',x61,y6+(PocRad6*i61),x62-10) DlgEdit(611,P3318,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(611,'3. Daň po vynětí a po slevě'+#13+'318 Daň ze zbývajících částí příjmů dosažených za více zdaňovacích období (ř. 303 nebo ř. 310)') Inc(PocRad6) DlgStatic(-1,'319 Slevy celkem podle § 35 odst. 1 zákona',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3319,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'319a Sleva na registrační pokladnu',x61,y6+(PocRad6*i61),x62-10) DlgEdit(6111,P3319A,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(6111,'3. Daň po vynětí a po slevě'+#13+'319a Sleva na registrační pokladnu') Inc(PocRad6) DlgStatic(-1,'320 Daň po slevách (ř.317 + ř.318 - ř.319 - ř.319a)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3320,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'Kód státu',x61,y6+(PocRad6*i61),90) DlgEdit(6151,KS1,80,y6+(PocRad6*i61)-2,40,i61,5) DlgOnLineHelp(6151,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'Kód státu') DlgStatic(-1,'321 Příjmy ze zdrojů v zahraničí - metoda zápočtu ...',x61+155-30,y6+(PocRad6*i61),410) DlgEdit(615,P3321,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(615,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'321 Příjmy ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Inc(PocRad6) DlgStatic(-1,'322 Výdaje',x61,y6+(PocRad6*i61),x62-10) DlgEdit(616,P3322,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(616,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'322 Výdaje') Inc(PocRad6) DlgStatic(-1,'323 Daň zaplacená v zahraničí',x61,y6+(PocRad6*i61),x62-10) DlgEdit(617,P3323,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(617,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'323 Daň zaplacená v zahraničí') Inc(PocRad6) DlgStatic(-1,'324 Koeficient zápočtu (ř.321-322) děleno (ř.42-příjmy vyňaté)*100',x61,y6+(PocRad6*i61),x62-10) DlgEdit(618,P3324,x62,y6+(PocRad6*i61)-2,SirkaPolicka62-20,i61,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(618,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'324 Koeficient zápočtu'+#13+'(ř.321-322)děleno(ř.42-příjmy vyňaté) násobeno stem') DlgStatic(-1,'%',x62+83,y6+(PocRad6*i61),14,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'325 Z částky daně zaplacené v zahraničí lze max. započítat',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3325,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'326 Daň uznaná k zápočtu (ř. 323 max. však do výše ř. 325)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3326,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'327 Rozdíl řádků (ř. 323 - ř. 326)',x61,y6+(PocRad6*i61),x62-10) if(P3327<0) DlgStatic(-1,'---',x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) else DlgStatic(-1,P3327,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'328 Daň uznaná k zápočtu (úhrn ř. 326 i ze samost. listů)',x61,y6+(PocRad6*i61),x62-10) DlgEdit(619,P3328,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(619,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'328 Daň uznaná k zápočtu (úhrn řádků 326 i ze samostatných listů)') Inc(PocRad6) DlgStatic(-1,'329 Daň neuznaná k zápočtu (úhrn ř. 327 i ze samost. listů)',x61,y6+(PocRad6*i61),x62-10) DlgEdit(620,P3329,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(620,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'329 Daň neuznaná k zápočtu (úhrn řádků 327 i ze samostatných listů)') Inc(PocRad6) DlgStatic(-1,'330 Rozdíl řádků (ř. 320 - ř. 328)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3330,x62-4,y6+(PocRad6*i61),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 ;{============================== 8. cover ================================} ;{vykresleni 8. coveru} SetCover(11,'P4') if(Pril4) begin x41=5 x42=507 x43=310 x44=497 x45=519 y4=2 i41=19 ;radkovani 1 i42=19 ;radkovani 2 PocRad4=0 ;pomocna promenna SirkaPolicka41=80 ;standardní šířka SirkaPolicka42=20 DlgStatic(-1,'401 Příjmy podle § 8 zákona plynoucí ze zdrojů v zahraničí',x41,y4+(PocRad4*i41),x42-2) DlgEdit(425,P4401,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(425,'Příloha 4 - Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona'+#13+'401 Příjmy podle § 8 zákona plynoucí ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'402 Příjmy podle § 10 odst. 1 písm. h) a písm. ch) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(426,P4402,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(426,'402 Příjmy podle § 10 odst. 1 písm. h) a písm. ch) zákona ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'403 Příjmy podle § 10 odst. 1 písm. f) a písm. g) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(427,P4403,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(427,'403 Příjmy podle § 10 odst. 1 písm. f) a písm. g) zákona plynoucí ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'404 Výdaje k příjmům podle § 10 odst. 1 písm. f) a písm. g) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(428,P4404,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(428,'404 Výdaje k příjmům podle § 10 odst. 1 písm. f) a písm. g) zákona') Inc(PocRad4) DlgStatic(-1,'405 Dílčí samostatný ZD podle § 8 zákona (401)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4405,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'406 Dílčí samostatný ZD z příjmů dle § 10/1/h) a ch) zákona (402)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4406,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'407 Dílčí samostatný ZD z příjmů dle § 10/1/f) a g) zákona (403-404)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4407,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'408 Daň z příjmů se sazbou 15 % z příjmů (z dílčího ZD na ř. 405+407)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4408,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'409 Daň z příjmů se sazbou 20 % z příjmů (z dílčího ZD na ř. 406)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4409,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'410 Úhrn příjmů u nichž se uplatní zápočet - sazba daně 15 % (405+407)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4410,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'411 Úhrn příjmů u nichž se uplatní zápočet - sazba daně 20 % (406)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4411,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'412 Daň zaplacená v zahraničí z příjmů uvedených na ř. 410',x41,y4+(PocRad4*i41),x42-2) DlgEdit(429,P4412,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(429,'412 Daň zaplacená v zahraničí z příjmů uvedených na ř. 410') Inc(PocRad4) DlgStatic(-1,'413 Daň zaplacená v zahraničí z příjmů uvedených na ř. 411',x41,y4+(PocRad4*i41),x42-2) DlgEdit(430,P4413,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(430,'413 Daň zaplacená v zahraničí z příjmů uvedených na ř. 411') Inc(PocRad4) DlgStatic(-1,'414 Daň uznaná k zápočtu (ř. 412 maximálně do výše uvedené na ř. 408)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4414,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) DlgStatic(-1,'415 Daň uznaná k zápočtu (ř. 413 maximálně do výše uvedené na ř. 409)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4415,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'416 Rozdíl řádků (ř. 408 - ř. 414)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4416,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'417 Rozdíl řádků (ř. 409 - ř. 415)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4417,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'418 Daň celkem (ř. 416 + ř. 417)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4418,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 4 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 ================================} ;{vykresleni 9. coveru} SetCover(12,'P5/1') if(Pril5) begin y :Integer = 2 radek :Integer = 19 DlgStatic(-1,'Příjmení, jméno, titul',5,y,145) DlgEdit(5001,P5Manzel,150,y,255,20,100,ES_LEFT) DlgOnLineHelp(5001,'Příjmení, jméno, titul') DlgStatic(-1,'DIČ/RČ',415,y,50) DlgEdit(5002,P5DIC,470,y,120,20,12,ES_LEFT) DlgOnLineHelp(5002,'DIČ/Rodné číslo') Inc(y,radek) DlgStatic(-1,'Adresa bydliště (trvalého pobytu) v den podání DAP',5,y,145) DlgEdit(5003,P5Adresa,150,y,440,20,100,ES_LEFT) DlgOnLineHelp(5003,'Adresa bydliště (trvalého pobytu) v den podání DAP') Inc(y,radek) DlgStatic(-1,'Místně příslušný finanční úřad pro podání DAP.',5,y,145) DlgEdit(5004,P5Urad,150,y,440,20,100,ES_LEFT) DlgOnLineHelp(5004,'Místně příslušný finanční úřad pro podání DAP.') Inc(y,radek+3) DlgStatic(-1,'poplatník',430,y,80) DlgStatic(-1,'manžel/ka',520,y,80) Inc(y,radek) DlgStatic(-1,'501 Dílčí základ daně ze závislé činnosti a z funkčních',5,y,415) DlgStatic(-1,P501P,425,y,80,,,ES_RIGHT) DlgEdit(5005,P501M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5005,'501 Dílčí základ daně ze závislé činnosti a z funkčních'+#13+'požitků podle § 6 zákona (ř. 36)') Inc(y,radek) DlgStatic(-1,'502 Dílčí základ daně z podnikání a z jiné samostatné',5,y,415) DlgStatic(-1,P502P,425,y,80,,,ES_RIGHT) DlgEdit(5006,P502M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5006,'502 Dílčí základ daně z podnikání a z jiné samostatné'+#13+'výdělečné činnosti podle § 7 zákona (kladný ř. 37)') Inc(y,radek) DlgStatic(-1,'503 Dílčí základ daně z kapitálového majetku podle § 8',5,y,415) DlgStatic(-1,P503P,425,y,80,,,ES_RIGHT) DlgEdit(5007,P503M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5007,'503 Dílčí základ daně z kapitálového majetku podle § 8'+#13+'zákona (ř. 38)') Inc(y,radek) DlgStatic(-1,'504 Dílčí základ daně z pronájmu podle § 9 zákona',5,y,415) DlgStatic(-1,P504P,425,y,80,,,ES_RIGHT) DlgEdit(5008,P504M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5008,'504 Dílčí základ daně z pronájmu podle § 9 zákona'+#13+'(kladný ř. 39)') Inc(y,radek) DlgStatic(-1,'505 Dílčí základ daně z ostatních příjmů podle § 10',5,y,415) DlgStatic(-1,P505P,425,y,80,,,ES_RIGHT) DlgEdit(5009,P505M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5009,'505 Dílčí základ daně z ostatních příjmů podle § 10'+#13+'zákona (ř. 40)') Inc(y,radek) DlgStatic(-1,'506 Součet dílčích základů daně podle § 6 až § 10',5,y,415) DlgStatic(-1,P506P,425,y,80,,,ES_RIGHT) DlgEdit(5010,P506M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5010,'506 Součet dílčích základů daně podle § 6 až § 10'+#13+'zákona (501 + 502 + 503 +504 + 505)') Inc(y,radek+3) DlgStatic(-1,'507 Společný základ daně manželů (ř. 506 sl. poplatník +',5,y,415) DlgEdit(5011,P507,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5010,'507 Společný základ daně manželů (ř. 506 sl. poplatník +'+#13+'+ ř. 506 sl. manželka/manžel)') Inc(y,radek+3) DlgStatic(-1,'508 Odst. 1 zákona (hodnota',5,y,415) DlgStatic(-1,P508P,425,y,80,,,ES_RIGHT) DlgEdit(5012,P508M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5012,'508 Odst. 1 zákona (hodnota'+#13+'daru/darů)') Inc(y,radek) DlgStatic(-1,'509 Odst. 3 a odst. 4 zákona',5,y,415) DlgStatic(-1,P509PM,465,y,40,,,ES_RIGHT) DlgEdit(5013,P509MM,550,y,40,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5013,'509 Odst. 3 a odst. 4 zákona'+#13+'(odečet úroků)') Inc(y,radek) DlgStatic(-1,'(odečet úroků)',33,y,415) DlgStatic(-1,P509P,425,y,80,,,ES_RIGHT) DlgEdit(5014,P509M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5014,'509 Odst. 3 a odst. 4 zákona'+#13+'(odečet úroků)') Inc(y,radek) DlgStatic(-1,'510 Odst. 5 zákona (penzijní',5,y,415) DlgStatic(-1,P510P,425,y,80,,,ES_RIGHT) DlgEdit(5015,P510M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5015,'510 Odst. 5 zákona (penzijní'+#13+'připojištění)') Inc(y,radek) DlgStatic(-1,'511 Odst. 6 zákona (životní',5,y,415) DlgStatic(-1,P511P,425,y,80,,,ES_RIGHT) DlgEdit(5016,P511M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5016,'511 Odst. 6 zákona (životní'+#13+'pojištění)') Inc(y,radek) DlgStatic(-1,'512 Odst. 7 zákona (odborové',5,y,415) DlgStatic(-1,P512P,425,y,80,,,ES_RIGHT) DlgEdit(5017,P512M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5017,'512 Odst. 7 zákona (odborové'+#13+'příspěvky)') Inc(y,radek) DlgStatic(-1,'513 Úhrn nezdanitelných částí',5,y,415) DlgStatic(-1,P513P,425,y,80,,,ES_RIGHT) DlgEdit(5018,P513M,510,y,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5018,'513 Úhrn nezdanitelných částí'+#13+'základu daně (ř. 508 + ř. 509 +'+#13+'+ ř. 510 + ř. 511 + ř. 512)') end else begin DlgStatic(-1,'Máte-li pro přílohu č. 5 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 ;{============================== 10. cover ================================} ;{vykresleni 10. coveru} SetCover(13,'P5/2') if(Pril5) begin y :Integer = 2 radek :Integer = 19 DlgStatic(-1,'514 Úhrn (ř. 513 sl. poplatník + ř. 513 sl. manželka/manžel)',5,y,415) DlgEdit(5101,P514,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5101,'514 Úhrn (ř. 513 sl. poplatník + ř. 513 sl. manželka/manžel)') Inc(y,radek+5) DlgStatic(-1,'515 Společný základ daně manželů snížený o nezdanitelné části základu',5,y,415) DlgEdit(5102,P515,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5102,'515 Společný základ daně manželů snížený o nezdanitelné části základu'+#13+'daně (ř. 507 – ř. 514)') Inc(y,radek+5) DlgStatic(-1,'516 (jedna polovina z ř. 515)',5,y,415) DlgEdit(5103,P516,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5103,'516 (jedna polovina z ř. 515)') Inc(y,radek) DlgStatic(-1,'517 § 34 odst. 1 zákona',5,y,415) DlgEdit(5104,P517,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5104,'517 § 34 odst. 1 zákona') Inc(y,radek) DlgStatic(-1,'518 § 34 odst. 4 zákona (výzkum a vývoj)',5,y,415) DlgEdit(5105,P518,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5105,'518 § 34 odst. 4 zákona (výzkum a vývoj)') Inc(y,radek) DlgStatic(-1,'519 Další částky',5,y,415) DlgEdit(5106,P519,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5106,'519 Další částky') Inc(y,radek) DlgEdit(5107,P519T,5,y,585,20,,ES_LEFT) DlgOnLineHelp(5107,'519 Další částky') Inc(y,radek) DlgStatic(-1,'520 (ř. 516 – ř. 517 – ř. 518 – ř. 519)',5,y+1,415) DlgEdit(5108,P520,430,y,160,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(5108,'520 (ř. 516 – ř. 517 – ř. 518 – ř. 519)') end else begin DlgStatic(-1,'Máte-li pro přílohu č. 5 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 ;{============================== 11. cover ================================} ;{vykresleni 11. coveru} SetCover(2,'S2') x81=5 x82=190 x83=215 x84=300 x85=516 i81=20 ;radkovani 1 i82=19 ;radkovani 2 PocRad8=0 ;pomocna promenna SirkaPolicka81=80 ;standardní šířka SirkaPolicka82=20 ;male pole SirkaPolicka83=198 ;text y8=2 DlgDivider(x84,y8,0,3*i82) 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') Inc(y8,i82) DlgStatic(-1,'33 Daň zaplacená v zahraničí podle § 6 odst. 13 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. 13 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é') Inc(y8,i82+5) DlgDivider(x84,y8,0,5*i82) DlgStatic(-1,'36 Dílčí základ daně ze závislé činnosti podle § 6 zákona (ř. 34)',x81,y8,SirkaPolicka83) DlgEdit(11006,D36,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11006,'36 Dílčí základ daně ze závislé činnosti podle § 6 zákona (ř. 34)') 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). Kladnou hodnotu řádku',x81+x84,y8,SirkaPolicka83) DlgEdit(11011,D41,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11011,'41 Úhrn řádků (ř. 37 + ř. 38 + ř. 39 + ř. 40). Kladnou hodnotu řádku'+#13+'lze dále použít pro odečet ztráty podle § 34 odst. 1 zákona') Inc(y8,i82) DlgStatic(-1,'42 Základ daně (ř. 36 + kladná hodnota z ř. 41)',x81,y8,SirkaPolicka83) DlgEdit(11012,D42,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11012,'42 Základ daně (ř. 36 + kladná hodnota z ř. 41)') DlgStatic(-1,'43 Minimální základ daně',x81+x84,y8,SirkaPolicka83) DlgEdit(11013,D43,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11013,'43 Minimální základ daně') 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'+#13+'předcházející zdaňovací období maximálně do výše ř. 41') DlgStatic(-1,'45 Základ daně po odečtení ztráty (ř. 42 – ř. 44) popřípadě',x81+x84,y8,SirkaPolicka83) DlgEdit(11015,D45,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11015,'45 Základ daně po odečtení ztráty (ř. 42 – ř. 44) popřípadě'+#13+'minimální základ daně (ř. 43)') Inc(y8,i82+5) DlgDivider(x84,y8,0,3*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,x84+x82,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,'52 § 34 odst. 4 zákona (výzkum a vývoj)',x81+x84,y8,SirkaPolicka83) DlgEdit(11022,D52,x83+x84,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+5) DlgDivider(x84,y8,0,2*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)'+#13+'nebo údaj z ř. 520 přílohy č. 5 DAP') 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 odst. 1 zákona',x81+x84,y8,SirkaPolicka83) DlgEdit(11029,D57,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11029,'57 Daň podle § 16 odst. 1 zákona') Inc(y8,i82+5) DlgDivider(x84,y8,0,2*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,'59 Daň ze samostatného základu daně podle § 16 odst. 2',x81+x84,y8,SirkaPolicka83) DlgEdit(11031,D59,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11031,'59 Daň ze samostatného základu daně podle § 16 odst. 2'+#13+'(ř. 418 přílohy č. 4 DAP)') Inc(y8,i82) DlgStatic(-1,'60 Daň celkem zaokrouhlená na celé Kč nahoru (ř. 58 + ř. 59)',x81,y8,SirkaPolicka83) DlgEdit(11032,D60,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11032,'60 Daň celkem zaokrouhlená na celé Kč nahoru (ř. 58 + ř. 59)') DlgStatic(-1,'61 Daňová ztráta-zaokrouhlená na celé Kč nahoru',x81+x84,y8,SirkaPolicka83) DlgEdit(11033,D61,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11033,'61 Daňová ztráta - zaokrouhlená na celé Kč nahoru'+#13+'bez znaménka mínus') Inc(y8,i82+5) DlgDivider(x84,y8,0,1*i82) DlgStatic(-1,'62 Slevy celkem podle § 35 odst. 1 zákona',x81,y8,SirkaPolicka83) DlgEdit(11034,D62,x83,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11034,'62 Slevy celkem podle § 35 odst. 1 zákona') DlgStatic(-1,'63 Sleva podle § 35 odst. 6, 7 a 8 (registrační pokladna)',x81+x84,y8,SirkaPolicka83) DlgEdit(11035,D63,x83+x84,y8,SirkaPolicka81,i81,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(11035,'63 Sleva podle § 35 odst. 6, 7 a 8 (registrační pokladna)') ; ;{==============================12. cover ================================} ;{vykresleni 12. coveru} SetCover(3,'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 DlgStatic(-1,'Údaje o starobním důchodu',x91,y9,SirkaPolicka93) DlgEdit(12001,Duch,x93,y9,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12001,'Pobíral-li jste k 1.1. zdaňovacího období starobní důchod ze sociálního zabezpečení'+#13+'uveďte jeho roční výši pouze v případě, uplatňujete-li nezdanitelnou část základu daně') Inc(y9,i92) DlgStatic(-1,'Údaje o manželce/manželovi',x91,y9,SirkaPolicka93) DlgEdit(12002,ManzelJmeno,x93,y9,SirkaPolicka91+180,i91,100,ES_LEFT) DlgOnLineHelp(12002,'Příjmení, jméno, titul') DlgStatic(-1,'RČ',x94+x92-12,y9,SirkaPolicka92) DlgEdit(12003,ManzelRC,x94+x93-12,y9,SirkaPolicka91+12,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12003,'Rodné číslo') 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 (na poživatele část. invalidního důchodu)',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 část. invalidního důchodu)') Inc(y9,i92) DlgStatic(-1,'67 písm. d) zákona (na poživatele plného invalidního důchodu)',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 plného invalidního důchodu)') 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 (uplatněná maximálně do výše daně na',x94+x91,y9,SirkaPolicka93) DlgEdit(12018,D73,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12018,'73 Sleva na dani (uplatněná maximálně do výše daně na'+#13+'ř. 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'+#13+'§ 35d zákona') Inc(y9,i92+3) DlgStatic(-1,'údaje o 1. dítěti',5,y9,100) DlgEdit(12030,DiteJmeno1,110,y9,220,i91,100,ES_LEFT) DlgOnLineHelp(12030,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',335,y9,20) DlgEdit(12031,DiteRC1,360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12031,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9,30) DlgEdit(12032,DiteMesic1,490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12032,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9,30) DlgEdit(12033,DiteZTP1,560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12033,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'údaje o 2. dítěti',5,y9,100) DlgEdit(12034,DiteJmeno2,110,y9,220,i91,100,ES_LEFT) DlgOnLineHelp(12034,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',335,y9,20) DlgEdit(12035,DiteRC2,360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12035,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9,30) DlgEdit(12036,DiteMesic2,490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12036,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9,30) DlgEdit(12037,DiteZTP2,560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12037,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'údaje o 3. dítěti',5,y9,100) DlgEdit(12038,DiteJmeno3,110,y9,220,i91,100,ES_LEFT) DlgOnLineHelp(12038,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',335,y9,20) DlgEdit(12039,DiteRC3,360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12039,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9,30) DlgEdit(12040,DiteMesic3,490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12040,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9,30) DlgEdit(12041,DiteZTP3,560,y9,30,i91,2,ES_Right,ValidCisloInt)) DlgOnLineHelp(12041,'Počet měsíců se ZTP/P') Inc(y9,i92) DlgStatic(-1,'údaje o 4. dítěti',5,y9,100) DlgEdit(12042,DiteJmeno4,110,y9,220,i91,100,ES_LEFT) DlgOnLineHelp(12042,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',335,y9,20) DlgEdit(12043,DiteRC4,360,y9,90,i91,11,ES_LEFT,ValidRC) DlgOnLineHelp(12043,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',455,y9,30) DlgEdit(12044,DiteMesic4,490,y9,30,i91,2,ES_Right,ValidCisloInt) DlgOnLineHelp(12044,'Počet měsíců') DlgStatic(-1,'ZTP',525,y9,30) DlgEdit(12045,DiteZTP4,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,100) DlgStatic(-1,'Měs.',455,y9,30) DlgEdit(12046,DiteMesicC,490,y9,30,i91,3,ES_Right) 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) 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ňová povinnost podle § 41 zákona č. 337/1992 Sb.',x91,y9,SirkaPolicka93) DlgEdit(12051,D79,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12051,'79 Zjištěná daňová povinnost podle § 41 zákona č. 337/1992 Sb.,'+#13+'o správě daní a poplatků, ve znění pozdějších předpisů (ř. 74)') Inc(y9,i92) DlgStatic(-1,'81 Poslední známá daňová povinnost - daňová ztráta',x91,y9,SirkaPolicka93) DlgEdit(12052,D81,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12052,'81 Poslední známá daňová povinnost - daňová ztráta'+#13+'podle § 5 zákona') Inc(y9,i92) DlgStatic(-1,'82 Zjištěná ztráta podle § 41 zákona č. 337/1992 Sb., o správě',x91,y9,SirkaPolicka93) DlgEdit(12053,D82,x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12053,'82 Zjištěná ztráta podle § 41 zákona č. 337/1992 Sb., o správě'+#13+'daní a poplatků, ve znění pozdějších předpisů (ř. 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. 7 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. 7 zákona (státní dluhopisy)') Inc(y9,i92) DlgStatic(-1,'88 Zajištěná daň plátcem podle § 38e zákona',x94+x91,y9,SirkaPolicka93) DlgEdit(12058,D88,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12058,'88 Zajištěná daň plátcem podle § 38e zákona') Inc(y9,i92) DlgStatic(-1,'89 Sražená daň podle § 38f odst. 10 zákona',x94+x91,y9,SirkaPolicka93) DlgEdit(12059,D89,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12059,'89 Sražená daň podle § 38f odst. 10 zákona') Inc(y9,i92) DlgStatic(-1,'90 Zaplacená daňová povinnost (záloha)',x94+x91,y9,SirkaPolicka93) DlgEdit(12060,D90,x94+x93,y9,SirkaPolicka91,i91,,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(12060,'90 Zaplacená daňová povinnost (záloha)'+#13+'odle § 38gb odst. 5 zákona') ; ;{============================== 13. cover ================================} ;{vykresleni 13. coveru} ; begin SetCover(4,'S4') x101=5 x102=268 x103=310 x104=575 x105=516 y10=2 i101=21 ;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čího ZD dle §7',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1001,Pr1,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1001,'Přílohy DAP'+#13+'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čího ZD dle §9..',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1002,Pr2,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1002,'Přílohy DAP'+#13+'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...za více období §14',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1003,Pr3,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1003,'Přílohy DAP'+#13+'Příloha č. 3 - "Výpočet daně z příjmu dosažených za více zdaňovacích období (§ 14 zákona), daně z příjmů'+#13+'ze zahraničí (§38f zákona) a daně po slevě (§35 zákona)"'+#13+'včetně samostatných listů 4. oddílu') Inc(PocRad10) DlgStatic(-1,'Příloha č.4 - Výpočet daně dle §16(2)',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1004,Pr4,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1004,'Přílohy DAP'+#13+'Příloha č. 4 - "Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.5 - Výpočet...dle § 13a',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1005,Pr5,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1005,'Přílohy DAP'+#13+'Příloha č. 5 - "Výpočet společného základu daně manželů podle § 13a zákona"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Účetní závěrka poplatníka... účetnictví',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1006,Pr6,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1006,'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) DlgDivider(16,136,570,0) PocRad10=0 DlgStatic(-1,'Potvrzení o zdan.příjmech za závislé č.',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1007,Pr7,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1007,'Přílohy DAP'+#13+'Potvrzení o zdanitelných příjmech za závislé činnosti a z funkčních požitků'+#13+'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ů dle §38j odst.3') Inc(PocRad10) DlgStatic(-1,'Potvrzení o úvěru na bytové potřeby',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1008,Pr8,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1008,'Přílohy DAP'+#13+'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení - penzijní připojištění',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1009,Pr9,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1009,'Přílohy DAP'+#13+'Potvrzení o zaplacených částkách na penzijní připojištění'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení - životní pojištění',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1010,Pr10,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1010,'Přílohy DAP'+#13+'Potvrzení o zaplacených částkách na soukromé životní pojištění'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Další přílohy výše neuvedené',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1011,Pr11,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(1011,'Přílohy DAP'+#13+'Další přílohy výše neuvedené'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Počet listů příloh celkem',x103,y10+(PocRad10*i101),x102-3) DlgStatic(-1,PR12,x104,y10+(PocRad10*i101),SirkaPolicka101,,,ES_RIGHT) Inc(PocRad10) y10=y10+20 DlgStatic(-1,'V',x101,y10+(PocRad10*i101),10) DlgEdit(1020,Kde4,x101+12,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1020,'Prohlášení ... místo') DlgStatic(-1,'dne',x101+268,y10+(PocRad10*i101),30) DlgEditDate(1021,Kdy4,x101+300,y10+(PocRad10*i101)-2,78,i101,,,ValidDatum) DlgOnLineHelp(1021,'Prohlášení ... datum') Inc(PocRad10) DlgStatic(-1,'Zástupce',x101,y10+(PocRad10*i101),63) DlgEdit(1022,Zast1,x101+64,y10+(PocRad10*i101)-2,250,i101,40) DlgOnLineHelp(1022,'Údaje o zástupci ... příjmení a jméno') DlgEdit(1023,Zast2,x101+316,y10+(PocRad10*i101)-2,50,i101,12) DlgOnLineHelp(1023,'Údaje o zástupci ... titul') DlgEdit(1024,Zast3,x101+370,y10+(PocRad10*i101)-2,150,i101,30) DlgOnLineHelp(1024,'Údaje o zástupci ... telefon/mobilní telefon') Inc(PocRad10) DlgEdit(1025,Zast4,x101,y10+(PocRad10*i101)-2,250,i101,40) DlgOnLineHelp(1025,'Údaje o zástupci ... Adresa - obec') DlgEdit(1026,Zast5,x101+254,y10+(PocRad10*i101)-2,50,i101,6,,ValidCisloK2) DlgOnLineHelp(1026,'Údaje o zástupci ... PSČ') DlgEdit(1027,Zast6,x101+307,y10+(PocRad10*i101)-2,200,i101,40) DlgOnLineHelp(1027,'Údaje o zástupci ... Ulice / část obce') DlgEdit(1028,Zast7,x101+510,y10+(PocRad10*i101)-2,80,i101,15) DlgOnLineHelp(1028,'Údaje o zástupci ... Číslo popisné / orientační') Inc(PocRad10) DlgStatic(-1,'Žádost 1',x101,y10+(PocRad10*i101),60) DlgEdit(1040,Prep1,x101+56,y10+(PocRad10*i101)-2,90,i101,12,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(1040,'1. Žádám o vrácení přeplatku na dani z příjmů FO ve výši .... Kč') DlgEdit(1041,Prep2,x101+150,y10+(PocRad10*i101)-2,440,i101,80) DlgOnLineHelp(1041,'Přeplatek zašlete na adresu') Inc(PocRad10) DlgStatic(-1,'Banka',x101,y10+(PocRad10*i101),50) DlgEdit(1042,Prep3,x101+74,y10+(PocRad10*i101)-2,313,i101,40) DlgOnLineHelp(1042,'Přeplatek vraťte na účet vedený u .........') DlgEdit(1043,Prep4,x101+390,y10+(PocRad10*i101)-2,200,i101,30,,ValidBU) DlgOnLineHelp(1043,'Číslo účtu pro vrácení přeplatku') Inc(PocRad10) DlgStatic(-1,'kód banky',x101,y10+(PocRad10*i101),70) DlgEdit(1044,Prep5,x101+74,y10+(PocRad10*i101)-2,100,i101,10,ES_LEFT,ValidCisloK2) DlgOnLineHelp(1044,'kód banky pro vrácení přeplatku') DlgStatic(-1,'specifický symbol',x101+184,y10+(PocRad10*i101),118) DlgEdit(1045,Prep6,x101+105+200,y10+(PocRad10*i101)-2,100,i101,20,ES_LEFT,ValidCisloK2) DlgOnLineHelp(1045,'specifický symbol') Inc(PocRad10) DlgStatic(-1,'Žádost 2',x101,y10+(PocRad10*i101),60) DlgEdit(1046,Prep7,x101+74,y10+(PocRad10*i101)-2,100,i101,12,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(1046,'2. Žádám o vrácení přeplatku na dani z příjmů FO '+#13+'v důsledku postupu podle § 13a ve výši .... Kč') DlgStatic(-1,'na účet u FÚ',x101+184,y10+(PocRad10*i101),100) DlgEdit(1047,Prep8,x101+105+200,y10+(PocRad10*i101)-2,100,i101,50) DlgOnLineHelp(1047,'Přeplatek vraťte na účet vedený u FÚ ...') Inc(PocRad10) DlgStatic(-1,'č. 721-',x101,y10+(PocRad10*i101),60) DlgEdit(1048,Prep9,x101+74,y10+(PocRad10*i101)-2,100,i101,30,,ValidBU) DlgOnLineHelp(1048,'číslo účtu, kód banky 0710') DlgStatic(-1,'variabilní symbol',x101+184,y10+(PocRad10*i101),118) DlgEdit(1049,Prep10,x101+305,y10+(PocRad10*i101)-2,100,i101,20,ES_LEFT,ValidCisloK2) DlgOnLineHelp(1049,'variabilní symbol (rodné číslo)') Inc(PocRad10) DlgStatic(-1,'V',x101,y10+(PocRad10*i101),10) DlgEdit(1050,Prep11,x101+12,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1050,'Žádost o vrácení přeplatku podepsána kde = místo') DlgStatic(-1,'dne',x101+268,y10+(PocRad10*i101),30) DlgEditDate(1051,Prep12,x101+305,y10+(PocRad10*i101)-2,78,i101,,,ValidDatum) DlgOnLineHelp(1051,'Žádost o vrácení přeplatku podepsána kdy = datum') ; end ;{============================== 14. cover = protokol ==============================} ;{vykreslení 14. coveru - protokolu} SetCover(14,'Protokol') radek:INTEGER=0 ;{radek*20+5} While(Radek0) Text(133.5,22,TA_Right|TA_BASELINE,StrFinanc(D31,0)) else Text(133.5,22,TA_Right|TA_BASELINE,skrt) if(D32<>0) Text(133.5,29,TA_Right|TA_BASELINE,StrFinanc(D32,0)) else Text(133.5,29,TA_Right|TA_BASELINE,skrt) if(D33<>0) Text(133.5,36,TA_Right|TA_BASELINE,StrFinanc(D33,0)) else Text(133.5,36,TA_Right|TA_BASELINE,skrt) if(D34<>0) Text(133.5,43,TA_Right|TA_BASELINE,StrFinanc(D34,0)) else Text(133.5,43,TA_Right|TA_BASELINE,skrt) if(D35<>0) Text(133.5,50,TA_Right|TA_BASELINE,StrFinanc(D35,0)) else Text(133.5,50,TA_Right|TA_BASELINE,skrt) if(D36<>0) Text(133.5,63,TA_Right|TA_BASELINE,StrFinanc(D36,0)) else Text(133.5,63,TA_Right|TA_BASELINE,skrt) if(D37<>0) Text(133.5,70.5,TA_Right|TA_BASELINE,StrFinanc(D37,0)) else Text(133.5,70.5,TA_Right|TA_BASELINE,skrt) if(D38<>0) Text(133.5,78,TA_Right|TA_BASELINE,StrFinanc(D38,0)) else Text(133.5,78,TA_Right|TA_BASELINE,skrt) if(D39<>0) Text(133.5,85.5,TA_Right|TA_BASELINE,StrFinanc(D39,0)) else Text(133.5,85.5,TA_Right|TA_BASELINE,skrt) if(D40<>0) Text(133.5,93,TA_Right|TA_BASELINE,StrFinanc(D40,0)) else Text(133.5,93,TA_Right|TA_BASELINE,skrt) if(D41<>0) Text(133.5,100.5,TA_Right|TA_BASELINE,StrFinanc(D41,0)) else Text(133.5,100.5,TA_Right|TA_BASELINE,skrt) if(D42<>0) Text(133.5,108,TA_Right|TA_BASELINE,StrFinanc(D42,0)) else Text(133.5,108,TA_Right|TA_BASELINE,skrt) if(D43M<>0) Text(98,122,TA_Center|TA_BASELINE,D43M) else Text(98,122,TA_Center|TA_BASELINE,skrt) if(D43<>0) Text(133.5,122,TA_Right|TA_BASELINE,StrFinanc(D43,0)) else Text(133.5,122,TA_Right|TA_BASELINE,skrt) if(D44<>0) Text(133.5,128.5,TA_Right|TA_BASELINE,StrFinanc(D44,0)) else Text(133.5,128.5,TA_Right|TA_BASELINE,skrt) if(D45<>0) Text(133.5,135,TA_Right|TA_BASELINE,StrFinanc(D45,0)) else Text(133.5,135,TA_Right|TA_BASELINE,skrt) if(D46<>0) Text(133.5,154,TA_Right|TA_BASELINE,StrFinanc(D46,0)) else Text(133.5,154,TA_Right|TA_BASELINE,skrt) if(D47m<>0) Text(98,159,TA_Center|TA_BASELINE,D47m) else Text(98,159,TA_Center|TA_BASELINE,skrt) if(D47<>0) Text(133.5,159,TA_Right|TA_BASELINE,StrFinanc(D47,0)) else Text(133.5,159,TA_Right|TA_BASELINE,skrt) if(D48<>0) Text(133.5,164,TA_Right|TA_BASELINE,StrFinanc(D48,0)) else Text(133.5,164,TA_Right|TA_BASELINE,skrt) if(D49<>0) Text(133.5,169,TA_Right|TA_BASELINE,StrFinanc(D49,0)) else Text(133.5,169,TA_Right|TA_BASELINE,skrt) if(D50<>0) Text(133.5,174,TA_Right|TA_BASELINE,StrFinanc(D50,0)) else Text(133.5,174,TA_Right|TA_BASELINE,skrt) if(D51<>0) Text(133.5,179,TA_Right|TA_BASELINE,StrFinanc(D51,0)) else Text(133.5,179,TA_Right|TA_BASELINE,skrt) if(D52<>0) Text(133.5,184,TA_Right|TA_BASELINE,StrFinanc(D52,0)) else Text(133.5,184,TA_Right|TA_BASELINE,skrt) if(D53M<>0) Text(98,189,TA_Center|TA_BASELINE,D53M) else Text(98,189,TA_Center|TA_BASELINE,skrt) if(D53<>0) Text(133.5,189,TA_Right|TA_BASELINE,StrFinanc(D53,0)) else Text(133.5,189,TA_Right|TA_BASELINE,skrt) if(D54<>0) Text(133.5,197,TA_Right|TA_BASELINE,StrFinanc(D54,0)) else Text(133.5,197,TA_Right|TA_BASELINE,skrt) if(D55<>0) Text(133.5,207,TA_Right|TA_BASELINE,StrFinanc(D55,0)) else Text(133.5,207,TA_Right|TA_BASELINE,skrt) if(D56<>0) Text(133.5,215,TA_Right|TA_BASELINE,StrFinanc(D56,0)) else Text(133.5,215,TA_Right|TA_BASELINE,skrt) if(D57<>0) Text(133.5,220,TA_Right|TA_BASELINE,StrFinanc(D57,0)) else Text(133.5,220,TA_Right|TA_BASELINE,skrt) if(D58<>0) Text(133.5,232.5,TA_Right|TA_BASELINE,StrFinanc(D58,0)) else Text(133.5,232.5,TA_Right|TA_BASELINE,skrt) if(D59<>0) Text(133.5,239.5,TA_Right|TA_BASELINE,StrFinanc(D59,0)) else Text(133.5,239.5,TA_Right|TA_BASELINE,skrt) if(D60<>0) Text(133.5,246,TA_Right|TA_BASELINE,StrFinanc(D60,0)) else Text(133.5,246,TA_Right|TA_BASELINE,skrt) if(D61<>0) Text(133.5,253,TA_Right|TA_BASELINE,StrFinanc(D61,0)) else Text(133.5,253,TA_Right|TA_BASELINE,skrt) end NextPage end ;{================================================ str. 3 ========================} ;{tisk 3. strany:} begin PEN(0,0.3) ROUNDBOX(18,9,174.5,14,3.3,3.3) PEN(0,0.1) LINE(18,16,174.5,0); LINE(136.5,9,0,14) LINES(47,16,0,7,108,0,2); PEN(0,0.3) ROUNDBOX(18,25,174.5,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) PEN(0,0.3) ROUNDBOX(18,91,174.5,41,3.3,3.3) PEN(0,0.1) LINE(23,98,169.5,0) LINES(18,102,174.5,0,0,6,5) LINE(18,102,174.5,0) LINES(23,91,0,41,95,0,2) LINES(152.5,91,0,41,20,0,2) PEN(0,0.3) ROUNDBOX(18,133,174.5,18,3.3,3.3) PEN(0,0.1) LINES(18,139,174.5,0,0,6,2) LINES(102.5,133,0,18,45,0,2) PEN(0,0.3) ROUNDBOX(18,152,174.5,18,3.3,3.3) PEN(0,0.1) LINES(18,158,174.5,0,0,6,2) LINES(102.5,152,0,18,45,0,2) PEN(0,0.3) ROUNDBOX(18,176,174.5,42,3.3,3.3) PEN(0,0.1) LINES(18,183,174.5,0,0,7,5) LINES(102.5,176,0,42,45,0,2) PEN(0,0.3) ROUNDBOX(18,224,174.5,56,3.3,3.3) PEN(0,0.1) LINES(18,231,174.5,0,0,7,7) LINES(102.5,224,0,56,45,0,2) FONTSIZE(3.4) FONTFACE(BOLD) XTEXT(18,7,174.5,TA_LEFT|TA_BASELINE,'Tab. č. 1 ÚDAJE O STAROBNÍM DŮCHODU A Ú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,174,TA_CENTER|TA_BASELINE,'6. ODDÍL - Dodatečné DAP') TEXT(106,222,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=12 XText(20,TabPos,120,TA_LEFT|TA_BASELINE,'Pobíral-li jste k 1. 1. zdaňovacího období starobní důchod ze sociálního zabezpečení'); XText(20,TabPos+3,120,TA_LEFT|TA_BASELINE,'uveďte jeho roční výši pouze v případě, uplatňujete-li částku na ř. 64'); XText(185,TabPos+3,20,TA_LEFT|TA_BASELINE,'(Kč)'); Inc(TabPos,7); 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,75,TA_LEFT|TA_BASELINE,'písm. c) zákona (na poživatele část. invalidního důchodu)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_LEFT|TA_BASELINE,'67'); XText(26,TabPos,75,TA_LEFT|TA_BASELINE,'písm. d) zákona (na poživatele plného invalidního důchodu)'); 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 a § 35ba (ř. 62 + ř. 63 +'); XText(26,TabPos+1.5,75,TA_LEFT|TA_BASELINE,'+ ř. 64 + ř. 65a + ř. 65b + ř. 66 + ř. 67 + ř. 68 + ř. 69)'); Inc(TabPos,6); XText(20,TabPos,5.5,TA_LEFT|TA_BASELINE,'71'); XText(26,TabPos,75,TA_LEFT|TA_BASELINE,'Daň po uplatnění slev podle § 35 a § 35ba (ř. 60 – ř. 70)'); TabPos=105.5 XText(20.5,TabPos,4,TA_CENTER|TA_BASELINE,'1'); XText(20.5,TabPos+6,4,TA_CENTER|TA_BASELINE,'2'); XText(20.5,TabPos+12,4,TA_CENTER|TA_BASELINE,'3'); XText(20.5,TabPos+18,4,TA_CENTER|TA_BASELINE,'4'); XText(24.5,TabPos+24,90,TA_LEFT|TA_BASELINE,'Celkem'); XText(70.5,TabPos-9.5,93,TA_CENTER|TA_BASELINE,'Příjmení a jméno'); 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=137 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 (uplatněná maximálně do výše daně na'); XText(26,TabPos+1.5,75,TA_LEFT|TA_BASELINE,'ř. 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=156 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'); XText(26,TabPos+1.5,75,TA_LEFT|TA_BASELINE,'§ 35d zákona'); 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=180 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ňová povinnost podle § 41 zákona č. 337/1992 Sb.,'); XText(26,TabPos+2,75,TA_LEFT|TA_BASELINE,'o správě daní a poplatků, ve znění pozdějších předpisů (ř. 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-1,5.5,TA_LEFT|TA_BASELINE,'81'); XText(26,TabPos-1,75,TA_LEFT|TA_BASELINE,'Poslední známá daňová povinnost - daňová ztráta'); XText(26,TabPos+2,75,TA_LEFT|TA_BASELINE,'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 § 41 zákona č. 337/1992 Sb., o správě'); XText(26,TabPos+2,75,TA_LEFT|TA_BASELINE,'daní a poplatků, ve znění pozdějších předpisů (ř. 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=228 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. 7 zákona (státní dluhopisy)'); 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. 10 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. 5 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,'– ř. 88 – ř. 89 – ř. 90) : (+) zbývá doplatit, (–) zaplaceno více'); FONTSIZE(3.2) Text(106,284,TA_CENTER|TA_BASELINE,'3') ;{Tisk hodnot} if(not Prazdny) begin D70: LongInt D71: LongInt D74: LongInt D75: LongInt D77: LongInt D80: LongInt D83: LongInt D91: LongInt FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Duch<>0) begin Text(180,14,TA_Right|TA_BASELINE,Duch) Text(50,20.5,TA_Left|TA_BASELINE,ManzelJmeno) Text(160,20.5,TA_Left|TA_BASELINE,ManzelRC) end else begin Text(180,14,TA_Right|TA_BASELINE,skrt) Text(50,20.5,TA_Left|TA_BASELINE,skrt) Text(160,20.5,TA_Left|TA_BASELINE,skrt) end; if(D64<>0) Text(140,35.5,TA_Right|TA_BASELINE,StrFinanc(D64,0)) else Text(140,35.5,TA_Right|TA_BASELINE,skrt) if(D65a<>0) begin Text(110,41.5,TA_Right|TA_BASELINE,D65am) Text(140,41.5,TA_Right|TA_BASELINE,StrFinanc(D65a,0)) end else Text(140,41.5,TA_Right|TA_BASELINE,skrt) if(D65b<>0) begin Text(110,47.5,TA_Right|TA_BASELINE,D65bm) Text(140,47.5,TA_Right|TA_BASELINE,StrFinanc(D65b,0)) end else Text(140,47.5,TA_Right|TA_BASELINE,skrt) if(D66<>0) begin Text(110,53.5,TA_Right|TA_BASELINE,D66m) Text(140,53.5,TA_Right|TA_BASELINE,StrFinanc(D66,0)) end else Text(140,53.5,TA_Right|TA_BASELINE,skrt) if(D67<>0) begin Text(110,59.5,TA_Right|TA_BASELINE,D67m) Text(140,59.5,TA_Right|TA_BASELINE,StrFinanc(D67,0)) end else Text(140,59.5,TA_Right|TA_BASELINE,skrt) if(D68<>0) begin Text(110,65.5,TA_Right|TA_BASELINE,D68m) Text(140,65.5,TA_Right|TA_BASELINE,StrFinanc(D68,0)) end; else Text(140,65.5,TA_Right|TA_BASELINE,skrt) if(D69<>0) begin Text(110,71.5,TA_Right|TA_BASELINE,D69m) Text(140,71.5,TA_Right|TA_BASELINE,StrFinanc(D69,0)) end else Text(140,71.5,TA_Right|TA_BASELINE,skrt) if((D62<>0)or(D63<>0)or(D64<>0)or(D65a<>0)or(D65b<>0)or(D66<>0)or(D67<>0)or(D68<>0)or(D69<>0)) begin D70=D62+D63+D64+D65a+D65b+D66+D67+D68+D69 D71=D60-D70 Text(140,77.5,TA_Right|TA_BASELINE,StrFinanc(D70,0)) Text(140,83.5,TA_Right|TA_BASELINE,StrFinanc(D71,0)) end; else begin Text(140,77.5,TA_Right|TA_BASELINE,skrt) Text(140,83.5,TA_Right|TA_BASELINE,skrt) end; ;dite 1 if(Length(Trim(DiteJmeno1))<>0) XText(25,105.5,92,TA_Left|TA_BASELINE,DiteJmeno1) else Text(25,105.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC1))<>0) XText(135,105.5,32,TA_Center|TA_BASELINE,DiteRC1) else Text(135,105.5,TA_Center|TA_BASELINE,skrt) if(DiteMesic1<>0) Text(162.5,105.5,TA_Center|TA_BASELINE,DiteMesic1) else Text(162.5,105.5,TA_Center|TA_BASELINE,skrt) if(DiteZTP1<>0) Text(182.5,105.5,TA_Center|TA_BASELINE,DiteZTP1) else Text(182.5,105.5,TA_Center|TA_BASELINE,skrt) ;dite 2 if(Length(Trim(DiteJmeno2))<>0) XText(25,111.5,92,TA_Left|TA_BASELINE,DiteJmeno2) else Text(25,111.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC2))<>0) XText(135,111.5,32,TA_Center|TA_BASELINE,DiteRC2) else Text(135,111.5,TA_Center|TA_BASELINE,skrt) if(DiteMesic2<>0) Text(162.5,111.5,TA_Center|TA_BASELINE,DiteMesic2) else Text(162.5,111.5,TA_Center|TA_BASELINE,skrt) if(DiteZTP2<>0) Text(182.5,111.5,TA_Center|TA_BASELINE,DiteZTP2) else Text(182.5,111.5,TA_Center|TA_BASELINE,skrt) ;dite 3 if(Length(Trim(DiteJmeno3))<>0) XText(25,117.5,92,TA_Left|TA_BASELINE,DiteJmeno3) else Text(25,117.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC3))<>0) XText(135,117.5,32,TA_Center|TA_BASELINE,DiteRC3) else Text(135,117.5,TA_Center|TA_BASELINE,skrt) if(DiteMesic3<>0) Text(162.5,117.5,TA_Center|TA_BASELINE,DiteMesic3) else Text(162.5,117.5,TA_Center|TA_BASELINE,skrt) if(DiteZTP3<>0) Text(182.5,117.5,TA_Center|TA_BASELINE,DiteZTP3) else Text(182.5,117.5,TA_Center|TA_BASELINE,skrt) ;dite 4 if(Length(Trim(DiteJmeno4))<>0) XText(25,123.5,92,TA_Left|TA_BASELINE,DiteJmeno4) else Text(25,123.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC4))<>0) XText(135,123.5,32,TA_Center|TA_BASELINE,DiteRC4) else Text(135,123.5,TA_Center|TA_BASELINE,skrt) if(DiteMesic4<>0) Text(162.5,123.5,TA_Center|TA_BASELINE,DiteMesic4) else Text(162.5,123.5,TA_Center|TA_BASELINE,skrt) if(DiteZTP4<>0) Text(182.5,123.5,TA_Center|TA_BASELINE,DiteZTP4) else Text(182.5,123.5,TA_Center|TA_BASELINE,skrt) if(DiteMesicC<>0) Text(162.5,129.5,TA_Center|TA_BASELINE,DiteMesicC) else Text(162.5,129.5,TA_Center|TA_BASELINE,skrt) if(DiteZTPC<>0) Text(182.5,129.5,TA_Center|TA_BASELINE,DiteZTPC) else Text(182.5,129.5,TA_Center|TA_BASELINE,skrt) if(D72<>0) Text(140,137.5,TA_Right|TA_BASELINE,StrFinanc(D72,0)) else Text(140,137.5,TA_Right|TA_BASELINE,skrt) if(D73<>0) Text(140,143.5,TA_Right|TA_BASELINE,StrFinanc(D73,0)) else Text(140,143.5,TA_Right|TA_BASELINE,skrt) if(D71<>0)or(D73<>0) begin D74=D71-D73 Text(140,149.5,TA_Right|TA_BASELINE,StrFinanc(D74,0)) end else Text(140,149.5,TA_Right|TA_BASELINE,skrt) if((D72<>0)or(D73<>0)) begin D75=D72-D73 Text(140,156.5,TA_Right|TA_BASELINE,StrFinanc(D75,0)) end else Text(140,156.5,TA_Right|TA_BASELINE,skrt) if(D76<>0) Text(140,162.5,TA_Right|TA_BASELINE,StrFinanc(D76,0)) else Text(140,162.5,TA_Right|TA_BASELINE,skrt) if((D75<>0)or(D76<>0)) begin D77=D75-D76 Text(140,168.5,TA_Right|TA_BASELINE,StrFinanc(D77,0)) end else Text(140,168.5,TA_Right|TA_BASELINE,skrt) if(D78<>0) Text(140,181,TA_Right|TA_BASELINE,StrFinanc(D78,0)) else Text(140,181,TA_Right|TA_BASELINE,skrt) if(D79<>0) Text(140,188,TA_Right|TA_BASELINE,StrFinanc(D79,0)) else Text(140,188,TA_Right|TA_BASELINE,skrt) if((D78<>0)or(D79<>0)) begin D80=D79-D78 Text(140,195,TA_Right|TA_BASELINE,StrFinanc(D80,0)) end; else Text(140,195,TA_Right|TA_BASELINE,skrt) if(D81<>0) Text(140,202,TA_Right|TA_BASELINE,StrFinanc(D81,0)) else Text(140,202,TA_Right|TA_BASELINE,skrt) if(D82<>0) Text(140,209,TA_Right|TA_BASELINE,StrFinanc(D82,0)) else Text(140,209,TA_Right|TA_BASELINE,skrt) if((D82<>0)or(D81<>0)) begin D83=D82-D81 Text(140,216,TA_Right|TA_BASELINE,StrFinanc(D83,0)) end else Text(140,216,TA_Right|TA_BASELINE,skrt) if(D84<>0) Text(140,229,TA_Right|TA_BASELINE,StrFinanc(D84,0)) else Text(140,229,TA_Right|TA_BASELINE,skrt) if(D85<>0) Text(140,236,TA_Right|TA_BASELINE,StrFinanc(D85,0)) else Text(140,236,TA_Right|TA_BASELINE,skrt) if(D86<>0) Text(140,243,TA_Right|TA_BASELINE,StrFinanc(D86,0)) else Text(140,243,TA_Right|TA_BASELINE,skrt) if(D87<>0) Text(140,250,TA_Right|TA_BASELINE,StrFinanc(D87,0)) else Text(140,250,TA_Right|TA_BASELINE,skrt) if(D88<>0) Text(140,257,TA_Right|TA_BASELINE,StrFinanc(D88,0)) else Text(140,257,TA_Right|TA_BASELINE,skrt) if(D89<>0) Text(140,264,TA_Right|TA_BASELINE,StrFinanc(D89,0)) else Text(140,264,TA_Right|TA_BASELINE,skrt) if(D90<>0) Text(140,271,TA_Right|TA_BASELINE,StrFinanc(D90,0)) else Text(140,271,TA_Right|TA_BASELINE,skrt) if((D71<>0)or(D77<>0)or(D84<>0)or(D85<>0)or(D86<>0)or(D87<>0)or(D88<>0)or(D89<>0)or(D90<>0)) begin D91=D74-D77-D84-D85-D86-D87-D88-D89-D90 Text(140,278,TA_Right|TA_BASELINE,StrFinanc(D91,0)) end else Text(140,278,TA_Right|TA_BASELINE,skrt) end NextPage end ;{================================================ str. 4 ========================} ;{tisk 4. strany včetně hodnot} begin FONTSIZE(3.7) FONTFACE(BOLD) XTEXT(7,6,174,TA_LEFT|TA_BASELINE,'Přílohy DAP:') PEN(0,0.3) ROUNDBOX(7,12,174,85.5,3.3,3.3) PEN(0,0.1) LINES(7,18,174,0,0,7,2) LINES(7,31.5,174,0,0,6.5,10) LINE(171,12,0,85.5) PEN(0,0.7) LINE(7,100,174.5,0) XTEXT(94,105,174,TA_CENTER|TA_BASELINE,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO DAP JSOU PRAVDIVÉ A ÚPLNÉ') PEN(0,0.3) ROUNDBOX(7,108,96,5.5,3.3,3.3) ROUNDBOX(126.5,108,54.5,5.5,3.3,3.3) XTEXT(94,121,174,TA_CENTER|TA_BASELINE,'ÚDAJE O ZÁSTUPCI') ROUNDBOX(7,123,174,18,3.3,3.3) LINE(7,132,174,0) LINE(114,123,0,9) LINE(94,123,0,18) LINES(74.5,132,0,9,70,0,2) XTEXT(94,154,174,TA_CENTER|TA_BASELINE,'VYPLNÍ FINANČNÍ ÚŘAD') BOX(7,180,174,50.5) XTEXT(94,184,174,TA_CENTER|TA_BASELINE,'ŽÁDOST O VRÁCENÍ PŘEPLATKU NA DANI Z PŘIJMŮ FYZICKÝCH OSOB') XTEXT(94,236,174,TA_CENTER|TA_BASELINE,'VYPLNÍ FINANČNÍ ÚŘAD') PEN(0,0.1) ROUNDBOX(141.5,143,30,6,3.3,3.3) ROUNDBOX(84,163.5,40,6,3.3,3.3) LINES(89,168,0,1.5,5,0,7) LINES(94,166.5,0,3,10,0,2) ROUNDBOX(141,163.5,40,6,3.3,3.3) LINES(146,168,0,1.5,5,0,7) LINES(151,166.5,0,3,10,0,2) ROUNDBOX(141,172,40,6,3.3,3.3) ROUNDBOX(101.5,239,79.5,35,3.3,3.3) PEN(0,0.03) LINES(146.5,147.5,0,1.5,5,0,5) ROUNDBOX(83.5,155,6,6,3.3,3.3) ROUNDBOX(116.5,155,6,6,3.3,3.3) FONTSIZE(3.3) FontFace(Normal) Text(7,9.5,TA_LEFT|TA_BASELINE,'Ve sloupci uveďte počet listů příloh.'); XText(9,16,160,TA_LEFT|TA_BASELINE,'Název přílohy'); XText(9,22.5,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,29,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,34,160,TA_LEFT|TA_BASELINE,'Příloha č. 3 - „Výpočet daně z příjmů dosažených za více zdaňovacích období (§ 14 zákona), daně z příjmů'); XText(9,37,160,TA_LEFT|TA_BASELINE,'ze zahraničí (§ 38f zákona) a daně po slevě (§ 35 zákona)“ včetně Samostatných listů 4. oddílu'); XText(9,42.5,160,TA_LEFT|TA_BASELINE,'Příloha č. 4 - „Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona“'); XText(9,49,160,TA_LEFT|TA_BASELINE,'Příloha č. 5 - „Výpočet společného základu daně manželů podle § 13a zákona“'); XText(9,55.5,160,TA_LEFT|TA_BASELINE,'Účetní závěrka poplatníka, který vede účetnictví'); XText(9,60,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,63,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,68.5,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,75,160,TA_LEFT|TA_BASELINE,'Potvrzení o zaplacených částkách na penzijní připojištění'); XText(9,81.5,160,TA_LEFT|TA_BASELINE,'Potvrzení o zaplacených částkách na soukromé životní pojištění'); XText(9,88,160,TA_LEFT|TA_BASELINE,'Další přílohy výše neuvedené'); XText(9,94.5,160,TA_LEFT|TA_BASELINE,'Počet listů příloh celkem'); Text(10,112,TA_LEFT|TA_BASELINE,'V'); Text(52,112,TA_LEFT|TA_BASELINE,'dne'); XText(10,126,80,TA_LEFT|TA_BASELINE,'Příjmení a jméno'); XText(96.5,126,15.5,TA_LEFT|TA_BASELINE,'Titul'); XText(116.5,126,62,TA_LEFT|TA_BASELINE,'Telefon / mobilní telefon'); XText(10,135,62,TA_LEFT|TA_BASELINE,'Adresa - obec'); XText(77,135,15,TA_LEFT|TA_BASELINE,'PSČ'); XText(97,135,45,TA_LEFT|TA_BASELINE,'Ulice / část obce'); XText(147,135,32.5,TA_LEFT|TA_BASELINE,'Číslo popisné / orientační'); XText(7.5,147.5,132.5,TA_LEFT|TA_BASELINE,'Pokud DAP zpracovává daňový poradce, uvede dále evidenční číslo osvědčení'); XText(7,159,73.5,TA_LEFT|TA_BASELINE,'Za finanční úřad přiznanou daňovou povinnost a ztrátu vyměřil'); FONTSIZE(1.7) Text(0,-1.3,TA_RELATIVE|TA_BASELINE,'1'); FONTSIZE(3.3) Text(0,1.3,TA_RELATIVE|TA_BASELINE,')'); XText(90,159,23.5,TA_LEFT|TA_BASELINE,'- dodatečně vyměřil'); FONTSIZE(1.7) Text(0,-1.3,TA_RELATIVE|TA_BASELINE,'1'); FONTSIZE(3.3) Text(0,1.3,TA_RELATIVE|TA_BASELINE,')'); XText(124,159,57.5,TA_LEFT|TA_BASELINE,'podle § 46 odst. 5 zákona ČNR č. 337/1992 Sb.,'); XText(7,167.5,71,TA_LEFT|TA_BASELINE,'o správě daní a poplatků, ve znění pozdějších předpisů, dne'); XText(131,167.5,9,TA_LEFT|TA_BASELINE,'ke dni'); XText(138,176,131,TA_RIGHT|TA_BASELINE,'Podpis odpovědného pracovníka'); XText(12,188.5,163.5,TA_LEFT|TA_BASELINE,'Podle ust. § 64 odst. 4 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů, žádám o vrácení:'); XText(12,193.5,55,TA_LEFT|TA_BASELINE,'1. přeplatku na dani z přijmů fyzických osob'); XText(68,193.5,100,TA_LEFT|TA_BASELINE,DupChar('.',125)); Text(175.5,193.5,TA_RIGHT|TA_BASELINE,'Kč.'); XText(12,198.5,35.5,TA_LEFT|TA_BASELINE,'Přeplatek zašlete na adresu:'); XText(175.5,198.5,125,TA_RIGHT|TA_BASELINE,DupChar('.',160)); XText(12,203.5,43,TA_LEFT|TA_BASELINE,'Přeplatek vraťte na účet vedený u'); XText(55.5,203.5,60,TA_LEFT|TA_BASELINE,DupChar('.',78)); XText(118.5,203.5,3,TA_CENTER|TA_BASELINE,'č.'); XText(175.5,203.5,55,TA_RIGHT|TA_BASELINE,DupChar('.',71)); XText(12,208.5,13.5,TA_LEFT|TA_BASELINE,'kód banky'); XText(25.5,208.5,69,TA_LEFT|TA_BASELINE,DupChar('.',89)); XText(107,208.5,23,TA_CENTER|TA_BASELINE,'specifický symbol'); XText(175.5,208.5,55,TA_RIGHT|TA_BASELINE,DupChar('.',71)); XText(12,213.5,114.5,TA_LEFT|TA_BASELINE,'2. přeplatku na dani z příjmů fyzických osob v důsledku postupu podle § 13a zákona ve výši'); XText(125,213.5,45,TA_LEFT|TA_BASELINE,DupChar('.',55)); Text(175.5,213.5,TA_RIGHT|TA_BASELINE,'Kč.'); XText(12,218.5,69,TA_LEFT|TA_BASELINE,'Přeplatek převeďte na účet vedený u Finančního úřadu'); XText(82,218.5,43.5,TA_LEFT|TA_BASELINE,DupChar('.',56)); Text(127,218.5,TA_LEFT|TA_BASELINE,'č. '); FontFace(Bold); Text(0,0,TA_RELATIVE|TA_BASELINE,'721-'); FontFace(Normal); XText(175.5,218.5,42,TA_RIGHT|TA_BASELINE,DupChar('.',50)); Text(12,223.5,TA_LEFT|TA_BASELINE,'kód banky'); FontFace(Bold); Text(0,0,TA_RELATIVE|TA_BASELINE,' 0710,'); FontFace(Normal); Text(0,0,TA_RELATIVE|TA_BASELINE,'variabilní symbol (rodné číslo) '); XText(0,0,46.5,TA_RELATIVE|TA_BASELINE,DupChar('.',60)); XText(12,228.5,2,TA_LEFT|TA_BASELINE,'V'); XText(14,228.5,46.5,TA_LEFT|TA_BASELINE,DupChar('.',60)); XText(65,228.5,6,TA_CENTER|TA_BASELINE,'dne'); XText(69,228.5,27,TA_LEFT|TA_BASELINE,DupChar('.',36)); XText(97.5,228.5,36.5,TA_LEFT|TA_BASELINE,'Podpis poplatníka (zástupce)'); XText(175.5,228.5,40,TA_RIGHT|TA_BASELINE,DupChar('.',52)); FontSize(3) Text(154,116.5,TA_CENTER|TA_BASELINE,'Podpis poplatníka (zástupce)'); Text(141.5,272,TA_CENTER|TA_BASELINE,'Otisk prezentačního razítka finančního úřadu'); FontSize(2) Text(7,274.5,TA_LEFT|TA_BASELINE,'1'); FontSize(2.8) Text(0,0.5,TA_RELATIVE|TA_BASELINE,') Označte křížkem odpovídající variantu'); FontSize(2) Text(7,277.5,TA_LEFT|TA_BASELINE,'2'); FontSize(2.8) XText(0,0.5,173,TA_RELATIVE|TA_BASELINE,') Údaj za část zdaňovacího období vyplňte, pouze máte-li kód rozlišení typu přiznání „Prohlášení konkurzu“ nebo „Zrušení konkurzu“ nebo „Úmrtí“ a dále'); XText(9.5,281,174.5,TA_LEFT|TA_BASELINE,'v případech uvedených v § 40 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů'); FONTSIZE(3.2) Text(94,284,TA_CENTER|TA_BASELINE,'4') ;{Tisk hodnot} if(not Prazdny) begin FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Pr1<>0) Text(178,23,TA_Right|TA_BASELINE,Pr1) else Text(178,23,TA_Right|TA_BASELINE,skrt) if(Pr2<>0) Text(178,30,TA_Right|TA_BASELINE,Pr2) else Text(178,30,TA_Right|TA_BASELINE,skrt) if(Pr3<>0) Text(178,36,TA_Right|TA_BASELINE,Pr3) else Text(178,36,TA_Right|TA_BASELINE,skrt) if(Pr4<>0) Text(178,42.5,TA_Right|TA_BASELINE,Pr4) else Text(178,42.5,TA_Right|TA_BASELINE,skrt) if(Pr5<>0) Text(178,49,TA_Right|TA_BASELINE,Pr5) else Text(178,49,TA_Right|TA_BASELINE,skrt) if(Pr6<>0) Text(178,55.5,TA_Right|TA_BASELINE,Pr6) else Text(178,55.5,TA_Right|TA_BASELINE,skrt) if(Pr7<>0) Text(178,62,TA_Right|TA_BASELINE,Pr7) else Text(178,62,TA_Right|TA_BASELINE,skrt) if(Pr8<>0) Text(178,69.5,TA_Right|TA_BASELINE,Pr8) else Text(178,69.5,TA_Right|TA_BASELINE,skrt) if(Pr9<>0) Text(178,76,TA_Right|TA_BASELINE,Pr9) else Text(178,76,TA_Right|TA_BASELINE,skrt) if(Pr10<>0) Text(178,82.5,TA_Right|TA_BASELINE,Pr10) else Text(178,82.5,TA_Right|TA_BASELINE,skrt) if(Pr11<>0) Text(178,89,TA_Right|TA_BASELINE,Pr11) else Text(178,89,TA_Right|TA_BASELINE,skrt) if(Pr12<>0) Text(178,95.5,TA_Right|TA_BASELINE,Pr12) else Text(178,95.5,TA_Right|TA_BASELINE,skrt) XText(13,112,38,TA_Left|TA_BASELINE,Kde4) Text(60,112,TA_Left|TA_BASELINE,StrDate(Kdy4)) XText(13,130,80,TA_Left|TA_BASELINE,Zast1) XText(96.5,130,15,TA_Left|TA_BASELINE,Zast2) XText(116.5,130,55,TA_Left|TA_BASELINE,Zast3) XText(13,139,60,TA_Left|TA_BASELINE,Zast4) XText(77,139,15,TA_Left|TA_BASELINE,Zast5) XText(97,139,43,TA_Left|TA_BASELINE,Zast6) XText(147,139,30,TA_Left|TA_BASELINE,Zast7) STEXT(142.5,147,TA_LEFT|TA_BASELINE,5,6,EvCisOsved) FontSize(3.8) Text(75,193,TA_Left|TA_BASELINE,Prep1) XText(55,198,125,TA_Left|TA_BASELINE,Prep2) XText(55,203,56,TA_Left|TA_BASELINE,Prep3) XText(125,203,50,TA_Left|TA_BASELINE,Prep4) Text(30,208,TA_Left|TA_BASELINE,Prep5) Text(125,208,TA_Left|TA_BASELINE,Prep6) Text(130,213,TA_Left|TA_BASELINE,Prep7) XText(85,218,40,TA_Left|TA_BASELINE,Prep8) Text(145,218,TA_Left|TA_BASELINE,Prep9) Text(72,222.5,TA_Left|TA_BASELINE,Prep10) XText(16,228,44,TA_Left|TA_BASELINE,Prep11) Text(72,228,TA_Left|TA_BASELINE,StrDate(Prep12)) end end if((Pril1)or(Pril2)or(Pril3)or(Pril4)or(Pril5)) NextPage; end ;{==================================== Příloha 1 / Strana 1 ====================================} if(Pril1) begin ;{tisk Přílohy 1 / Strany 1} 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í 2005 - 25 5405 MFin 5405 vzor č. 12 (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,'§ 46a odst. 3 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí') Text(18,27,TA_Left|TA_BASELINE,'s přesností na dvě desetinná místa.') 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,'Pojistné') 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 - ř. 103)') 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,174.5,TA_Left|TA_BASELINE,'111') XText(25,174.5,86,TA_Left|TA_BASELINE,'Zbývající část příjmů za více zdaňovacích období snížená o zbývající') XText(25,177.5,86,TA_Left|TA_BASELINE,'část výdajů připadající na příjmy za více zdaňovacích období podle') XText(25,180.5,86,TA_Left|TA_BASELINE,'§ 14 zákona') 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(186,234.5,TA_Right|TA_BASELINE,'Kód klasifikace OKEČ') 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í') 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 č. 1'); FONTSIZE(3) Text(105.5,284,TA_CENTER|TA_BASELINE,'(1)') ;{Tisk hodnot} if(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,9.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) 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(P1103<>0) Text(150,92,TA_Right|TA_BASELINE,StrFinanc(P1103,0)) else Text(150,92,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(P1111<>0) Text(150,180,TA_Right|TA_BASELINE,StrFinanc(P1111,0)) else Text(150,180,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) XText(20,241,130,TA_Left|TA_BASELINE,HlavCinn1) end ;{tisk Přílohy 1 / Strany 2} NextPage 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. Dlouhodobý 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Č') 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)') ;{Tisk hodnot} if(not Prazdny) begin FONTFACE(Italic|BOLD) FontSize(VyskaFontuHodn) if(Program.DanovaEvidence) begin if(DatumZah<>0) Text(30,14,TA_Center|TA_BASELINE,StrDate(DatumZah)) else Text(30,14,TA_Center|TA_BASELINE,skrt) if(DatumPrer<>0) Text(65,14,TA_Center|TA_BASELINE,StrDate(DatumPrer)) else Text(65,14,TA_Center|TA_BASELINE,skrt) if(DatumUkon<>0) Text(100,14,TA_Center|TA_BASELINE,StrDate(DatumUkon)) else Text(100,14,TA_Center|TA_BASELINE,skrt) if(DatumObnov<>0) Text(135,14,TA_Center|TA_BASELINE,StrDate(DatumObnov)) else Text(135,14,TA_Center|TA_BASELINE,skrt) if(PocetMesicu<>0) Text(170,14,TA_Center|TA_BASELINE,PocetMesicu) else Text(170,14,TA_Center|TA_BASELINE,skrt) 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(P1ETZvys1))<>0) XText(12,111.5,123,TA_Left|TA_BASELINE,P1ETZvys1) else Text(12,111.5,TA_Left|TA_BASELINE,skrt) if(P1EHZvys1<>0) Text(172,111.5,TA_Right|TA_BASELINE,StrFinanc(P1EHZvys1,0)) else Text(172,111.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETZvys2))<>0) XText(12,117,123,TA_Left|TA_BASELINE,P1ETZvys2) else Text(12,117,TA_Left|TA_BASELINE,skrt) if(P1EHZvys2<>0) Text(172,117,TA_Right|TA_BASELINE,StrFinanc(P1EHZvys2,0)) else Text(172,117,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETZvys3))<>0) XText(12,122.5,123,TA_Left|TA_BASELINE,P1ETZvys3) else Text(12,122.5,TA_Left|TA_BASELINE,skrt) if(P1EHZvys3<>0) Text(172,122.5,TA_Right|TA_BASELINE,StrFinanc(P1EHZvys3,0)) else Text(172,122.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETZvys4))<>0) XText(12,128,123,TA_Left|TA_BASELINE,P1ETZvys4) else Text(12,128,TA_Left|TA_BASELINE,skrt) if(P1EHZvys4<>0) Text(172,128,TA_Right|TA_BASELINE,StrFinanc(P1EHZvys4,0)) else Text(172,128,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETSniz1))<>0) XText(12,142.5,123,TA_Left|TA_BASELINE,P1ETSniz1) else Text(12,142.5,TA_Left|TA_BASELINE,skrt) if(P1EHSniz1<>0) Text(172,142.5,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz1,0)) else Text(172,142.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETSniz2))<>0) XText(12,148,123,TA_Left|TA_BASELINE,P1ETSniz2) else Text(12,148,TA_Left|TA_BASELINE,skrt) if(P1EHSniz2<>0) Text(172,148,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz2,0)) else Text(172,148,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETSniz3))<>0) XText(12,153.5,123,TA_Left|TA_BASELINE,P1ETSniz3) else Text(12,153.5,TA_Left|TA_BASELINE,skrt) if(P1EHSniz3<>0) Text(172,153.5,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz3,0)) else Text(172,153.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P1ETSniz4))<>0) XText(12,159,123,TA_Left|TA_BASELINE,P1ETSniz4) else Text(12,159,TA_Left|TA_BASELINE,skrt) if(P1EHSniz4<>0) Text(172,159,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz4,0)) else Text(172,159,TA_Right|TA_BASELINE,skrt) if(P1EHSniz4<>0) Text(172,154,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz4,0)) else Text(172,159,TA_Right|TA_BASELINE,skrt) if(P1EHSniz4<>0) Text(172,159,TA_Right|TA_BASELINE,StrFinanc(P1EHSniz4,0)) else Text(172,159,TA_Right|TA_BASELINE,skrt) ;F if(Length(Trim(JmenoSdr1))<>0) XText(12,184,34,TA_Left|TA_BASELINE,JmenoSdr1) else Text(12,184,TA_Left|TA_BASELINE,skrt) if(Length(Trim(PrijmeniSdr1))<>0) XText(47,184,36,TA_Left|TA_BASELINE,PrijmeniSdr1) else Text(47,184,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DICSdr1))<>0) XText(100.5,184,36,TA_Center|TA_BASELINE,DICSdr1) else Text(100.5,184,TA_Center|TA_BASELINE,skrt) if(PodilP1<>0) Text(145,184,TA_Right|TA_BASELINE,PodilP1) else Text(145,184,TA_Right|TA_BASELINE,skrt) if(PodilV1<>0) Text(172,184,TA_Right|TA_BASELINE,PodilV1) else Text(172,184,TA_Right|TA_BASELINE,skrt) if(Length(Trim(JmenoSdr2))<>0) XText(12,190,34,TA_Left|TA_BASELINE,JmenoSdr2) else Text(12,190,TA_Left|TA_BASELINE,skrt) if(Length(Trim(PrijmeniSdr2))<>0) XText(47,190,36,TA_Left|TA_BASELINE,PrijmeniSdr2) else Text(47,190,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DICSdr2))<>0) XText(100.5,190,36,TA_Center|TA_BASELINE,DICSdr2) else Text(100.5,190,TA_Center|TA_BASELINE,skrt) if(PodilP2<>0) Text(145,190,TA_Right|TA_BASELINE,PodilP2) else Text(145,190,TA_Right|TA_BASELINE,skrt) if(PodilV2<>0) Text(172,190,TA_Right|TA_BASELINE,PodilV2) else Text(172,190,TA_Right|TA_BASELINE,skrt) if(Length(Trim(JmenoSdr3))<>0) XText(12,196,34,TA_Left|TA_BASELINE,JmenoSdr3) else Text(12,196,TA_Left|TA_BASELINE,skrt) if(Length(Trim(PrijmeniSdr3))<>0) XText(47,196,36,TA_Left|TA_BASELINE,PrijmeniSdr3) else Text(47,196,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DICSdr3))<>0) XText(100.5,196,36,TA_Center|TA_BASELINE,DICSdr3) else Text(100.5,196,TA_Center|TA_BASELINE,skrt) if(PodilP3<>0) Text(145,196,TA_Right|TA_BASELINE,PodilP3) else Text(145,196,TA_Right|TA_BASELINE,skrt) if(PodilV3<>0) Text(172,196,TA_Right|TA_BASELINE,PodilV3) else Text(172,196,TA_Right|TA_BASELINE,skrt) if(Length(Trim(JmenoSpol1))<>0) XText(12,223,34,TA_Left|TA_BASELINE,JmenoSpol1) else Text(12,223,TA_Left|TA_BASELINE,skrt) if(Length(Trim(PrijmeniSpol1))<>0) XText(47,223,36,TA_Left|TA_BASELINE,PrijmeniSpol1) else Text(47,223,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DICSpol1))<>0) XText(100.5,223,36,TA_Center|TA_BASELINE,DICSpol1) else Text(100.5,223,TA_Center|TA_BASELINE,skrt) if(PodilSpol1<>0) Text(172,223,TA_Right|TA_BASELINE,PodilSpol1) else Text(172,223,TA_Right|TA_BASELINE,skrt) if(Length(Trim(JmenoSpol2))<>0) XText(12,229,34,TA_Left|TA_BASELINE,JmenoSpol2) else Text(12,229,TA_Left|TA_BASELINE,skrt) if(Length(Trim(PrijmeniSpol2))<>0) XText(47,229,36,TA_Left|TA_BASELINE,PrijmeniSpol2) else Text(47,229,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DICSpol2))<>0) XText(100.5,229,36,TA_Center|TA_BASELINE,DICSpol2) else Text(100.5,229,TA_Center|TA_BASELINE,skrt) if(PodilSpol2<>0) Text(172,229,TA_Right|TA_BASELINE,PodilSpol2) 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,274,40,TA_Center|TA_BASELINE,DICVOS) else Text(145,274,TA_Center|TA_BASELINE,skrt) if(Length(Trim(PodilVOS))<>0) XText(172,274,7,TA_Right|TA_BASELINE,PodilVOS) else Text(172,274,TA_Right|TA_BASELINE,skrt) end if((Pril2)or(Pril3)or(Pril4)or(Pril5)) NextPage; end ;{==================================== Příloha 2 ====================================} ;{tisk Přílohy 2} 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í 2005 - 25 5405 MFin 5405 vzor č. 12 (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,'§ 46a odst. 3 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí') Text(18,38,TA_Left|TA_BASELINE,'s přesností na dvě desetinná místa.') 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ů') 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,78.5,193,140.5,3.3,3.3) PEN(0,0.1) LINESA(18,86.5,193,86.5,0,8,4) LINESA(18,121.5,193,121.5,0,11,2) LINESA(113,78.5,113,140.5,40,0,2) FontSize(3.2) Text(133,83.5,TA_Center|TA_BASELINE,'poplatník') Text(173,83.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,91,TA_Left|TA_BASELINE,'201') Text(27,91,TA_Left|TA_BASELINE,'Příjmy podle § 9 zákona') Text(20,99,TA_Left|TA_BASELINE,'202') Text(27,99,TA_Left|TA_BASELINE,'Výdaje podle § 9 zákona') Text(20,106.5,TA_Left|TA_BASELINE,'203') XText(27,106.5,88,TA_Left|TA_BASELINE,'Rozdíl mezi příjmy a výdaji (ř. 201 - ř. 202) nebo výsledek') XText(27,109.5,88,TA_Left|TA_BASELINE,'hospodaření před zdaněním (zisk, ztráta)') Text(20,114.5,TA_Left|TA_BASELINE,'204') XText(27,114.5,88,TA_Left|TA_BASELINE,'Úhrn částek podle § 5, § 23 a ostatní úpravy podle zákona') XText(27,117.5,88,TA_Left|TA_BASELINE,'zvyšující rozdíl mezi příjmy a výdaji nebo výsledek hospodaření') XText(27,120.5,88,TA_Left|TA_BASELINE,'před zdaněním (zisk, ztráta)') Text(20,125,TA_Left|TA_BASELINE,'205') XText(27,125,88,TA_Left|TA_BASELINE,'Úhrn částek podle § 5, § 23 a ostatní úpravy podle zákona') XText(27,128,88,TA_Left|TA_BASELINE,'snižující rozdíl mezi příjmy a výdaji nebo výsledek hospodaření') Text(27,131,TA_Left|TA_BASELINE,'před zdaněním (zisk, ztráta)') Text(20,135.5,TA_Left|TA_BASELINE,'206') Text(27,135.5,TA_Left|TA_BASELINE,'Dílčí základ daně, daňová ztráta z pronájmu podle § 9 zákona') Text(27,138.5,TA_Left|TA_BASELINE,'(ř. 203 + ř. 204 - ř. 205)') 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,162,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 zemedě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 č. 1'); ;{Tisk hodnot} if(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,8.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) 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) if(P2201<>0) Text(150,92.5,TA_Right|TA_BASELINE,StrFinanc(P2201,0,True));nefunguje mi StrFinanc!!! else Text(150,92.5,TA_Right|TA_BASELINE,skrt) if(P2202<>0) Text(150,100.5,TA_Right|TA_BASELINE,StrFinanc(P2202,0,True)) else Text(150,100.5,TA_Right|TA_BASELINE,skrt) if(P2203<>0) Text(150,108.5,TA_Right|TA_BASELINE,StrFinanc(P2203,0)) else Text(150,108.5,TA_Right|TA_BASELINE,skrt) if(P2204<>0) Text(150,119.5,TA_Right|TA_BASELINE,StrFinanc(P2204,0)) else Text(150,119.5,TA_Right|TA_BASELINE,skrt) if(P2205<>0) Text(150,130.5,TA_Right|TA_BASELINE,StrFinanc(P2205,0)) else Text(150,130.5,TA_Right|TA_BASELINE,skrt) if(P2206<>0) Text(150,138.5,TA_Right|TA_BASELINE,StrFinanc(P2206,0)) else Text(150,138.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P2Druh1))<>0) XText(30,178,65,TA_Left|TA_BASELINE,P2Druh1) else Text(30,178,TA_Left|TA_BASELINE,skrt) if(P2Prijem1<>0) Text(120,178,TA_Right|TA_BASELINE,StrFinanc(P2Prijem1,0)) else Text(120,178,TA_Right|TA_BASELINE,skrt) if(P2Vydaj1<>0) Text(150,178,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj1,0)) else Text(150,178,TA_Right|TA_BASELINE,skrt) if(P2Prijem1-P2Vydaj1<>0) Text(180,178,TA_Right|TA_BASELINE,StrFinanc(P2Prijem1-P2Vydaj1,0)) else Text(180,178,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P2Kod1))<>0) XText(188,178,10,TA_Center|TA_BASELINE,P2Kod1) else Text(188,178,TA_Center|TA_BASELINE,skrt) if(Length(Trim(P2Druh2))<>0) XText(30,186,65,TA_Left|TA_BASELINE,P2Druh2) else Text(30,186,TA_Left|TA_BASELINE,skrt) if(P2Prijem2<>0) Text(120,186,TA_Right|TA_BASELINE,StrFinanc(P2Prijem2,0)) else Text(120,186,TA_Right|TA_BASELINE,skrt) if(P2Vydaj2<>0) Text(150,186,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj2,0)) else Text(150,186,TA_Right|TA_BASELINE,skrt) if(P2Prijem2-P2Vydaj2<>0) Text(180,186,TA_Right|TA_BASELINE,StrFinanc(P2Prijem2-P2Vydaj2,0)) else Text(180,186,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P2Kod2))<>0) XText(188,186,10,TA_Center|TA_BASELINE,P2Kod2) else Text(188,186,TA_Center|TA_BASELINE,skrt) if(Length(Trim(P2Druh3))<>0) XText(30,194,65,TA_Left|TA_BASELINE,P2Druh3) else Text(30,194,TA_Left|TA_BASELINE,skrt) if(P2Prijem3<>0) Text(120,194,TA_Right|TA_BASELINE,StrFinanc(P2Prijem3,0)) else Text(120,194,TA_Right|TA_BASELINE,skrt) if(P2Vydaj3<>0) Text(150,194,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj3,0)) else Text(150,194,TA_Right|TA_BASELINE,skrt) if(P2Prijem3-P2Vydaj3<>0) Text(180,194,TA_Right|TA_BASELINE,StrFinanc(P2Prijem3-P2Vydaj3,0)) else Text(180,194,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P2Kod3))<>0) XText(188,194,10,TA_Center|TA_BASELINE,P2Kod3) else Text(188,194,TA_Center|TA_BASELINE,skrt) if(Length(Trim(P2Druh4))<>0) XText(30,202,65,TA_Left|TA_BASELINE,P2Druh4) else Text(30,202,TA_Left|TA_BASELINE,skrt) if(P2Prijem4<>0) Text(120,202,TA_Right|TA_BASELINE,StrFinanc(P2Prijem4,0)) else Text(120,202,TA_Right|TA_BASELINE,skrt) if(P2Vydaj4<>0) Text(150,202,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj4,0)) else Text(150,202,TA_Right|TA_BASELINE,skrt) if(P2Prijem4-P2Vydaj4<>0) Text(180,202,TA_Right|TA_BASELINE,StrFinanc(P2Prijem4-P2Vydaj4,0)) else Text(180,202,TA_Right|TA_BASELINE,skrt) if(Length(Trim(P2Kod4))<>0) XText(188,202,10,TA_Center|TA_BASELINE,P2Kod4) else Text(188,202,TA_Center|TA_BASELINE,skrt) if(P2DilciSuma<>0) Text(180,210,TA_Right|TA_BASELINE,StrFinanc(P2DilciSuma,0)) else Text(180,210,TA_Right|TA_BASELINE,skrt) if(P2207<>0) Text(150,232,TA_Right|TA_BASELINE,StrFinanc(P2207,0,True)) else Text(150,232,TA_Right|TA_BASELINE,skrt) if(P2208<>0) Text(150,240,TA_Right|TA_BASELINE,StrFinanc(P2208,0)) else Text(150,240,TA_Right|TA_BASELINE,skrt) if(P2209<>0) Text(150,248,TA_Right|TA_BASELINE,StrFinanc(P2209,0)) else Text(150,248,TA_Right|TA_BASELINE,skrt) end if((Pril3)or(Pril4)or(Pril5)) NextPage; end; ;{================================================ Příloha 3 =======================================} if(Pril3) begin ;{tisk Přílohy 3 / Strana 1} PEN(0,0.1) ROUNDBOXA(137,0,193,6,3.3,3.3) LINESA(142,4.5,142,6,10,0,3) LINESA(172,4.5,172,6,5,0,4) LINESA(147,4,147,6,10,0,3) FONTSIZE(5) FONTFACE(NORMAL|BOLD) Text(18,4,TA_Left|TA_BASELINE,'PŘÍLOHA č. 3') FontSize(3.2) Text(18,8,TA_Left|TA_BASELINE,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob') Text(18,11,TA_Left|TA_BASELINE,'za zdaňovací období 2005 - 25 5405 MFin 5405 vzor č. 12 (dále jen "DAP").') Text(18,15,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,18,TA_Left|TA_BASELINE,'§ 46a odst. 3 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů a jejich zaokrouhlení se provádí') Text(18,21,TA_Left|TA_BASELINE,'s přesností na dvě desetinná místa.') FontSize(3.6) XText(18,26,175,TA_Left|TA_BASELINE,'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čí') Text(18,29.5,TA_Left|TA_BASELINE,'(§ 38f zákona) a daně po slevě (§ 35 zákona)') FontSize(3.4) Text(18,36,TA_Left|TA_BASELINE,'1. Daň z příjmů dosažených za více zdaňovacích období') FONTFACE(NORMAL) FontSize(3.2) Text(135,5,TA_Right|TA_BASELINE,'Rodné číslo:') FontSize(3.8) SText(169.5,4,TA_CENTER|TA_BASELINE,5,1,'/') FontSize(3.2) PEN(0,0.3) ROUNDBOXA(18,38,193,78.5,3.3,3.3) PEN(0,0.1) LINEA(113,43,193,43) LINEA(18,47,193,47) LINEA(18,59,193,59) PEN(0,0.6) ROUNDBOXA(18,67.5,193,78.5,3.3,3.3) PEN(0,0.1) LINEA(113,38,113,78.5) LINEA(153,43,153,78.5) Text(153,41,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,46,TA_Center|TA_BASELINE,'poplatník') Text(173,46,TA_Center|TA_BASELINE,'finanční úřad') Text(20,50.5,TA_Left|TA_BASELINE,'301') XText(26,50.5,86,TA_Left|TA_BASELINE,'Procento daně ze základu daně (ř. 63 DAP děleno ř. 42 DAP, násobeno') XText(26,54,84,TA_Left|TA_BASELINE,'stem). Jestliže takto zjištěné procento je menší než 15 %, použije se') XText(26,57,84,TA_Left|TA_BASELINE,'pro výpočet daně ze zbývajících částí příjmů sazba daně ve výši 15 %') FONTSIZE(6) Text(147,56.5,TA_Left|TA_BASELINE,'%') FONTSIZE(3.2) Text(20,62.5,TA_Left|TA_BASELINE,'302') XText(26,62.5,84,TA_Left|TA_BASELINE,'Úhrn zbývajících částí příjmů dosažených za více zdaňovacích') XText(26,66,84,TA_Left|TA_BASELINE,'období (ř. 111)') Text(20,72.5,TA_Left|TA_BASELINE,'303') XText(26,72.5,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(26,76,84,TA_Left|TA_BASELINE,'období (ř. 301 násobeno ř. 302, děleno stem)') PEN(0,0.3) ROUNDBOXA(18,80.5,193,152,3.3,3.3) PEN(0,0.1) LINEA(113,85.5,193,85.5) LINEA(18,89.5,193,89.5) LINESA(18,100.5,193,100.5,0,8,5) PEN(0,0.6) ROUNDBOXA(18,140,193,152,3.3,3.3) PEN(0,0.1) LINEA(113,80.5,113,152) LINEA(153,85.5,153,152) FONTFACE(NORMAL) FontSize(3.2) Text(153,83.5,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,88.5,TA_Center|TA_BASELINE,'poplatník') Text(173,88.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,93,TA_Left|TA_BASELINE,'304') XText(26,93,84,TA_Left|TA_BASELINE,'Úhrn zbývajících částí příjmů dosažených za více zdaňovacích') XText(26,96,84,TA_Left|TA_BASELINE,'období, snížený o příslušnou část výdajů, na který je uplatňován') XText(26,99,84,TA_Left|TA_BASELINE,'zápočet daně zaplacené v zahraničí') Text(20,104,TA_Left|TA_BASELINE,'305') XText(26,104,84,TA_Left|TA_BASELINE,'Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí') XText(26,107,84,TA_Left|TA_BASELINE,'příjmů dosažených za více zdaňovacích období v souladu se smlouvou') Text(20,112,TA_Left|TA_BASELINE,'306') XText(26,112,84,TA_Left|TA_BASELINE,'Procento z úhrnu zbývajících částí příjmů') XText(26,115,84,TA_Left|TA_BASELINE,'(ř. 304 děleno ř. 302, násobeno stem)') FONTSIZE(6) Text(147,114.5,TA_Left|TA_BASELINE,'%') FONTSIZE(3.2) Text(20,120,TA_Left|TA_BASELINE,'307') XText(26,120,84,TA_Left|TA_BASELINE,'Z částky daně zaplacené v zahraničí lze maximálně započítat') XText(26,123,84,TA_Left|TA_BASELINE,'(ř. 303 násobeno ř. 306, děleno stem)') Text(20,128,TA_Left|TA_BASELINE,'308') XText(26,128,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(26,131,84,TA_Left|TA_BASELINE,'období (ř. 305 maximálně však do výše ř. 307)') Text(20,136,TA_Left|TA_BASELINE,'309') XText(26,136,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 305 - ř. 308) je větší než nula. V případě, že rozdíl') XText(26,139,84,TA_Left|TA_BASELINE,'řádků (ř. 305 - ř. 308) je menší než nula, řádek proškrtněte') Text(20,144.5,TA_Left|TA_BASELINE,'310') XText(26,144.5,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(26,147.5,84,TA_Left|TA_BASELINE,'období po zápočtu daně zaplacené v zahraničí (ř. 303 - ř. 308)') XText(26,150.5,84,TA_Left|TA_BASELINE,'Pokud Vám vyšlo záporné číslo, do řádku uveďte nulu') FONTFACE(NORMAL|BOLD) FONTSIZE(3.4) Text(18,156,TA_Left|TA_BASELINE,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese') FONTFACE(NORMAL) FONTSIZE(3.2) Text(18,159.5,TA_Left|TA_BASELINE,'Tabulku č. 3 vyplňte') FONTFACE(NORMAL|BOLD) Text(1.5,0,TA_RELATIVE|TA_BASELINE,'pouze') FONTFACE(NORMAL) Text(0.5,0,TA_RELATIVE|TA_BASELINE,', pokud použijete metodu vynětí s výhradou progrese a současně uplatňujete výpočet společného) Text(18,162.5,TA_Left|TA_BASELINE,'základu daně manželů podle § 13a zákona a dále pokračujte ve výpočtu na ř. 311 a následujících. V ostatních případech') Text(18,165.5,TA_Left|TA_BASELINE,'výpočet metody vynětí s výhradou progrese proveďte na ř. 311 a následujících.') Text(18,170,TA_Left|TA_BASELINE,'Tabulka 3') PEN(0,0.3) ROUNDBOXA(18,171,193,215,3.3,3.3) PEN(0,0.1) LINESA(18,180,193,180,0,7,5) LINEA(24.5,180,24.5,215) LINESA(113,171,113,215,20,0,4) Text(118,176.5,TA_Left|TA_BASELINE,'poplatník') Text(138.5,175,TA_Left|TA_BASELINE,'finanční') Text(140.5,178,TA_Left|TA_BASELINE,'úřad') Text(159,175,TA_Left|TA_BASELINE,'manžel/') XText(158,178,84,TA_Left|TA_BASELINE,'manželka') XText(178.5,175,84,TA_Left|TA_BASELINE,'finanční') Text(180.5,178,TA_Left|TA_BASELINE,'úřad') XText(20,184,84,TA_Left|TA_BASELINE,'1 Dílčí základ daně podle § 6 zákona po vynětí') XText(20,191,84,TA_Left|TA_BASELINE,'2 Dílčí základ daně nebo ztráta podle § 7 zákona po vynětí') XText(20,198,84,TA_Left|TA_BASELINE,'3 Dílčí základ daně podle § 8 zákona po vynětí') XText(20,205,84,TA_Left|TA_BASELINE,'4 Dílčí základ daně nebo ztráta podle § 9 zákona po vynětí') XText(20,212,84,TA_Left|TA_BASELINE,'5 Dílčí základ daně podle § 10 zákona po vynětí') PEN(0,0.3) ROUNDBOXA(18,217,193,277,3.3,3.3) PEN(0,0.1) LINEA(113,222,193,222) LINESA(18,226,193,226,0,8,5) PEN(0,0.6) ROUNDBOXA(18,266,193,277,3.3,3.3) PEN(0,0.1) LINEA(113,217,113,277) LINEA(153,222,153,277) FONTFACE(NORMAL) FontSize(3.2) Text(153,220,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,225,TA_Center|TA_BASELINE,'poplatník') Text(173,225,TA_Center|TA_BASELINE,'finanční úřad') Text(20,229.5,TA_Left|TA_BASELINE,'311') XText(26,229.5,84,TA_Left|TA_BASELINE,'Příjmy po vynětí dle § 6 zákona (ř. 36 - úhrn vyňatých příjmů') XText(26,232.5,84,TA_Left|TA_BASELINE,'ze zdrojů v zahraničí podle § 6 zákona)') Text(20,237.5,TA_Left|TA_BASELINE,'312') XText(26,237.5,84,TA_Left|TA_BASELINE,'Příjmy po vynětí podle § 7 až § 10 zákona (ř. 41 - úhrn vyňatých') XText(26,240.5,84,TA_Left|TA_BASELINE,'příjmů ze zdrojů v zahraničí podle § 7 až § 10 zákona)') Text(20,245.5,TA_Left|TA_BASELINE,'313') XText(26,245.5,84,TA_Left|TA_BASELINE,'Základ daně po vynětí příjmů ze zdrojů v zahraničí') XText(26,248.5,84,TA_Left|TA_BASELINE,'(ř. 311 + kladný ř. 312)') Text(20,253.5,TA_Left|TA_BASELINE,'314') XText(26,253.5,84,TA_Left|TA_BASELINE,'Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený o nezda-') XText(26,256.5,84,TA_Left|TA_BASELINE,'nitelné části základu daně a odčitatelné položky (ř. 313 - ř. 60 - ř. 44)') Text(20,261.5,TA_Left|TA_BASELINE,'315') XText(26,261.5,84,TA_Left|TA_BASELINE,'Sazba celkového daňového zatížení -') XText(26,264.5,84,TA_Left|TA_BASELINE,'(ř. 63 DAP děleno ř. 62, násobeno stem)') FONTSIZE(6) Text(147,265,TA_Left|TA_BASELINE,'%') FONTSIZE(3.2) Text(20,270.5,TA_Left|TA_BASELINE,'316') XText(26,270.5,84,TA_Left|TA_BASELINE,'Daň ze základu daně po vynětí příjmů ze zdrojů v zahraničí') XText(26,273.5,84,TA_Left|TA_BASELINE,'(ř. 314 násobeno ř. 315, děleno stem)') FontSize(2.3) FONTFACE(NORMAL) Text(18,280,TA_Left|TA_Baseline,'25 5405/P3 MFin 5405/P3 - vzor č. 1'); FONTSIZE(2.5) Text(105.5,284,TA_CENTER|TA_BASELINE,'1') ;{Tisk hodnot} if(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,4.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FontSize(VyskaFontuHodn) if(P3301<>0) Text(145,56.5,TA_Right|TA_BASELINE,StrFinanc(P3301,0,True));nefunguje mi StrFinanc!!! else Text(145,56.5,TA_Right|TA_BASELINE,skrt) if(P3302<>0) Text(145,64.5,TA_Right|TA_BASELINE,StrFinanc(P3302,0,True)) else Text(145,64.5,TA_Right|TA_BASELINE,skrt) if(P3303<>0) Text(145,75.5,TA_Right|TA_BASELINE,StrFinanc(P3303,0)) else Text(145,75.5,TA_Right|TA_BASELINE,skrt) if(P3304<>0) Text(145,98.5,TA_Right|TA_BASELINE,StrFinanc(P3304,0)) else Text(145,98.5,TA_Right|TA_BASELINE,skrt) if(P3305<>0) Text(145,106.5,TA_Right|TA_BASELINE,StrFinanc(P3305,0)) else Text(145,106.5,TA_Right|TA_BASELINE,skrt) if(P3306<>0) Text(145,114.5,TA_Right|TA_BASELINE,StrFinanc(P3306,0)) else Text(145,114.5,TA_Right|TA_BASELINE,skrt) if(P3307<>0) Text(145,122.5,TA_Right|TA_BASELINE,StrFinanc(P3307,0)) else Text(145,122.5,TA_Right|TA_BASELINE,skrt) if(P3308<>0) Text(145,130.5,TA_Right|TA_BASELINE,StrFinanc(P3308,0)) else Text(145,130.5,TA_Right|TA_BASELINE,skrt) if(P3309<>0) Text(145,138.5,TA_Right|TA_BASELINE,StrFinanc(P3309,0)) else Text(145,138.5,TA_Right|TA_BASELINE,skrt) if(P3310<>0) Text(145,146.5,TA_Right|TA_BASELINE,StrFinanc(P3310,0)) else Text(145,146.5,TA_Right|TA_BASELINE,skrt) if(P3TAB1P<>0) Text(130,185,TA_Right|TA_BASELINE,StrFinanc(P3TAB1P,0)) else Text(130,185,TA_Right|TA_BASELINE,skrt) if(P3TAB1M<>0) Text(170,185,TA_Right|TA_BASELINE,StrFinanc(P3TAB1M,0)) else Text(170,185,TA_Right|TA_BASELINE,skrt) if(P3TAB2P<>0) Text(130,192,TA_Right|TA_BASELINE,StrFinanc(P3TAB2P,0)) else Text(130,192,TA_Right|TA_BASELINE,skrt) if(P3TAB2M<>0) Text(170,192,TA_Right|TA_BASELINE,StrFinanc(P3TAB2M,0)) else Text(170,192,TA_Right|TA_BASELINE,skrt) if(P3TAB3P<>0) Text(130,199,TA_Right|TA_BASELINE,StrFinanc(P3TAB3P,0)) else Text(130,199,TA_Right|TA_BASELINE,skrt) if(P3TAB3M<>0) Text(170,199,TA_Right|TA_BASELINE,StrFinanc(P3TAB3M,0)) else Text(170,199,TA_Right|TA_BASELINE,skrt) if(P3TAB4P<>0) Text(130,206,TA_Right|TA_BASELINE,StrFinanc(P3TAB4P,0)) else Text(130,206,TA_Right|TA_BASELINE,skrt) if(P3TAB4M<>0) Text(170,206,TA_Right|TA_BASELINE,StrFinanc(P3TAB4M,0)) else Text(170,206,TA_Right|TA_BASELINE,skrt) if(P3TAB5P<>0) Text(130,213,TA_Right|TA_BASELINE,StrFinanc(P3TAB5P,0)) else Text(130,213,TA_Right|TA_BASELINE,skrt) if(P3TAB5M<>0) Text(170,213,TA_Right|TA_BASELINE,StrFinanc(P3TAB5M,0)) else Text(170,213,TA_Right|TA_BASELINE,skrt) if(P3311<>0) Text(145,232,TA_Right|TA_BASELINE,StrFinanc(P3311,0,True)) else Text(145,232,TA_Right|TA_BASELINE,skrt) if(P3312<>0) Text(145,240,TA_Right|TA_BASELINE,StrFinanc(P3312,0)) else Text(145,240,TA_Right|TA_BASELINE,skrt) if(P3313<>0) Text(145,248,TA_Right|TA_BASELINE,StrFinanc(P3313,0)) else Text(145,248,TA_Right|TA_BASELINE,skrt) if(P3314<>0) Text(145,256,TA_Right|TA_BASELINE,StrFinanc(P3314,0)) else Text(145,256,TA_Right|TA_BASELINE,skrt) if(P3315<>0) Text(145,264,TA_Right|TA_BASELINE,StrFinanc(P3315,0)) else Text(145,264,TA_Right|TA_BASELINE,skrt) if(P3316<>0) Text(145,272,TA_Right|TA_BASELINE,StrFinanc(P3316,0)) else Text(145,272,TA_Right|TA_BASELINE,skrt) end ;{tisk Přílohy 3 / Strana 2} NextPage FontSize(3.4) FONTFACE(NORMAL|BOLD) Text(0,6,TA_Left|TA_BASELINE,'3. Daň po vynětí a po slevě') FontSize(3.2) FONTFACE(NORMAL) XText(4,9.5,175,TA_Left|TA_BASELINE,'Vyplňte v případě, že zaměstnáváte osoby se změněnou pracovní schopností a uplatňujete slevu na dani podle § 35 odst. 1 zákona.') XText(4,13,175,TA_Left|TA_BASELINE,'Výpočet přepočteného stavu zaměstnanců, na které uplatňujete slevu na dani, proveďte podle návodu uvedeného') FONTFACE(NORMAL|BOLD) Text(1.5,0,TA_RELATIVE|TA_Baseline,'na webové adrese:') XText(4,16.5,175,TA_Left|TA_BASELINE,'http://www.mfcr.cz) PEN(0,0.3) ROUNDBOXA(0,18.5,175,40,3.3,3.3) PEN(0,0.1) LINEA(0,32,175,32) LINEA(55.5,18.5,55.5,40) LINEA(87.5,18.5,87.5,40) LINEA(142.5,18.5,142.5,40) FONTFACE(NORMAL) Text(2,21.5,TA_Left|TA_BASELINE,'a)') XText(6,21.5,62,TA_Left|TA_BASELINE,'průměrný roční přepočtený stav') XText(6,24.5,60,TA_Left|TA_BASELINE,'zaměstnanců se zdravotním postižením') XText(6,27.5,62,TA_Left|TA_BASELINE,'bez těžšího zdravotního postižení') XText(6,30.5,62,TA_Left|TA_BASELINE,'(se ZP bez TZP)') Text(57.5,21.5,TA_Left|TA_BASELINE,'Sleva na dani (Kč)') Text(89.5,21.5,TA_Left|TA_BASELINE,'a)') XText(93.5,21.5,62,TA_Left|TA_BASELINE,'průměrný roční přepočtený stav') XText(93.5,24.5,62,TA_Left|TA_BASELINE,'zaměstnanců s těžším zdravotním') XText(93.5,27.5,62,TA_Left|TA_BASELINE,'postižením (s TZP)') Text(144.5,21.5,TA_Left|TA_BASELINE,'Sleva na dani (Kč)') PEN(0,0.3) ROUNDBOXA(0,44,175,106,3.3,3.3) PEN(0,0.1) LINEA(95,49,175,49) LINESA(0,53,175,53,0,10,4) LINEA(95,44,95,106) LINEA(135,49,135,106) PEN(0,0.3) ROUNDBOXA(0,93,175,106,3.3,3.3) FONTFACE(NORMAL) FontSize(3.2) Text(135,47,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(115,52,TA_Center|TA_BASELINE,'poplatník') Text(155,52,TA_Center|TA_BASELINE,'finanční úřad') Text(2,57.5,TA_Left|TA_BASELINE,'317') XText(9,57.5,84,TA_Left|TA_BASELINE,'Daň podle § 16 odst. 1 zákona nebo daň po případném vynětí') XText(9,60.5,84,TA_Left|TA_BASELINE,'příjmů ze zdrojů v zahraničí (ř. 63 DAP nebo ř. 316)') Text(2,67.5,TA_Left|TA_BASELINE,'318') XText(9,67.5,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(9,70.5,84,TA_Left|TA_BASELINE,'období (ř. 303 nebo ř. 310)') Text(2,78.5,TA_Left|TA_BASELINE,'319') XText(9,78.5,84,TA_Left|TA_BASELINE,'Slevy celkem dle § 35 odst. 1 zákona') Text(2,89,TA_Left|TA_BASELINE,'319a') XText(9,89,84,TA_Left|TA_BASELINE,'Sleva na registrační pokladnu') Text(2,100,TA_Left|TA_BASELINE,'320') XText(9,100,84,TA_Left|TA_BASELINE,'Daň po slevách (ř. 317 + 318 - ř. 319 - ř. 319a)') FontSize(3.4) FONTFACE(Normal|BOLD) Text(0,112,TA_Left|TA_BASELINE,'4. Příjmy ze zdrojů v zahraničí - metoda zápočtu daně zaplacené v zahraničí') FONTFACE(NORMAL) FontSize(3.2) Text(0,118.5,TA_Left|TA_BASELINE,'Podle § 38f odst. 7 zákona se metoda prostého zápočtu provádí za každý stát samostatně. Proto v případě, že Vám plynou') Text(0,122.5,TA_Left|TA_BASELINE,'příjmy z více států, použijte k výpočtu za každý další stát Samostatný list') FONTFACE(NORMAL|BOLD) Text(1.5,0,TA_RELATIVE|TA_Baseline,'4. oddílu Přílohy č. 3') FONTFACE(NORMAL) Text(1.5,0,TA_RELATIVE|TA_Baseline,'zveřejněný na webové adrese') FONTFACE(NORMAL|BOLD) Text(0,126.5,TA_Left|TA_BASELINE,'http://www.mfcr.cz) FONTFACE(NORMAL) Text(1.5,0,TA_RELATIVE|TA_Baseline,'v nabídce Daně a cla, Daně, Tiskopisy ke stažení.') Text(0,132,TA_Left|TA_BASELINE,'Kód státu') PEN(0,0.1) ROUNDBOXA(14,128,25,134,3.3,3.3) PEN(0,0.3) ROUNDBOXA(0,135,175,234,3.3,3.3) PEN(0,0.1) LINEA(95,140,175,140) LINESA(0,144,175,144,0,10,6) LINEA(95,135,95,234) LINEA(135,140,135,234) LINEA(95,237,95,247) LINEA(135,237,135,247) PEN(0,0.6) BOXA(0,204,175,214,3.3,3.3) BOXA(0,214,175,224,3.3,3.3) ROUNDBOXA(0,224,175,234,3.3,3.3) ROUNDBOXA(0,237,175,247,3.3,3.3) Text(135,138,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(115,143,TA_Center|TA_BASELINE,'poplatník') Text(155,143,TA_Center|TA_BASELINE,'finanční úřad') Text(2,150,TA_Left|TA_BASELINE,'321') XText(9,150,84,TA_Left|TA_BASELINE,'Příjmy ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Text(2,160,TA_Left|TA_BASELINE,'322') XText(9,160,84,TA_Left|TA_BASELINE,'Výdaje') Text(2,170,TA_Left|TA_BASELINE,'323') XText(9,170,84,TA_Left|TA_BASELINE,'Daň zaplacená v zahraničí') Text(2,178.5,TA_Left|TA_BASELINE,'324') XText(9,178.5,84,TA_Left|TA_BASELINE,'Koeficient zápočtu') XText(9,181.5,84,TA_Left|TA_BASELINE,'(ř. 321 - ř. 322) děleno (ř. 42 - příjmy vyňaté) násobeno stem') Text(2,188,TA_Left|TA_BASELINE,'325') XText(9,188,84,TA_Left|TA_BASELINE,'Z částky daně zaplacené v zahraničí lze maximálně započítat') XText(9,191,84,TA_Left|TA_BASELINE,'(ř. 317 násobeno ř. 324, děleno stem)') Text(2,199.5,TA_Left|TA_BASELINE,'326') XText(9,199.5,84,TA_Left|TA_BASELINE,'Daň uznaná k zápočtu (ř. 323 maximálně však do výše ř. 325)') Text(2,209.5,TA_Left|TA_BASELINE,'327') XText(9,209.5,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 323 - ř. 326)') Text(2,219.5,TA_Left|TA_BASELINE,'328') XText(9,219.5,84,TA_Left|TA_BASELINE,'Daň uznaná k zápočtu (úhrn řádků 326 i ze samostatných listů)') Text(2,229.5,TA_Left|TA_BASELINE,'329') XText(9,229.5,84,TA_Left|TA_BASELINE,'Daň neuznaná k zápočtu (úhrn řádků 327 i ze samostatných listů)') Text(2,243,TA_Left|TA_BASELINE,'330') XText(9,243,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 320 - ř. 328)') FONTFACE(NORMAL) FONTSIZE(2.5) Text(105.5,284,TA_CENTER|TA_BASELINE,'2') ;{Tisk hodnot} if(not Prazdny) begin FONTFACE(Italic|BOLD) FontSize(VyskaFontuHodn) if(P3ZPS1P<>0) Text(52.5,38,TA_Right|TA_BASELINE,P3ZPS1P); zaokrouhlování na 2 des. místa - vyhláška 518/2004, §20 else Text(52.5,38,TA_Right|TA_BASELINE,skrt) if(P3ZPS1H<>0) Text(84.5,38,TA_Right|TA_BASELINE,StrFinanc(P3ZPS1H,0,True));nefunguje mi StrFinanc!!! else Text(84.5,38,TA_Right|TA_BASELINE,skrt) if(P3ZPS2P<>0) Text(139.5,38,TA_Right|TA_BASELINE,P3ZPS2P); zaokrouhlování na 2 des. místa - vyhláška 518/2004, §20 else Text(139.5,38,TA_Right|TA_BASELINE,skrt) if(P3ZPS2H<>0) Text(173,38,TA_Right|TA_BASELINE,StrFinanc(P3ZPS2H,0)) else Text(173,38,TA_Right|TA_BASELINE,skrt) if(P3317<>0) Text(132,61,TA_Right|TA_BASELINE,StrFinanc(P3317,0)) else Text(132,61,TA_Right|TA_BASELINE,skrt) if(P3318<>0) Text(132,71,TA_Right|TA_BASELINE,StrFinanc(P3318,0)) else Text(132,71,TA_Right|TA_BASELINE,skrt) if(P3319<>0) Text(132,81,TA_Right|TA_BASELINE,StrFinanc(P3319,0)) else Text(132,81,TA_Right|TA_BASELINE,skrt) if(P3319A<>0) Text(132,91,TA_Right|TA_BASELINE,StrFinanc(P3319A,0)) else Text(132,91,TA_Right|TA_BASELINE,skrt) if(P3320<>0) Text(132,101,TA_Right|TA_BASELINE,StrFinanc(P3320,0)) else Text(132,101,TA_Right|TA_BASELINE,skrt) if(Length(Trim(KS1))<>0) XText(19,132,10.5,TA_Center|TA_BASELINE,KS1) else Text(19,132,TA_Center|TA_BASELINE,skrt) if(P3321<>0) Text(132,152,TA_Right|TA_BASELINE,StrFinanc(P3321,0)) else Text(132,152,TA_Right|TA_BASELINE,skrt) if(P3322<>0) Text(132,162,TA_Right|TA_BASELINE,StrFinanc(P3322,0)) else Text(132,162,TA_Right|TA_BASELINE,skrt) if(P3323<>0) Text(132,172,TA_Right|TA_BASELINE,StrFinanc(P3323,0)) else Text(132,172,TA_Right|TA_BASELINE,skrt) if(P3324<>0) Text(132,182,TA_Right|TA_BASELINE,P3324) else Text(132,182,TA_Right|TA_BASELINE,skrt) if(P3325<>0) Text(132,192,TA_Right|TA_BASELINE,StrFinanc(P3325,0)) else Text(132,192,TA_Right|TA_BASELINE,skrt) if(P3326<>0) Text(132,202,TA_Right|TA_BASELINE,StrFinanc(P3326,0)) else Text(132,202,TA_Right|TA_BASELINE,skrt) if(P3327<>0) Text(132,212,TA_Right|TA_BASELINE,StrFinanc(P3327,0)) else Text(132,212,TA_Right|TA_BASELINE,skrt) if(P3328<>0) Text(132,222,TA_Right|TA_BASELINE,StrFinanc(P3328)) else Text(132,222,TA_Right|TA_BASELINE,skrt) if(P3329<>0) Text(132,232,TA_Right|TA_BASELINE,StrFinanc(P3329)) else Text(132,232,TA_Right|TA_BASELINE,skrt) if(P3330<>0) Text(132,242,TA_Right|TA_BASELINE,StrFinanc(P3330)) else Text(132,242,TA_Right|TA_BASELINE,skrt) end if((Pril4)or(Pril5)) NextPage; end; ;{==================================== Příloha 4 ====================================} if(Pril4) begin ;{tisk Přílohy 4} 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 č. 4) FontSize(3.2) Text(18,20.5,TA_Left|TA_BASELINE,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob') Text(18,23.5,TA_Left|TA_BASELINE,'za zdaňovací období 2005 typu - 25 5405 MFin 5405 vzor č. 12 (dále jen "DAP").') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,36.5,TA_LEFT|TA_BASELINE,'1. Výpočet daně ze samostatného základu daně podle § 16 odst. 2 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.2) PEN(0,0.3) ROUNDBOXA(18,41,193,231,3.3,3.3) PEN(0,0.1) LINEA(113,45.5,193,45.5) LINESA(18,50,193,50,0,10,18) LINEA(113,41,113,231) LINEA(153,45.5,153,231) Text(142.5,44,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(129,48.5,TA_LEFT|TA_BASELINE,'poplatník') Text(164,48.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,56.5,TA_LEFT|TA_BASELINE,'401') Text(27.5,56.5,TA_LEFT|TA_BASELINE,'Příjmy podle § 8 zákona plynoucí ze zdrojů v zahraničí') Text(20,65,TA_LEFT|TA_BASELINE,'402') Text(27.5,65,TA_LEFT|TA_BASELINE,'Příjmy podle § 10 odst. 1 písm. h) a písm. ch) zákona plynoucí') Text(27.5,68,TA_LEFT|TA_BASELINE,'ze zdrojů v zahraničí') Text(20,74.5,TA_LEFT|TA_BASELINE,'403') Text(27.5,74.5,TA_LEFT|TA_BASELINE,'Příjmy podle § 10 odst. 1 písm. f) a písm. g) zákona plynoucí') Text(27.5,77.5,TA_LEFT|TA_BASELINE,'ze zdrojů v zahraničí') Text(20,86,TA_LEFT|TA_BASELINE,'404') Text(27.5,86,TA_LEFT|TA_BASELINE,'Výdaje k příjmům podle § 10 odst. 1 písm. f) a písm. g) zákona') Text(20,96,TA_LEFT|TA_BASELINE,'405') Text(27.5,96,TA_LEFT|TA_BASELINE,'Dílčí samostatný základ daně podle § 8 zákona (401)') Text(20,104.5,TA_LEFT|TA_BASELINE,'406') Text(27.5,104.5,TA_LEFT|TA_BASELINE,'Dílčí samostatný základ daně z příjmů dle § 10 odst. 1 písm. h)') Text(27.5,107.5,TA_LEFT|TA_BASELINE,'a písm. ch) zákona (402)') Text(20,114.5,TA_LEFT|TA_BASELINE,'407') Text(27.5,114.5,TA_LEFT|TA_BASELINE,'Dílčí samostatný základ daně z příjmů dle § 10 odst. 1 písm. f)') Text(27.5,117.5,TA_LEFT|TA_BASELINE,'a písm. g) zákona (403 - 404)') Text(20,124.5,TA_LEFT|TA_BASELINE,'408') Text(27.5,124.5,TA_LEFT|TA_BASELINE,'Daň z příjmů se sazbou 15 % z příjmů (z dílčího základu') Text(27.5,127.5,TA_LEFT|TA_BASELINE,'uvedeného na ř. 405 + na ř. 407)') Text(20,134.5,TA_LEFT|TA_BASELINE,'409') Text(27.5,134.5,TA_LEFT|TA_BASELINE,'Daň z příjmů se sazbou 20 % z příjmů (z dílčího základu') Text(27.5,137.5,TA_LEFT|TA_BASELINE,'uvedeného na ř. 406)') Text(20,144.5,TA_LEFT|TA_BASELINE,'410') Text(27.5,144.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů u nichž se uplatní zápočet - sazba daně') Text(27.5,147.5,TA_LEFT|TA_BASELINE,'15 % z příjmů (405 + 407)') Text(20,154.5,TA_LEFT|TA_BASELINE,'411') Text(27.5,154.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů u nichž se uplatní zápočet - sazba daně') Text(27.5,157.5,TA_LEFT|TA_BASELINE,'20 % z příjmů (406)') Text(20,166,TA_LEFT|TA_BASELINE,'412') Text(27.5,166,TA_LEFT|TA_BASELINE,'Daň zaplacená v zahraničí z příjmů uvedených na ř. 410') Text(20,176,TA_LEFT|TA_BASELINE,'413') Text(27.5,176,TA_LEFT|TA_BASELINE,'Daň zaplacená v zahraničí z příjmů uvedených na ř. 411') Text(20,184.5,TA_LEFT|TA_BASELINE,'414') Text(27.5,184.5,TA_LEFT|TA_BASELINE,'Daň uznaná k zápočtu (ř. 412 maximálně do výše uvedené') Text(27.5,187.5,TA_LEFT|TA_BASELINE,'na ř. 408)') Text(20,194.5,TA_LEFT|TA_BASELINE,'415') Text(27.5,194.5,TA_LEFT|TA_BASELINE,'Daň uznaná k zápočtu (ř. 413 maximálně do výše uvedené') Text(27.5,197.5,TA_LEFT|TA_BASELINE,'na ř. 409)') Text(20,206,TA_LEFT|TA_BASELINE,'416') Text(27.5,206,TA_LEFT|TA_BASELINE,'Rozdíl řádků (ř. 408 - ř. 414)') Text(20,216,TA_LEFT|TA_BASELINE,'417') Text(27.5,216,TA_LEFT|TA_BASELINE,'Rozdíl řádků (ř. 409 - ř. 415)') Text(20,226,TA_LEFT|TA_BASELINE,'418') Text(27.5,226,TA_LEFT|TA_BASELINE,'Daň celkem (ř. 416 + ř. 417)') FONTSIZE(2.3) Text(18,273.5,TA_Left|TA_Baseline,'25 5405/P4 MFin 5405/P4 - vzor č. 5') ;{tisk hodnot Přílohy 4} If(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,8.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P4401<>0) Text(150,56.5,TA_Right|TA_BASELINE,StrFinanc(P4401,0,True));nefunguje mi StrFinanc!!! else Text(150,56.5,TA_Right|TA_BASELINE,skrt) if(P4402<>0) Text(150,66.5,TA_Right|TA_BASELINE,StrFinanc(P4402,0,True)) else Text(150,66.5,TA_Right|TA_BASELINE,skrt) if(P4403<>0) Text(150,76.5,TA_Right|TA_BASELINE,StrFinanc(P4403,0)) else Text(150,76.5,TA_Right|TA_BASELINE,skrt) if(P4404<>0) Text(150,86.5,TA_Right|TA_BASELINE,StrFinanc(P4404,0)) else Text(150,86.5,TA_Right|TA_BASELINE,skrt) if(P4405<>0) Text(150,96.5,TA_Right|TA_BASELINE,StrFinanc(P4405,0)) else Text(150,96.5,TA_Right|TA_BASELINE,skrt) if(P4406<>0) Text(150,106.5,TA_Right|TA_BASELINE,StrFinanc(P4406,0)) else Text(150,106.5,TA_Right|TA_BASELINE,skrt) if(P4407<>0) Text(150,116.5,TA_Right|TA_BASELINE,StrFinanc(P4407,0)) else Text(150,116.5,TA_Right|TA_BASELINE,skrt) if(P4408<>0) Text(150,126.5,TA_Right|TA_BASELINE,StrFinanc(P4408,0)) else Text(150,126.5,TA_Right|TA_BASELINE,skrt) if(P4409<>0) Text(150,136.5,TA_Right|TA_BASELINE,StrFinanc(P4409,0)) else Text(150,136.5,TA_Right|TA_BASELINE,skrt) if(P4410<>0) Text(150,146.5,TA_Right|TA_BASELINE,StrFinanc(P4410,0)) else Text(150,146.5,TA_Right|TA_BASELINE,skrt) if(P4411<>0) Text(150,156.5,TA_Right|TA_BASELINE,StrFinanc(P4411,0)) else Text(150,156.5,TA_Right|TA_BASELINE,skrt) if(P4412<>0) Text(150,166.5,TA_Right|TA_BASELINE,StrFinanc(P4412,0)) else Text(150,166.5,TA_Right|TA_BASELINE,skrt) if(P4413<>0) Text(150,176.5,TA_Right|TA_BASELINE,StrFinanc(P4413,0)) else Text(150,176.5,TA_Right|TA_BASELINE,skrt) if(P4414<>0) Text(150,186.5,TA_Right|TA_BASELINE,StrFinanc(P4414,0)) else Text(150,186.5,TA_Right|TA_BASELINE,skrt) if(P4415<>0) Text(150,196.5,TA_Right|TA_BASELINE,StrFinanc(P4415,0)) else Text(150,196.5,TA_Right|TA_BASELINE,skrt) if(P4416<>0) Text(150,206.5,TA_Right|TA_BASELINE,StrFinanc(P4416,0)) else Text(150,206.5,TA_Right|TA_BASELINE,skrt) if(P4417<>0) Text(150,216.5,TA_Right|TA_BASELINE,StrFinanc(P4417,0)) else Text(150,216.5,TA_Right|TA_BASELINE,skrt) if(P4418<>0) Text(150,226.5,TA_Right|TA_BASELINE,StrFinanc(P4418,0)) else Text(150,226.5,TA_Right|TA_BASELINE,skrt) end if(Pril5) NextPage; end; ;{==================================== Příloha 5 ====================================} if(Pril5) begin ;{tisk Přílohy 5 / Strany 1} ;{rodné číslo} 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(3.2) FONTFACE(NORMAL) Text(135,10,TA_Right|TA_BASELINE,'Rodné číslo:') FontSize(3.8) SText(169.5,8,TA_CENTER|TA_BASELINE,5,1,'/') FontSize(3.2) ;{text} FONTSIZE(5) FONTFACE(NORMAL|BOLD) Text(18,14,TA_Left|TA_BASELINE,'PŘÍLOHA č. 5') FontSize(4) XText(53,21,140,TA_LEFT|TA_BASELINE,'Výpočet společného základu daně manželů podle § 13a zákona') FontSize(3.2) Text(18,25,TA_LEFT|TA_BASELINE,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob za zdaňovací období 2005 - 25 5405 MFin 5405 vzor č. 12 (dále') Text(18,28.5,TA_LEFT|TA_BASELINE,'jen "DAP").') ;{údaje o manželovi/manželce} PEN(0,0.3) ROUNDBOXA(18,31,193,57,3.3,3.3) PEN(0,0.1) LineA(18,36,193,36) LinesA(18,43,193,43,0,7,2) LineA(50,36,50,43) LinesA(126,36,126,43,25,0,2) LineA(90,43,90,57) FontSize(3.2) Text(20,34.5,TA_LEFT|TA_BASELINE,'ÚDAJE O MANŽELCE/MANŽELOVI') Text(20,40.5,TA_LEFT|TA_BASELINE,'Příjmení, jméno, titul') Text(128,40.5,TA_LEFT|TA_BASELINE,'DIČ/Rodné číslo') Text(20,47.5,TA_LEFT|TA_BASELINE,'Adresa bydliště (trvalého pobytu) v den podání DAP') Text(20,54.5,TA_LEFT|TA_BASELINE,'Místně příslušný finanční úřad pro podání DAP.') Text(18,61,TA_LEFT|TA_BASELINE,'Částky uvádějte v celých Kč.') ;{1} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,67,TA_LEFT|TA_BASELINE,'1. Součet dílčích základů daně podle § 6 až § 10 zákona upravených podle § 5 a § 23 zákona') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,69,193,116,3.3,3.3) PEN(0,0.1) LINESA(18,74,193,74,0,7,6) LINESA(93,69,93,116,25,0,4) Text(99.5,72.5,TA_LEFT|TA_BASELINE,'poplatník') Text(122.5,72.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(145,72.5,TA_LEFT|TA_BASELINE,'manželka/manžel') Text(172.5,72.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,77,TA_LEFT|TA_BASELINE,'501') Text(26,77,TA_LEFT|TA_BASELINE,'Dílčí základ daně ze závislé činnosti a z funkčních') Text(26,80,TA_LEFT|TA_BASELINE,'požitků podle § 6 zákona (ř. 36)') Text(20,84,TA_LEFT|TA_BASELINE,'502') Text(26,84,TA_LEFT|TA_BASELINE,'Dílčí základ daně z podnikání a z jiné samostatné') Text(26,87,TA_LEFT|TA_BASELINE,'výdělečné činnosti podle § 7 zákona (kladný ř. 37)') Text(20,91,TA_LEFT|TA_BASELINE,'503') Text(26,91,TA_LEFT|TA_BASELINE,'Dílčí základ daně z kapitálového majetku podle § 8') Text(26,94,TA_LEFT|TA_BASELINE,'zákona (ř. 38)') Text(20,98,TA_LEFT|TA_BASELINE,'504') Text(26,98,TA_LEFT|TA_BASELINE,'Dílčí základ daně z pronájmu podle § 9 zákona') Text(26,101,TA_LEFT|TA_BASELINE,'(kladný ř. 39)') Text(20,105,TA_LEFT|TA_BASELINE,'505') Text(26,105,TA_LEFT|TA_BASELINE,'Dílčí základ daně z ostatních příjmů podle § 10') Text(26,108,TA_LEFT|TA_BASELINE,'zákona (ř. 40)') Text(20,112,TA_LEFT|TA_BASELINE,'506') Text(26,112,TA_LEFT|TA_BASELINE,'Součet dílčích základů daně podle § 6 až § 10') Text(26,115,TA_LEFT|TA_BASELINE,'zákona') ;{2} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,120,TA_LEFT|TA_BASELINE,'2. Společný základ daně manželů') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,122,193,134,3.3,3.3) PEN(0,0.1) LINEA(18,127,193,127) LINESA(93,122,93,134,50,0,2) Text(99.5,125.5,TA_LEFT|TA_BASELINE,'poplatník + manželka/manžel') Text(160,125.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,130,TA_LEFT|TA_BASELINE,'507') Text(26,130,TA_LEFT|TA_BASELINE,'Společný základ daně manželů (ř.506 sl. poplatník+') Text(26,133,TA_LEFT|TA_BASELINE,'+ ř. 506 sl. manželka/manžel)') ;{3} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,138,TA_LEFT|TA_BASELINE,'3. Nezdanitelné části základu daně podle § 15 zákona') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,140,193,198,3.3,3.3) LINEA(129,143.5,129,198) PEN(0,0.1) LINESA(18,153,193,153,0,7,6) LINEA(65,140,65,198) LINESA(65,143.5,193,143.5,0,3.5,2) LINESA(97,143.5,97,198,64,0,2) LINESA(76,147,76,198,32,0,4) Text(20,148,TA_LEFT|TA_BASELINE,'Částka podle § 15') Text(125,142.8,TA_LEFT|TA_BASELINE,'Vyplní') Text(76,146.3,TA_LEFT|TA_BASELINE,'poplatník') Text(107,146.3,TA_LEFT|TA_BASELINE,'finanční úřad') Text(136.5,146.3,TA_LEFT|TA_BASELINE,'manželka/manžel') Text(171,146.3,TA_LEFT|TA_BASELINE,'finanční úřad') Text(67,149.7,TA_LEFT|TA_BASELINE,'Počet') Text(66,152.2,TA_LEFT|TA_BASELINE,'měsíců') Text(80,151,TA_LEFT|TA_BASELINE,'v celých Kč') Text(99,149.7,TA_LEFT|TA_BASELINE,'Počet') Text(98,152.2,TA_LEFT|TA_BASELINE,'měsíců') Text(112,151,TA_LEFT|TA_BASELINE,'v celých Kč') Text(131,149.7,TA_LEFT|TA_BASELINE,'Počet') Text(130,152.2,TA_LEFT|TA_BASELINE,'měsíců') Text(144,151,TA_LEFT|TA_BASELINE,'v celých Kč') Text(163,149.7,TA_LEFT|TA_BASELINE,'Počet') Text(162.5,152.2,TA_LEFT|TA_BASELINE,'měsíců') Text(176,151,TA_LEFT|TA_BASELINE,'v celých Kč') Text(20,156,TA_LEFT|TA_BASELINE,'508') Text(26,156,TA_LEFT|TA_BASELINE,'Odst. 1 zákona (hodnota') Text(26,159,TA_LEFT|TA_BASELINE,'daru/darů)') Text(20,163,TA_LEFT|TA_BASELINE,'509') Text(26,163,TA_LEFT|TA_BASELINE,'Odst. 3 a odst. 4 zákona') Text(26,166,TA_LEFT|TA_BASELINE,'(odečet úroků)') Text(20,170,TA_LEFT|TA_BASELINE,'510') Text(26,170,TA_LEFT|TA_BASELINE,'Odst. 5 zákona (penzijní') Text(26,173,TA_LEFT|TA_BASELINE,'připojištění)') Text(20,177,TA_LEFT|TA_BASELINE,'511') Text(26,177,TA_LEFT|TA_BASELINE,'Odst. 6 zákona (životní') Text(26,180,TA_LEFT|TA_BASELINE,'pojištění)') Text(20,184,TA_LEFT|TA_BASELINE,'512') Text(26,184,TA_LEFT|TA_BASELINE,'Odst. 7 zákona (odborové') Text(26,187,TA_LEFT|TA_BASELINE,'příspěvky)') Text(20,191,TA_LEFT|TA_BASELINE,'513') FONTFACE(Bold) Text(26,191,TA_LEFT|TA_BASELINE,'Úhrn nezdanitelných částí') Text(26,194,TA_LEFT|TA_BASELINE,'základu daně'); FONTFACE(Normal) Text(0,0,TA_Left|TA_Relative|TA_BASELINE,' (ř.508 + ř.509 +') Text(26,197,TA_LEFT|TA_BASELINE,'+ ř. 510 + ř. 511 + ř. 512)') ;{4} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,202,TA_LEFT|TA_BASELINE,'4. Úhrn nezdanitelných částí základu daně podle § 15 zákona za oba manžele') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,204,193,217,3.3,3.3) PEN(0,0.1) LINEA(18,212,193,212) LINEA(118,204,118,217) LINEA(118,208,193,208) LINEA(155.5,208,155.5,217) Text(145,207,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(119,211,TA_LEFT|TA_BASELINE,'poplatník+manželka/manžel') Text(165,211,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,215,TA_LEFT|TA_BASELINE,'514') Text(26,215,TA_LEFT|TA_BASELINE,'Úhrn (ř. 513 sl. poplatník + ř. 513 sl. manželka/manžel)') ;{5} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,221,TA_LEFT|TA_BASELINE,'5. Společný základ daně manželů snížený o nezdanitelné části základu daně') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,223,193,238,3.3,3.3) PEN(0,0.1) LINEA(18,231,193,231) LINEA(118,223,118,238) LINEA(118,227,193,227) LINEA(155.5,227,155.5,238) Text(145,226,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(119,230,TA_LEFT|TA_BASELINE,'poplatník+manželka/manžel') Text(165,230,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,234,TA_LEFT|TA_BASELINE,'515') Text(26,234,TA_LEFT|TA_BASELINE,'Společný základ daně manželů snížený o nezdanitelné části základu') Text(26,237,TA_LEFT|TA_BASELINE,'daně (ř. 507 – ř. 514)') ;{6} FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,242,TA_LEFT|TA_BASELINE,'6. Polovina společného základu daně manželů sníženého o nezdanitelné části zákadu daně a odčitatelné položky') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,244,193,278,3.3,3.3) PEN(0,0.1) LINESA(18,252,193,252,0,5,5) LINEA(118,244,118,278) LINEA(118,248,193,248) LINEA(155.5,248,155.5,278) Text(145,247,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(119,251,TA_LEFT|TA_BASELINE,'poplatník+manželka/manžel') Text(165,251,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,256,TA_LEFT|TA_BASELINE,'516') Text(26,256,TA_LEFT|TA_BASELINE,'(jedna polovina z ř. 515)') Text(20,261,TA_LEFT|TA_BASELINE,'517') Text(26,261,TA_LEFT|TA_BASELINE,'§ 34 odst. 1 zákona') Text(20,266,TA_LEFT|TA_BASELINE,'518') Text(26,266,TA_LEFT|TA_BASELINE,'§ 34 odst. 4 zákona (výzkum a vývoj)') Text(20,271,TA_LEFT|TA_BASELINE,'519') Text(26,271,TA_LEFT|TA_BASELINE,'Další částky') Text(20,276,TA_LEFT|TA_BASELINE,'520') Text(26,276,TA_LEFT|TA_BASELINE,'(ř. 516 – ř. 517 – ř. 518 – ř. 519)') FONTSIZE(2.3) Text(18,284,TA_Left|TA_Baseline,'25 5405/P5 MFin 5405/P5 - vzor č. 2') ;{tisk hodnot Přílohy 5} If(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,8.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(P5Manzel))<>0) XText(55,40.5,82,TA_Left|TA_BASELINE,P5Manzel) else Text(55,40.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(P5DIC))<>0) XText(171.5,40.5,38,TA_Center|TA_BASELINE,P5DIC) else Text(171.5,40.5,TA_Center|TA_BASELINE,skrt) if(Length(Trim(P5Adresa))<>0) XText(95,47.5,90,TA_Left|TA_BASELINE,P5Adresa) else Text(95,47.5,TA_Left|TA_BASELINE,skrt) if(Length(Trim(P5Urad))<>0) XText(95,54.5,90,TA_Left|TA_BASELINE,P5Urad) else Text(95,54.5,TA_Left|TA_BASELINE,skrt) if(P501P<>0) Text(115,79,TA_Right|TA_BASELINE,StrFinanc(P501P,0,True)) else Text(115,79,TA_Right|TA_BASELINE,skrt) if(P501M<>0) Text(165,79,TA_Right|TA_BASELINE,StrFinanc(P501M,0,True)) else Text(165,79,TA_Right|TA_BASELINE,skrt) if(P502P<>0) Text(115,86,TA_Right|TA_BASELINE,StrFinanc(P502P,0,True)) else Text(115,86,TA_Right|TA_BASELINE,skrt) if(P502M<>0) Text(165,86,TA_Right|TA_BASELINE,StrFinanc(P502M,0,True)) else Text(165,86,TA_Right|TA_BASELINE,skrt) if(P503P<>0) Text(115,93,TA_Right|TA_BASELINE,StrFinanc(P503P,0,True)) else Text(115,93,TA_Right|TA_BASELINE,skrt) if(P503M<>0) Text(165,93,TA_Right|TA_BASELINE,StrFinanc(P503M,0,True)) else Text(165,93,TA_Right|TA_BASELINE,skrt) if(P504P<>0) Text(115,100,TA_Right|TA_BASELINE,StrFinanc(P504P,0,True)) else Text(115,100,TA_Right|TA_BASELINE,skrt) if(P504M<>0) Text(165,100,TA_Right|TA_BASELINE,StrFinanc(P504M,0,True)) else Text(165,100,TA_Right|TA_BASELINE,skrt) if(P505P<>0) Text(115,107,TA_Right|TA_BASELINE,StrFinanc(P505P,0,True)) else Text(115,107,TA_Right|TA_BASELINE,skrt) if(P505M<>0) Text(165,107,TA_Right|TA_BASELINE,StrFinanc(P505M,0,True)) else Text(165,107,TA_Right|TA_BASELINE,skrt) if(P506P<>0) Text(115,114,TA_Right|TA_BASELINE,StrFinanc(P506P,0,True)) else Text(115,114,TA_Right|TA_BASELINE,skrt) if(P506M<>0) Text(165,114,TA_Right|TA_BASELINE,StrFinanc(P506M,0,True)) else Text(165,114,TA_Right|TA_BASELINE,skrt) if(P507<>0) Text(135,132,TA_Right|TA_BASELINE,StrFinanc(P507,0)) else Text(135,132,TA_Right|TA_BASELINE,skrt) if(P508P<>0) Text(93,158,TA_Right|TA_BASELINE,StrFinanc(P508P,0,True)) else Text(93,158,TA_Right|TA_BASELINE,skrt) if(P508M<>0) Text(158,158,TA_Right|TA_BASELINE,StrFinanc(P508M,0,True)) else Text(158,158,TA_Right|TA_BASELINE,skrt) if(P509P<>0) Text(93,165,TA_Right|TA_BASELINE,StrFinanc(P509P,0,True)) else Text(93,165,TA_Right|TA_BASELINE,skrt) if(P509M<>0) Text(158,165,TA_Right|TA_BASELINE,StrFinanc(P509M,0,True)) else Text(158,165,TA_Right|TA_BASELINE,skrt) if(P509PM<>0) Text(73,165,TA_Right|TA_BASELINE,StrFinanc(P509PM,0,True)) else Text(73,165,TA_Right|TA_BASELINE,skrt) if(P509MM<>0) Text(138,165,TA_Right|TA_BASELINE,StrFinanc(P509MM,0,True)) else Text(138,165,TA_Right|TA_BASELINE,skrt) if(P510P<>0) Text(93,172,TA_Right|TA_BASELINE,StrFinanc(P510P,0,True)) else Text(93,172,TA_Right|TA_BASELINE,skrt) if(P510M<>0) Text(158,172,TA_Right|TA_BASELINE,StrFinanc(P510M,0,True)) else Text(158,172,TA_Right|TA_BASELINE,skrt) if(P511P<>0) Text(93,179,TA_Right|TA_BASELINE,StrFinanc(P511P,0,True)) else Text(93,179,TA_Right|TA_BASELINE,skrt) if(P511M<>0) Text(158,179,TA_Right|TA_BASELINE,StrFinanc(P511M,0,True)) else Text(158,179,TA_Right|TA_BASELINE,skrt) if(P512P<>0) Text(93,186,TA_Right|TA_BASELINE,StrFinanc(P512M,True)) else Text(93,186,TA_Right|TA_BASELINE,skrt) if(P512M<>0) Text(158,186,TA_Right|TA_BASELINE,StrFinanc(P512M,0,True)) else Text(158,186,TA_Right|TA_BASELINE,skrt) if(P513P<>0) Text(93,194,TA_Right|TA_BASELINE,StrFinanc(P513P,0,True)) else Text(93,194,TA_Right|TA_BASELINE,skrt) if(P513M<>0) Text(158,194,TA_Right|TA_BASELINE,StrFinanc(P513M,0,True)) else Text(158,194,TA_Right|TA_BASELINE,skrt) if(P514<>0) Text(150,215.5,TA_Right|TA_BASELINE,StrFinanc(P514,0)) else Text(150,215.5,TA_Right|TA_BASELINE,skrt) if(P515<>0) Text(150,236,TA_Right|TA_BASELINE,StrFinanc(P515,0)) else Text(150,236,TA_Right|TA_BASELINE,skrt) if(P516<>0) Text(150,255.5,TA_Right|TA_BASELINE,StrFinanc(P516,0)) else Text(150,255.5,TA_Right|TA_BASELINE,skrt) if(P517<>0) Text(150,260.5,TA_Right|TA_BASELINE,StrFinanc(P517,0)) else Text(150,260.5,TA_Right|TA_BASELINE,skrt) if(P518<>0) Text(150,265.5,TA_Right|TA_BASELINE,StrFinanc(P518,0)) else Text(150,265.5,TA_Right|TA_BASELINE,skrt) if(P519<>0) Text(150,270.5,TA_Right|TA_BASELINE,StrFinanc(P519,0)) else Text(150,270.5,TA_Right|TA_BASELINE,skrt) if(Length(P519T)<>0) XText(43,270.5,75,TA_Left|TA_BASELINE,P519T) if(P520<>0) Text(150,276,TA_Right|TA_BASELINE,StrFinanc(P520,0)) else Text(150,276,TA_Right|TA_BASELINE,skrt) end 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; End