; DDT pro DAP B 2003 - vzor. č. 10 ; verze z 5.1.2005 ;{dodělat načtení údajů z Přehledu o příjmech pro dańovou evidenci} ; podle podkladů z papiroveho priznani z 23.1.2004 z FÚ: ; počítá s fiskálním rokem ; ; Autor: WinDUO Team IniRok:String=Rok() FileName('DAPB'+IniRok+'.WNS') Name('Daňové přiznání DAP B vzor č.10 za '+IniRok) Designed('') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') Descr('Formulář daně z příjmu fyzických osob vzor 10') IF(Version()<5) Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop) ;{definice promennych} DeclareRec('Program') if(Program.DanovaEvidence) Halt('Tato část programu je funkční až při zpracování daňové evidence za rok 2004') ;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 NactiHVPredZdan:Boolean=False Souhlas:Boolean=True ;MamPokyny:Boolean=False ValidDatum:String='0123456789.' ValidBU:String='0123456789-/ ' ValidCislo:String='0123456789.,+-' ValidCisloInt:String='0123456789+-' ValidCisloKl: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]='' 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) HlasHVPredZdan:String VyskaFontuHodn:Real=4; 3.8 poprve:Boolean=True ;{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 x46:real x47:real x48:real x49: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 ;{definice uvodniho dialogu} DefDialog('POMŮCKA pro sestavení přiznání DAP B vzor 10 pro rok 2003',600,400) DlgShade(-1,'',4,27,590,302) DlgStatic(-1,' TOTO JE POMŮCKA K SESTAVENÍ PŘIZNÁNÍ K DANI Z PŘÍJMU FYZICKÝCH OSOB',23,5,554) DlgStatic(-1,'Doporučení - seznamte se s POKYNY k vyplnění přiznání k DAP B',16,34,510) DlgStatic(-1,'(25 5405/1 MFin 5405/1 - vzor č. 11) a s formulářem PŘIZNÁNÍ ...',102,50,415) DlgStatic(-1,'- seznamte se s platným zákonem o daních z příjmů',94,66,350) DlgStatic(-1,'Předpoklady - musí být vypočtena 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 B dle podkladů z 01/2004-vzor č.10',16,100,575) WarnDAPBplatne:String IF(not CompareStr(IniRok,'2003')) begin WarnDAPBplatne='Daňové přiznání vzor 10 je určeno pro rok 2003 - ověřte, zda je stále platné' end ; plati v prosinci 2003, zatim neni znamo, jake budou zmeny v DAP za rok 2004 Souhlas:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Souhlas',INI)) RucneHVPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'RucneHVPredZdan',INI)) NactiHVPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'NactiHVPredZdan',INI)); údaj HV z VZaZ za 12 mesíc pro ř.104 v příloze 1 VypoctiHVPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'VypoctiHVPredZdan',INI)) DlgBitmap(903,20,163-45) DlgCheckBox(100,Souhlas,68,177-45,524,,'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 účetnictví. 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 B (za správnost údajů v daň.přiznání neodpovídají autoři',88,197-45,500) DlgStatic(-1,'programu. Pokud sestavujete přiznání ručně, lze tento bod přeskočit)',88,213-45,500) DlgDivider(16,231-45,567,0) DatumUctSkup:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumUctSkup',INI) 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:',12,190,500) IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgRadioButton(9110,RucneHVPredZdan,28,206,560,,'- ručně',9110,9112) DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP B zadáte ručně') DlgRadioButton(9111,NactiHVPredZdan,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 B bude načten ze sestavy VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ) DlgRadioButton(9112,VypoctiHVPredZdan,28,249,560,,'- vypočten jako rozdíl ř.101 - ř.102 - ř.103',9110,9112) DlgOnLineHelp(9112,'Údaj do řádku 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') end else begin DlgRadioButton(9110,RucneHVPredZdan,28,206,560,,'- ručně',9110,9111) DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP B zadáte ručně') DlgStatic(-1,'- nelze převzít z VZaZ za '+DelkaFiscal+'/'+ROK(2)+', sestava nebyla vypočtena',50,227,560) DlgRadioButton(9111,VypoctiHVPredZdan,28,249,560,,'- vypočten jako rozdíl řádků 101-102-103',9110,9111) DlgOnLineHelp(9111,'Údaj do řádku 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') 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,94,292,490) DlgStatic(-1,'(odpisy je možno zadat nebo opravit ručně)',104,308,290) end else begin DlgStatic(-1,'- vypočtěte sestavu Daňové odpisy - rekapitulace,údaje z ní budou převzaty',93,292,496) DlgStatic(-1,'do výpočtů DAP B, jinak je budete muset zadat ručně',102,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 SetToIni('TITULNI'+IniRok,'Souhlas',Souhlas,INI) SetToIni('TITULNI'+IniRok,'NactiOdpisAnoNe',NactiOdpisAnoNe,INI) SetToIni('TITULNI'+IniRok,'NactiHVPredZdan',NactiHVPredZdan,INI) SetToIni('DAP'+IniRok,'RucneHVPredZdan',RucneHVPredZdan,INI) SetToIni('DAP'+IniRok,'NactiHVPredZdan',NactiHVPredZdan,INI) SetToIni('DAP'+IniRok,'VypoctiHVPredZdan',VypoctiHVPredZdan,INI) ;{definice promennych} AktualCover:Integer=0 skrt:String[5]='-----' SumaNeNakl:LongInt=0 SumaNeNaklNact:LongInt=0 SumaDanOdpis:LongInt=0 SumaDanOdpisNact:LongInt=0 OdpisNemov:LongInt=0 HVPredZdan:Double=0 ExistVZaZ:Boolean=False ; {Načtení čísla řádku VZaZ, který se předává jako HV na radek 10} ; {samotne nactení údaje je v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} HVPredDaniR:Word ;cislo radku, ktery bude prevzat z VZaZ HVPredDaniS: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) HVPredDaniR=Val(FromChar('=',LocStr)) end if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANS=')) ;*sloupec HV pred zdanenim, pocitano vcetne textu begin LocStr=ToChar(' ',LocStr) HVPredDaniS=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)) Priloha1AnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Priloha1AnoNe',INI)) Priloha2AnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Priloha2AnoNe',INI)) Priloha3AnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Priloha3AnoNe',INI)) Priloha4AnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Priloha4AnoNe',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') 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[30]=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} P1101:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1101',INI)) P1102:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1102',INI)) 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)))) Odpis7:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Ostatni',INI)))) SumaDanOdpisNact=Odpis1+Odpis2+Odpis3+Odpis4+Odpis5+Odpis7 SumaDanOdpis=SumaDanOdpisNact OdpisNemov=Odpis4+Odpis5 ; warn o kontrole OdpisNemov 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)) Odpis7:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis7',INI)) SumaDanOdpis=VAL(GetFromIni('Ba'+IniRok,'SumaDanOdpis',INI)) OdpisNemov=VAL(GetFromIni('Ba'+IniRok,'OdpisNemov',INI)) end Odpis6:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis6',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)) ;{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} P2201:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2201',INI)) P2202:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2202',INI)) P2203:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2203',INI)) P2204:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2204',INI)) P2205:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2205',INI)) P2VydProcentem:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2VydProcentem',INI)) P2SpolJmeni:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2SpolJmeni',INI)) P2206:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2206',INI)) P2207:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2207',INI)) P2208:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2208',INI)) P2209:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2209',INI)) P2210:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2210',INI)) P2211:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2211',INI)) P2212:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2212',INI)) P2213:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P2213',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) P2DilciSuma:LongInt; ;{nacteni pro 5.cover} P3301:Real; =VAL(GetFromIni('DAP'+IniRok,'P3301',INI)) P3302:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3302',INI)) P3303:Real; =VAL(GetFromIni('DAP'+IniRok,'P3303',INI)) P3304:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3304',INI)) P3305:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3305',INI)) P3306:Real; =VAL(GetFromIni('DAP'+IniRok,'P3306',INI)) P3307:Real; =VAL(GetFromIni('DAP'+IniRok,'P3307',INI)) P3308:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3308',INI)) P3309:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3309',INI)) P3310:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3310',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)) P3315:Real; =VAL(GetFromIni('DAP'+IniRok,'P3315',INI)) P3316:Real; =VAL(GetFromIni('DAP'+IniRok,'P3316',INI)) ;{nacteni pro 6.coveru} P3317:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3317',INI)) P3318:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3318',INI)) P3319:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3319',INI)) P3320:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3320',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)) P3325:Real; =VAL(GetFromIni('DAP'+IniRok,'P3325',INI)) P3326:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3326',INI)) P3327:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3327',INI)) P3328:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3328',INI)) 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)) ;{nacteni pro 7.cover} ;{nacteni pro 8.cover} D31:LongInt D32:LongInt D33:LongInt=VAL(GetFromIni('DAP'+IniRok,'D33',INI)) D34:LongInt D35:LongInt D36:LongInt D37:LongInt D38:LongInt=VAL(GetFromIni('DAP'+IniRok,'D38',INI)) ;D59:LongInt=VAL(GetFromIni('DAP'+IniRok,'D59',INI)) Duch:LongInt=VAL(GetFromIni('DAP'+IniRok,'Duch',INI)) ManzelJmeno:String=GetFromIni('DAP','ManzelJmeno',INI) ManzelRC:String=GetFromIni('DAP','ManzelRC',INI) DiteJmeno1:String=GetFromIni('DAP','DiteJmeno1',INI) DiteRC1:String=GetFromIni('DAP','DiteRC1',INI) DiteMesic1:Byte=VAL(GetFromIni('DAP','DiteMesic1',INI)) DiteZTP1:Byte=VAL(GetFromIni('DAP','DiteZTP1',INI)) DiteJmeno2:String=GetFromIni('DAP','DiteJmeno2',INI) DiteRC2:String=GetFromIni('DAP','DiteRC2',INI) DiteMesic2:Byte=VAL(GetFromIni('DAP','DiteMesic2',INI)) DiteZTP2:Byte=VAL(GetFromIni('DAP','DiteZTP2',INI)) DiteJmeno3:String=GetFromIni('DAP','DiteJmeno3',INI) DiteRC3:String=GetFromIni('DAP','DiteRC3',INI) DiteMesic3:Byte=VAL(GetFromIni('DAP','DiteMesic3',INI)) DiteZTP3:Byte=VAL(GetFromIni('DAP','DiteZTP3',INI)) DiteJmeno4:String=GetFromIni('DAP','DiteJmeno4',INI) DiteRC4:String=GetFromIni('DAP','DiteRC4',INI) DiteMesic4:Byte=VAL(GetFromIni('DAP','DiteMesic4',INI)) DiteZTP4:Byte=VAL(GetFromIni('DAP','DiteZTP4',INI)) D402:LongInt=VAL(GetFromIni('DAP'+IniRok,'D402',INI)) D411A:Byte=VAL(GetFromIni('DAP'+IniRok,'D411A',INI)) D412A:LongInt=VAL(GetFromIni('DAP'+IniRok,'D412A',INI)) D411B:Byte=VAL(GetFromIni('DAP'+IniRok,'D411B',INI)) D412B:LongInt=VAL(GetFromIni('DAP'+IniRok,'D412B',INI)) D421A:Byte=VAL(GetFromIni('DAP'+IniRok,'D421A',INI)) D422A:LongInt=VAL(GetFromIni('DAP'+IniRok,'D422A',INI)) D421B:Byte=VAL(GetFromIni('DAP'+IniRok,'D421B',INI)) D422B:LongInt=VAL(GetFromIni('DAP'+IniRok,'D422B',INI)) D431:Byte=VAL(GetFromIni('DAP'+IniRok,'D431',INI)) D432:LongInt=VAL(GetFromIni('DAP'+IniRok,'D432',INI)) D441:Byte=VAL(GetFromIni('DAP'+IniRok,'D441',INI)) D442:LongInt=VAL(GetFromIni('DAP'+IniRok,'D442',INI)) D451:Byte=VAL(GetFromIni('DAP'+IniRok,'D451',INI)) D452:LongInt=VAL(GetFromIni('DAP'+IniRok,'D452',INI)) D461:Byte=VAL(GetFromIni('DAP'+IniRok,'D461',INI)) D462:LongInt=VAL(GetFromIni('DAP'+IniRok,'D462',INI)) D472:LongInt=VAL(GetFromIni('DAP'+IniRok,'D472',INI)) D482:LongInt=VAL(GetFromIni('DAP'+IniRok,'D482',INI)) ;{nacteni pro 9.cover} 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)) M52:Byte=VAL(GetFromIni('DAP'+IniRok,'M52',INI)) D53:LongInt D54:LongInt D55:Real D56:Real D57:LongInt D58:LongInt D59:LongInt D66:LongInt=VAL(GetFromIni('DAP'+IniRok,'D66',INI)) D67:LongInt=VAL(GetFromIni('DAP'+IniRok,'D67',INI)) D68:LongInt=VAL(GetFromIni('DAP'+IniRok,'D68',INI)) D69:LongInt=VAL(GetFromIni('DAP'+IniRok,'D69',INI)) D70:LongInt=VAL(GetFromIni('DAP'+IniRok,'D70',INI)) D71:LongInt=VAL(GetFromIni('DAP'+IniRok,'D71',INI)) D72:LongInt ;{nacteni pro 10.cover} Pr1:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr1',INI)) Pr2:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr2',INI)) Pr3:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr3',INI)) Pr4:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr4',INI)) Pr5:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr5',INI)) Pr6:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr6',INI)) Pr7:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr7',INI)) Pr8:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr8',INI)) Pr9:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr9',INI)) Pr10:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr10',INI)) Pr11:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr11',INI)) Pr12:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr12',INI)) Pr13:Byte; =VAL(GetFromIni('DAP'+IniRok,'Pr13',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:Word=ValDate(GetFromIni('DAP'+IniRok,'Prep8',INI)) end ;{ vypocet HV na radku 10 - 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,HVPredDaniR-1) LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s HV před zdanením HVPredZdan=GetFromWNSLine(HVPredDaniS,False) end else ; neexistuje VZaZ begin ExistVZaZ=False 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: if(NactiHVPredZdan) begin P1104=HVPredZdan HlasHVPredZdan='HV před zdaněním - převzato z VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ end if(VypoctiHVPredZdan) begin P1104=(P1101-P1102-P1103) HlasHVPredZdan='Rozdíl mezi příjmy a výdaji - výpočet ř.101 - 102 - 103' end if(RucneHVPredZdan) begin if(poprve) P1104=VAL(GetFromIni('DAP'+IniRok,'P1104',INI)) poprve=False HlasHVPredZdan='Rozdíl mezi příjmy a výdaji ... nebo hosp.výsledek před zdaněním' end P1113=(P1104+P1105-P1106-P1107+P1108+P1109-P1110-P1111+P1112) P2204=P2201-P2202-P2203 P2207=P2205-P2206 P2210=P2207+P2208-P2209 P2211=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 P2213=P2DilciSuma P2212=P2211-P2213 D31=0 Pr2=0 if(Priloha2AnoNe) begin D31=P2201-P2202-P2203 Pr2=1 end D32=0 Pr1=0 if(Priloha1AnoNe) begin D32=P1113 Pr1=1 end D34=0 if(Priloha2AnoNe) D34=P2210 D35=0 if(Priloha2AnoNe) D35=P2213 D36=D32+D33+D34+D35 WarnD59:String IF(D36>=0) D37=D31+D36 else begin D37=D31 if(D59=0) D59=ABS(D36) else WarnD59='Ověřte a případně opravte řádek 59 na str. 3' end D53=D37-D38-D402-D412A-D412B-D422A-D422B-D432-D442-D452-D462-D472-D482-D49-D50-D51-D52 if(D53<0) D53=0 D54=D53/100 D54=Int(D54) D54=D54*100 ;{tabulka pro vypocet dane} if(D54<=109200) D55=D54*0.15 if((D54>109200)and(D54<=218400)) D55=16380+((D54-109200)*0.2) if((D54>218400)and(D54<=331200)) D55=38220+((D54-218400)*0.25) if(D54>331200) D55=66420+((D54-331200)*0.32) D56=D55 Pr3=0 if(Priloha3AnoNe) begin Pr3=1 if(D37<>0) P3301=100*D55/D37 P3301=Round(P3301*100) P3301=P3301/100 if(P3301<15) P3301=15 P3303=(P3301*P3302)/100 P3306=0 if(P3302<>0) P3306=(P3304*100)/P3302 P3306=Round(P3306*100) P3306=P3306/100 P3307=(P3303*P3306)/100 P3308=P3305 if(P3308>P3307) P3308=P3307 P3309=P3305-P3308 P3310=P3303-P3308 if(P3310<0) P3310=0 P3313=P3311+P3312 if(P3312<0) P3313=P3311 P3315=0 if(D54<>0) P3315=(D55*100)/D54 P3315=Round(P3315*100) P3315=P3315/100 P3316=(P3314*P3315)/100 P3319=P3ZPS1H+P3ZPS2H P3320=P3317+P3318-P3319 P3324=0 if(D37<>0) P3324=(100*(P3321-P3322))/D37 P3324=Round(P3324*100) P3324=P3324/100 P3325=P3317*P3324/100 P3326=P3323 if(P3325Program.FiscalLength) ; WarnPrizn1='- délka zdaňovacího období (na titulní straně) neodpovídá zadanému hospodářského roku') WarnD38:String IF(D38>D36) begin WarnD38='Řádek 38 je větší nežli řádek 36' end WarnP3301:String IF((P3301<15)and(Priloha3AnoNe)) begin WarnP3301='Řádek 301 v příloze 3 je menší nežli 15%' end WarnP3302:String IF((P3302<>P1111)and(Priloha3AnoNe)) begin WarnP3302='Řádek 302 v příloze 3 je různý od řádku 111 přílohy 1' end WarnP3304:String IF((P3304>P3302)and(Priloha3AnoNe)) begin WarnP3304='Řádek 304 v příloze 3 je větší nežli řádek 302 přílohy 3' end WarnP3317:String IF((P3317<>D55)and(P3317<>P3316)and(Priloha3AnoNe)) begin WarnP3317='Řádek 317 v příloze 3 je odlišný od ř. 55 DAP i od řádku 316' end WarnP3318:String IF((P3318<>P3303)and(P3318<>P3310)and(Priloha3AnoNe)) begin WarnP3318='Řádek 318 v příloze 3 je odlišný od ř. 303 i od řádku 310' end WarnOdpisNemov:String IF(OdpisNemov>SumaDanOdpis) begin WarnOdpisNemov='Příloha 1 - odpis nemovitostí je větší nežli uplatněné odpisy celkem' end WarnD471:String IF((D472<1000)and(D472<>0)) begin WarnD471='Hodnota daru je menší nežli 1000,-Kč' end WarnD472:String IF((D472>D37/10)and(D472<>0)) begin WarnD472='Hodnota daru je větší nežli 10% z řádku 37' end IF((D4720)) begin WarnD472='Hodnota daru je menší nežli 2% z řádku 37' end WarnZapor:STRING='' IF(D37<0) WarnZapor=WarnZapor+' 37,' IF(D59<0) WarnZapor=WarnZapor+' 59,' IF((P3320<0)and(Priloha3AnoNe)) WarnZapor=WarnZapor+' 320,' ; IF(P3328<0) ; WarnZapor=WarnZapor+' 328,' WarnOd:STRING='' IF((DatumOd=0)and(Obdobi=0)) WarnOd='- není vyplněno Období ani Datum OD na titulní stránce daňového přiznání' WarnDo:STRING='' IF((DatumDo=0)and(Obdobi=0)) WarnDo='- není vyplněno Období ani Datum DO na titulní stránce daňového přiznání' WarnOdDo:STRING='' IF(DatumOd>DatumDo) WarnOdDo='- začátek zdaňovacího období je větší nežli konec' WarnOdDoObd:STRING='' IF((DatumOd<>0)and(Obdobi<>0)) WarnOdDoObd='- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"' IF((DatumDo<>0)and(Obdobi<>0)) WarnOdDoObd='- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"' WarnLhuta:STRING='' 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 WarnLhuta='- nebyl vyplněn den lhůty pro podání DP, pro výpočet záloh bylo dosazeno '+StrDate(DatumLhuta) end WarnLhuta2:STRING='' IF((DatumLhuta<>0)and(DatumLhuta0)and(DatumLhuta=DatumDo)) begin WarnLhuta2='- datum lhůty pro podání DP '+StrDate(DatumLhuta)+' je shodné s koncem zdaň.období '+StrDate(DatumDo) end WarnPocetPr1:String IF(((Priloha1AnoNe)and(Pr1=0))or((not Priloha1AnoNe)and(Pr1<>0))) begin WarnPocetPr1='Nesouhlasí počet listů přílohy 1' end WarnPocetPr2:String IF(((Priloha2AnoNe)and(Pr2=0))or((not Priloha2AnoNe)and(Pr2<>0))) begin WarnPocetPr2='Nesouhlasí počet listů přílohy 2' end WarnPocetPr3:String IF(((Priloha3AnoNe)and(Pr3=0))or((not Priloha3AnoNe)and(Pr3<>0))) begin WarnPocetPr3='Nesouhlasí počet listů přílohy 3' end 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,450) ;{vykreslení uvodu} DlgShade(-1,'',4,4,610,420) DlgCover(199,10,8,8,604,370,False,AktualCover) ;{============================== 1.cover ================================} ;{vykresleni 1.coveru} SetCover(1,'&Titulní') DlgStatic(-1,'Zdaňovací období (kalend.rok)',45,22,200) DlgEdit(103,Obdobi,247,20,40,,4) DlgOnLineHelp(103,'Kalendářní rok, za který DAP podáváte') DlgStatic(-1,'nebo &od',307,22,54) DlgEditDate(1031,DatumOd,365,18,78,,10,,ValidDatum) DlgOnLineHelp(1031,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od.....') DlgStatic(-1,'&do',450,22,20) DlgEditDate(1032,DatumDo,470,18,78,,10,,ValidDatum) DlgOnLineHelp(1032,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od .. do ......') DlgStatic(-1,'Lhůta pro podání DP',45,48,135) DlgEditDate(162,DatumLhuta,185,46,78,,10,,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',388,48,57) ;DlgCombo(102,TypPriz1,448,44,100,128,9,CBS_DropDownList,'řádné','opravné','dodatečné') DlgCombo(102,TypPriz1,448,44,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,83,500,,'Přiznání zpracoval a předložil d&aňový poradce na základě plné moci...') 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') DlgCheckBox(140,Priloha1AnoNe,16,263-160,500,,'Chcete tisknout i přílohu č. 1') DlgOnLineHelp(140,'Tisknout přílohu č. 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). Pokud pro ni nemáte věcnou náplň, přílohu nepřikládejte') DlgCheckBox(141,Priloha2AnoNe,16,263-140,500,,'Chcete tisknout i přílohu č. 2') DlgOnLineHelp(141,'Tisknout přílohu č. 2? = Výpočet dílčích základů daně z příjmů fyz.osob ze závislé činnosti a z funkčních požitků (§6),příjmů z pronájmu (§9) a z ostatních příjmů (§ 10).Pokud pro ni nemáte věcnou náplň, přílohu nepřikládejte') DlgCheckBox(142,Priloha3AnoNe,16,263-120,500,,'Chcete tisknout i přílohu č. 3') DlgOnLineHelp(142,'Tisknout přílohu č. 3? = Výpočet daně z příjmů dosažených za více zdaňovacích období, daně z příjmů ze zdrojů v zahraničí a daně po slevě. Pokud pro ni nemáte věcnou náplň, přílohu nepřikládejte') ;DlgCheckBox(143,Priloha4AnoNe,16,263-100,500,,'Chcete tisknout i přílohu č. 4') ;DlgOnLineHelp(143,'Tisknout přílohu č. 4? Pokud pro ni nemáte věcnou náplň, přílohu nepřikládejte') ;DlgCheckBox(150,ZaverkaAnoNe,16,263-140,500,,'Účetní závěrka přilo&žena') ;DlgOnLineHelp(150,'Účetní závěrka nebo přehledy o majetku a závazcích a o příjmech a výdajích, přiloženy') ;DlgCheckBox(151,ZahraniciAnoNe,16,263-120,500,,'Spojení se zahraničím') ;DlgOnLineHelp(151,'Ekonomické nebo personální spojení se zahraničními osobami') DlgStatic(-1,'Ostatní údaje pro titulní stranu DAP B je nutno vyplnit',20,200,560,,,ES_CENTER) DlgStatic(-1,'v Nastavení + Nastavení údajů pro sestavy (DDT) + První strana DAP B',20,216,560,,,ES_CENTER) DlgStatic(-1,'( pokud nejsou na straně 4 k dispozici všechny údaje, restartuje počítač )',20,310,560,,,ES_CENTER) ;{============================== 2.cover ================================} ;{vykresleni 2.coveru} SetCover(2,'Příl.1/1') if(Priloha1AnoNe) begin x21=5 x22=507 x23=310 x24=497 x25=519 y2=2 i21=20 ;radkovani 1 i22=20 ;radkovani 2 PocRad2=0 ;pomocna promenna SirkaPolicka21=80 ;standardní šířka SirkaPolicka22=20 DlgStatic(-1,'101 Příjmy, které jsou předmětem daně z příjmů dle §7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgEdit(201,P1101,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(201,'101 Příjmy, které jsou předmětem daně z příjmů dle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'102 Výdaje související s příjmy dle §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 dle §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 '+HlasHVPredZdan,x21,y2+(PocRad2*i21),x22-2) if(RucneHVPredZdan) begin ;DlgStatic(-1,'104 Rozdíl mezi příjmy a výdaji ... nebo hosp.výsledek před zdaněním',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) nebo'+#13+'hospodářský výsledek před zdaněním (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 §23, §5 a ostatní ... 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 §23, §5 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 §23, §5 a ostatní ... 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 §23, §5 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 HV 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 hospodářského výsledku před zdaněním (zisk),'+#13+'kterou rozdělujete na spolupracující osoby podle'+#13+'§ 13 zákona') Inc(PocRad2) DlgStatic(-1,'108 Část výdajů nebo HV 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 hospodářského výsledku před zdaněním (ztráta),'+#13+'kterou rozdělujete na spolupracující osoby podle'+#13+'§ 13 zákona') Inc(PocRad2) DlgStatic(-1,'109 Část příjmů nebo HV 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 hospodářského výsledku před zdaněním (zisk),'+#13+'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'110 Část výdajů nebo HV před zdaněním (ztráta)... na Vás jako na spoluprac.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 hospodářského výsledku 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á o zbývající část výdajů ...',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 komanditní 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 minus (-)') 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) DlgStatic(-1,'Čistý obrat',x21,y2+(PocRad2*i21),90) DlgStatic(-1,'Uplatněné odpisy celkem',((x22-x21)/2)-80,y2+(PocRad2*i21),170) DlgStatic(-1,'Z toho odpisy nemovitostí',x22-82,y2+(PocRad2*i21),170,,,ES_RIGHT) Inc(PocRad2) DlgEdit(220,CistyObrat,x21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(220,'Čistý obrat podle §20 písm. b) bod 2 zákona č. 563/1991 Sb. o účetnictví, ve znění pozdějších předpisů'+#13+'(Výnosy snížené o prodejní slevy, daň z přidané hodnoty a ostatní daně přímo spojené s obratem)') DlgOnLineHelp(222,'Z toho odpis nemovitostí') IF(Program.Majetky) begin IF(LENGTH(DatumSkupOdp)>0 begin IF(NactiOdpisAnoNe) begin DlgEdit(221,SumaDanOdpis,((x22-x21)/2)-20,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,x22-x21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(222,'Z toho odpis nemovitostí - převzat součet odp. skupiny 4. a 5. ze sestavy: "Daňové odpisy - rekapitulace" ze dne '+DatumSkupOdp) end else begin DlgEdit(221,SumaDanOdpis,((x22-x21)/2)-20,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,x22-x21,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,((x22-x21)/2)-20,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,x22-x21,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,((x22-x21)/2)-20,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(221,'Uplatněné odpisy celkem') DlgEdit(222,OdpisNemov,x22-x21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) end Inc(PocRad2) DlgStatic(-1,'Datum zahájení čin.',x21,y2+(PocRad2*i21),140) DlgStatic(-1,'Datum přerušení čin.',((x22-x21)/2)-98,y2+(PocRad2*i21),140) DlgStatic(-1,'Datum ukončení čin.',((x22-x21)/2)+58,y2+(PocRad2*i21),150) DlgStatic(-1,'Datum obnovení čin.',x22-51,y2+(PocRad2*i21),140,,,ES_RIGHT) Inc(PocRad2) DlgEditDate(230,DatumZah,x21,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(230,'C. Údaje o podnikání - Datum zahájení činnosti (uvádí se pouze v roce zahájení činnosti)') DlgEditDate(231,DatumPrer,((x22-x21)/2)-98,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(231,'C. Údaje o podnikání - Datum přerušení činnosti') DlgEditDate(232,DatumUkon,((x22-x21)/2)+58,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(232,'C. Údaje o podnikání - Datum ukončení činnosti') DlgEditDate(233,DatumObnov,x22-43,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(233,'C. Údaje o podnikání - Datum obnovení činnosti') end else begin DlgStatic(-1,'pokud chcete vyplňovat přílohu č. 1, je nejprve nutno na titulní straně zvolit tuto možnost',10,60,585) DlgStatic(-1,'a stisknout tlačítko Oprav',10,82,585) end ;{============================== 3.cover ================================} ;{vykresleni 3.coveru} SetCover(3,'Příl.1/2') ;DlgDivider(5,46,592,0) if(Priloha1AnoNe) 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 §23 a §5 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 §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') DlgEdit(302,P1EHZvys1,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(302,'E. Úprava podle §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') DlgEdit(304,P1EHZvys2,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(304,'E. Úprava podle §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') DlgEdit(306,P1EHZvys3,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(306,'E. Úprava podle §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') DlgEdit(308,P1EHZvys4,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(308,'E. Úprava podle §23, §5 a ostatní úpravy... zvyšující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) y3=y3+7 DlgStatic(-1,'E.1 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') DlgEdit(312,P1EHSniz1,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(312,'E. Úprava podle §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') DlgEdit(314,P1EHSniz2,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(314,'E. Úprava podle §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') DlgEdit(316,P1EHSniz3,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(316,'E. Úprava podle §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §23 a §5 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 §23, §5 a ostatní úpravy... snižující HV'+#13+'hodnota úpravy v Kč') DlgEdit(318,P1EHSniz4,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(318,'E. Úprava podle §23, §5 a ostatní úpravy... snižující HV'+#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 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 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 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 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Č') 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+'Podíl v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) end else begin DlgStatic(-1,'pokud chcete vyplňovat přílohu č. 1, je nejprve nutno na titulní straně zvolit tuto možnost',10,60,585) DlgStatic(-1,'a stisknout tlačítko Oprav',10,82,585) end ; ;{============================== 4.cover ================================} ;{vykresleni 4.coveru} SetCover(4,'Příl.2') if(Priloha2AnoNe) begin x41=5 x42=100 x43=500 x44=246+22 x45=350+22 x46=482 x47=566 x48=512 x49=549 y4=2 i41=19 ;radkovani 1 i42=20 ;radkovani 2 PocRad4=0 ;pomocna promenna SirkaPolicka41=80 ;standardní šířka SirkaPolicka42=100 SirkaPolicka43=150-10+22 SirkaPolicka44=34 DlgStatic(-1,'201 Úhrn příjmů od všech zaměstnavatelů',x41,y4+(PocRad4*i41),x43-10) DlgEdit(401,P2201,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(401,'1. Výpočet dílčího základu DPFO za závislé činnost a z funkčních požitků'+#13+'§ 6 zákona'+#13+'201 Úhrn příjmů od všech zaměstnavatelů') Inc(PocRad4) DlgStatic(-1,'202 Úhrn pojistného',x41,y4+(PocRad4*i41),x43-10) DlgEdit(402,P2202,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(402,'1. Výpočet dílčího základu DPFO za závislé činnost a z funkčních požitků'+#13+'§ 6 zákona'+#13+'202 Úhrn pojistného') Inc(PocRad4) DlgStatic(-1,'203 Daň zaplacená v zahraničí podle § 6 odst. 13 zákona',x41,y4+(PocRad4*i41),x43-10) DlgEdit(403,P2203,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(403,'1. Výpočet dílčího základu DPFO za závislé činnost a z funkčních požitků'+#13+'§ 6 zákona'+#13+'203 Daň zaplacená v zahraničí podle § 6 odst. 13 zákona') Inc(PocRad4) DlgStatic(-1,'204 Dílčí základ daně připadající na příjmy ze závislé činnosti',x41,y4+(PocRad4*i41),x43-10) DlgStatic(-1,P2204,x43+17,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) DlgCheckBox(404,P2VydProcentem,16,y4+(PocRad4*i41),240,,'Uplatňuji výdaje % z příjmů (20%)') DlgOnLineHelp(404,'2. 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ů (20%)') DlgCheckBox(405,P2SpolJmeni,340-74,y4+(PocRad4*i41),330,,'Dosáhl jsem příjmů ze spol.jmění manželů') DlgOnLineHelp(405,'2. 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ů') Inc(PocRad4) DlgStatic(-1,'205 Příjmy podle § 9 zákona',x41,y4+(PocRad4*i41),x43-10) DlgEdit(406,P2205,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(406,'2. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'205 Příjmy podle § 9 zákona') Inc(PocRad4) DlgStatic(-1,'206 Výdaje podle § 9 zákona',x41,y4+(PocRad4*i41),x43-10) DlgEdit(407,P2206,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(407,'2. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'206 Výdaje podle § 9 zákona') Inc(PocRad4) DlgStatic(-1,'207 Rozdíl mezi příjmy a výdaji (ř.205-206) nebo HV před zdaněním',x41,y4+(PocRad4*i41),x43-10) DlgStatic(-1,P2207,x43+17,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) DlgStatic(-1,'208 Úhrn částek podle §23 a §5 ... zvyšující rozdíl mezi příjmy a výdaji...',x41,y4+(PocRad4*i41),x43-10) DlgEdit(409,P2208,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(409,'2. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'208 Úhrn částek podle §23 a §5 ... zvyšující rozdíl mezi příjmy a výdaji nebo HV před zdaněním (zisk, ztráta)') Inc(PocRad4) DlgStatic(-1,'209 Úhrn částek podle §23 a §5 ... snižující rozdíl mezi příjmy a výdaji...',x41,y4+(PocRad4*i41),x43-10) DlgEdit(410,P2209,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(410,'2. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'208 Úhrn částek podle §23 a §5 ... snižující rozdíl mezi příjmy a výdaji nebo HV před zdaněním (zisk, ztráta)') Inc(PocRad4) DlgStatic(-1,'210 Dílčí základ daně,daňová ztráta z pronájmu (ř.207+208-209)',x41,y4+(PocRad4*i41),x43-10) DlgStatic(-1,P2210,x43+17,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) DlgStatic(-1,'1 Druh příjmů',x41,y4+(PocRad4*i41),x42-2) DlgEdit(420,P2Druh1,x42,y4+(PocRad4*i41)-2,SirkaPolicka43,i41,50) DlgOnLineHelp(420,'3. 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(421,P2Prijem1,x44,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(421,'3. 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(422,P2Vydaj1,x45,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(422,'3. 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),x46,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) DlgEdit(423,P2Kod1,x47,y4+(PocRad4*i41)-2,SirkaPolicka44,i41,3,ES_RIGHT) DlgOnLineHelp(423,'3. 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') Inc(PocRad4) DlgStatic(-1,'2 Druh příjmů',x41,y4+(PocRad4*i41),x42-2) DlgEdit(424,P2Druh2,x42,y4+(PocRad4*i41)-2,SirkaPolicka43,i41,50) DlgOnLineHelp(424,'3. 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(425,P2Prijem2,x44,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(425,'3. 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(426,P2Vydaj2,x45,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(426,'3. 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),x46,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) DlgEdit(427,P2Kod2,x47,y4+(PocRad4*i41)-2,SirkaPolicka44,i41,3,ES_RIGHT) DlgOnLineHelp(427,'3. 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') Inc(PocRad4) DlgStatic(-1,'3 Druh příjmů',x41,y4+(PocRad4*i41),x42-2) DlgEdit(428,P2Druh3,x42,y4+(PocRad4*i41)-2,SirkaPolicka43,i41,50) DlgOnLineHelp(428,'3. 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(429,P2Prijem3,x44,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(429,'3. 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(430,P2Vydaj3,x45,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(430,'3. 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),x46,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) DlgEdit(431,P2Kod3,x47,y4+(PocRad4*i41)-2,SirkaPolicka44,i41,3,ES_RIGHT) DlgOnLineHelp(431,'3. 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') Inc(PocRad4) DlgStatic(-1,'4 Druh příjmů',x41,y4+(PocRad4*i41),x42-2) DlgEdit(432,P2Druh4,x42,y4+(PocRad4*i41)-2,SirkaPolicka43,i41,50) DlgOnLineHelp(432,'3. 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(433,P2Prijem4,x44,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(433,'3. 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(434,P2Vydaj4,x45,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(434,'3. 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),x46,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) DlgEdit(435,P2Kod4,x47,y4+(PocRad4*i41)-2,SirkaPolicka44,i41,3,ES_RIGHT) DlgOnLineHelp(435,'3. 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') Inc(PocRad4) DlgStatic(-1,'Úhrn kladných rozdílů',x41,y4+(PocRad4*i41)-1,145) DlgStatic(-1,P2DilciSuma,x41+200,y4+(PocRad4*i41)-1,70) DlgStatic(-1,'211 Příjmy podle §10 zákona',x41+320,y4+(PocRad4*i41)+2,192) DlgStatic(-1,P2211,x43+17,y4+(PocRad4*i41)+2,SirkaPolicka41,,,ES_Right) ; DlgEdit(450,P2211,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(450,'3. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'211 Příjmy podle §10 zákona') Inc(PocRad4) DlgStatic(-1,'212 Výdaje §10 zákona (max do výše příjmů)',x41,y4+(PocRad4*i41),x43-10) DlgStatic(-1,P2212,x43+17,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) ; DlgEdit(451,P2212,x43,y4+(PocRad4*i41)-2,SirkaPolicka42,i41,9,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(451,'3. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'212 Výdaje §10 zákona (max do výše příjmů)') Inc(PocRad4) DlgStatic(-1,'213 Dílčí základ daně připadající na ostatní příjmy (ř.211-212)',x41,y4+(PocRad4*i41),x43-10) DlgStatic(-1,P2213,x43+17,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) end else begin DlgStatic(-1,'pokud chcete vyplňovat přílohu č. 2, je nejprve nutno na titulní straně zvolit tuto možnost',10,60,585) DlgStatic(-1,'a stisknout tlačítko Oprav',10,82,585) end ;{============================== 5.cover ================================} ;{vykresleni 5.coveru} SetCover(5,'Příl.3/1') if(Priloha3AnoNe) begin x51=5 x52=497 y5=2 i51=21 ;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) DlgStatic(-1,StrNative(P3301,2),x52-21,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) ; DlgEdit(501,P3301,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloKl,2,True) ;DlgOnLineHelp(501,'1. Výpočet daně z příjmů dosažených za více zdaňovacích období'+#13+'301 Procento daně ze základu daně (ř. 55 DAP děleno ř.37 DAP'+#13+'násobeno stem. Jestliže takto zjištěné procento je menší než 15 %,'+#13+' použije se 15%') 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. Výpočet daně z prí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í') 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. Výpočet daně 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ě zapl.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. Výpočet daně 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 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) 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 regrese'+#13+'311 Příjmy po vynětí dle § 6 zákona (ř.31-ú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 regrese'+#13+'311 Příjmy po vynětí dle § 7 až § 10 zákona (ř.36-ú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čí',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,P3313,x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) 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 regrese'+#13+'314 Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený o nezdanitelné části základu daně a odečitatelné položky') Inc(PocRad5) DlgStatic(-1,'315 Sazba celkového daňového zatížení',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,StrNative(P3315,2),x52-21,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'316 Daň ze základu daně po vynětí příjmů ze zdrojů v zahraničí',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,P3316,x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) end else begin DlgStatic(-1,'pokud chcete vyplňovat přílohu č. 3, je nejprve nutno na titulní straně zvolit tuto možnost',10,60,585) DlgStatic(-1,'a stisknout tlačítko Oprav',10,82,585) end ; ;{============================== 6.cover ================================} ;{vykresleni 6.coveru} SetCover(6,'Příl.3/2') if(Priloha3AnoNe) begin x61=5 x62=497 y6=2 i61=22 ;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)průměrný...ZPS',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 změněnou pracovní schopností (ZPS)') 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 (ZPS)') DlgStatic(-1,'b)ZPS 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ů se změněnou pracovní schopností s těžším zdravotním postižením (ZPS a 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 (ZPS s 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,ValidCisloKl) DlgOnLineHelp(610,'3. Daň po vynětí a po slevě'+#13+'317 Daň podle §16 odst.1 nebo daň po případném vynětí příjmů ze zdrojů v zahraničí (ř. 55 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,ValidCisloKl) 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 dle § 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,'320 Daň po slevách (ř.317 + ř.318 - ř.319)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3320,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'321 Příjmy (výnosy) plynoucí ze zdrojů v zahraničí - metoda zápočtu',x61,y6+(PocRad6*i61),x62-10) DlgEdit(615,P3321,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(615,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'321 Příjmy (výnosy) plynoucí ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Inc(PocRad6) DlgStatic(-1,'322 Výdaje (náklady)',x61,y6+(PocRad6*i61),x62-10) DlgEdit(616,P3322,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(616,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'322 Výdaje (náklady)') 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,ValidCisloKl) DlgOnLineHelp(617,'4. Příjmy ze 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 ř.37 * 100]',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,StrNative(P3324,2),x62-21,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) DlgStatic(-1,'%',x62+83,y6+(PocRad6*i61),14,,,ES_Right) ; 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) 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 Rozdíl řádků (ř. 320 - ř. 326)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3328,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) end else begin DlgStatic(-1,'pokud chcete vyplňovat přílohu č. 3, je nejprve nutno na titulní straně zvolit tuto možnost',10,60,585) DlgStatic(-1,'a stisknout tlačítko Oprav',10,82,585) end ; ; ;;{============================== 8.cover ================================} ; ;{vykresleni 8.coveru - je vlastně sedmý} SetCover(7,'Str.&2') DlgDivider(303,5,0,179) x81=5 x82=207 x83=310 x84=497 x85=519 y8=2 i81=20 ;radkovani 1 i82=20 ;radkovani 2 PocRad8=0 ;pomocna promenna SirkaPolicka81=80 ;standardní šířka SirkaPolicka82=20 DlgStatic(-1,'31 Dílčí základ daně podle §6',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D31,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'32 Dílčí základ daně podle §7',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D32,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'33 Dílčí základ daně podle §8',x81,y8+(PocRad8*I81),x82-2) DlgEdit(801,D33,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(801,'33 Dílčí základ daně z kapitálového podle § 8 zákona') Inc(PocRad8) DlgStatic(-1,'34 Dílčí základ daně podle §9',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D34,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'35 Dílčí základ daně podle §10',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D35,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'36 Úhrn řádků 32 až 35',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D36,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'37 Základ daně',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,STR(D37,13,0),x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'38 Uplatňovaná výše ... ztráty',x81,y8+(PocRad8*I81),x82-2) DlgEdit(802,D38,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(802,'38 Uplatňovaná výše vzniklé a vyměřené ztráty za předcházející'+#13+'zdaňovací období maximálně do výše ř. 36') Inc(PocRad8) DlgStatic(-1,'39 Základ daně po odečt.ztráty',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,STR(D37-D38,13,0),x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgDivider(16,y8+(PocRad8*I81),278+10,0) Inc(PocRad8) Inc(PocRad8) DlgStatic(-1,'Údaje o starobním důchodu',x81,y8+(PocRad8*I81),x82-2) DlgEdit(851,Duch,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(851,'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ě (Kč)') Inc(PocRad8) DlgStatic(-1,'Údaje o manželce,manželovi',x81,y8+(PocRad8*I81),192) DlgEdit(852,ManzelJmeno,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81+180,i81,100,ES_LEFT) DlgOnLineHelp(852,'Příjmení, jméno, titul') DlgStatic(-1,'RČ',x82+275,y8+(PocRad8*I81),20) DlgEdit(853,ManzelRC,x82+300,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(853,'Rodné číslo') Inc(PocRad8) DlgStatic(-1,'údaje o 1 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(854,DiteJmeno1,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(854,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(855,DiteRC1,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(855,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(856,DiteMesic1,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(856,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(857,DiteZTP1,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(857,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 2 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(864,DiteJmeno2,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(864,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(865,DiteRC2,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(865,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(866,DiteMesic2,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(866,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(867,DiteZTP2,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(867,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 3 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(874,DiteJmeno3,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(874,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(875,DiteRC3,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(875,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(876,DiteMesic3,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(876,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(877,DiteZTP3,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(877,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 4 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(884,DiteJmeno4,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(884,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(885,DiteRC4,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(885,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(886,DiteMesic4,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(886,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(887,DiteZTP4,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(887,'Počet měsíců se ZTP/P') Inc(PocRad8) PocRad8=0 DlgStatic(-1,'40 Odst.1,a)-základní nezd.',x83,y8+(PocRad8*I81),203) DlgEdit(821,D402,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(821,'Částka podle §15'+#13+'40 Odst. 1. písmeno a) zákona (základní nezdanitelná částka) v celých Kč') Inc(PocRad8) DlgStatic(-1,'41a)Odst.1,b)-vyživ. děti',x83,y8+(PocRad8*I81),183) DlgEdit(822,D411A,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(822,'Částka podle §15'+#13+'41a) Odst. 1. písmeno b) zákona (na vyživované děti)'+#13+'Počet měsíců') DlgEdit(823,D412A,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(823,'Částka podle §15'+#13+'41a) Odst. 1. písmeno b) zákona (na vyživované děti) v celých Kč') Inc(PocRad8) DlgStatic(-1,'41b)Odst.1,b)-děti ZTP',x83,y8+(PocRad8*I81),183) DlgEdit(824,D411B,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(824,'Částka podle §15'+#13+'41b) Odst. 1. písmeno b) zákona (na vyživované dítě, které je držitelem průkazu ZTP/P)'+#13+'Počet měsíců') DlgEdit(825,D412B,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(825,'Částka podle §15'+#13+'41b) Odst. 1. písmeno b) zákona (na vyživované dítě, které je držitelem průkazu ZTP/P) v celých Kč') Inc(PocRad8) DlgStatic(-1,'42a)Odst.1,c)-manžel/ka',x83,y8+(PocRad8*I81),183) DlgEdit(826,D421A,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(826,'Částka podle §15'+#13+'42a) Odst. 1. písmeno c) zákona (na manželku/manžela)'+#13+'Počet měsíců') DlgEdit(827,D422A,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(827,'Částka podle §15'+#13+'42a) Odst. 1. písmeno b) zákona (na manželku/manžela) v celých Kč') Inc(PocRad8) DlgStatic(-1,'42b)Odst.1,c)-manžel/ka ZTP',x83,y8+(PocRad8*I81),183) DlgEdit(828,D421B,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(828,'Částka podle §15'+#13+'42b) Odst. 1. písmeno c) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P)'+#13+'Počet měsíců') DlgEdit(829,D422B,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(829,'Částka podle §15'+#13+'42b) Odst. 1. písmeno c) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P) v celých Kč') Inc(PocRad8) DlgStatic(-1,'43 Odst.1,d)-část.inv.důchod',x83,y8+(PocRad8*I81),183) DlgEdit(830,D431,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(830,'Částka podle §15'+#13+'43 Odst. 1. písmeno d) zákona (na poživatele částečného invalidního důchodu)'+#13+'Počet měsíců') DlgEdit(831,D432,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(831,'Částka podle §15'+#13+'43 Odst. 1. písmeno d) zákona (na poživatele částečného invalidního důchodu) v celých Kč') Inc(PocRad8) DlgStatic(-1,'44 Odst.1,e)-plný inv.důchod',x83,y8+(PocRad8*I81),183) DlgEdit(832,D441,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(832,'Částka podle §15'+#13+'44 Odst. 1. písmeno e) zákona (na poživatele plného invalidního důchodu)'+#13+'Počet měsíců') DlgEdit(833,D442,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(833,'Částka podle §15'+#13+'44 Odst. 1. písmeno e) zákona (na poživatele plného invalidního důchodu) v celých Kč') Inc(PocRad8) DlgStatic(-1,'45 Odst.1,f)-držitel ZTP/P',x83,y8+(PocRad8*I81),183) DlgEdit(834,D451,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(834,'Částka podle §15'+#13+'45 Odst. 1. písmeno f) zákona (na držitele průkazu ZTP/P)'+#13+'Počet měsíců') DlgEdit(835,D452,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(835,'Částka podle §15'+#13+'45 Odst. 1. písmeno f) zákona (na držitele průkazu ZTP/P) v celých Kč') Inc(PocRad8) DlgStatic(-1,'46 Odst.1,g)-studium',x83,y8+(PocRad8*I81),183) DlgEdit(836,D461,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(836,'Částka podle §15'+#13+'46 Odst. 1. písmeno g) zákona (studium)'+#13+'Počet měsíců') DlgEdit(837,D462,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(837,'Částka podle §15'+#13+'46 Odst. 1. písmeno g) zákona (studium) v celých Kč') Inc(PocRad8) DlgStatic(-1,'47 Odst.8 - hodnota darů',x83,y8+(PocRad8*I81),183) DlgEdit(838,D472,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(838,'Částka podle §15'+#13+'47 Odst. 8. zákona (hodnota daru/darů) v celých Kč') Inc(PocRad8) DlgStatic(-1,'48 Odst.10 a 11 - odečet úroků',x83,y8+(PocRad8*I81),203) DlgEdit(839,D482,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(839,'Částka podle §15'+#13+'48 Odst. 10 a odst. 11 zákona (odečet úroků) v celých Kč') Inc(PocRad8) ; ;{============================== 9.cover ================================} ;{vykresleni 9.coveru} SetCover(8,'Str.&3') DlgDivider(303,5,0,147) x91=5 x92=207 x93=310 x94=497 x95=516 y9=2 i91=22 ;radkovani 1 i92=20 ;radkovani 2 PocRad9=0 ;pomocna promenna SirkaPolicka91=80 ;standardní šířka SirkaPolicka92=20 SirkaPolicka93=198 DlgStatic(-1,'49 Odst.12 (penzijní připoj.)',x91,y9+(PocRad9*I91),x92-2) DlgEdit(901,D49,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(901,'Částka podle §15'+#13+'49 Odst. 12 zákona (penzijní připojištění)') Inc(PocRad9) DlgStatic(-1,'50 Odst.13 (životní připoj.)',x91,y9+(PocRad9*I91),x92-2) DlgEdit(902,D50,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(902,'Částka podle §15'+#13+'50 Odst. 13 zákona (životní pojištění)') Inc(PocRad9) DlgStatic(-1,'51 Odčitat.položka §34 od.3 a 7',x91,y9+(PocRad9*I91),x92-2) DlgEdit(903,D51,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(903,'Částka podle §15'+#13+'51 Odčitatelná položka §34 odst. 3 a odst. 7 zákona') Inc(PocRad9) DlgStatic(-1,'52 Další částky',x91,y9+(PocRad9*I91),x92-2-33) DlgEdit(904,M52,x92-22,y9+(PocRad9*i91)-2,20,i91,2,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(904,'Částka podle §15'+#13+'52 Další částky (v celých Kč)') DlgEdit(905,D52,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(905,'Částka podle §15'+#13+'52 Další částky (v celých Kč)') Inc(PocRad9) DlgStatic(-1,'53 Základ daně snížený o nezd.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D53,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'54 Základ daně zaokrouhl.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D54,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'55 Daň podle §16 odst.l.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D55,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgDivider(16,y9+(PocRad9*i91)-4,x95+50,0) PocRad9=0 DlgStatic(-1,'56 Daň ...(ř.55 nebo ř.328)',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,Str(D56,12,0),x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'57 Daň ze sam.základu §16/2',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,Str(D57,12,0),x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'58 Daň celk.zaokr.na Kč nahoru',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,D58,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'59 Ztráta zaokr. na Kč nahoru',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,D59,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) Inc(PocRad9) Inc(PocRad9) Inc(PocRad9) y9=y9+5 DlgStatic(-1,'66 Na zálohách daně z příjmů ze závislé činnosti sraženo všemi zaměst.',x91,y9+(PocRad9*i91),x95-10) DlgEdit(910,D66,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(910,'6. ODDÍL - Placení daně'+#13+'66 Na zálohách daně z příjmů ze závislé činnosti sraženo všemi zaměstavateli celkem') Inc(PocRad9) DlgStatic(-1,'67 Na zbývajících zálohách zaplaceno poplatníkem celkem',x91,y9+(PocRad9*i91),x95-10) DlgEdit(911,D67,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(911,'6. ODDÍL - Placení daně'+#13+'67 Na zbývajících zálohách zaplaceno poplatníkem celkem') Inc(PocRad9) DlgStatic(-1,'68 Zaplacená daň stanovená paušální částkou podle §7a zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(912,D68,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(912,'6. ODDÍL - Placení daně'+#13+'68 Zaplacená daň stanovená paušální částkou podle §7a zákona') Inc(PocRad9) DlgStatic(-1,'69 Zaplacená částka daně sražené plátcem dle §36 odst.6 zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(913,D69,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(913,'6. ODDÍL - Placení daně'+#13+'69 Zaplacená částka daně sražené plátcem dle §36 odst.6 zákona') Inc(PocRad9) DlgStatic(-1,'70 Zajištěná daň plátcem podle §38e zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(914,D70,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(914,'6. ODDÍL - Placení daně'+#13+'70 Zajištěná daň plátcem podle §38e zákona') Inc(PocRad9) DlgStatic(-1,'71 Zaplacená daňová povinnost (záloha) podle §38gb odst.5 zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(915,D71,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(915,'6. ODDÍL - Placení daně'+#13+'71 Zaplacená daňová povinnost (záloha) podle §38gb odst.5 zákona') Inc(PocRad9) DlgStatic(-1,'72 Zbývá doplatit (ř.58-66-67-68-69-70-71). Záporná částka=zaplaceno více',x91,y9+(PocRad9*i91),x95-10) DlgStatic(-1,D72,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) ; ;{============================== 10.cover ================================} ;{vykresleni 10.coveru} SetCover(9,'Str.&4') ;DlgStatic(-1,'pokud nejsou viditelné všechny údaje, restartuje WinDUO',198,258,397) ;DlgDivider(16,74,570,0) x101=5 x102=268 x103=310 x104=575 x105=516 y10=2 i101=23 ;radkovani 1 i102=20 ;radkovani 2 PocRad10=0 ;pomocna promenna SirkaPolicka101=20 ;standardní šířka SirkaPolicka102=20 DlgStatic(-1,'Příloha č.1 - Výpočet ... - z podnikání',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1001,Pr1,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) 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 ... - ze závislé',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1002,Pr2,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1002,'Přílohy DAP'+#13+'Příloha č. 2 - "Výpočet dílčích základů daně z příjmů fyzických osob ze závislé činnosti a z funkčních požitků (§6), z pronájmu (§9) a z ostatních příjmů (§10)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.3 - Výpočet ... - za více období',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1003,Pr3,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) 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ů ze zahraničí a daně po slevách (§35 zákona)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.4 - Výpočet ... - ze samostatného',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1004,Pr4,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1004,'Přílohy DAP'+#13+'Příloha č. 4 - "Výpočet daně z příjmu ze samostatného základu daně"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'VZaZ,rozvaha a příloha - podvojné účet.',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1005,Pr5,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1005,'Přílohy DAP'+#13+'Výkaz zisku a ztráty, rozvaha a příloha pro poplatníka, který je účetní jednotkou a účtuje v soustavě podvojného účetnictví'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zdan.příjmech za závislé č.',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1006,Pr6,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1006,'Přílohy DAP'+#13+'Potvrzení o zdanitelných příjmech za závislé činnosti a z funkčních požitků a o sražených zálohách na daň za příslušné zdaňovací období od všech zaměstnavatelů dle §38j odst.3'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení o úvěru na bytové potřeby',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1007,Pr7,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1007,'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) DlgDivider(16,y10+(PocRad10*i101),570,0) PocRad10=0 DlgStatic(-1,'Potvrzení - penzijní připojištění',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1008,Pr8,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1008,'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(1009,Pr9,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1009,'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,'Seznam podle §38 odst.9 zákona',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1010,Pr10,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1010,'Přílohy DAP'+#13+'Seznam podle § 38 odstavce 9 zákona'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'"Celková částka" §24 odst.2r)',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1011,Pr11,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1011,'Přílohy DAP'+#13+'"Celková částka" k uplatnění podle §24 odst. 2 písme. r) zákona'+#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(1012,Pr12,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1012,'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,PR13,x104+2,y10+(PocRad10*i101),SirkaPolicka101) Inc(PocRad10) Inc(PocRad10) y10=y10+5 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,30) 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/mobil') Inc(PocRad10) DlgEdit(1025,Zast4,x101,y10+(PocRad10*i101)-2,250,i101,50) DlgOnLineHelp(1025,'Údaje o zástupci ... Adresa - obec') DlgEdit(1026,Zast5,x101+254,y10+(PocRad10*i101)-2,50,i101,6,,ValidBU) DlgOnLineHelp(1026,'Údaje o zástupci ... PSČ') DlgEdit(1027,Zast6,x101+307,y10+(PocRad10*i101)-2,200,i101,50) DlgOnLineHelp(1027,'Údaje o zástupci ... Ulice') 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',x101,y10+(PocRad10*i101),52) DlgEdit(1040,Prep1,x101+54,y10+(PocRad10*i101)-2,90,i101,12,ES_RIGHT,ValidBU) DlgOnLineHelp(1040,'... žádám o vrácení přeplatku ve výši .... Kč') DlgEdit(1041,Prep2,x101+150,y10+(PocRad10*i101)-2,440,i101,100) 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,40) 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,40) DlgOnLineHelp(1045,'specifický symbol') Inc(PocRad10) DlgStatic(-1,'V',x101,y10+(PocRad10*i101),10) DlgEdit(1046,Prep7,x101+12,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1046,'Žádost o vrácení přeplatku podepsána kde = místo') DlgStatic(-1,'dne',x101+268,y10+(PocRad10*i101),30) DlgEditDate(1047,Prep8,x101+300,y10+(PocRad10*i101)-2,78,i101,ValidDatum) DlgOnLineHelp(1047,'Žádost o vrácení přeplatku podepsána kdy = datum') ; ;{============================== 11.cover = protokol ==============================} ;{vykresleni 11.coveru - protokolu} SetCover(10,'Protokol') radek:INTEGER=0 IF(LENGTH(WarnDAPBplatne)<>0) begin DlgStatic(-1,WarnDAPBplatne,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnOd)<>0) begin DlgStatic(-1,WarnOd,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDo)<>0) begin DlgStatic(-1,WarnDo,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnOdDo)<>0) begin DlgStatic(-1,WarnOdDo,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnOdDoObd)<>0) begin DlgStatic(-1,WarnOdDoObd,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnLhuta)<>0) begin DlgStatic(-1,WarnLhuta,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnLhuta2)<>0) begin DlgStatic(-1,WarnLhuta2,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZapor)>0) begin DlgStatic(-1,'- seznam řádků, které jsou záporné (a nesmí být záporné):',5,(radek*20)+5,590) radek=radek+1 DlgStatic(-1,WarnZapor,5,(radek*20)+5,580) radek=radek+1 end IF(LENGTH(WarnD59)<>0) begin DlgStatic(-1,WarnD59,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnD38)<>0) begin DlgStatic(-1,WarnD38,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnOdpisNemov)<>0) begin DlgStatic(-1,WarnOdpisNemov,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnP3301)<>0) begin DlgStatic(-1,WarnP3301,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnP3302)<>0) begin DlgStatic(-1,WarnP3302,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnP3304)<>0) begin DlgStatic(-1,WarnP3304,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnP3317)<>0) begin DlgStatic(-1,WarnP3317,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnP3318)<>0) begin DlgStatic(-1,WarnP3318,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPocetPr1)<>0) begin DlgStatic(-1,WarnPocetPr1,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPocetPr2)<>0) begin DlgStatic(-1,WarnPocetPr2,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPocetPr3)<>0) begin DlgStatic(-1,WarnPocetPr3,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnD471)<>0) begin DlgStatic(-1,WarnD471,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnD472)<>0) begin DlgStatic(-1,WarnD472,3,(radek*20)+5,595) radek=radek+1 end ;{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!} SetCover(10,'Protokol',(radek<>0)) ;{zpet na obecny cover:} SetCover(0) DlgButton(287,'Přepočti',294,380); DlgOnLineHelp(287,'Uloží Vaše údaje, přepočte hodnoty formulářů a vrátí se zpět k dalšímu zadání') DlgButton(id_OK,'OK',415,380); DlgOnLineHelp(id_OK,'Přepočte hodnoty formulářů a vypočte sestavu DPPO') DlgButton(id_Cancel,'Zpět',536,380); DlgOnLineHelp(id_Cancel,'Ukončí práci bez výpočtu sestavy, Vaše poslední změny ve formulářích NEBUDOU uloženy') DlgButton(id_Help,'Help',10,380); DlgOnLineHelp(id_Help,'Help') ;DlgSetHelp(help_Context,999) DlgSetHelp(help_Context,1042) ;DlgSetHelp(help_Context,1042) ;{zpracovani dialogu (read):} ;{===========================================================================} Result:Integer=DlgExecute() end IF(Result=287) GoTo(Vypocet) IF(Result=ID_Cancel) begin DefDialog('Přerušení výpočtu',286,197) DlgShade(-1,'',4,4,278,117) DlgBitmap(902,20,18) ; :id_Abort=Integer,3 DlgStatic(-1,'Dals zpět, co včil?',100,46,142) DlgStatic(-1,'(opravdu nechcete uložit Vaše zadání?)',14,80,260) DlgButton(id_Yes,'Ano',33,128); DlgOnLineHelp(id_Yes,'Uloží Vaše údaje a skončí') DlgButton(id_No,'Ne',110,128); DlgOnLineHelp(id_No,'Ukončí práci bez uložení Vašich údajů...'+#13+'To, co jste naťukali, NEBUDE uloženo !!!') DlgButton(id_Cancel,'Zpět',187,128); DlgOnLineHelp(id_Cancel,'Návrat zpět do výpočtu') Result2:Integer=DlgExecute() IF(Result2=ID_Cancel) GoTo(Vypocet) IF(Result2=ID_No) Halt IF(Result2=ID_Yes) GoTo(Ulozeni) end begin Ulozeni: ;{ulozeni hodnot 1. coveru} SetToIni('TITULNI'+IniRok,'TypPriz1',TypPriz1,INI) SetToIni('TITULNI'+IniRok,'Obdobi',Str(Obdobi,4,0),INI) SetToIni('TITULNI'+IniRok,'DatumOd',StrDate(DatumOd),INI) SetToIni('TITULNI'+IniRok,'DatumDo',StrDate(DatumDo),INI) SetToIni('TITULNI'+IniRok,'DatumLhuta',StrDate(DatumLhuta),INI) SetToIni('TITULNI'+IniRok,'PoradceAnoNe',PoradceAnoNe,INI) SetToIni('TITULNI'+IniRok,'Priloha1AnoNe',Priloha1AnoNe,INI) SetToIni('TITULNI'+IniRok,'Priloha2AnoNe',Priloha2AnoNe,INI) SetToIni('TITULNI'+IniRok,'Priloha3AnoNe',Priloha3AnoNe,INI) SetToIni('TITULNI'+IniRok,'Priloha4AnoNe',Priloha4AnoNe,INI) ;SetToIni('TITULNI'+IniRok,'OverAuditAnoNe',OverAuditAnoNe,INI) ;SetToIni('TITULNI'+IniRok,'ZaverkaAnoNe',ZaverkaAnoNe,INI) ;SetToIni('TITULNI'+IniRok,'ZahraniciAnoNe',ZahraniciAnoNe,INI) ;SetToIni('TITULNI','HlavCinn1',HlavCinn1,INI) ;SetToIni('TITULNI','HlavCinn2',HlavCinn2,INI) ;{ulozeni hodnot 2. coveru} SetToIni('DAP'+IniRok,'P1101',P1101,INI) SetToIni('DAP'+IniRok,'P1102',P1102,INI) SetToIni('DAP'+IniRok,'P1103',P1103,INI) SetToIni('DAP'+IniRok,'P1104',P1104,INI) SetToIni('DAP'+IniRok,'P1105',P1105,INI) SetToIni('DAP'+IniRok,'P1106',P1106,INI) SetToIni('DAP'+IniRok,'P1107',P1107,INI) SetToIni('DAP'+IniRok,'P1108',P1108,INI) SetToIni('DAP'+IniRok,'P1109',P1109,INI) SetToIni('DAP'+IniRok,'P1110',P1110,INI) SetToIni('DAP'+IniRok,'P1111',P1111,INI) SetToIni('DAP'+IniRok,'P1112',P1112,INI) SetToIni('DAP'+IniRok,'CistyObrat',CistyObrat,INI) SetToIni('Ba'+IniRok,'Odpis1',Odpis1,INI) SetToIni('Ba'+IniRok,'Odpis2',Odpis2,INI) SetToIni('Ba'+IniRok,'Odpis3',Odpis3,INI) SetToIni('Ba'+IniRok,'Odpis4',Odpis4,INI) SetToIni('Ba'+IniRok,'Odpis5',Odpis5,INI) SetToIni('Ba'+IniRok,'Odpis6',Odpis6,INI) SetToIni('Ba'+IniRok,'Odpis7',Odpis7,INI) SetToIni('Ba'+IniRok,'Odpis8',Odpis8,INI) ;SetToIni('Ba'+IniRok,'PopisOdpis8',PopisOdpis8,INI) SetToIni('Ba'+IniRok,'Odpis10',Odpis10,INI) SetToIni('Ba'+IniRok,'SumaDanOdpis',SumaDanOdpis,INI) SetToIni('Ba'+IniRok,'OdpisNemov',OdpisNemov,INI) SetToIni('TITULNI'+IniRok,'DatumZah',StrDate(DatumZah),INI) SetToIni('TITULNI'+IniRok,'DatumPrer',StrDate(DatumPrer),INI) SetToIni('TITULNI'+IniRok,'DatumUkon',StrDate(DatumUkon),INI) SetToIni('TITULNI'+IniRok,'DatumObnov',StrDate(DatumObnov),INI) ;{ulozeni hodnot 3. coveru} SetToIni('DAP'+IniRok,'P1ETZvys1',P1ETZvys1,INI) SetToIni('DAP'+IniRok,'P1ETZvys2',P1ETZvys2,INI) SetToIni('DAP'+IniRok,'P1ETZvys3',P1ETZvys3,INI) SetToIni('DAP'+IniRok,'P1ETZvys4',P1ETZvys4,INI) SetToIni('DAP'+IniRok,'P1EHZvys1',P1EHZvys1,INI) SetToIni('DAP'+IniRok,'P1EHZvys2',P1EHZvys2,INI) SetToIni('DAP'+IniRok,'P1EHZvys3',P1EHZvys3,INI) SetToIni('DAP'+IniRok,'P1EHZvys4',P1EHZvys4,INI) SetToIni('DAP'+IniRok,'P1ETSniz1',P1ETSniz1,INI) SetToIni('DAP'+IniRok,'P1ETSniz2',P1ETSniz2,INI) SetToIni('DAP'+IniRok,'P1ETSniz3',P1ETSniz3,INI) SetToIni('DAP'+IniRok,'P1ETSniz4',P1ETSniz4,INI) SetToIni('DAP'+IniRok,'P1EHSniz1',P1EHSniz1,INI) SetToIni('DAP'+IniRok,'P1EHSniz2',P1EHSniz2,INI) SetToIni('DAP'+IniRok,'P1EHSniz3',P1EHSniz3,INI) SetToIni('DAP'+IniRok,'P1EHSniz4',P1EHSniz4,INI) SetToIni('DAP'+IniRok,'JmenoSdr1',JmenoSdr1,INI) SetToIni('DAP'+IniRok,'JmenoSdr2',JmenoSdr2,INI) SetToIni('DAP'+IniRok,'JmenoSdr3',JmenoSdr3,INI) SetToIni('DAP'+IniRok,'PrijmeniSdr1',PrijmeniSdr1,INI) SetToIni('DAP'+IniRok,'PrijmeniSdr2',PrijmeniSdr2,INI) SetToIni('DAP'+IniRok,'PrijmeniSdr3',PrijmeniSdr3,INI) SetToIni('DAP'+IniRok,'DICSdr1',DICSdr1,INI) SetToIni('DAP'+IniRok,'DICSdr2',DICSdr2,INI) SetToIni('DAP'+IniRok,'DICSdr3',DICSdr3,INI) SetToIni('DAP'+IniRok,'PodilP1',PodilP1,INI) SetToIni('DAP'+IniRok,'PodilP2',PodilP2,INI) SetToIni('DAP'+IniRok,'PodilP3',PodilP3,INI) SetToIni('DAP'+IniRok,'PodilV1',PodilV1,INI) SetToIni('DAP'+IniRok,'PodilV2',PodilV2,INI) SetToIni('DAP'+IniRok,'PodilV3',PodilV3,INI) SetToIni('DAP'+IniRok,'JmenoSpol1',JmenoSpol1,INI) SetToIni('DAP'+IniRok,'JmenoSpol2',JmenoSpol2,INI) SetToIni('DAP'+IniRok,'PrijmeniSpol1',PrijmeniSpol1,INI) SetToIni('DAP'+IniRok,'PrijmeniSpol2',PrijmeniSpol2,INI) SetToIni('DAP'+IniRok,'DICSpol1',DICSpol1,INI) SetToIni('DAP'+IniRok,'DICSpol2',DICSpol2,INI) SetToIni('DAP'+IniRok,'PodilSpol1',PodilSpol1,INI) SetToIni('DAP'+IniRok,'PodilSpol2',PodilSpol2,INI) SetToIni('DAP'+IniRok,'JmenoRozdel1',JmenoRozdel1,INI) SetToIni('DAP'+IniRok,'PrijmeniRozdel1',PrijmeniRozdel1,INI) SetToIni('DAP'+IniRok,'DICRozdel1',DICRozdel1,INI) SetToIni('DAP'+IniRok,'PodilRozdel1',PodilRozdel1,INI) SetToIni('DAP'+IniRok,'DICVOS',DICVOS,INI) SetToIni('DAP'+IniRok,'PodilVOS',PodilVOS,INI) ;{ulozeni hodnot 4. coveru} SetToIni('DAP'+IniRok,'P2201',P2201,INI) SetToIni('DAP'+IniRok,'P2202',P2202,INI) SetToIni('DAP'+IniRok,'P2203',P2203,INI) ;SetToIni('DAP'+IniRok,'P2204',P2204,INI) SetToIni('DAP'+IniRok,'P2VydProcentem',P2VydProcentem,INI) SetToIni('DAP'+IniRok,'P2SpolJmeni',P2SpolJmeni,INI) SetToIni('DAP'+IniRok,'P2205',P2205,INI) SetToIni('DAP'+IniRok,'P2206',P2206,INI) ;SetToIni('DAP'+IniRok,'P2207',P2207,INI) SetToIni('DAP'+IniRok,'P2208',P2208,INI) SetToIni('DAP'+IniRok,'P2209',P2209,INI) ;SetToIni('DAP'+IniRok,'P2210',P2210,INI) SetToIni('DAP'+IniRok,'P2211',P2211,INI) SetToIni('DAP'+IniRok,'P2212',P2212,INI) ;SetToIni('DAP'+IniRok,'P2213',P2213,INI) SetToIni('DAP'+IniRok,'P2Druh1',P2Druh1,INI) SetToIni('DAP'+IniRok,'P2Druh2',P2Druh2,INI) SetToIni('DAP'+IniRok,'P2Druh3',P2Druh3,INI) SetToIni('DAP'+IniRok,'P2Druh4',P2Druh4,INI) SetToIni('DAP'+IniRok,'P2Prijem1',P2Prijem1,INI) SetToIni('DAP'+IniRok,'P2Prijem2',P2Prijem2,INI) SetToIni('DAP'+IniRok,'P2Prijem3',P2Prijem3,INI) SetToIni('DAP'+IniRok,'P2Prijem4',P2Prijem4,INI) SetToIni('DAP'+IniRok,'P2Vydaj1',P2Vydaj1,INI) SetToIni('DAP'+IniRok,'P2Vydaj2',P2Vydaj2,INI) SetToIni('DAP'+IniRok,'P2Vydaj3',P2Vydaj3,INI) SetToIni('DAP'+IniRok,'P2Vydaj4',P2Vydaj4,INI) SetToIni('DAP'+IniRok,'P2Kod1',P2Kod1,INI) SetToIni('DAP'+IniRok,'P2Kod2',P2Kod2,INI) SetToIni('DAP'+IniRok,'P2Kod3',P2Kod3,INI) SetToIni('DAP'+IniRok,'P2Kod4',P2Kod4,INI) ;{ulozeni hodnot 5. coveru} ;SetToIni('DAP'+IniRok,'P3301',P3301,INI) SetToIni('DAP'+IniRok,'P3302',P3302,INI) ; SetToIni('DAP'+IniRok,'P3303',P3303,INI) SetToIni('DAP'+IniRok,'P3304',P3304,INI) SetToIni('DAP'+IniRok,'P3305',P3305,INI) ;SetToIni('DAP'+IniRok,'P3306',P3306,INI) ;SetToIni('DAP'+IniRok,'P3307',P3307,INI) ;SetToIni('DAP'+IniRok,'P3308',P3308,INI) ;SetToIni('DAP'+IniRok,'P3309',P3309,INI) ;SetToIni('DAP'+IniRok,'P3310',P3310,INI) SetToIni('DAP'+IniRok,'P3311',P3311,INI) SetToIni('DAP'+IniRok,'P3312',P3312,INI) ;SetToIni('DAP'+IniRok,'P3313',P3313,INI) SetToIni('DAP'+IniRok,'P3314',P3314,INI) ;SetToIni('DAP'+IniRok,'P3315',P3315,INI) ;SetToIni('DAP'+IniRok,'P3316',P3316,INI) ;{ulozeni hodnot 6. coveru} SetToIni('DAP'+IniRok,'P3317',P3317,INI) SetToIni('DAP'+IniRok,'P3318',P3318,INI) ;SetToIni('DAP'+IniRok,'P3319',P3319,INI) ;SetToIni('DAP'+IniRok,'P3320',P3320,INI) SetToIni('DAP'+IniRok,'P3321',P3321,INI) SetToIni('DAP'+IniRok,'P3322',P3322,INI) SetToIni('DAP'+IniRok,'P3323',P3323,INI) ;SetToIni('DAP'+IniRok,'P3324',P3324,INI) ;SetToIni('DAP'+IniRok,'P3325',P3325,INI) ;SetToIni('DAP'+IniRok,'P3326',P3326,INI) ;SetToIni('DAP'+IniRok,'P3327',P3327,INI) ;SetToIni('DAP'+IniRok,'P3328',P3328,INI) SetToIni('DAP'+IniRok,'P3ZPS1P',P3ZPS1P,INI) SetToIni('DAP'+IniRok,'P3ZPS1H',P3ZPS1H,INI) SetToIni('DAP'+IniRok,'P3ZPS2P',P3ZPS2P,INI) SetToIni('DAP'+IniRok,'P3ZPS2H',P3ZPS2H,INI) ;{ulozeni hodnot 7 coveru} ;{ulozeni hodnot 8 coveru} SetToIni('DAP'+IniRok,'D33',D33,INI) SetToIni('DAP'+IniRok,'D38',D38,INI) SetToIni('DAP'+IniRok,'D59',D59,INI) SetToIni('DAP'+IniRok,'Duch',Duch,INI) SetToIni('DAP','ManzelJmeno',ManzelJmeno,INI) SetToIni('DAP','ManzelRC',ManzelRC,INI) SetToIni('DAP','DiteJmeno1',DiteJmeno1,INI) SetToIni('DAP','DiteRC1',DiteRC1,INI) SetToIni('DAP','DiteMesic1',DiteMesic1,INI) SetToIni('DAP','DiteZTP1',DiteZTP1,INI) SetToIni('DAP','DiteJmeno2',DiteJmeno2,INI) SetToIni('DAP','DiteRC2',DiteRC2,INI) SetToIni('DAP','DiteMesic2',DiteMesic2,INI) SetToIni('DAP','DiteZTP2',DiteZTP2,INI) SetToIni('DAP','DiteJmeno3',DiteJmeno3,INI) SetToIni('DAP','DiteRC3',DiteRC3,INI) SetToIni('DAP','DiteMesic3',DiteMesic3,INI) SetToIni('DAP','DiteZTP3',DiteZTP3,INI) SetToIni('DAP','DiteJmeno4',DiteJmeno4,INI) SetToIni('DAP','DiteRC4',DiteRC4,INI) SetToIni('DAP','DiteMesic4',DiteMesic4,INI) SetToIni('DAP','DiteZTP4',DiteZTP4,INI) SetToIni('DAP'+IniRok,'D402',D402,INI) SetToIni('DAP'+IniRok,'D411A',D411A,INI) SetToIni('DAP'+IniRok,'D412A',D412A,INI) SetToIni('DAP'+IniRok,'D411B',D411B,INI) SetToIni('DAP'+IniRok,'D412B',D412B,INI) SetToIni('DAP'+IniRok,'D421A',D421A,INI) SetToIni('DAP'+IniRok,'D422A',D422A,INI) SetToIni('DAP'+IniRok,'D421B',D421B,INI) SetToIni('DAP'+IniRok,'D422B',D422B,INI) SetToIni('DAP'+IniRok,'D431',D431,INI) SetToIni('DAP'+IniRok,'D432',D432,INI) SetToIni('DAP'+IniRok,'D441',D441,INI) SetToIni('DAP'+IniRok,'D442',D442,INI) SetToIni('DAP'+IniRok,'D451',D451,INI) SetToIni('DAP'+IniRok,'D452',D452,INI) SetToIni('DAP'+IniRok,'D461',D461,INI) SetToIni('DAP'+IniRok,'D462',D462,INI) SetToIni('DAP'+IniRok,'D472',D472,INI) SetToIni('DAP'+IniRok,'D482',D482,INI) ;{ulozeni hodnot 9. coveru} SetToIni('DAP'+IniRok,'D49',D49,INI) SetToIni('DAP'+IniRok,'D50',D50,INI) SetToIni('DAP'+IniRok,'D51',D51,INI) SetToIni('DAP'+IniRok,'D52',D52,INI) SetToIni('DAP'+IniRok,'M52',M52,INI) ;SetToIni('DAP'+IniRok,'D53',D53,INI) ;SetToIni('DAP'+IniRok,'D54',D54,INI) SetToIni('DAP'+IniRok,'D55',D55,INI) SetToIni('DAP'+IniRok,'D56',D56,INI) SetToIni('DAP'+IniRok,'D57',D57,INI) SetToIni('DAP'+IniRok,'D58',D58,INI) SetToIni('DAP'+IniRok,'D59',D59,INI) SetToIni('DAP'+IniRok,'D66',D66,INI) SetToIni('DAP'+IniRok,'D67',D67,INI) SetToIni('DAP'+IniRok,'D68',D68,INI) SetToIni('DAP'+IniRok,'D69',D69,INI) SetToIni('DAP'+IniRok,'D70',D70,INI) SetToIni('DAP'+IniRok,'D71',D71,INI) ;SetToIni('DAP'+IniRok,'D72',D72,INI) ;{ulozeni hodnot 10. coveru} SetToIni('DAP'+IniRok,'Pr1',Pr1,INI) SetToIni('DAP'+IniRok,'Pr2',Pr2,INI) SetToIni('DAP'+IniRok,'Pr3',Pr3,INI) SetToIni('DAP'+IniRok,'Pr4',Pr4,INI) SetToIni('DAP'+IniRok,'Pr5',Pr5,INI) SetToIni('DAP'+IniRok,'Pr6',Pr6,INI) SetToIni('DAP'+IniRok,'Pr7',Pr7,INI) SetToIni('DAP'+IniRok,'Pr8',Pr8,INI) SetToIni('DAP'+IniRok,'Pr9',Pr9,INI) SetToIni('DAP'+IniRok,'Pr10',Pr10,INI) SetToIni('DAP'+IniRok,'Pr11',Pr11,INI) SetToIni('DAP'+IniRok,'Pr12',Pr12,INI) ;SetToIni('DAP'+IniRok,'Pr13',Pr13,INI) SetToIni('DAP'+IniRok,'Kde4',Kde4,INI) SetToIni('DAP'+IniRok,'Kdy4',StrDate(Kdy4),INI) SetToIni('DAP'+IniRok,'Zast1',Zast1,INI) SetToIni('DAP'+IniRok,'Zast2',Zast2,INI) SetToIni('DAP'+IniRok,'Zast3',Zast3,INI) SetToIni('DAP'+IniRok,'Zast4',Zast4,INI) SetToIni('DAP'+IniRok,'Zast5',Zast5,INI) SetToIni('DAP'+IniRok,'Zast6',Zast6,INI) SetToIni('DAP'+IniRok,'Zast7',Zast7,INI) SetToIni('DAP'+IniRok,'Prep1',Prep1,INI) SetToIni('DAP'+IniRok,'Prep2',Prep2,INI) SetToIni('DAP'+IniRok,'Prep3',Prep3,INI) SetToIni('DAP'+IniRok,'Prep4',Prep4,INI) SetToIni('DAP'+IniRok,'Prep5',Prep5,INI) SetToIni('DAP'+IniRok,'Prep6',Prep6,INI) SetToIni('DAP'+IniRok,'Prep7',Prep7,INI) SetToIni('DAP'+IniRok,'Prep8',StrDate(Prep8),INI) end IF(Result=ID_OK) ;pri OK jede tudy na tisk sestavy GoTo(Vypocet) IF(Result2=ID_Yes) Halt Tisk: ;{================================================ str. 1 ========================} ; ;{tisk 1. strany:} begin PEN(0,0.1) FONTSIZE(3.2) FONTFACE(NORMAL) ROUNDBOXA(18,6,98,12,3.3,3.3) Text(18,5,TA_LEFT|TA_BASELINE,'Finančnímu úřadu') FONTFACE(Italic|BOLD) Text(21,10.5,TA_LEFT|TA_BASELINE,FinancniUrad) ROUNDBOXA(18,18,88,24,3.3,3.3) LINESA(23,22.5,23,24,5,0,13) LINEA(34,21.5,37,21.5) FONTFACE(NORMAL) Text(18,17,TA_LEFT|TA_BASELINE,'01 Daňové identifikační číslo') FONTFACE(Italic|BOLD) if(CompareStr(Copy(Program.Dic,1,2),'CZ')) begin STEXT(20,21.5,TA_LEFT|TA_BASELINE,5,3,'CZ') STEXT(40,21.5,TA_LEFT|TA_BASELINE,5,10,FromChar('Z',Program.DIC)) end else begin STEXT(20,21.5,TA_LEFT|TA_BASELINE,5,3,ToChar('-',Program.DIC)) STEXT(40,21.5,TA_LEFT|TA_BASELINE,5,10,FromChar('-',Program.DIC)) end ROUNDBOXA(18,30,73,36,3.3,3.3) LINESA(23,34.5,23,36,5,0,10) FONTFACE(NORMAL) Text(18,29,TA_LEFT|TA_BASELINE,'02 Rodné číslo') FONTFACE(Italic|BOLD) STEXT(20,33.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) ROUNDBOXA(113,20,193,55,3.3,3.3) FONTFACE(NORMAL) FONTSIZE(2.7) Text(153,52.5,TA_CENTER|TA_BASELINE,'Otisk prezentačního razítka finančního úřadu') FONTSIZE(7) FONTFACE(NORMAL|BOLD) Text(106,69,TA_CENTER|TA_BASELINE,'PŘIZNÁNÍ') ROUNDBOXA(169,64,193,76,3.3,3.3) FONTSIZE(10) Text(181,73,TA_CENTER|TA_BASELINE,'B') FONTSIZE(5) Text(105,75,TA_CENTER|TA_BASELINE,'k dani z příjmů fyzických osob') Text(105,81,TA_CENTER|TA_BASELINE,'dále jen "DAP"') FONTSIZE(4.2) XText(18,88,72,TA_LEFT|TA_BASELINE,'za zdaňovací období (kalendářní rok)') ROUNDBOXA(92,84,109,90,3.3,3.3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XTEXT(100.5,88,16,TA_Center|TA_BASELINE,Str(Obdobi,4,0)) FONTSIZE(4.2) FONTFACE(NORMAL|BOLD) XText(111,88,37,TA_LEFT|TA_BASELINE,'nebo jeho část, od') ROUNDBOXA(151,84,168,90,3.3,3.3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XTEXT(159.5,88,16,TA_Center|TA_BASELINE,StrDate(DatumOd)) FONTSIZE(4.2) FONTFACE(NORMAL|BOLD) Text(169,88,TA_LEFT|TA_BASELINE,'do') ROUNDBOXA(176,84,193,90,3.3,3.3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XTEXT(184.5,88,16,TA_Center|TA_BASELINE,StrDate(DatumDo)) FONTFACE(NORMAL|BOLD) FONTSIZE(4.2) XText(18,95,174,TA_LEFT|TA_BASELINE,'podle zákona č. 586/1992 Sb., o daních z příjmů, ve znění pozdějších předpisů, dále jen "zákon"') FONTSIZE(3.2) FONTFACE(NORMAL) Text(18,101,TA_LEFT|TA_BASELINE,'03 Typ DAP') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(22,105,TA_LEFT|TA_BASELINE,'řádné') ROUNDBOXA(22,106,32,111,3.3,3.3) Text(45,105,TA_LEFT|TA_BASELINE,'opravné') ROUNDBOXA(45,106,55,111,3.3,3.3) Text(68,105,TA_LEFT|TA_BASELINE,'dodatečné') ROUNDBOXA(68,106,78,111,3.3,3.3) IF(TypPriz1=0) begin LINEA(24,107,30,110) LINEA(24,110,30,107) end; IF(TypPriz1=1) begin LINEA(47,107,53,110) LINEA(47,110,53,107) end; ; IF(TypPriz1=2) ; begin ; LINEA(70,107,76,110) ; LINEA(70,110,76,107) ; end; Text(108,108,TA_LEFT|TA_BASELINE,'Důvody pro podání dodatečného') Text(108,111.4,TA_LEFT|TA_BASELINE,'DAP zjištěny dne') ROUNDBOXA(153,106,193,111,3.3,3.3) LINESA(158,109.5,158,111,10,0,2) LINESA(163,109,163,111,10,0,2) LINESA(178,109.5,178,111,5,0,3) Text(18,101+16,TA_LEFT|TA_BASELINE,'04 Kód rozlišení typu DAP') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(22,105+16,TA_LEFT|TA_BASELINE,'prohlášení') Text(22,105+19,TA_LEFT|TA_BASELINE,'konkursu') ROUNDBOXA(22,106+19,32,111+19,3.3,3.3) Text(45,105+16,TA_LEFT|TA_BASELINE,'zrušení') Text(45,105+19,TA_LEFT|TA_BASELINE,'konkursu') ROUNDBOXA(45,106+19,55,111+19,3.3,3.3) Text(68,105+19,TA_LEFT|TA_BASELINE,'úmrtí') ROUNDBOXA(68,106+19,78,111+19,3.3,3.3) IF(KodRozlis1=1) begin LINEA(24,107+19,30,110+19) LINEA(24,110+19,30,107+19) end; IF(KodRozlis1=2) begin LINEA(47,107+19,53,110+19) LINEA(47,110+19,53,107+19) end; IF(KodRozlis1=3) begin LINEA(70,107+19,76,110+19) LINEA(70,110+19,76,107+19) end; Text(141,111.4+19,TA_LEFT|TA_BASELINE,'Datum') ROUNDBOXA(153,106+19,193,111+19,3.3,3.3) LINESA(158,109.5+19,158,111+19,10,0,2) LINESA(163,109+19,163,111+19,10,0,2) LINESA(178,109.5+19,178,111+19,5,0,3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) STEXT(155,128.5,TA_LEFT|TA_BASELINE,5,2,Day(DatumRozlis,2)) STEXT(165,128.5,TA_LEFT|TA_BASELINE,5,2,Month(DatumRozlis,2)) STEXT(175,128.5,TA_LEFT|TA_BASELINE,5,4,Year(DatumRozlis,4)) FONTFACE(NORMAL) FONTSIZE(3.2) Text(18,139,TA_LEFT|TA_BASELINE,'04 DAP zpracoval a předkládá daňový poradce na základě plné moci k zastupování,') Text(22,143,TA_LEFT|TA_BASELINE,'která byla podána správci daně před uplynutím neprodloužené lhůty') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FONTFACE(NORMAL) Text(168,137,TA_Center|TA_BASELINE,'ano') Text(188,137,TA_Center|TA_BASELINE,'ne') ROUNDBOXA(163,138,173,144,3.3,3.3) ROUNDBOXA(183,138,193,144,3.3,3.3) IF(PoradceAnoNe) begin LINEA(165,139,171,143) LINEA(165,143,171,139) end else begin LINEA(185,139,191,143) LINEA(185,143,191,139) end FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) TEXT(106,149,TA_Center|TA_BASELINE,'1. ODDÍL - Údaje o poplatníkovi') PEN(0,0.3) ROUNDBOXA(18,151,193,171,3.3,3.3) PEN(0,0.1) LINEA(18,161,193,161) LINEA(88,151,88,171) LINEA(152,151,152,161) LINEA(133,161,133,171) FONTSIZE(3.2) FONTFACE(NORMAL) Text(20,154,TA_LEFT|TA_BASELINE,'06 Příjmení') Text(90,154,TA_LEFT|TA_BASELINE,'07 Rodné jméno') Text(154,154,TA_LEFT|TA_BASELINE,'08 Jméno') Text(20,164,TA_LEFT|TA_BASELINE,'09 Titul') Text(90,164,TA_LEFT|TA_BASELINE,'10 Státní příslušnost') Text(135,164,TA_LEFT|TA_BASELINE,'11 Číslo pasu') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(53,158,64,TA_Center|TA_BASELINE,Prijmeni) XText(120,158,60,TA_Center|TA_BASELINE,RodnePrijmeni) XText(172,158,37,TA_Center|TA_BASELINE,Jmeno) XText(53,168,64,TA_Center|TA_BASELINE,Titul) XText(110,168,40,TA_Center|TA_BASELINE,StatPrislusnost) XText(164,168,52,TA_Center|TA_BASELINE,CisloPasu) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) TEXT(18,178,TA_LEFT|TA_BASELINE,'Adresa bydliště (trvalého pobytu) v den podání DAP') PEN(0,0.3) ROUNDBOXA(18,180,193,200,3.3,3.3) PEN(0,0.1) LINEA(18,190,193,190) LINEA(73,180,73,190) LINEA(153,180,153,200) LINEA(44,190,44,200) LINEA(88,190,88,200) FONTSIZE(3.2) FONTFACE(NORMAL) Text(20,183,TA_LEFT|TA_BASELINE,'12 Obec') Text(75,183,TA_LEFT|TA_BASELINE,'13 Ulice') XText(155,183,37,TA_LEFT|TA_BASELINE,'14 Číslo popisné / orientační') Text(20,193,TA_LEFT|TA_BASELINE,'15 PSČ') XText(46,193,43,TA_LEFT|TA_BASELINE,'16 Telefon / mobilní telefon') Text(90,193,TA_LEFT|TA_BASELINE,'17 Fax / e-mail') Text(155,193,TA_LEFT|TA_BASELINE,'18 Stát') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(40,187,52,TA_Center|TA_BASELINE,ObecDapb) XText(113,187,77,TA_Center|TA_BASELINE,UliceDapb) XText(173,187,36,TA_Center|TA_BASELINE,CisloPODapb) XText(31,197,22,TA_Center|TA_BASELINE,PSCDapb) XText(66,197,43,TA_Center|TA_BASELINE,TelefonDapb) XText(120,197,62,TA_Center|TA_BASELINE,FaxDapb) XText(173,197,36,TA_Center|TA_BASELINE,Stat) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) XTEXT(18,208,175,TA_LEFT|TA_BASELINE,'Adresa bydliště (trvalého pobytu) k poslednímu dni kalendářního roku, za který se daň vyměřuje') FONTSIZE(3.2) FONTFACE(NORMAL) XTEXT(18,211.5,175,TA_LEFT|TA_BASELINE,'Řádky 19 až 22 vyplňte pouze v případě, že adresa k poslednímu dni kalendářního roku, za který se DAP podává, je rozdílná od adresy') TEXT(18,214.5,TA_LEFT|TA_BASELINE,'v den podání DAP') PEN(0,0.3) ROUNDBOXA(18,217,193,227,3.3,3.3) PEN(0,0.1) LINEA(73,217,73,227) LINEA(128,217,128,227) LINEA(168,217,168,227) Text(20,220,TA_LEFT|TA_BASELINE,'19 Obec') Text(75,220,TA_LEFT|TA_BASELINE,'20 Ulice') XText(130,220,37,TA_LEFT|TA_BASELINE,'21 Číslo popisné / orientační') Text(170,220,TA_LEFT|TA_BASELINE,'22 PSČ') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(46,224,52,TA_Center|TA_BASELINE,ObecTP) XText(100,224,52,TA_Center|TA_BASELINE,UliceTP) XText(148,224,38,TA_Center|TA_BASELINE,CisloPOTP) XText(180,224,22,TA_Center|TA_BASELINE,PSCTP) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) XTEXT(18,233,175,TA_LEFT|TA_BASELINE,'Adresa pobytu na území České republiky, kde se poplatník obvykle ve zdaňovacím období zdržoval') FONTSIZE(3.2) FONTFACE(NORMAL) XTEXT(18,236.5,175,TA_LEFT|TA_BASELINE,'Řádky 23 až 28 vyplňte pouze v případě, že nemáte bydliště (trvalý pobyt) na území ČR') PEN(0,0.3) ROUNDBOXA(18,238,193,258,3.3,3.3) PEN(0,0.1) LINEA(18,248,193,248) LINEA(73,238,73,258) LINEA(122,248,122,258) LINEA(153,238,153,248) Text(20,241,TA_LEFT|TA_BASELINE,'23 Obec') Text(75,241,TA_LEFT|TA_BASELINE,'24 Ulice') XText(155,241,37,TA_LEFT|TA_BASELINE,'25 Číslo popisné / orientační') Text(20,251,TA_LEFT|TA_BASELINE,'26 PSČ') XText(75,251,46,TA_LEFT|TA_BASELINE,'27 Telefon / mobilní telefon') Text(124,251,TA_LEFT|TA_BASELINE,'28 Fax / e-mail') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(46,245,52,TA_Center|TA_BASELINE,ObecZdrz) XText(113,245,77,TA_Center|TA_BASELINE,UliceZdrz) XText(173,245,36,TA_Center|TA_BASELINE,CisloPOZdrz) XText(46,255,52,TA_Center|TA_BASELINE,PSCZdrz) XText(97,255,46,TA_Center|TA_BASELINE,TelefonZdrz) XText(157,255,68,TA_Center|TA_BASELINE,FaxZdrz) FONTSIZE(3.2) FONTFACE(NORMAL) XTEXT(18,265,56,TA_LEFT|TA_BASELINE,'29 Kód státu - vyplní jen daňový nerezident') PEN(0,0.1) LocR:Real=10 if(Length(Trim(KodStat))>2) LocR=Length(Trim(KodStat))*1.1 ROUNDBOXA(75,261,75+LocR,266,3.3,3.3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(75+(LocR/2),265,LocR-2,TA_Center|TA_BASELINE,KodStat) FONTSIZE(3.2) FONTFACE(NORMAL) XTEXT(18,273,85,TA_LEFT|TA_BASELINE,'30 Ekonomické nebo personální spojení se zahraničními osobami') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); TEXT(122,268,TA_Center|TA_BASELINE,'ano') TEXT(137,268,TA_Center|TA_BASELINE,'ne') PEN(0,0.1) ROUNDBOXA(117,269,127,274,3.3,3.3) ROUNDBOXA(132,269,142,274,3.3,3.3) if(EkPropojeniAnoNe) begin LINEA(119,270,125,273) LINEA(119,273,125,270) end else begin LINEA(134,270,140,273) LINEA(134,273,140,270) end FONTSIZE(2.5) TEXT(18,276,TA_LEFT|TA_BASELINE,'25 5405 MFin 5405 vzor č. 10') Text(193,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') FONTSIZE(2.5) Text(106,277,TA_CENTER|TA_BASELINE,'1') end ;{================================================ str. 2 ========================} ;{tisk 2. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(0,4,175,86,3.3,3.3) PEN(0,0.1) LINESA(0,15,175,15,0,8,9) LINEA(85,4,85,86) LINEA(130,9,130,86) LINEA(85,9,175,9) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87,3,TA_Center|TA_BASELINE,'2. ODDÍL - Základ daně, ztráta') FontSize(3.2) FONTFACE(NORMAL) Text(130,7.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(107,13,TA_CENTER|TA_BASELINE,'poplatník') Text(152,13,TA_CENTER|TA_BASELINE,'finanční úřad') Text(2,18.5,TA_Left|TA_BASELINE,'31') Text(6,18.5,TA_Left|TA_BASELINE,'Dílčí základ daně ze závislé činnosti podle § 6 zákona') Text(6,21.5,TA_Left|TA_BASELINE,'(ř. 204 přílohy č. 2 DAP)') Text(2,26.5,TA_Left|TA_BASELINE,'32') Text(6,26.5,TA_Left|TA_BASELINE,'Dílčí základ daně nebo ztráta z podnikání a jiné samostatné') Text(6,29.5,TA_Left|TA_BASELINE,'výdělečné činnosti podle § 7 zákona (ř. 113 přílohy č. 1 DAP).') Text(2,36,TA_Left|TA_BASELINE,'33') Text(6,36,TA_Left|TA_BASELINE,'Dílčí základ daně z kapitálového majetku podle § 8 zákona') Text(2,42.5,TA_Left|TA_BASELINE,'34') Text(6,42.5,TA_Left|TA_BASELINE,'Dílčí základ daně nebo ztráta z pronájmu podle § 9 zákona') Text(6,45.5,TA_Left|TA_BASELINE,'(ř. 210 přílohy č. 2 DAP).') Text(2,50.5,TA_Left|TA_BASELINE,'35') Text(6,50.5,TA_Left|TA_BASELINE,'Dílčí základ daně z ostatních příjmů podle § 10 zákona') Text(6,53.5,TA_Left|TA_BASELINE,'(ř. 213 přílohy č. 2 DAP)') Text(2,58.5,TA_Left|TA_BASELINE,'36') Text(6,58.5,TA_Left|TA_BASELINE,'Úhrn řádků (ř. 32 + ř. 33 + ř. 34 + ř. 35) pro odečet ztráty') Text(6,61.5,TA_Left|TA_BASELINE,'podle § 34 odst. 1 zákona.') Text(2,68,TA_Left|TA_BASELINE,'37') Text(6,68,TA_Left|TA_BASELINE,'Základ daně (ř. 31 + kladná hodnota z ř. 36)') Text(2,74.5,TA_Left|TA_BASELINE,'38') Text(6,74.5,TA_Left|TA_BASELINE,'Uplatňovaná výše vzniklé a vyměřené ztráty za předcházející') Text(6,77.5,TA_Left|TA_BASELINE,'zdaňovací období maximálně do výše ř. 36') Text(2,84,TA_Left|TA_BASELINE,'39') Text(6,84,TA_Left|TA_BASELINE,'Základ daně po odečtení ztráty (ř. 37 - ř. 38)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(D31<>0) Text(122,20,TA_Right|TA_BASELINE,StrFinanc(D31,0)) else Text(122,20,TA_Right|TA_BASELINE,skrt) if(D32<>0) Text(122,28,TA_Right|TA_BASELINE,StrFinanc(D32,0)) else Text(122,28,TA_Right|TA_BASELINE,skrt) if(D33<>0) Text(122,36,TA_Right|TA_BASELINE,StrFinanc(D33,0)) else Text(122,36,TA_Right|TA_BASELINE,skrt) if(D34<>0) Text(122,44,TA_Right|TA_BASELINE,StrFinanc(D34,0)) else Text(122,44,TA_Right|TA_BASELINE,skrt) if(D35<>0) Text(122,52,TA_Right|TA_BASELINE,StrFinanc(D35,0)) else Text(122,52,TA_Right|TA_BASELINE,skrt) if(D36<>0) Text(122,60,TA_Right|TA_BASELINE,StrFinanc(D36,0)) else Text(122,60,TA_Right|TA_BASELINE,skrt) if(D37<>0) Text(122,68,TA_Right|TA_BASELINE,StrFinanc(D37,0)) else Text(122,68,TA_Right|TA_BASELINE,skrt) if(D38<>0) Text(122,76,TA_Right|TA_BASELINE,StrFinanc(D38,0)) else Text(122,76,TA_Right|TA_BASELINE,skrt) if(D37-D38<>0) Text(122,84,TA_Right|TA_BASELINE,StrFinanc(D37-D38,0)) else Text(122,84,TA_Right|TA_BASELINE,skrt) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87,93,TA_Center|TA_BASELINE,'3. ODDÍL - Nezdanitelné části základu daně, odčitatelné položky a daň celkem') FontSize(3.2) FONTFACE(NORMAL) Text(0,97.5,TA_Left|TA_BASELINE,'tab. č. 1 ÚDAJE KE ZJIŠTĚNÍ NÁROKŮ NA UPLATNĚNÍ NEZDANITELNÉ ČÁSTI ZÁKLADU PODLE § 15 ZÁKONA.') Text(0,101,TA_Left|TA_BASELINE,'Údaje vyplňte pouze v případě, že uplatňujete nezdanitelné části základu daně podle §15 zákona, tzn. částky na řádku 40, 41a, 41b, 42a, 42b') PEN(0,0.3) ROUNDBOXA(0,102,175,173,3.3,3.3) PEN(0,0.1) LINEA(0,107,175,107) LINEA(0,115,175,115) LINEA(0,120,175,120) LINESA(0,128,175,128,0,8,2) LINEA(5,144,175,144) LINESA(0,149,175,149,0,6,4) LINEA(115,107,115,115) LINEA(31,120,31,128) LINEA(115,120,115,128) LINEA(134,120,134,128) LINEA(5,136,5,173) LINEA(100,136,100,173) LINEA(135,136,135,173) LINEA(154,136,154,173) FontSize(3.2) FONTFACE(NORMAL|BOLD) Text(87,105.6,TA_Center|TA_BASELINE,'ÚDAJE O STAROBNÍM DŮCHODU') FONTFACE(NORMAL) Text(2,110.5,TA_Left|TA_BASELINE,'Pobíral-li jste k 1.1. zdaňovacího období starobní důchod ze sociálního zabezpečení') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(2,113.5,TA_Left|TA_BASELINE,'uveďte jeho roční výši pouze v případě, uplatňujete-li nezdanitelnou část základu daně') Text(172,113.5,TA_Right|TA_BASELINE,'(Kč)') FONTFACE(NORMAL|BOLD) Text(87,118.6,TA_Center|TA_BASELINE,'ÚDAJE O MANŽELCE (MANŽELOVI)') FONTFACE(NORMAL) Text(2,125,TA_Left|TA_BASELINE,'Příjmení, jméno, titul') Text(117,125,TA_Left|TA_BASELINE,'Rodné číslo') FONTFACE(NORMAL|BOLD) Text(87,131.5,TA_Center|TA_BASELINE,'ÚDAJE O DĚTECH ŽIJÍCÍCH V DOMÁCNOSTI, NA KTERÉ UPLATŇUJETE NEZDANITELNOU ČÁST ZÁKLADU DANĚ') Text(87,134.5,TA_Center|TA_BASELINE,'A KTERÉ ZA STEJNÉ OBDOBÍ NEUPLATNIL JINÝ POPLATNÍK') FONTFACE(NORMAL) Text(53,141,TA_Center|TA_BASELINE,'Příjmení a jméno') Text(117,141,TA_Center|TA_BASELINE,'Rodné číslo') Text(144.5,141,TA_Center|TA_BASELINE,'Počet měsíců') Text(164.5,139.5,TA_Center|TA_BASELINE,'Počet měsíců') Text(164.5,142.5,TA_Center|TA_BASELINE,'se ZTP/P') Text(53,147.5,TA_Center|TA_BASELINE,'1') Text(117,147.5,TA_Center|TA_BASELINE,'2') Text(144.5,147.5,TA_Center|TA_BASELINE,'3') Text(164.5,147.5,TA_Center|TA_BASELINE,'4') Text(2.5,153,TA_Center|TA_BASELINE,'1') Text(2.5,159,TA_Center|TA_BASELINE,'2') Text(2.5,165,TA_Center|TA_BASELINE,'3') Text(2.5,171,TA_Center|TA_BASELINE,'4') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Duch<>0) Text(160,113.5,TA_Right|TA_BASELINE,StrFinanc(Duch,0)) else Text(160,113.5,TA_Right|TA_BASELINE,skrt) if(Length(Trim(ManzelJmeno))<>0) XText(73,125,82,TA_Center|TA_BASELINE,ManzelJmeno) else Text(73,125,TA_Center|TA_BASELINE,skrt) if(Length(Trim(ManzelRC))<>0) XText(155,125,38,TA_Center|TA_BASELINE,ManzelRC) else Text(155,125,TA_Center|TA_BASELINE,skrt) if(Length(Trim(DiteJmeno1))<>0) XText(10,153,92,TA_Left|TA_BASELINE,DiteJmeno1) else Text(10,153,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC1))<>0) XText(117,153,92,TA_Center|TA_BASELINE,DiteRC1) else Text(117,153,TA_Center|TA_BASELINE,skrt) if(DiteMesic1<>0) XText(145,153,18,TA_Center|TA_BASELINE,DiteMesic1) else Text(145,153,TA_Center|TA_BASELINE,skrt) if(DiteZTP1<>0) XText(165,153,18,TA_Center|TA_BASELINE,DiteZTP1) else Text(165,153,TA_Center|TA_BASELINE,skrt) if(Length(Trim(DiteJmeno2))<>0) XText(10,159,92,TA_Left|TA_BASELINE,DiteJmeno2) else Text(10,159,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC2))<>0) XText(117,159,92,TA_Center|TA_BASELINE,DiteRC2) else Text(117,159,TA_Center|TA_BASELINE,skrt) if(DiteMesic2<>0) XText(145,159,18,TA_Center|TA_BASELINE,DiteMesic2) else Text(145,159,TA_Center|TA_BASELINE,skrt) if(DiteZTP2<>0) XText(165,159,18,TA_Center|TA_BASELINE,DiteZTP2) else Text(165,159,TA_Center|TA_BASELINE,skrt) if(Length(Trim(DiteJmeno3))<>0) XText(10,165,92,TA_Left|TA_BASELINE,DiteJmeno3) else Text(10,165,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC3))<>0) XText(117,165,92,TA_Center|TA_BASELINE,DiteRC3) else Text(117,165,TA_Center|TA_BASELINE,skrt) if(DiteMesic3<>0) XText(145,165,18,TA_Center|TA_BASELINE,DiteMesic3) else Text(145,165,TA_Center|TA_BASELINE,skrt) if(DiteZTP3<>0) XText(165,165,18,TA_Center|TA_BASELINE,DiteZTP3) else Text(165,165,TA_Center|TA_BASELINE,skrt) if(Length(Trim(DiteJmeno4))<>0) XText(10,171,92,TA_Left|TA_BASELINE,DiteJmeno4) else Text(10,171,TA_Left|TA_BASELINE,skrt) if(Length(Trim(DiteRC4))<>0) XText(117,171,92,TA_Center|TA_BASELINE,DiteRC4) else Text(117,171,TA_Center|TA_BASELINE,skrt) if(DiteMesic4<>0) XText(145,171,18,TA_Center|TA_BASELINE,DiteMesic4) else Text(145,171,TA_Center|TA_BASELINE,skrt) if(DiteZTP4<>0) XText(165,171,18,TA_Center|TA_BASELINE,DiteZTP4) else Text(165,171,TA_Center|TA_BASELINE,skrt) PEN(0,0.3) ROUNDBOXA(0,180,175,274,3.3,3.3) PEN(0,0.1) LINEA(85,180,85,274) LINEA(97,190,97,274) LINEA(130,185,130,274) LINEA(142,190,142,274) LINEA(85,185,175,185) LINESA(0,190,175,190,0,7,12) FontSize(3.2) FONTFACE(NORMAL) Text(130,184,TA_CENTER|TA_BASELINE,'Vyplní') Text(107,188.5,TA_CENTER|TA_BASELINE,'poplatník') Text(152,188.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(2,186,TA_Left|TA_BASELINE,'Částka podle § 15') Text(91,193,TA_CENTER|TA_BASELINE,'Počet') Text(91,195.8,TA_CENTER|TA_BASELINE,'měsíců') Text(113,194.5,TA_CENTER|TA_BASELINE,'v celých Kč') Text(136,193,TA_CENTER|TA_BASELINE,'Počet') Text(136,195.8,TA_CENTER|TA_BASELINE,'měsíců') Text(158,194.5,TA_CENTER|TA_BASELINE,'v celých Kč') Text(2,201.5,TA_Left|TA_BASELINE,'40') Text(8,201.5,TA_Left|TA_BASELINE,'Odst. 1, písmeno a) zákona (základní nezdanitelná částka)') Text(2,208.5,TA_Left|TA_BASELINE,'41a)') Text(8,208.5,TA_Left|TA_BASELINE,'Odst. 1, písmeno b) zákona (na vyživované děti)') Text(2,214,TA_Left|TA_BASELINE,'41b)') Text(8,214,TA_Left|TA_BASELINE,'Odst. 1, písmeno b) zákona (na vyživované dítě,') Text(8,217,TA_Left|TA_BASELINE,'které je držitelem průkazu ZTP/P)') Text(2,222.5,TA_Left|TA_BASELINE,'42a)') Text(8,222.5,TA_Left|TA_BASELINE,'Odst. 1, písmeno c) zákona (na manželku/manžela)') Text(2,228,TA_Left|TA_BASELINE,'42b)') Text(8,228,TA_Left|TA_BASELINE,'Odst. 1, písmeno c) zákona (na manželku/manžela, která/') Text(8,231,TA_Left|TA_BASELINE,'který je držitelem průkazu ZTP/P)') Text(2,235,TA_Left|TA_BASELINE,'43') Text(8,235,TA_Left|TA_BASELINE,'Odst. 1, písmeno d) zákona (na poživatele část. invalidního') Text(8,238,TA_Left|TA_BASELINE,'důchodu)') Text(2,242,TA_Left|TA_BASELINE,'44') Text(8,242,TA_Left|TA_BASELINE,'Odst. 1, písmeno e) zákona (na poživatele plného') Text(8,245,TA_Left|TA_BASELINE,'invalidního důchodu)') Text(2,250.5,TA_Left|TA_BASELINE,'45') Text(8,250.5,TA_Left|TA_BASELINE,'Odst. 1, písmeno f) zákona (na držitele průkazu ZTP/P)') Text(2,257.5,TA_Left|TA_BASELINE,'46') Text(8,257.5,TA_Left|TA_BASELINE,'Odst. 1, písmeno g) zákona (studium)') Text(2,264.5,TA_Left|TA_BASELINE,'47') Text(8,264.5,TA_Left|TA_BASELINE,'Odst. 8 zákona (hodnota daru/darů)') Text(2,271.5,TA_Left|TA_BASELINE,'48') Text(8,271.5,TA_Left|TA_BASELINE,'Odst. 10 a odst. 11 zákona (odečet úroků)') FONTSIZE(2.5) Text(88,277,TA_CENTER|TA_BASELINE,'2') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(D402<>0) Text(122,201.5,TA_Right|TA_BASELINE,StrFinanc(D402,0)) else Text(122,201.5,TA_Right|TA_BASELINE,skrt) if(D411A<>0) Text(94,208.5,TA_Right|TA_BASELINE,D411A,0)) else Text(94,208.5,TA_Right|TA_BASELINE,skrt) if(D412A<>0) Text(122,208.5,TA_Right|TA_BASELINE,StrFinanc(D412A,0)) else Text(122,208.5,TA_Right|TA_BASELINE,skrt) if(D411B<>0) Text(94,215.5,TA_Right|TA_BASELINE,D411B,0)) else Text(94,215.5,TA_Right|TA_BASELINE,skrt) if(D412B<>0) Text(122,215.5,TA_Right|TA_BASELINE,StrFinanc(D412B,0)) else Text(122,215.5,TA_Right|TA_BASELINE,skrt) if(D421A<>0) Text(94,222.5,TA_Right|TA_BASELINE,D421A,0)) else Text(94,222.5,TA_Right|TA_BASELINE,skrt) if(D422A<>0) Text(122,222.5,TA_Right|TA_BASELINE,StrFinanc(D422A,0)) else Text(122,222.5,TA_Right|TA_BASELINE,skrt) if(D421B<>0) Text(94,229.5,TA_Right|TA_BASELINE,D421B,0)) else Text(94,229.5,TA_Right|TA_BASELINE,skrt) if(D422B<>0) Text(122,229.5,TA_Right|TA_BASELINE,StrFinanc(D422B,0)) else Text(122,229.5,TA_Right|TA_BASELINE,skrt) if(D431<>0) Text(94,236.5,TA_Right|TA_BASELINE,D431,0)) else Text(94,236.5,TA_Right|TA_BASELINE,skrt) if(D432<>0) Text(122,236.5,TA_Right|TA_BASELINE,StrFinanc(D432,0)) else Text(122,236.5,TA_Right|TA_BASELINE,skrt) if(D441<>0) Text(94,243.5,TA_Right|TA_BASELINE,D441,0)) else Text(94,243.5,TA_Right|TA_BASELINE,skrt) if(D442<>0) Text(122,243.5,TA_Right|TA_BASELINE,StrFinanc(D442,0)) else Text(122,243.5,TA_Right|TA_BASELINE,skrt) if(D451<>0) Text(94,250.5,TA_Right|TA_BASELINE,D451,0)) else Text(94,250.5,TA_Right|TA_BASELINE,skrt) if(D452<>0) Text(122,250.5,TA_Right|TA_BASELINE,StrFinanc(D452,0)) else Text(122,250.5,TA_Right|TA_BASELINE,skrt) if(D461<>0) Text(94,257.5,TA_Right|TA_BASELINE,D461,0)) else Text(94,257.5,TA_Right|TA_BASELINE,skrt) if(D462<>0) Text(122,257.5,TA_Right|TA_BASELINE,StrFinanc(D462,0)) else Text(122,257.5,TA_Right|TA_BASELINE,skrt) if(D472<>0) Text(122,264.5,TA_Right|TA_BASELINE,StrFinanc(D472,0)) else Text(122,264.5,TA_Right|TA_BASELINE,skrt) if(D482<>0) begin Text(122,271.5,TA_Right|TA_BASELINE,StrFinanc(D482,0)) end else begin Text(122,271.5,TA_Right|TA_BASELINE,skrt) end end ;{================================================ str. 3 ========================} ;{tisk 3. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(18,0,193,65,3.3,3.3) PEN(0,0.1) LINEA(103,0,103,65) LINEA(115,10,115,65) LINEA(148,5,148,65) LINEA(160,10,160,65) LINEA(103,5,193,5) LINESA(18,10,193,10,0,6,6) LINESA(18,53,193,53,0,6,2) FontSize(3.2) FONTFACE(NORMAL) Text(148,4,TA_CENTER|TA_BASELINE,'Vyplní') Text(125.5,8.5,TA_CENTER|TA_BASELINE,'poplatník') Text(170.5,8.5,TA_CENTER|TA_BASELINE,'finanční úřad') XText(109,12.7,9,TA_CENTER|TA_BASELINE,'Počet') XText(109,15.2,9,TA_CENTER|TA_BASELINE,'měsíců') Text(131.5,14,TA_CENTER|TA_BASELINE,'v celých Kč') XText(154,12.7,9,TA_CENTER|TA_BASELINE,'Počet') XText(154,15.2,9,TA_CENTER|TA_BASELINE,'měsíců') Text(176.5,14,TA_CENTER|TA_BASELINE,'v celých Kč') Text(19,20,TA_Left|TA_BASELINE,'49 Odst. 12 zákona (penzijní připojištění)') Text(19,26,TA_Left|TA_BASELINE,'50 Odst. 13 zákona (životní pojištění)') Text(19,32,TA_Left|TA_BASELINE,'51 Odčitatelná položka podle § 34 odst. 3 a odst. 7 zákona') Text(19,38,TA_Left|TA_BASELINE,'52 Další částky') Text(19,43,TA_Left|TA_BASELINE,'53 Základ daně snížený o nezdanitelné části základu daně') Text(19,46,TA_Left|TA_BASELINE,' a položky odčitatelné od základu daně (ř. 39 - ř. 40 -') Text(19,49,TA_Left|TA_BASELINE,' - ř. 41a - ř. 41b - ř. 42a - ř. 42b - ř. 43 - ř. 44 - ř. 45 -') Text(19,52,TA_Left|TA_BASELINE,' - ř. 46 - ř. 47 - ř. 48 - ř. 49 - ř. 50 - ř. 51 - ř. 52)') Text(19,57,TA_Left|TA_BASELINE,'54 Základ daně z ř. 53 zaokrouhlený na celá sta Kč dolů') Text(19,63,TA_Left|TA_BASELINE,'55 Daň podle § 16 odst. 1 zákona') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(D49<>0) Text(142,20,TA_Right|TA_BASELINE,StrFinanc(D49,0)) else Text(142,20,TA_Right|TA_BASELINE,skrt) if(D50<>0) Text(142,26,TA_Right|TA_BASELINE,StrFinanc(D50,0)) else Text(142,26,TA_Right|TA_BASELINE,skrt) if(D51<>0) Text(142,32,TA_Right|TA_BASELINE,StrFinanc(D51,0)) else Text(142,32,TA_Right|TA_BASELINE,skrt) if(M52<>0) Text(112,38,TA_Right|TA_BASELINE,M52) else Text(112,38,TA_Right|TA_BASELINE,skrt) if(D52<>0) Text(142,38,TA_Right|TA_BASELINE,StrFinanc(D52,0)) else Text(142,38,TA_Right|TA_BASELINE,skrt) if(D53<>0) Text(142,48,TA_Right|TA_BASELINE,StrFinanc(D53,0)) else Text(142,48,TA_Right|TA_BASELINE,skrt) if(D54<>0) Text(142,57,TA_Right|TA_BASELINE,StrFinanc(D54,0)) else Text(142,57,TA_Right|TA_BASELINE,skrt) if(D55<>0) Text(142,63,TA_Right|TA_BASELINE,StrFinanc(D55,0)) else Text(142,63,TA_Right|TA_BASELINE,skrt) PEN(0,0.3) ROUNDBOXA(18,83,193,125,3.3,3.3) PEN(0,0.1) LINEA(103,83,103,125) LINEA(148,88,148,125) LINEA(103,88,193,88) LINESA(18,93,193,93,0,8,4) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(105.5,81,TA_Center|TA_BASELINE,'4. ODDÍL - Daň celkem, ztráta') FontSize(3.2) FONTFACE(NORMAL) Text(148,86.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(125.5,91.5,TA_CENTER|TA_BASELINE,'poplatník') Text(170.5,91.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(19,96.5,TA_Left|TA_BASELINE,'56 Daň podle § 16 odst. 1 zákona (ř.55) nebo částka') Text(19,99.5,TA_Left|TA_BASELINE,' z ř. 328 přílohy č. 3 DAP') Text(19,104.5,TA_Left|TA_BASELINE,'57 Daň ze samostatného základu daně podle § 16 odst. 2') Text(19,107.5,TA_Left|TA_BASELINE,' zákona (ř. 418 přílohy č. 4 DAP)') Text(19,114,TA_Left|TA_BASELINE,'58 Daň celkem zaokrouhlená na celé Kč nahoru (ř. 56 + ř. 57)') Text(19,120.5,TA_Left|TA_BASELINE,'59 Ztráta zaokouhlená na celé Kč nahoru') Text(19,123.5,TA_Left|TA_BASELINE,' (ř. 36 bez znaménka mínus)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(D56<>0) Text(142,98,TA_Right|TA_BASELINE,StrFinanc(D56,0)) else Text(142,98,TA_Right|TA_BASELINE,skrt) if(D57<>0) Text(142,106,TA_Right|TA_BASELINE,StrFinanc(D57,0)) else Text(142,106,TA_Right|TA_BASELINE,skrt) if(D58<>0) Text(142,114,TA_Right|TA_BASELINE,StrFinanc(D58,0)) else Text(142,114,TA_Right|TA_BASELINE,skrt) if(D59<>0) Text(142,122,TA_Right|TA_BASELINE,StrFinanc(D59,0)) else Text(142,122,TA_Right|TA_BASELINE,skrt) PEN(0,0.3) ROUNDBOXA(18,142,193,188,3.3,3.3) PEN(0,0.1) LINEA(103,142,103,188) LINEA(148,147,148,188) LINEA(103,147,193,147) LINESA(18,152,193,152,0,6,6) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(105.5,140,TA_Center|TA_BASELINE,'5. ODDÍL - Dodatečné DAP') FontSize(3.2) FONTFACE(NORMAL) Text(148,145.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(125.5,150.5,TA_CENTER|TA_BASELINE,'poplatník') Text(170.5,150.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(19,156,TA_Left|TA_BASELINE,'60 Poslední známá daňová povinnost - daň dle § 16 zákona') Text(19,162-1.4,TA_Left|TA_BASELINE,'61 Zjištěná daňová povinnost podle § 41 zákona č. 337/1992 Sb.') Text(19,162+1.4,TA_Left|TA_BASELINE,' o správě daní a poplatků, ve znění pozdějších předpisů (ř. 58)') Text(19,168-1.4,TA_Left|TA_BASELINE,'62 Rozdíl řádků (ř. 61 - ř. 60) : zvýšení (+) částka daně') Text(19,168+1.4,TA_Left|TA_BASELINE,' se zvyšuje, snížení (-) částka daně se snižuje') Text(19,174-1.4,TA_Left|TA_BASELINE,'63 Poslední známá daňová povinnost - daňová ztráta') Text(19,174+1.4,TA_Left|TA_BASELINE,' podle § 5 zákona') Text(19,180-1.4,TA_Left|TA_BASELINE,'64 Zjištěná ztráta podle § 41 zákona č. 337/1992 Sb., o správě') Text(19,180+1.4,TA_Left|TA_BASELINE,' daní a poplatků, ve znění pozdějších předpisů (ř. 59)') Text(19,186-1.4,TA_Left|TA_BASELINE,'65 Rozdíl řádků (ř. 64 - ř. 63) : zvýšení (+) daňová ztráta') Text(19,186+1.4,TA_Left|TA_BASELINE,' se zvyšuje, snížení (-) daňová ztráta se snižuje') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(142,156,TA_Right|TA_BASELINE,skrt) Text(142,162,TA_Right|TA_BASELINE,skrt) Text(142,168,TA_Right|TA_BASELINE,skrt) Text(142,174,TA_Right|TA_BASELINE,skrt) Text(142,180,TA_Right|TA_BASELINE,skrt) Text(142,186,TA_Right|TA_BASELINE,skrt) PEN(0,0.3) ROUNDBOXA(18,208,193,270,3.3,3.3) PEN(0,0.1) LINEA(103,208,103,270) LINEA(148,213,148,270) LINEA(103,213,193,213) LINESA(18,218,193,218,0,7,7) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(105.5,206,TA_Center|TA_BASELINE,'6. ODDÍL - Placení daně') FontSize(3.2) FONTFACE(NORMAL) Text(148,211.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(125.5,216.5,TA_CENTER|TA_BASELINE,'poplatník') Text(170.5,216.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(19,222.5-1.4,TA_Left|TA_BASELINE,'66 Na zálohách daně z příjmů ze závislé činnosti sraženo') Text(19,222.5+1.4,TA_Left|TA_BASELINE,' všemi zaměstnavateli celkem') Text(19,229.5,TA_Left|TA_BASELINE,'67 Na zbývajících zálohách zaplaceno poplatníkem celkem') Text(19,236.5-1.4,TA_Left|TA_BASELINE,'68 Zaplacená daň stanovená paušální částkou') Text(19,236.5+1.4,TA_Left|TA_BASELINE,' podle § 7a zákona') Text(19,243.5-1.4,TA_Left|TA_BASELINE,'69 Započtená částka daně sražené plátcem') Text(19,243.5+1.4,TA_Left|TA_BASELINE,' dle § 36 odst. 6 zákona') Text(19,250.5,TA_Left|TA_BASELINE,'70 Zajištěná daň plátcem podle § 38e zákona') Text(19,257.5-1.4,TA_Left|TA_BASELINE,'71 Zaplacená daňová povinnost (záloha) podle § 38gb') Text(19,257.5+1.4,TA_Left|TA_BASELINE,' odst. 5 zákona') Text(19,265.8-2.8,TA_Left|TA_BASELINE,'72 Zbývá doplatit (ř. 58 - ř. 66 - ř. 67 - ř. 68 - ř. 69 - ř. 70 -') Text(19,265.8,TA_Left|TA_BASELINE,' - ř. 71). Vyjde-li záporná částka, bylo na toto zdaňovací') Text(19,265.8+2.8,TA_Left|TA_BASELINE,' období zaplaceno více') FONTSIZE(2.5) Text(105.5,277,TA_CENTER|TA_BASELINE,'3') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(D66<>0) Text(142,222.5,TA_Right|TA_BASELINE,StrFinanc(D66,0)) else Text(142,222.5,TA_Right|TA_BASELINE,skrt) if(D67<>0) Text(142,229.5,TA_Right|TA_BASELINE,StrFinanc(D67,0)) else Text(142,229.5,TA_Right|TA_BASELINE,skrt) if(D68<>0) Text(142,236.5,TA_Right|TA_BASELINE,StrFinanc(D68,0)) else Text(142,236.5,TA_Right|TA_BASELINE,skrt) if(D69<>0) Text(142,243.5,TA_Right|TA_BASELINE,StrFinanc(D69,0)) else Text(142,243.5,TA_Right|TA_BASELINE,skrt) if(D70<>0) Text(142,250.5,TA_Right|TA_BASELINE,StrFinanc(D70,0)) else Text(142,250.5,TA_Right|TA_BASELINE,skrt) if(D71<>0) Text(142,257.5,TA_Right|TA_BASELINE,StrFinanc(D71,0)) else Text(142,257.5,TA_Right|TA_BASELINE,skrt) if(D72<>0) begin Text(142,265.8,TA_Right|TA_BASELINE,StrFinanc(D72,0)) end else begin Text(142,264.8,TA_Right|TA_BASELINE,skrt) end end ;{================================================ str. 4 ========================} ;{tisk 4. strany včetně hodnot} begin NextPage PEN(0,0.3) ROUNDBOXA(0,9,175,100,3.3,3.3) PEN(0,0.1) LINEA(164,9,164,100) LINESA(0,15.5,175,15.5,0,6.5,13) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(0,3,TA_Left|TA_BASELINE,'PŘÍLOHY DAP:') FontSize(3.2) FONTFACE(NORMAL) Text(0,7,TA_Left|TA_BASELINE,'Ve sloupci uveďte počet listů příloh.') Text(2,13.5,TA_Left|TA_BASELINE,'Název přílohy') Text(2,20,TA_Left|TA_BASELINE,'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)"') Text(2,26.5-1.5,TA_Left|TA_BASELINE,'Příloha č. 2 - "Výpočet dílčích základů daně z příjmů z fyzických osob ze závislé činnosti a z funkčních požitků') Text(2,26.5+1.4,TA_Left|TA_BASELINE,'(§ 6 zákona), z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)"') Text(2,33-1.5,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ů') Text(2,33+1.4,TA_Left|TA_BASELINE,'ze zahraničí a daně po slevách (§ 35 zákona)"') Text(2,39.5,TA_Left|TA_BASELINE,'Příloha č. 4 - "Výpočet daně z příjmů ze samostatného základu daně"') Text(2,46-1.5,TA_Left|TA_BASELINE,'Výkaz zisku a ztráty, rozvaha a příloha pro poplatníka, který je účetní jednotkou a účtuje v soustavě"') Text(2,46+1.4,TA_Left|TA_BASELINE,'podvojného účetnictví') Text(2,52.5-1.5,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ň') Text(2,52.5+1.4,TA_Left|TA_BASELINE,'za příslušné zdaňovací období od všech zaměstnavatelů podle §38j odst. 3 zákona') Text(2,59,TA_Left|TA_BASELINE,'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru') Text(2,65.5,TA_Left|TA_BASELINE,'Potvrzení o zaplacených částkách na penzijní připojištění') Text(2,72,TA_Left|TA_BASELINE,'Potvrzení o zaplacených částkách na soukromé životní pojištění') Text(2,78.5,TA_Left|TA_BASELINE,'Seznam podle § 38d odst. 9 zákona') Text(2,85,TA_Left|TA_BASELINE,'"Celková částka" k uplatnění podle § 24 odst. 2 písm. r) zákona') Text(2,91.5,TA_Left|TA_BASELINE,'Další přílohy výše neuvedené') Text(2,98,TA_Left|TA_BASELINE,'Počet listů příloh celkem') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Pr1<>0) begin Text(172,20,TA_Right|TA_BASELINE,Pr1) end else begin Text(172,20,TA_Right|TA_BASELINE,skrt) end if(Pr2<>0) begin Text(172,26.5,TA_Right|TA_BASELINE,Pr2) end else begin Text(172,26.5,TA_Right|TA_BASELINE,skrt) end if(Pr3<>0) begin Text(172,33,TA_Right|TA_BASELINE,Pr3) end else begin Text(172,33,TA_Right|TA_BASELINE,skrt) end if(Pr4<>0) begin Text(172,39.5,TA_Right|TA_BASELINE,Pr4) end else begin Text(172,39.5,TA_Right|TA_BASELINE,skrt) end if(Pr5<>0) begin Text(172,46,TA_Right|TA_BASELINE,Pr5) end else begin Text(172,46,TA_Right|TA_BASELINE,skrt) end if(Pr6<>0) begin Text(172,52.5,TA_Right|TA_BASELINE,Pr6) end else begin Text(172,52.5,TA_Right|TA_BASELINE,skrt) end if(Pr7<>0) begin Text(172,59,TA_Right|TA_BASELINE,Pr7) end else begin Text(172,59,TA_Right|TA_BASELINE,skrt) end if(Pr8<>0) begin Text(172,65.5,TA_Right|TA_BASELINE,Pr8) end else begin Text(172,65.5,TA_Right|TA_BASELINE,skrt) end if(Pr9<>0) begin Text(172,72,TA_Right|TA_BASELINE,Pr9) end else begin Text(172,72,TA_Right|TA_BASELINE,skrt) end if(Pr10<>0) begin Text(172,78.5,TA_Right|TA_BASELINE,Pr10) end else begin Text(172,78.5,TA_Right|TA_BASELINE,skrt) end if(Pr11<>0) begin Text(172,85,TA_Right|TA_BASELINE,Pr11) end else begin Text(172,85,TA_Right|TA_BASELINE,skrt) end if(Pr12<>0) begin Text(172,91.5,TA_Right|TA_BASELINE,Pr12) end else begin Text(172,91.5,TA_Right|TA_BASELINE,skrt) end if(Pr13<>0) begin Text(172,98,TA_Right|TA_BASELINE,Pr13) end else begin Text(172,98,TA_Right|TA_BASELINE,skrt) end PEN(0,0.5) LINEA(0,106,175,106) PEN(0,0.3) ROUNDBOXA(0,115,86,121,3.3,3.3) ROUNDBOXA(120,115,175,121,3.3,3.3) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87.5,112,TA_Center|TA_BASELINE,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO DAP JSOU PRAVDIVÉ A ÚPLNÉ') FontSize(3.2) FONTFACE(NORMAL) Text(3,119,TA_Left|TA_BASELINE,'V') Text(45,119,TA_Left|TA_BASELINE,'dne') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(7,119,34,TA_Left|TA_BASELINE,Kde4) XText(51,119,34,TA_Left|TA_BASELINE,Kdy4) FONTFACE(NORMAL) FontSize(2.5) Text(147.5,124,TA_Center|TA_BASELINE,'Podpis poplatníka (zástupce)') FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87.5,128,TA_Center|TA_BASELINE,'ÚDAJE O ZÁSTUPCI') ROUNDBOXA(0,130,175,148,3.3,3.3) LINEA(0,139,175,139) LINEA(87,130,87,148) LINEA(107,130,107,139) LINEA(67,139,67,148) LINEA(137,139,137,148) FontSize(3.2) FONTFACE(NORMAL) Text(2,132.5,TA_Left|TA_BASELINE,'Příjmení a jméno') Text(90,132.5,TA_Left|TA_BASELINE,'Titul') Text(111,132.5,TA_Left|TA_BASELINE,'Telefon / mobilní telefon') Text(2,141.5,TA_Left|TA_BASELINE,'Adresa - obec') Text(70,141.5,TA_Left|TA_BASELINE,'PSČ') Text(90,141.5,TA_Left|TA_BASELINE,'Ulice') Text(139,141.5,TA_Left|TA_BASELINE,'Číslo popisné / orientační') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(25,137,58,TA_Left|TA_BASELINE,Zast1) XText(92,137,11,TA_Left|TA_BASELINE,Zast2) XText(110,137,60,TA_Left|TA_BASELINE,Zast3) XText(20,146,44,TA_Left|TA_BASELINE,Zast4) XText(70,146,16,TA_Left|TA_BASELINE,Zast5) XText(90,146,40,TA_Left|TA_BASELINE,Zast6) XText(140,146,32,TA_Left|TA_BASELINE,Zast7) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87.5,154,TA_Center|TA_BASELINE,'VYPLNÍ FINANČNÍ ÚŘAD') ROUNDBOXA(0,130,175,148,3.3,3.3) PEN(0,0.1) ROUNDBOXA(81,155,87,161,3.3,3.3) ROUNDBOXA(116,155,122,161,3.3,3.3) FontSize(3.2) FONTFACE(NORMAL) Text(2,160,TA_Left|TA_BASELINE,'Za finanční úřad přiznanou daňovou povinnost a ztrátu vyměřil') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(88,160,TA_Left|TA_BASELINE,'- dodatečně vyměřil') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(124,160,TA_Left|TA_BASELINE,'podle § 46 zákona ČNR č. 337/1992 Sb.,') Text(2,169,TA_Left|TA_BASELINE,'o správě daní a poplatků, ve znění pozdějších předpisů, dne') ROUNDBOXA(78,164,118,170,3.3,3.3) LINESA(83,168.5,83,170,5,0,7) Text(124,169,TA_Left|TA_BASELINE,'ke dni') ROUNDBOXA(78+56,164,118+56,170,3.3,3.3) LINESA(83+56,168.5,83+56,170,5,0,7) Text(131,177,TA_Right|TA_BASELINE,'Podpis odpovědného pracovníka') ROUNDBOXA(78+56,172,118+56,178,3.3,3.3) PEN(0,0.3) BOXA(0,181,175,222) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87.5,186,TA_Center|TA_BASELINE,'ŽÁDOST O VRÁCENÍ PŘEPLATKU NA DANI Z PŘÍJMU FYZICKÝCH OSOB') FontSize(3.2) FONTFACE(NORMAL) Text(5,192,TA_Left|TA_BASELINE,'V souladu s 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í') Text(5,197,TA_Left|TA_BASELINE,'přeplatku na dani z příjmu fyzických osob ve výši') Text(170,197,TA_Right|TA_BASELINE,'Kč.') Text(5,202,TA_Left|TA_BASELINE,'Přeplatek zašlete na adresu:') Text(5,207,TA_Left|TA_BASELINE,'Přeplatek vraťte na účet vedený u') Text(111,207,TA_Right|TA_BASELINE,'č.') Text(5,212,TA_Left|TA_BASELINE,'kód banky') Text(111,212,TA_Right|TA_BASELINE,'specifický symbol') Text(5,217,TA_Left|TA_BASELINE,'V') Text(55,217,TA_Left|TA_BASELINE,'dne') Text(91,217,TA_Left|TA_BASELINE,'Podpis poplatníka (zástupce)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(75,197,TA_Left|TA_BASELINE,Prep1) XText(45,202,125,TA_Left|TA_BASELINE,Prep2) XText(50,207,56,TA_Left|TA_BASELINE,Prep3) XText(115,207,548,TA_Left|TA_BASELINE,Prep4) Text(20,212,TA_Left|TA_BASELINE,Prep5) Text(115,212,TA_Left|TA_BASELINE,Prep6) XText(9,217,44,TA_Left|TA_BASELINE,Prep7) Text(63,217,TA_Left|TA_BASELINE,Prep8) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(87.5,228,TA_Center|TA_BASELINE,'VYPLNÍ FINANČNÍ ÚŘAD') ROUNDBOXA(95,230,175,265,3.3,3.3) FontSize(2.5) FONTFACE(NORMAL) Text(135,262,TA_Center|BASELINE,'Otisk prezentačního razítka finančního úřadu') FONTFACE(NORMAL) FontSize(1.8) Text(0,264,TA_Left|TA_Baseline,'1'); FontSize(2.5) Text(1,264.5,TA_LEFT|TA_BASELINE,') Označte křížkem odpovídající variantu') FontSize(1.8) Text(0,267,TA_Left|TA_Baseline,'2'); FontSize(2.5) Text(1,267.5,TA_LEFT|TA_BASELINE,') Údaj za část zdaňovacího období vyplňte, pouze máte-li kód typu přiznání "Prohlášení konkursu" nebo "Zrušení konkursu" nebo "Úmrtí" a dále') Text(3,270,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(1.8) Text(0,272.5,TA_Left|TA_Baseline,'3'); FontSize(2.5) Text(1,273,TA_LEFT|TA_BASELINE,') Zákon ČNR 589/1992 Sb., o pojistném na sociální zabezpečení, ve znění pozdějších předpisů') FONTSIZE(2.5) Text(175,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') Text(87.5,277,TA_CENTER|TA_BASELINE,'4') end ;{================================================ str. 5 ========================} ;{tisk 5. strany:} begin if(Priloha1AnoNe) begin NextPage 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(4) FONTFACE(NORMAL|BOLD) Text(18,4,TA_Left|TA_BASELINE,'PŘÍLOHA č. 1') 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í 2003 typu B - 25 5405 MFin 5405 vzor č. 10 (dále jen "DAP"') FontSize(3.6) Text(18,18,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.2) Text(18,23,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)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) STEXT(139,4,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FONTFACE(NORMAL) FontSize(3.2) Text(135,5,TA_Right|TA_BASELINE,'Rodné číslo:') Text(105.5,26,TA_Center|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,30,72,40,3.3,3.3) ROUNDBOXA(78,30,132,40,3.3,3.3) ROUNDBOXA(138,30,193,40,3.3,3.3) PEN(0,0.1) LINESA(58,30,58,40,60,0,3) FontSize(3.2) Text(20,34,TA_Left|TA_BASELINE,'Účtuji v soustavě') Text(20,37,TA_Left|TA_BASELINE,'jednoduchého účetnictví') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(80,34,TA_Left|TA_BASELINE,'Účtuji v soustavě') Text(80,37,TA_Left|TA_BASELINE,'podvojného účetnictví') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); LINEA(122,32,129,38) LINEA(122,38,129,32) Text(140,34,TA_Left|TA_BASELINE,'Uplatňuji výdaje') Text(140,37,TA_Left|TA_BASELINE,'procentem z příjmů') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); PEN(0,0.3) ROUNDBOXA(18,44,193,197,3.3,3.3) PEN(0,0.1) LINEA(113,44,113,197,60,0,3) LINEA(153,49,153,197,60,0,3) LINEA(113,49,193,49,60,0,3) LINESA(18,54,193,54,0,11,13) Text(153,47.5,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,52.5,TA_Center|TA_BASELINE,'poplatník') Text(173,52.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,60.5,TA_Left|TA_BASELINE,'101') Text(26,60.5,TA_Left|TA_BASELINE,'Příjmy, které jsou předmětem daně z příjmů dle § 7 zákona') Text(20,71.5,TA_Left|TA_BASELINE,'102') Text(26,71.5,TA_Left|TA_BASELINE,'Výdaje související s příjmy dle § 7 zákona') Text(20,82.5,TA_Left|TA_BASELINE,'103') Text(26,82.5,TA_Left|TA_BASELINE,'Pojistné') Text(20,93.5-1.8,TA_Left|TA_BASELINE,'104') Text(26,93.5-1.8,TA_Left|TA_BASELINE,'Rozdíl mezi příjmy a výdaji (ř. 101 - ř. 102 - ř. 103) nebo') Text(26,93.5+1.8,TA_Left|TA_BASELINE,'hospodářský výsledek před zdaněním (zisk, ztráta)') Text(20,104.5-3,TA_Left|TA_BASELINE,'105') XText(26,104.5-3,86,TA_Left|TA_BASELINE,'Úhrn částek podle § 23, § 5 a ostatní úpravy podle zákona zvyšující') XText(26,104.5,86,TA_Left|TA_BASELINE,'- uveďte úhrn částek zvyšujících hospodářský výsledek nebo rozdíl') XText(26,104.5+3,86,TA_Left|TA_BASELINE,'mezi příjmy a výdaji. Podkladem jsou částky uvedené v odd. E na str. (2)') Text(20,115.5-3,TA_Left|TA_BASELINE,'106') XText(26,115.5-3,86,TA_Left|TA_BASELINE,'Úhrn částek podle § 23, § 5 zákona a ostatní úpravy podle zákona snižující') XText(26,115.5,86,TA_Left|TA_BASELINE,'- uveďte úhrn částek snižujících hospodářský výsledek nebo rozdíl mezi') XText(26,115.5+3,86,TA_Left|TA_BASELINE,'příjmy a výdaji. Podkladem jsou částky uvedené v odd. E na str. (2)') Text(20,126.5-3,TA_Left|TA_BASELINE,'107') XText(26,126.5-3,86,TA_Left|TA_BASELINE,'Část příjmů nebo hospodářského výsledku před zdaněním (zisk),') XText(26,126.5,86,TA_Left|TA_BASELINE,'kterou rozdělujete na spolupracující osobu (osoby) podle') XText(26,126.5+3,86,TA_Left|TA_BASELINE,'§ 13 zákona') Text(20,137.5-3,TA_Left|TA_BASELINE,'108') XText(26,137.5-3,86,TA_Left|TA_BASELINE,'Část výdajů nebo hospodářského výsledku před zdaněním (ztráta),') XText(26,137.5,86,TA_Left|TA_BASELINE,'kterou rozdělujete na spolupracující osobu (osoby) podle') XText(26,137.5+3,86,TA_Left|TA_BASELINE,'§ 13 zákona') Text(20,148.5-1.8,TA_Left|TA_BASELINE,'109') Text(26,148.5-1.8,TA_Left|TA_BASELINE,'Část příjmů nebo hospodářského výsledku před zdaněním (zisk),') Text(26,148.5+1.8,TA_Left|TA_BASELINE,'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Text(20,159.5-1.8,TA_Left|TA_BASELINE,'110') Text(26,159.5-1.8,TA_Left|TA_BASELINE,'Část výdajů nebo hospodářského výsledku před zdaněním (ztráta),') Text(26,159.5+1.8,TA_Left|TA_BASELINE,'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Text(20,170.5-3,TA_Left|TA_BASELINE,'111') XText(26,170.5-3,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(26,170.5,86,TA_Left|TA_BASELINE,'část výdajů připadající na příjmy za více zdaňovacích období podle') XText(26,170.5+3,86,TA_Left|TA_BASELINE,'§ 14 zákona') Text(20,181.5-3,TA_Left|TA_BASELINE,'112') XText(26,181.5-3,86,TA_Left|TA_BASELINE,'Váš podíl jako společníka veřejné obchodní společnosti nebo') XText(26,181.5,86,TA_Left|TA_BASELINE,'komplementáře komanditní společnosti. Vykáže-li společnosti ztrátu,') XText(26,181.5+3,86,TA_Left|TA_BASELINE,'označte svůj podíl znaménkem minus (-)') Text(20,192.5-1.8,TA_Left|TA_BASELINE,'113') Text(26,192.5-1.8,TA_Left|TA_BASELINE,'Dílčí základ daně (ztráta) z příjmů dle § 7 zákona (ř. 104 + ř. 105 -') Text(26,192.5+1.8,TA_Left|TA_BASELINE,'- ř. 106 - ř. 107 + ř. 108 + ř. 109 - ř. 110 - ř. 111 + ř. 112)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P1101<>0) begin Text(146,60.5,TA_Right|TA_BASELINE,StrFinanc(P1101,0)) end else begin Text(146,60.5,TA_Right|TA_BASELINE,skrt) end if(P1102<>0) begin Text(146,71.5,TA_Right|TA_BASELINE,StrFinanc(P1102,0)) end else begin Text(146,71.5,TA_Right|TA_BASELINE,skrt) end if(P1103<>0) begin Text(146,82.5,TA_Right|TA_BASELINE,StrFinanc(P1103,0)) end else begin Text(146,82.5,TA_Right|TA_BASELINE,skrt) end if(P1104<>0) begin Text(146,93.5,TA_Right|TA_BASELINE,StrFinanc(P1104,0)) end else begin Text(146,93.5,TA_Right|TA_BASELINE,skrt) end if(P1105<>0) begin Text(146,104.5,TA_Right|TA_BASELINE,StrFinanc(P1105,0)) end else begin Text(146,104.5,TA_Right|TA_BASELINE,skrt) end if(P1106<>0) begin Text(146,115.5,TA_Right|TA_BASELINE,StrFinanc(P1106,0)) end else begin Text(146,115.5,TA_Right|TA_BASELINE,skrt) end if(P1107<>0) begin Text(146,126.5,TA_Right|TA_BASELINE,StrFinanc(P1107,0)) end else begin Text(146,126.5,TA_Right|TA_BASELINE,skrt) end if(P1108<>0) begin Text(146,137.5,TA_Right|TA_BASELINE,StrFinanc(P1108,0)) end else begin Text(146,137.5,TA_Right|TA_BASELINE,skrt) end if(P1109<>0) begin Text(146,148.5,TA_Right|TA_BASELINE,StrFinanc(P1109,0)) end else begin Text(146,148.5,TA_Right|TA_BASELINE,skrt) end if(P1110<>0) begin Text(146,159.5,TA_Right|TA_BASELINE,StrFinanc(P1110,0)) end else begin Text(146,159.5,TA_Right|TA_BASELINE,skrt) end if(P1111<>0) begin Text(146,170.5,TA_Right|TA_BASELINE,StrFinanc(P1111,0)) end else begin Text(146,170.5,TA_Right|TA_BASELINE,skrt) end if(P1112<>0) begin Text(146,181.5,TA_Right|TA_BASELINE,StrFinanc(P1112,0)) end else begin Text(146,181.5,TA_Right|TA_BASELINE,skrt) end if(P1113<>0) begin Text(146,192.5,TA_Right|TA_BASELINE,StrFinanc(P1113,0)) end else begin Text(146,192.5,TA_Right|TA_BASELINE,skrt) end FONTFACE(NORMAL|BOLD) FontSize(3.2) Text(18,202,TA_Left|TA_BASELINE,'2. Doplňující údaje (§7 zákona)') FONTFACE(Italic|BOLD) Text(21,206,TA_Left|TA_BASELINE,'A. Údaje o obratu a odisech') FONTFACE(NORMAL) Text(21,209,TA_Left|TA_BASELINE,'Čistý obrat') Text(82,209,TA_Left|TA_BASELINE,'Uplatněné odpisy celkem') Text(142,209,TA_Left|TA_BASELINE,'Z toho odpisy nemovitostí') PEN(0,0.3) ROUNDBOXA(18,211,68,221,3.3,3.3) ROUNDBOXA(78,211,128,221,3.3,3.3) ROUNDBOXA(138,211,193,221,3.3,3.3) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(CistyObrat<>0) begin Text(60,217,TA_Right|TA_BASELINE,StrFinanc(CistyObrat,0)) end else begin Text(60,217,TA_Right|TA_BASELINE,skrt) end if(SumaDanOdpis<>0) begin Text(120,217,TA_Right|TA_BASELINE,StrFinanc(SumaDanOdpis,0)) end else begin Text(120,217,TA_Right|TA_BASELINE,skrt) end if(OdpisNemov<>0) begin Text(185,217,TA_Right|TA_BASELINE,StrFinanc(OdpisNemov,0)) end else begin Text(185,217,TA_Right|TA_BASELINE,skrt) end FontSize(3.2) FONTFACE(Italic|BOLD) Text(21,226,TA_Left|TA_BASELINE,'B. Hlavní (převažující) činnost') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'2'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FONTFACE(NORMAL) Text(21,229.5,TA_Left|TA_BASELINE,'Název činnost') Text(186,229.5,TA_Right|TA_BASELINE,'Kód klasifikace OKEČ') PEN(0,0.3) ROUNDBOXA(18,231,193,251,3.3,3.3) PEN(0,0.1) LineA(18,241,193,241) LineA(153,231,153,251) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(21,237,125,TA_Left|TA_BASELINE,HlavCinn1) XText(21,247,125,TA_Left|TA_BASELINE,HlavCinn2) FontSize(3.2) FONTFACE(Italic|BOLD) Text(21,256,TA_Left|TA_BASELINE,'C. Údaje o podnikání') FONTFACE(NORMAL) Text(21,259,TA_Left|TA_BASELINE,'Datum zahájení činnosti') Text(65,259,TA_Left|TA_BASELINE,'Datum přerušení činnosti') Text(109,259,TA_Left|TA_BASELINE,'Datum ukončení činnosti') Text(154,259,TA_Left|TA_BASELINE,'Datum obnovení činnosti') PEN(0,0.3) ROUNDBOXA(18,260,193,270,3.3,3.3) PEN(0,0.1) LineA(61,260,61,270) LineA(105,260,105,270) LineA(150,260,150,270) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(21,266,TA_Left|TA_BASELINE,StrDate(DatumZah)) Text(65,266,TA_Left|TA_BASELINE,StrDate(DatumPrer)) Text(109,266,TA_Left|TA_BASELINE,StrDate(DatumUkon)) Text(154,266,TA_Left|TA_BASELINE,StrDate(DatumObnov)) FONTSIZE(2.5) Text(105.5,277,TA_CENTER|TA_BASELINE,'(1)') end end ;{================================================ str. 6 ========================} ;{tisk 6. strany:} begin if(Priloha1AnoNe) begin NextPage FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,4,TA_Left|TA_BASELINE,'D. Tabulka pro poplatníky účtující v soustavě jednoduchého účetnictví') FONTFACE(NORMAL) XText(0,7,175,TA_Left|TA_BASELINE,'Vyplňte pouze v případě jste-li účetní jednotkou účtující v soustavě jednoduchého účetnictví. Údaje, prosím, vyplňte v celých korunách.') PEN(0,0.3) ROUNDBOXA(0,10,175,76,3.3,3.3) PEN(0,0.1) LINEA(65,10,65,76) LINEA(120,10,120,76) LINESA(0,15.5,175,15.5,0,5.5,11) Text(92.5,13.5,TA_Center|TA_BASELINE,'Na začátku zdaňovacího období') Text(147.5,13.5,TA_Center|TA_BASELINE,'Na konci zdaňovacího období') Text(4,19.5,TA_Left|TA_BASELINE,'1. Dlouhodobý hmotný majetek') Text(4,25,TA_Left|TA_BASELINE,'2. Dlouhodobý nehmotný majetek') Text(4,30.5,TA_Left|TA_BASELINE,'3. Peněžní prostčedky v hotovosti') Text(4,36,TA_Left|TA_BASELINE,'4. Peněžní prostčedky na bankovních účtech') Text(4,41.5,TA_Left|TA_BASELINE,'5. Cenné papíry a peněžní vklady') Text(4,47,TA_Left|TA_BASELINE,'6. Zásoby') Text(4,52.5,TA_Left|TA_BASELINE,'7. Pohledávky (bez půjček)') Text(4,58,TA_Left|TA_BASELINE,'8. Závazky (bez úvěrů a půjček)') Text(4,63.5,TA_Left|TA_BASELINE,'9. Úvěry a půjčky - přijaté') Text(4,69,TA_Left|TA_BASELINE,'10. Úvěry a půjčky - poskytnuté') Text(4,74.5,TA_Left|TA_BASELINE,'11. Rezervy') PEN(0,0.3) ROUNDBOXA(0,80,65,86,3.3,3.3) PEN(0,0.1) LINEA(20,80,20,86) Text(4,85,TA_Left|TA_BASELINE,'12. Mzdy') FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,93.5,TA_Left|TA_BASELINE,'E. Úpravy podle § 23, § 5 a ostatní úpravy podle zákona') FontSize(1.8) 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,95,175,124,3.3,3.3) ROUNDBOXA(0,126,175,155,3.3,3.3) PEN(0,0.1) LINEA(10,95,10,124) LINEA(135,95,135,124) LINESA(0,102,175,102,0,5.5,4) LINEA(10,126,10,155) LINEA(135,126,135,155) LINESA(0,133,175,133,0,5.5,4) Text(5,99.5,TA_Center|TA_BASELINE,'č.ř.') Text(12,99.5-1.5,TA_Left|TA_BASELINE,'Popis úpravy podle § 23, § 5 a ostatní úpravy podle zákona zvyšující') Text(12,99.5+1.5,TA_Left|TA_BASELINE,'hospodářský výsledek nebo rozdíl mezi příjmy a výdaji') Text(155,99.5,TA_Center|TA_BASELINE,'poplatník uvede v celých Kč') Text(5,106,TA_Center|TA_BASELINE,'1.') Text(5,111.5,TA_Center|TA_BASELINE,'2.') Text(5,117,TA_Center|TA_BASELINE,'3.') Text(5,122.5,TA_Center|TA_BASELINE,'4.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(15,106,117,TA_Left|TA_BASELINE,P1ETZvys1) Text(168,106,TA_Right|TA_BASELINE,P1EHZvys1) XText(15,111.5,117,TA_Left|TA_BASELINE,P1ETZvys2) Text(168,111.5,TA_Right|TA_BASELINE,P1EHZvys2) XText(15,117,117,TA_Left|TA_BASELINE,P1ETZvys3) Text(168,117,TA_Right|TA_BASELINE,P1EHZvys3) XText(15,122.5,117,TA_Left|TA_BASELINE,P1ETZvys4) Text(168,122.5,TA_Right|TA_BASELINE,P1EHZvys4) FONTSIZE(3.2) FONTFACE(NORMAL) Text(5,99.5+31,TA_Center|TA_BASELINE,'č.ř.') Text(12,99.5-1.5+31,TA_Left|TA_BASELINE,'Popis úpravy podle § 23, § 5 a ostatní úpravy podle zákona snižující') Text(12,99.5+1.5+31,TA_Left|TA_BASELINE,'hospodářský výsledek nebo rozdíl mezi příjmy a výdaji') Text(155,99.5+31,TA_Center|TA_BASELINE,'poplatník uvede v celých Kč') Text(5,106+31,TA_Center|TA_BASELINE,'1.') Text(5,111.5+31,TA_Center|TA_BASELINE,'2.') Text(5,117+31,TA_Center|TA_BASELINE,'3.') Text(5,122.5+31,TA_Center|TA_BASELINE,'4.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) XText(15,106+31,117,TA_Left|TA_BASELINE,P1ETSniz1) Text(168,106+31,TA_Right|TA_BASELINE,P1EHSniz1) XText(15,111.5+31,117,TA_Left|TA_BASELINE,P1ETSniz2) Text(168,111.5+31,TA_Right|TA_BASELINE,P1EHSniz2) XText(15,117+31,117,TA_Left|TA_BASELINE,P1ETSniz3) Text(168,117+31,TA_Right|TA_BASELINE,P1EHSniz3) XText(15,122.5+31,117,TA_Left|TA_BASELINE,P1ETSniz4) Text(168,122.5+31,TA_Right|TA_BASELINE,P1EHSniz4) FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,160.5,TA_Left|TA_BASELINE,'F. Údaje o účastnících sdružení') FontSize(1.8) 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,162,175,192,3.3,3.3) PEN(0,0.1) LINEA(10,167,10,192) LINEA(45,167,45,192) LINEA(82,167,82,192) LINEA(119,167,119,192) LINEA(147,167,147,192) LINEA(0,167,175,167) LINESA(0,174,175,174,0,6,3) Text(5,165.5,TA_Left|TA_BASELINE,'Jste-li účastník sdružení, které není právnickou osobou, vyplňte údaje o ostatních účastnících sdružení') Text(27.5,171.5,TA_Center|TA_BASELINE,'Jméno') Text(63.5,171.5,TA_Center|TA_BASELINE,'Příjmení') Text(100.5,171.5,TA_Center|TA_BASELINE,'DIČ') Text(133,171.5-1.5,TA_Center|TA_BASELINE,'Podíl') Text(133,171.5+1.5,TA_Center|TA_BASELINE,'na příjmech v %') Text(161,171.5-1.5,TA_Center|TA_BASELINE,'Podíl') Text(161,171.5+1.5,TA_Center|TA_BASELINE,'na výdajích v %') Text(5,178,TA_Center|TA_BASELINE,'1.') Text(5,184,TA_Center|TA_BASELINE,'2.') Text(5,190,TA_Center|TA_BASELINE,'3.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(JmenoSdr1))<>0) begin XText(12,178,31,TA_Left|TA_BASELINE,JmenoSdr1) end else begin Text(12,178,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniSdr1))<>0) begin XText(47,178,34,TA_Left|TA_BASELINE,PrijmeniSdr1) end else begin Text(47,178,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICSdr1))<>0) begin XText(84,178,32,TA_Left|TA_BASELINE,DICSdr1) end else begin Text(84,178,TA_Left|TA_BASELINE,skrt) end if(PodilP1<>0) begin Text(133,178,TA_Center|TA_BASELINE,PodilP1) end else begin Text(133,178,TA_Center|TA_BASELINE,skrt) end if(PodilV1<>0) begin Text(161,178,TA_Center|TA_BASELINE,PodilV1) end else begin Text(161,178,TA_Center|TA_BASELINE,skrt) end if(Length(Trim(JmenoSdr2))<>0) begin XText(12,184,31,TA_Left|TA_BASELINE,JmenoSdr2) end else begin Text(12,184,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniSdr2))<>0) begin XText(47,184,34,TA_Left|TA_BASELINE,PrijmeniSdr2) end else begin Text(47,184,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICSdr2))<>0) begin XText(84,184,32,TA_Left|TA_BASELINE,DICSdr2) end else begin Text(84,184,TA_Left|TA_BASELINE,skrt) end if(PodilP2<>0) begin Text(133,184,TA_Center|TA_BASELINE,PodilP2) end else begin Text(133,184,TA_Center|TA_BASELINE,skrt) end if(PodilV2<>0) begin Text(161,184,TA_Center|TA_BASELINE,PodilV2) end else begin Text(161,184,TA_Center|TA_BASELINE,skrt) end if(Length(Trim(JmenoSdr3))<>0) begin XText(12,190,31,TA_Left|TA_BASELINE,JmenoSdr3) end else begin Text(12,190,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniSdr3))<>0) begin XText(47,190,34,TA_Left|TA_BASELINE,PrijmeniSdr3) end else begin Text(47,190,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICSdr3))<>0) begin XText(84,190,32,TA_Left|TA_BASELINE,DICSdr3) end else begin Text(84,190,TA_Left|TA_BASELINE,skrt) end if(PodilP3<>0) begin Text(133,190,TA_Center|TA_BASELINE,PodilP3) end else begin Text(133,190,TA_Center|TA_BASELINE,skrt) end if(PodilV3<>0) begin Text(161,190,TA_Center|TA_BASELINE,PodilV3) end else begin Text(161,190,TA_Center|TA_BASELINE,skrt) end FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,198.5,TA_Left|TA_BASELINE,'G. Údaje o spolupracujících osobách') FontSize(1.8) 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,200,175,225,3.3,3.3) PEN(0,0.1) LINEA(10,205,10,225) LINEA(45,205,45,225) LINEA(82,205,82,225) LINEA(119,205,119,225) LINEA(0,205,175,205) LINESA(0,213,175,213,0,6,2) Text(5,204,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ích osobách') Text(27.5,210.5,TA_Center|TA_BASELINE,'Jméno') Text(63.5,210.5,TA_Center|TA_BASELINE,'Příjmení') Text(100.5,210.5,TA_Center|TA_BASELINE,'DIČ') Text(147,210.5,TA_Center|TA_BASELINE,'Podíl na příjmech a výdajích v %') Text(5,217,TA_Center|TA_BASELINE,'1.') Text(5,223,TA_Center|TA_BASELINE,'2.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(JmenoSpol1))<>0) begin XText(12,217,31,TA_Left|TA_BASELINE,JmenoSpol1) end else begin Text(12,217,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniSpol1))<>0) begin XText(47,217,34,TA_Left|TA_BASELINE,PrijmeniSpol1) end else begin Text(47,217,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICSpol1))<>0) begin XText(84,217,32,TA_Left|TA_BASELINE,DICSpol1) end else begin Text(84,217,TA_Left|TA_BASELINE,skrt) end if(PodilSpol1<>0) begin Text(147,217,TA_Center|TA_BASELINE,PodilSpol1) end else begin Text(147,217,TA_Center|TA_BASELINE,skrt) end if(Length(Trim(JmenoSpol2))<>0) begin XText(12,223,31,TA_Left|TA_BASELINE,JmenoSpol2) end else begin Text(12,223,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniSpol2))<>0) begin XText(47,223,34,TA_Left|TA_BASELINE,PrijmeniSpol2) end else begin Text(47,223,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICSpol2))<>0) begin XText(84,223,32,TA_Left|TA_BASELINE,DICSpol2) end else begin Text(84,223,TA_Left|TA_BASELINE,skrt) end if(PodilSpol2<>0) begin Text(147,223,TA_Center|TA_BASELINE,PodilSpol2) end else begin Text(147,223,TA_Center|TA_BASELINE,skrt) end FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,232.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,234,175,253,3.3,3.3) PEN(0,0.1) LINEA(10,239,10,253) LINEA(45,239,45,253) LINEA(82,239,82,253) LINEA(119,239,119,253) LINEA(0,239,175,239) LINEA(0,247,175,247) Text(5,238,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,244.5,TA_Center|TA_BASELINE,'Jméno') Text(63.5,244.5,TA_Center|TA_BASELINE,'Příjmení') Text(100.5,244.5,TA_Center|TA_BASELINE,'DIČ') Text(147,244.5,TA_Center|TA_BASELINE,'Podíl na příjmech a výdajích v %') Text(5,251,TA_Center|TA_BASELINE,'1.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(JmenoRozdel1))<>0) begin XText(12,251,31,TA_Left|TA_BASELINE,JmenoRozdel1) end else begin Text(12,251,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(PrijmeniRozdel1))<>0) begin XText(47,251,34,TA_Left|TA_BASELINE,PrijmeniRozdel1) end else begin Text(47,251,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(DICRozdel1))<>0) begin XText(84,251,32,TA_Left|TA_BASELINE,DICRozdel1) end else begin Text(84,251,TA_Left|TA_BASELINE,skrt) end if(PodilRozdel1<>0) begin Text(147,251,TA_Center|TA_BASELINE,PodilRozdel1) end else begin Text(147,251,TA_Center|TA_BASELINE,skrt) end FontSize(3.2) FONTFACE(Italic|BOLD) Text(0,258.5,TA_Left|TA_BASELINE,'I. Údaje o veřejné obchodní společností nebo komanditní společnosti') FontSize(1.8) 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,260,175,270,3.3,3.3) PEN(0,0.1) LINEA(125,260,125,270) LINEA(165,260,165,270) FONTFACE(NORMAL) XText(2,265.5-1.5,120,TA_Left|TA_BASELINE,'Daňové identifikační číslo veřejné obchodní společnosti, kde jste společníkem, nebo komanditní') XText(2,265.5+1.5,120,TA_Left|TA_BASELINE,'společnosti, kde jste komplementářem, a výše Vašeho podílu v procentech') Text(127,265-1.5,TA_Left|TA_BASELINE,'DIČ') Text(166.5,265-1.5,TA_Left|TA_BASELINE,'%') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(DICVOS))<>0) begin XText(131,267,32,TA_Left|TA_BASELINE,DICVOS) end else begin Text(131,267,TA_Left|TA_BASELINE,skrt) end if(PodilVOS<>0) begin XText(167.5,267,7,TA_Left|TA_BASELINE,PodilVOS) end else begin Text(167.5,267,TA_Left|TA_BASELINE,skrt) end FONTFACE(NORMAL) FontSize(1.8) Text(0,272,TA_Left|TA_Baseline,'1'); FontSize(2.3) Text(1,272.3,TA_LEFT|TA_BASELINE,') V tabulce vyberte z předložených možností a označte křížkem') FontSize(1.8) Text(0,274.5,TA_Left|TA_Baseline,'2'); FontSize(2.3) Text(1,274.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(2.5) ; Text(175,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') Text(87.5,277,TA_CENTER|TA_BASELINE,'(2)') end end ;{============================================== str. 7 ========================} ;{tisk 7. strany:} begin if(Priloha2AnoNe) begin NextPage 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(4) FONTFACE(NORMAL|BOLD) Text(18,4,TA_Left|TA_BASELINE,'PŘÍLOHA č. 2') 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í 2003 typu B - 25 5405 MFin 5405 vzor č. 10 (dále jen "DAP"') FontSize(3.6) XText(18,15,175,TA_Left|TA_BASELINE,'Výpočet dílčích základů daně z příjmů fyzických osob ze závislé činnosti a z funkčních požitků (§6 zákona),') Text(18,19,TA_Left|TA_BASELINE,'příjmů z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)') FontSize(3.2) Text(18,28,TA_Left|TA_BASELINE,'1. Výpočet dílčího základu daně z příjmů fyzických osob ze závislé činnosti a z funkčních požitků (§6 zákona)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) STEXT(139,4,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FONTFACE(NORMAL) FontSize(3.2) Text(135,5,TA_Right|TA_BASELINE,'Rodné číslo:') Text(18,32,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,34,193,75,3.3,3.3) PEN(0,0.1) LINEA(113,38.5,193,38.5) LINESA(18,43,193,43,0,8,4) LINEA(113,34,113,75) LINEA(153,38.5,153,75) Text(153,37,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,41.5,TA_Center|TA_BASELINE,'poplatník') Text(173,41.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,48,TA_Left|TA_BASELINE,'201') Text(27,48,TA_Left|TA_BASELINE,'Úhrn příjmů od všech zaměstnavatelů') Text(20,56,TA_Left|TA_BASELINE,'202') Text(27,56,TA_Left|TA_BASELINE,'Úhrn pojistného') Text(20,64,TA_Left|TA_BASELINE,'203') Text(27,64,TA_Left|TA_BASELINE,'Daň zaplacená v zahraničí podle § 6 odst. 13 zákona') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(20,72-1.5,TA_Left|TA_BASELINE,'204') Text(27,72-1.5,TA_Left|TA_BASELINE,'Dílčí základ daně připadající na příjmy ze závislé činnosti') Text(27,72+1.5,TA_Left|TA_BASELINE,'a z funkčních požitků podle § 6 zákona (ř. 201 - ř. 202 - ř. 203)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P2201<>0) begin Text(148,48,TA_Right|TA_BASELINE,StrFinanc(P2201,0)) end else begin Text(148,48,TA_Right|TA_BASELINE,skrt) end if(P2202<>0) begin Text(148,56,TA_Right|TA_BASELINE,StrFinanc(P2202,0)) end else begin Text(148,56,TA_Right|TA_BASELINE,skrt) end if(P2203<>0) begin Text(148,64,TA_Right|TA_BASELINE,StrFinanc(P2203,0)) end else begin Text(148,64,TA_Right|TA_BASELINE,skrt) end if(P2204<>0) begin Text(148,72,TA_Right|TA_BASELINE,StrFinanc(P2204,0)) end else begin Text(148,72,TA_Right|TA_BASELINE,skrt) end FontSize(3.6) FONTFACE(NORMAL|BOLD) Text(18,84,TA_Left|TA_BASELINE,'2. Výpočet dílčího základu daně z příjmů fyzických osob z pronájmu (§9 zákona)') FONTFACE(NORMAL) FontSize(3.2) Text(18,88,TA_Left|TA_BASELINE,'Příjmy plynoucí ze zdrojů na území České republiky a příjmy plynoucí ze zdrojů v zahraničí') PEN(0,0.1) ROUNDBOXA(18,90,102,96,3.3,3.3) ROUNDBOXA(108,90,193,96,3.3,3.3) LINEA(92,90,92,96) LINEA(183,90,183,96) XText(20,94,70,TA_Left|TA_BASELINE,'Uplatňuji výdaje procentem z příjmů (20 %)') XText(110,94,70,TA_Left|TA_BASELINE,'Dosáhl jsem příjmů ze společného jmění manželů') PEN(0,0.1) LINEA(113,38.5,193,38.5) if(P2VydProcentem) begin LINEA(94,91,100,95) LINEA(94,95,100,91) end if(P2SpolJmeni) begin LINEA(185,91,191,95) LINEA(185,95,191,91) end PEN(0,0.3) ROUNDBOXA(18,103,193,160,3.3,3.3) PEN(0,0.1) LINEA(113,107.5,193,107.5) LINEA(113,103,113,160) LINEA(153,107.5,153,160) LINESA(18,112,193,112,0,8,6) Text(153,106,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,111,TA_Center|TA_BASELINE,'poplatník') Text(173,111,TA_Center|TA_BASELINE,'finanční úřad') Text(20,117,TA_Left|TA_BASELINE,'205') Text(27,117,TA_Left|TA_BASELINE,'Příjmy podle § 9 zákona') Text(20,125,TA_Left|TA_BASELINE,'206') Text(27,125,TA_Left|TA_BASELINE,'Výdaje podle § 9 zákona') Text(20,133-1.5,TA_Left|TA_BASELINE,'207') XText(27,133-1.5,88,TA_Left|TA_BASELINE,'Rozdíl mezi příjmy a výdaji (ř. 205 - ř. 206) nebo hospodářský') XText(27,133+1.5,88,TA_Left|TA_BASELINE,'výsledek před zdaněním (zisk, ztráta)') Text(20,141-2.3,TA_Left|TA_BASELINE,'208') XText(27,141-2.3,88,TA_Left|TA_BASELINE,'Úhrn částek podle § 23, § 5 a ostatní úpravy podle zákona zvyšující') XText(27,141,88,TA_Left|TA_BASELINE,'rozdíl mezi příjmy a výdaji nebo hospodářským výsledkem před') XText(27,141+2.3,88,TA_Left|TA_BASELINE,'zdaněním (zisk, ztráta)') Text(20,149-2.3,TA_Left|TA_BASELINE,'209') XText(27,149-2.3,88,TA_Left|TA_BASELINE,'Úhrn částek podle § 23, § 5 a ostatní úpravy podle zákona snižující') XText(27,149,88,TA_Left|TA_BASELINE,'rozdíl mezi příjmy a výdaji nebo hospodářským výsledkem před') Text(27,149+2.3,TA_Left|TA_BASELINE,'zdaněním (zisk, ztráta)') Text(20,157-1.5,TA_Left|TA_BASELINE,'210') Text(27,157-1.5,TA_Left|TA_BASELINE,'Dílčí základ daně, daňová ztráta z pronájmu podle § 9 zákona') Text(27,157+1.5,TA_Left|TA_BASELINE,'(ř. 207 + ř. 208 - ř. 209)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P2205<>0) begin Text(148,117,TA_Right|TA_BASELINE,StrFinanc(P2205,0)) end else begin Text(148,117,TA_Right|TA_BASELINE,skrt) end if(P2206<>0) begin Text(148,125,TA_Right|TA_BASELINE,StrFinanc(P2206,0)) end else begin Text(148,125,TA_Right|TA_BASELINE,skrt) end if(P2207<>0) begin Text(148,133,TA_Right|TA_BASELINE,StrFinanc(P2207,0)) end else begin Text(148,133,TA_Right|TA_BASELINE,skrt) end if(P2208<>0) begin Text(148,141,TA_Right|TA_BASELINE,StrFinanc(P2208,0)) end else begin Text(148,141,TA_Right|TA_BASELINE,skrt) end if(P2209<>0) begin Text(148,149,TA_Right|TA_BASELINE,StrFinanc(P2209,0)) end else begin Text(148,149,TA_Right|TA_BASELINE,skrt) end if(P2210<>0) begin Text(148,157,TA_Right|TA_BASELINE,StrFinanc(P2210,0)) end else begin Text(148,157,TA_Right|TA_BASELINE,skrt) end FontSize(3.6) FONTFACE(NORMAL|BOLD) Text(18,169,TA_Left|TA_BASELINE,'3. Výpočet dílčího základu daně z příjmů fyzických osob z ostatních příjmů (§10 zákona)') FONTFACE(NORMAL) FontSize(3.2) Text(18,173,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,175,193,223,3.3,3.3) PEN(0,0.1) LINEA(28,193,28,217) LINEA(93,175,93,223) LINEA(123,181,123,223) LINEA(153,181,153,223) LINEA(183,175,183,223) LINESA(18,181,193,181,0,6,7) Text(138,179,TA_Center|TA_BASELINE,'Poplatník vyplní v celých Kč') Text(55.5,185,TA_Center|TA_BASELINE,'Druh příjmů podle § 10 odst. 1 zákona') Text(108,185,TA_Center|TA_BASELINE,'Příjmy') Text(138,185,TA_Center|TA_BASELINE,'Výdaje') Text(168,185-1.5,TA_Center|TA_BASELINE,'Rozdíl') Text(168,185+1.5,TA_Center|TA_BASELINE,'sloupec 2 - sloupec 3') Text(188,185,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,191,TA_Center|TA_BASELINE,'1') Text(108,191,TA_Center|TA_BASELINE,'2') Text(138,191,TA_Center|TA_BASELINE,'3') Text(168,191,TA_Center|TA_BASELINE,'4') Text(188,191,TA_Center|TA_BASELINE,'5') Text(23,197,TA_Center|TA_BASELINE,'1') Text(23,203,TA_Center|TA_BASELINE,'2') Text(23,209,TA_Center|TA_BASELINE,'3') Text(23,215,TA_Center|TA_BASELINE,'4') Text(20,221,TA_Left|TA_BASELINE,'Úhrn kladných rozdílů jednotlivých druhů příjmu') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(P2Druh1))<>0) begin XText(30,197,61,TA_Left|TA_BASELINE,P2Druh1) end else begin Text(30,197,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(P2Druh2))<>0) begin XText(30,203,61,TA_Left|TA_BASELINE,P2Druh2) end else begin Text(30,203,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(P2Druh3))<>0) begin XText(30,209,61,TA_Left|TA_BASELINE,P2Druh3) end else begin Text(30,209,TA_Left|TA_BASELINE,skrt) end if(Length(Trim(P2Druh4))<>0) begin XText(30,215,61,TA_Left|TA_BASELINE,P2Druh4) end else begin Text(30,215,TA_Left|TA_BASELINE,skrt) end if(P2Prijem1<>0) begin Text(120,197,TA_Right|TA_BASELINE,StrFinanc(P2Prijem1,0)) end else begin Text(120,197,TA_Right|TA_BASELINE,skrt) end if(P2Prijem2<>0) begin Text(120,203,TA_Right|TA_BASELINE,StrFinanc(P2Prijem2,0)) end else begin Text(120,203,TA_Right|TA_BASELINE,skrt) end if(P2Prijem3<>0) begin Text(120,209,TA_Right|TA_BASELINE,StrFinanc(P2Prijem3,0)) end else begin Text(120,209,TA_Right|TA_BASELINE,skrt) end if(P2Prijem4<>0) begin Text(120,215,TA_Right|TA_BASELINE,StrFinanc(P2Prijem4,0)) end else begin Text(120,215,TA_Right|TA_BASELINE,skrt) end if(P2Vydaj1<>0) begin Text(150,197,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj1,0)) end else begin Text(150,197,TA_Right|TA_BASELINE,skrt) end if(P2Vydaj2<>0) begin Text(150,203,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj2,0)) end else begin Text(150,203,TA_Right|TA_BASELINE,skrt) end if(P2Vydaj3<>0) begin Text(150,209,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj3,0)) end else begin Text(150,209,TA_Right|TA_BASELINE,skrt) end if(P2Vydaj4<>0) begin Text(150,215,TA_Right|TA_BASELINE,StrFinanc(P2Vydaj4,0)) end else begin Text(150,215,TA_Right|TA_BASELINE,skrt) end if((P2Vydaj1<>0)and(P2Prijem1<>0)) begin Text(180,197,TA_Right|TA_BASELINE,StrFinanc(P2Prijem1-P2Vydaj1,0)) end else begin Text(180,197,TA_Right|TA_BASELINE,skrt) end if((P2Vydaj2<>0)and(P2Prijem2<>0)) begin Text(180,203,TA_Right|TA_BASELINE,StrFinanc(P2Prijem2-P2Vydaj2,0)) end else begin Text(180,203,TA_Right|TA_BASELINE,skrt) end if((P2Vydaj3<>0)and(P2Prijem3<>0)) begin Text(180,209,TA_Right|TA_BASELINE,StrFinanc(P2Prijem3-P2Vydaj3,0)) end else begin Text(180,209,TA_Right|TA_BASELINE,skrt) end if((P2Vydaj4<>0)and(P2Prijem4<>0)) begin Text(180,215,TA_Right|TA_BASELINE,StrFinanc(P2Prijem4-P2Vydaj4,0)) end else begin Text(180,215,TA_Right|TA_BASELINE,skrt) end if(P2DilciSuma<>0) begin Text(180,221,TA_Right|TA_BASELINE,StrFinanc(P2DilciSuma,0)) end else begin Text(180,221,TA_Right|TA_BASELINE,skrt) end Text(188,197,TA_Center|TA_BASELINE,P2Kod1) Text(188,203,TA_Center|TA_BASELINE,P2Kod2) Text(188,209,TA_Center|TA_BASELINE,P2Kod3) Text(188,215,TA_Center|TA_BASELINE,P2Kod4) PEN(0,0.3) ROUNDBOXA(18,230,193,262,3.3,3.3) PEN(0,0.1) LINEA(113,234,193,234) LINESA(18,238,193,238,0,8,3) LINEA(113,230,113,262) LINEA(153,234,153,262) FONTFACE(NORMAL) FontSize(3.2) Text(153,233,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,237,TA_Center|TA_BASELINE,'poplatník') Text(173,237,TA_Center|TA_BASELINE,'finanční úřad') Text(20,243,TA_Left|TA_BASELINE,'211') Text(27,243,TA_Left|TA_BASELINE,'Příjmy podle § 10 zákona') Text(20,251,TA_Left|TA_BASELINE,'212') Text(27,251,TA_Left|TA_BASELINE,'Výdaje § 10 zákona (maximálně do výše příjmů)') Text(20,259-1.5,TA_Left|TA_BASELINE,'213') Text(27,259-1.5,TA_Left|TA_BASELINE,'Dílčí základ daně připadající na ostatní příjmy podle § 10 zákona') Text(27,259+1.5,TA_Left|TA_BASELINE,'(ř. 211 - ř. 212)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P2211<>0) begin Text(148,243,TA_Right|TA_BASELINE,StrFinanc(P2211,0)) end else begin Text(148,243,TA_Right|TA_BASELINE,skrt) end if(P2212<>0) begin Text(148,251,TA_Right|TA_BASELINE,StrFinanc(P2212,0)) end else begin Text(148,251,TA_Right|TA_BASELINE,skrt) end if(P2213<>0) begin Text(148,259,TA_Right|TA_BASELINE,StrFinanc(P2213,0)) end else begin Text(148,259,TA_Right|TA_BASELINE,skrt) end FONTFACE(NORMAL) FontSize(1.8) Text(18,267,TA_Left|TA_Baseline,'1'); FontSize(2.3) XText(19,267.3,175,TA_LEFT|TA_BASELINE,') Řádek 203 vyplňte pouze v případě, máte-li příjem ze závislé činnosti ze státu, s nímž Česká republika neuzavřela smlouvu o zamezení dvojího zdanění') FontSize(1.8) Text(189,269.5,TA_Left|TA_Baseline,'2'); FontSize(2.3) XText(19,269.8,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ý je') XText(19,272,175,TA_LEFT|TA_BASELINE,'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"') FONTSIZE(2.5) ; Text(175,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') Text(105.5,277,TA_CENTER|TA_BASELINE,'(1)') end end ;{================================================ str. 8 ========================} ;{tisk 8. strany:} begin if(Priloha3AnoNe) begin NextPage 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(4) 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í 2003 typu B - 25 5405 MFin 5405 vzor č. 10 (dále jen "DAP"') FontSize(3.6) XText(18,15,175,TA_Left|TA_BASELINE,'Výpočet daně z příjmů dosažených za více zdaňovacích období, daně z příjmů ze zdrojů v zahraničí a daně') Text(18,19,TA_Left|TA_BASELINE,'po slevě') FontSize(3.2) Text(18,28,TA_Left|TA_BASELINE,'1. Výpočet daně z příjmů dosažených za více zdaňovacích období') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) STEXT(139,4,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FONTFACE(NORMAL) FontSize(3.2) Text(135,5,TA_Right|TA_BASELINE,'Rodné číslo:') PEN(0,0.1) ROUNDBOXA(18,30,193,75,3.3,3.3) LINEA(113,35,193,35) LINEA(18,40,193,40) LINEA(18,55,193,55) PEN(0,0.3) ROUNDBOXA(18,65,193,75,3.3,3.3) PEN(0,0.1) LINEA(113,30,113,75) LINEA(153,35,153,75) Text(153,33,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,38.5,TA_Center|TA_BASELINE,'poplatník') Text(173,38.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,44,TA_Left|TA_BASELINE,'301') XText(27,44,84,TA_Left|TA_BASELINE,'Procento daně ze základu daně (ř. 55 DAP děleno ř. 37 DAP') XText(27,47,84,TA_Left|TA_BASELINE,'násobeno stem. Jestliže takto zjištěné procento je menší než 15 %,') XText(27,50,84,TA_Left|TA_BASELINE,'použije se pro výpočet daně ze zbývajících částí příjmů sazba daně') XText(27,53,84,TA_Left|TA_BASELINE,'ve výši 15 %') Text(20,59,TA_Left|TA_BASELINE,'302') XText(27,59,84,TA_Left|TA_BASELINE,'Úhrn zbývajících částí příjmů dosažených za více zdaňovacích') XText(27,62,84,TA_Left|TA_BASELINE,'období (ř. 111)') Text(20,69,TA_Left|TA_BASELINE,'303') XText(27,69,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(27,72,84,TA_Left|TA_BASELINE,'období (ř. 301 násobeno ř. 302 děleno stem)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(147,50,TA_Left|TA_BASELINE,'%') if(P3301<>0) begin Text(146,50,TA_Right|TA_BASELINE,Str(P3301,5,2)) end else begin Text(146,50,TA_Right|TA_BASELINE,skrt) end if(P3302<>0) begin Text(146,61,TA_Right|TA_BASELINE,StrFinanc(P3302,0)) end else begin Text(146,61,TA_Right|TA_BASELINE,skrt) end if(P3303<>0) begin Text(146,71,TA_Right|TA_BASELINE,StrFinanc(P3303,0)) end else begin Text(146,71,TA_Right|TA_BASELINE,skrt) end PEN(0,0.1) ROUNDBOXA(18,88,193,174,3.3,3.3) LINEA(113,93,193,93) LINEA(18,98,193,98) LINEA(18,110,193,110) LINESA(18,122,193,122,0,10,4) PEN(0,0.3) ROUNDBOXA(18,162,193,174,3.3,3.3) PEN(0,0.1) LINEA(113,88,113,174) LINEA(153,93,153,174) FONTFACE(NORMAL) FontSize(3.2) Text(153,91,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,96.5,TA_Center|TA_BASELINE,'poplatník') Text(173,96.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,102,TA_Left|TA_BASELINE,'304') XText(27,102,84,TA_Left|TA_BASELINE,'Úhrn zbývajících částí příjmů dosažených za více zdaňovacích') XText(27,105,84,TA_Left|TA_BASELINE,'období, snížený o příslušnou část výdajů, na který je uplatňován') XText(27,108,84,TA_Left|TA_BASELINE,'zápočet daně zaplacení v zahraničí') Text(20,114,TA_Left|TA_BASELINE,'305') XText(27,114,84,TA_Left|TA_BASELINE,'Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí') XText(27,117,84,TA_Left|TA_BASELINE,'příjmů dosažených za více zdaňovacích období v souladu se') XText(27,120,84,TA_Left|TA_BASELINE,'smlouvou') Text(20,126.5,TA_Left|TA_BASELINE,'306') XText(27,126.5,84,TA_Left|TA_BASELINE,'Procento z úhrnu zbývajících částí příjmů') XText(27,130,84,TA_Left|TA_BASELINE,'(ř. 304 děleno ř. 302, násobeno stem)') Text(20,136.5,TA_Left|TA_BASELINE,'307') XText(27,136.5,84,TA_Left|TA_BASELINE,'Z částky daně zaplacené v zahraničí lze maximálně započítat') XText(27,140,84,TA_Left|TA_BASELINE,'(ř. 303 násobeno ř. 306, děleno stem)') Text(20,146.5,TA_Left|TA_BASELINE,'308') XText(27,146.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(27,150,84,TA_Left|TA_BASELINE,'období (ř. 305 maximálně však do výše ř. 307)') Text(20,156.5,TA_Left|TA_BASELINE,'309') XText(27,156.5,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 305 - ř. 308) je větší než nula. V případě, že rozdíl') XText(27,160,84,TA_Left|TA_BASELINE,'řádků (ř. 305 - ř. 308) je menší než nula, řádek proškrtněte') Text(20,166,TA_Left|TA_BASELINE,'310') XText(27,166,84,TA_Left|TA_BASELINE,'Daň ze zbývajících částí příjmů dosažených za více zdaňovacích') XText(27,169,84,TA_Left|TA_BASELINE,'období po zápočtu daně zaplacené v zahraničí (ř. 303 - ř. 308)') XText(27,172,84,TA_Left|TA_BASELINE,'Pokud Vám vyšlo záporné číslo, do řádku uveďte nulu.') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(147,128.5,TA_Left|TA_BASELINE,'%') if(P3304<>0) begin Text(146,105,TA_Right|TA_BASELINE,StrFinanc(P3304,0)) end else begin Text(146,105,TA_Right|TA_BASELINE,skrt) end if(P3305<>0) begin Text(146,117,TA_Right|TA_BASELINE,StrFinanc(P3305,0)) end else begin Text(146,117,TA_Right|TA_BASELINE,skrt) end if(P3306<>0) begin Text(146,128.5,TA_Right|TA_BASELINE,Str(P3306,5,2)) end else begin Text(146,128.5,TA_Right|TA_BASELINE,skrt) end if(P3307<>0) begin Text(146,138.5,TA_Right|TA_BASELINE,StrFinanc(P3307,0)) end else begin Text(146,138.5,TA_Right|TA_BASELINE,skrt) end if(P3308<>0) begin Text(146,148.5,TA_Right|TA_BASELINE,StrFinanc(P3308,0)) end else begin Text(146,148.5,TA_Right|TA_BASELINE,skrt) end if(P3309>0) begin Text(146,158.5,TA_Right|TA_BASELINE,StrFinanc(P3309,0)) end else begin Text(146,158.5,TA_Right|TA_BASELINE,skrt) end if(P3310>0) begin Text(146,169,TA_Right|TA_BASELINE,StrFinanc(P3310,0)) end else begin Text(146,169,TA_Right|TA_BASELINE,'0') end PEN(0,0.1) ROUNDBOXA(18,192,193,266,3.3,3.3) LINEA(113,197,193,197) LINESA(18,202,193,202,0,10,4) LINEA(18,246,193,246) PEN(0,0.3) ROUNDBOXA(18,256,193,266,3.3,3.3) PEN(0,0.1) LINEA(113,192,113,266) LINEA(153,197,153,266) FONTFACE(NORMAL) FontSize(3.2) Text(153,195,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(133,200.5,TA_Center|TA_BASELINE,'poplatník') Text(173,200.5,TA_Center|TA_BASELINE,'finanční úřad') Text(20,207,TA_Left|TA_BASELINE,'311') XText(27,207,84,TA_Left|TA_BASELINE,'Příjmy po vynětí dle § 6 zákona (ř. 31 - úhrn vyňatých příjmů') XText(27,210,84,TA_Left|TA_BASELINE,'ze zdrojů v zahraničí dle § 6 zákona)') Text(20,217,TA_Left|TA_BASELINE,'312') XText(27,217,84,TA_Left|TA_BASELINE,'Příjmy po vynětí dle § 7 až § 10 zákona (ř. 36 - úhrn vyňatých') XText(27,220,84,TA_Left|TA_BASELINE,'příjmů ze zdrojů v zahraničí dle § 7 až § 10 zákona)') Text(20,227,TA_Left|TA_BASELINE,'313') XText(27,227,84,TA_Left|TA_BASELINE,'Základ daně po vynětí příjmů ze zdrojů v zahraničí') XText(27,230,84,TA_Left|TA_BASELINE,'(ř. 311 + kladný ř. 312)') Text(20,235.5,TA_Left|TA_BASELINE,'314') XText(27,235.5,84,TA_Left|TA_BASELINE,'Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený') XText(27,238.5,84,TA_Left|TA_BASELINE,'o nezdanitelné části základu daně a odčitatelné položky') XText(27,241.5,84,TA_Left|TA_BASELINE,'(ř. 313 - ř. 40 - ř. 41a - ř. 41b - ř. 42a - ř. 43 - ř. 44 - ř. 45') XText(27,244.5,84,TA_Left|TA_BASELINE,'- ř. 46 - ř. 47 - ř. 48 - ř. 49 - ř. 50 - ř. 51 - ř. 38)') Text(20,251,TA_Left|TA_BASELINE,'315') XText(27,251,84,TA_Left|TA_BASELINE,'Sazba celkového daňového zatížení -') XText(27,254,84,TA_Left|TA_BASELINE,'(ř. 55 DAP děleno ř. 54 násobeno stem)') Text(20,261,TA_Left|TA_BASELINE,'316') XText(27,261,84,TA_Left|TA_BASELINE,'Daň ze základu daně po vynětí příjmů ze zdrojů v zahraničí') XText(27,264,84,TA_Left|TA_BASELINE,'(ř. 314 násobeno ř. 315 děleno stem)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(147,253,TA_Left|TA_BASELINE,'%') if(P3311<>0) begin Text(146,209,TA_Right|TA_BASELINE,StrFinanc(P3311,0)) end else begin Text(146,209,TA_Right|TA_BASELINE,skrt) end if(P3312<>0) begin Text(146,219,TA_Right|TA_BASELINE,StrFinanc(P3312,0)) end else begin Text(146,219,TA_Right|TA_BASELINE,skrt) end if(P3313<>0) begin Text(146,229,TA_Right|TA_BASELINE,StrFinanc(P3313,0)) end else begin Text(146,229,TA_Right|TA_BASELINE,skrt) end if(P3314<>0) begin Text(146,241,TA_Right|TA_BASELINE,StrFinanc(P3314,0)) end else begin Text(146,241,TA_Right|TA_BASELINE,skrt) end if(P3315<>0) begin Text(146,253,TA_Right|TA_BASELINE,Str(P3315,5,2)) end else begin Text(146,253,TA_Right|TA_BASELINE,skrt) end if(P3316<>0) begin Text(146,263,TA_Right|TA_BASELINE,StrFinanc(P3316,0)) end else begin Text(146,263,TA_Right|TA_BASELINE,skrt) end FONTFACE(NORMAL) FONTSIZE(2.5) ; Text(175,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') Text(105.5,277,TA_CENTER|TA_BASELINE,'(1)') end end ;{================================================ str. 9 ========================} ;{tisk 9. strany - příloha 3/2:} begin if(Priloha3AnoNe) begin NextPage FontSize(3.2) FONTFACE(Normal|BOLD) Text(0,4,TA_Left|TA_BASELINE,'3. Daň po vynětí a po slevě') FONTFACE(NORMAL) XText(4,10,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é uplatnujete slevu na dani, proveďte podle návodu uvedeného v Pokynu k DAP.') PEN(0,0.1) ROUNDBOXA(0,17,175,39,3.3,3.3) LINEA(0,29,175,29) LINEA(70,17,70,39) LINEA(87,17,87,39) LINEA(157,17,157,39) Text(4,21,TA_Right|TA_BASELINE,'a)') XText(5,21,62,TA_Left|TA_BASELINE,'průměrný roční přepočtený stav zaměstnanců') XText(5,24,62,TA_Left|TA_BASELINE,'se změněnou pracovní schopností (ZPS)') Text(78.5,21,TA_Center|TA_BASELINE,'sleva') Text(78.5,24,TA_Center|TA_BASELINE,'na dani') Text(78.5,27,TA_Center|TA_BASELINE,'(Kč)') Text(91,21,TA_Right|TA_BASELINE,'b)') XText(92,21,62,TA_Left|TA_BASELINE,'průměrný roční přepočtený stav zaměstnanců') XText(92,24,62,TA_Left|TA_BASELINE,'se změněnou pracovní schopností s těžším') XText(92,27,62,TA_Left|TA_BASELINE,'zdravotním postižením (ZPS s TZP)') Text(166,21,TA_Center|TA_BASELINE,'sleva') Text(166,24,TA_Center|TA_BASELINE,'na dani') Text(166,27,TA_Center|TA_BASELINE,'(Kč)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P3ZPS1P<>0) begin Text(60,36,TA_Right|TA_BASELINE,StrFinanc(P3ZPS1P,0)) end else begin Text(60,36,TA_Right|TA_BASELINE,skrt) end if(P3ZPS1H<>0) begin Text(85,36,TA_Right|TA_BASELINE,StrFinanc(P3ZPS1H,0)) end else begin Text(85,36,TA_Right|TA_BASELINE,skrt) end if(P3ZPS2P<>0) begin Text(147,36,TA_Right|TA_BASELINE,StrFinanc(P3ZPS2P,0)) end else begin Text(147,36,TA_Right|TA_BASELINE,skrt) end if(P3ZPS2H<>0) begin Text(173,36,TA_Right|TA_BASELINE,StrFinanc(P3ZPS2H,0)) end else begin Text(173,36,TA_Right|TA_BASELINE,skrt) end PEN(0,0.1) ROUNDBOXA(0,52,175,102,3.3,3.3) LINEA(95,57,175,57) LINESA(0,62,175,62,0,10,3) LINEA(95,52,95,102) LINEA(135,57,135,102) PEN(0,0.3) ROUNDBOXA(0,92,175,102,3.3,3.3) FONTFACE(NORMAL) FontSize(3.2) Text(135,56,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(115,60.5,TA_Center|TA_BASELINE,'poplatník') Text(155,60.5,TA_Center|TA_BASELINE,'finanční úřad') Text(2,66.5,TA_Left|TA_BASELINE,'317') XText(8,66.5,84,TA_Left|TA_BASELINE,'Daň podle § 16 idst. 1 zákona nebo daň po případném vynětí příjmů') XText(8,69.5,84,TA_Left|TA_BASELINE,'ze zdrojů v zahraničí (ř. 55 DAP nebo ř. 316)') Text(2,76.5,TA_Left|TA_BASELINE,'318') XText(8,76.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(8,79.5,84,TA_Left|TA_BASELINE,'období (ř. 303 nebo ř. 310)') Text(2,88,TA_Left|TA_BASELINE,'319') XText(8,88,84,TA_Left|TA_BASELINE,'Slevy celkem dle § 35 odst. 1 zákona') Text(2,98,TA_Left|TA_BASELINE,'320') XText(8,98,84,TA_Left|TA_BASELINE,'Daň po slevách (ř. 317 + 318 - ř. 319)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(P3317<>0) begin Text(125,68.5,TA_Right|TA_BASELINE,StrFinanc(P3317,0)) end else begin Text(125,68.5,TA_Right|TA_BASELINE,skrt) end if(P3318<>0) begin Text(125,78.5,TA_Right|TA_BASELINE,StrFinanc(P3318,0)) end else begin Text(125,78.5,TA_Right|TA_BASELINE,skrt) end if(P3319<>0) begin Text(125,88.5,TA_Right|TA_BASELINE,StrFinanc(P3319,0)) end else begin Text(125,88.5,TA_Right|TA_BASELINE,skrt) end if(P3320<>0) begin Text(125,98.5,TA_Right|TA_BASELINE,StrFinanc(P3320,0)) end else begin Text(125,98.5,TA_Right|TA_BASELINE,skrt) end PEN(0,0.1) ROUNDBOXA(0,150,175,230,3.3,3.3) LINEA(95,155,175,155) LINESA(0,160,175,160,0,10,6) LINEA(95,150,95,230) LINEA(135,155,135,230) LINEA(95,240,95,250) LINEA(135,240,135,250) PEN(0,0.3) ROUNDBOXA(0,220,175,230,3.3,3.3) ROUNDBOXA(0,240,175,250,3.3,3.3) FontSize(3.2) FONTFACE(Normal|BOLD) Text(0,146,TA_Left|TA_BASELINE,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí') FONTFACE(NORMAL) FontSize(3.2) Text(135,154,TA_Center|TA_BASELINE,'Vyplní v celých Kč') Text(115,159,TA_Center|TA_BASELINE,'poplatník') Text(155,159,TA_Center|TA_BASELINE,'finanční úřad') Text(2,164.5,TA_Left|TA_BASELINE,'321') XText(8,164.5,84,TA_Left|TA_BASELINE,'Příjmy (výnosy) plynoucí ze zdrojů v zahraničí, u nichž se použije') XText(8,167.5,84,TA_Left|TA_BASELINE,'metoda zápočtu') Text(2,176,TA_Left|TA_BASELINE,'322') XText(8,176,84,TA_Left|TA_BASELINE,'Výdaje (náklady)') Text(2,186,TA_Left|TA_BASELINE,'323') XText(8,186,84,TA_Left|TA_BASELINE,'Daň zaplacená v zahraničí') Text(2,196,TA_Left|TA_BASELINE,'324') XText(8,196,84,TA_Left|TA_BASELINE,'Koeficient zápočtu [(ř. 321 - ř. 322) děleno ř. 37 násobeno stem]') Text(2,204.5,TA_Left|TA_BASELINE,'325') XText(8,204.5,84,TA_Left|TA_BASELINE,'Z částky daně zaplacené v zahraničí lze maximálně započítat') XText(8,207.5,84,TA_Left|TA_BASELINE,'(ř. 317 násobeno ř. 324 děleno stem)') Text(2,216,TA_Left|TA_BASELINE,'326') XText(8,216,84,TA_Left|TA_BASELINE,'Daň uznaná k zápočtu (ř. 323 maximálně však do výše ř. 325)') Text(2,226,TA_Left|TA_BASELINE,'327') XText(8,226,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 323 - ř. 326)') Text(2,246,TA_Left|TA_BASELINE,'328') XText(8,246,84,TA_Left|TA_BASELINE,'Rozdíl řádků (ř. 320 - ř. 326)') FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) Text(126,196,TA_Left|TA_BASELINE,'%') if(P3321<>0) begin Text(125,166,TA_Right|TA_BASELINE,StrFinanc(P3321,0)) end else begin Text(125,166,TA_Right|TA_BASELINE,skrt) end if(P3322<>0) begin Text(125,176,TA_Right|TA_BASELINE,StrFinanc(P3322,0)) end else begin Text(125,176,TA_Right|TA_BASELINE,skrt) end if(P3323<>0) begin Text(125,186,TA_Right|TA_BASELINE,StrFinanc(P3323,0)) end else begin Text(125,186,TA_Right|TA_BASELINE,skrt) end if(P3324<>0) begin Text(125,196,TA_Right|TA_BASELINE,Str(P3324,5,2)) end else begin Text(125,196,TA_Right|TA_BASELINE,skrt) end if(P3325<>0) begin Text(125,206,TA_Right|TA_BASELINE,StrFinanc(P3325,0)) end else begin Text(125,206,TA_Right|TA_BASELINE,skrt) end if(P3326<>0) begin Text(125,216,TA_Right|TA_BASELINE,StrFinanc(P3326,0)) end else begin Text(125,216,TA_Right|TA_BASELINE,skrt) end if((P3327<>0)or(P3323<>0)) begin Text(125,226,TA_Right|TA_BASELINE,StrFinanc(P3327,0)) end else begin Text(125,226,TA_Right|TA_BASELINE,skrt) end if(P3328<>0) begin Text(125,246,TA_Right|TA_BASELINE,StrFinanc(P3328,0)) end else begin Text(125,246,TA_Right|TA_BASELINE,skrt) end FONTFACE(NORMAL) FONTSIZE(2.5) ; Text(175,276,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') Text(105.5,277,TA_CENTER|TA_BASELINE,'(2)') end end ;{================================================ str. 10 ========================} ;{tisk 10. strany - kalendář:} ; asi ověřit, zda umí vypočítat 12 mesíční období, když je vyplněn pouze rok if(DatumDo=0) LocStr='31.12.'+Str(Obdobi,4,0) DatumDo=ValDate(LocStr) if(DatumOd=0) LocStr='1.1.'+Str(Obdobi,4,0) DatumOd=ValDate(LocStr) DelkaObdobi:Real=0 DelkaObdobi=(year(DatumDo)*100+month(DatumDo))-(year(DatumOd)*100+month(DatumOd)) While(DelkaObdobi>87] begin DelkaObdobi=DelkaObdobi-88 end DelkaObdobi=DelkaObdobi+1 LocWord1=Month(DatumDo) LocShInt1=Month(DatumLhuta) IF(LocShInt1<=LocWord1) LocShInt1=LocShInt1+12 PosunPrizn=LocShInt1-LocWord1 ;priznání se podává o tolik pozdeji (3,6,9,10 měsíců) ;úprava délky období, je-li jinak nez 12 mesíců (je to přesunuto výše): ;DelkaObdobi:Real=0 ;DelkaObdobi=(year(DatumDo)*100+month(DatumDo))-(year(DatumOd)*100+month(DatumOd)) If(DelkaObdobi<0) Halt('Chybná délka zdaňovacího období < 0') If(DelkaObdobi=0) Halt('Chybná délka zdaňovacího období = 0') ;While(DelkaObdobi>87] ; begin ; DelkaObdobi=DelkaObdobi-88 ; end ;DelkaObdobi=DelkaObdobi+1 II360:Real=D58 II360ori:Real=D58 IF(DelkaObdobi<>12) II360=(II360/DelkaObdobi)*12 IF((II360>30000)and(D3130000)AND(II360<=150000)) ; budou pololetni zalohy begin IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin i=0 ;zálohy před lhůtou přiznání: Text(30,47,TA_LEFT,'do '+StrDate(DatumLhuta)+':') Text(150,47+(i*5),TA_RIGHT,'podle daňového přiznání za rok '+Str(IniRok-1)) i=i+1 ;LINEA(15,50+(i*5),153,50+(i*5)) Text(110,35+(i*5),TA_CENTER,'40% z '+STR(II360,12,0)+',-') ;první záloha: LocWord1=Month(DatumDo)+12 ; muzu scitat Word+ShortInt ??? LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;druhá záloha: LocWord1=Month(DatumDo)+18 LocShInt1=0 While(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,58+(i*5),TA_LEFT,LocStr) Text(110,58+(i*5),TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') FONTSIZE(3.5) Text(150,62+(i*5),TA_RIGHT,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem...)') PEN(0,0.3) ROUNDBOXA(15,30,153,72,3.3,3.3) LINESA(15,45,153,45,0,8,3) PoslSourad=72 end IF(NOT(PoradceAnoNe)) ; nemam poradce, odevzdavam tedy do 31.3 begin Text(110,40,TA_CENTER,'40% z '+STR(II360,12,0)+',-') ;první záloha: LocWord1=Month(DatumDo)+6 ; muzu scitat Word+ShortInt ??? LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50,TA_LEFT,LocStr) Text(110,50,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;druhá záloha: LocWord1=Month(DatumDo)+12 LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,58,TA_LEFT,LocStr) Text(110,58,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;třetí záloha ;první záloha: LocWord1=Month(DatumDo)+6 ; muzu scitat Word+ShortInt ??? LocShInt1=1 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,66,TA_LEFT,LocStr) ; Text(30,66,TA_LEFT,'15. června '+STR(IniRok+2)) Text(110,66,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') FONTSIZE(3.5) Text(150,70,TA_RIGHT,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,75,3.3,3.3) LINESA(15,48,153,48,0,8,3) PoslSourad=75 end end IF(II360>150000) ; budou kvartalni zalohy begin IF(True) ; IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin LINEA(15,48,153,48) Text(110,40,TA_CENTER,'1/4 z '+STR(II360,12,0)+',-') i=0 ;zálohy před lhůtou přiznání: Text(30,50,TA_LEFT,'do '+StrDate(DatumLhuta)+':') Text(150,50+(i*5),TA_RIGHT,'podle daňového přiznání za rok '+Str(IniRok-1)) i=i+1 LINEA(15,50+(i*5),153,50+(i*5)) ;první záloha po přiznání: LocWord1=Month(DatumDo)+PosunPrizn+3 ; v tomto měsíci by se mělo poprve platit záloha ; podle odevzdaneho priznani za aktualni rok LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin TEXT(20,PoslSourad+i,TA_LEFT,'Výpočet přepočten na 12měsíční zdaňovací období: '+StrDate(DatumOd)+' - '+StrDate(DatumDo)+' ... počet měsíců je '+Str(DelkaObdobi,3,0)) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'(řádek 58= '+LTrim(Str(II360ori,16,2))+' / počet měsíců='+Str(DelkaObdobi,3,0)+') * 12 ='+Str((II360ori/DelkaObdobi)*12,13,2))) i=i+4 end if(DelkaObdobi<12) TEXT(20,PoslSourad+i,TA_LEFT,'Pokud se poslední daňová povinnost týkala jen části zdaňovacího období...') else TEXT(20,PoslSourad+i,TA_LEFT,'Pokud se poslední daňová povinnost týkala zdaňovacího období delšího nežli 12 měsíců...') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'... prostudujte si § 38a, odst. 6 zákona o daních z příjmů') i=i+8 TEXT(20,PoslSourad+i,TA_LEFT,'Podklady, které mají vliv na výpočet kalendáře záloh:') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Zdaňovací období: '+StrDate(DatumOd)+' - '+StrDate(DatumDo)) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Lhůta pro podání DP: '+StrDate(DatumLhuta)) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Řádek 31=dílčí základ daně ze závislé činnosti je menší nežli 50% z řádku 54=celkový základ daně (viz §38a odst. 5)' i=i+4 LocStr=StrDate(AddDay(DatumLhuta,1)) LocShInt1=Length(LocStr) IF(LocShInt1>7) begin LocStr=RokZData(LocStr) LocWord1=Val(LocStr)+1 LocStr=Copy(StrDate(AddDay(DatumLhuta,1)),1,LocShInt1-4)+Str(LocWord1,4,0) LocWord1=ValDate(LocStr) LocWord1=AddDay(LocWord1,-1) TEXT(20,PoslSourad+i,TA_LEFT,'Zálohové období: '+StrDate(AddDay(DatumLhuta,1))+' - '+StrDate(LocWord1)) IF(PosunPrizn>3) Text(153,PoslSourad+i,TA_Right,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') i=i+4 end LocStr='Ne' IF(PoradceAnoNe) LocStr='Ano' TEXT(20,PoslSourad+i,TA_LEFT,'Přiznání podává daňový poradce: '+LocStr) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Poslední známá daňová povinnost, vypočtená tímto přiznáním, může být upravena:') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - platebním výměrem') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - dodatečným daňovým přiznáním, opravným daňovým přiznáním') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - dodatečným platebním výměrem') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - rozhodnutím správce daně o opravném prostředku') i=i+4 end Exit; End