; DDT pro DPPO vzor 9, upraveno pro verzi 1.46 ; verze z 30.5.2002 ; Autor: WinDUO Team IniRok:String=Rok() Name('DPPO '+IniRok) Designed('') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') Descr('Formulář daně z příjmu právnických osob vzor 9') 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') ; zrusit True: DlgFollowMouse(False) INI:String=DataPath+'DPPO.INI' NactiOdpisAnoNe:Boolean=False NactiNedanAnoNe:Boolean=False Souhlas:Boolean=True ;MamPokyny:Boolean=False ValidDatum:String='0123456789.' ValidBU:String='0123456789-/' ValidCislo:String='0123456789.,+-' ValidCisloInt:String='0123456789+-' ValidCisloKl:String='0123456789.,+' SetDecimalSize(2) Result:Integer=999 Result2:Integer=999 ;{definice uvodniho dialogu} DefDialog('POMŮCKA pro sestavení přiznání DPPO vzor 9',600,400) ;DlgShade(-1,'',4,4,392,177) DlgShade(-1,'',4,27,590,302) ;DlgCheckBox(101,MamPokyny,12,14,315,,'Mám k dispozici POKYNY k vyplnění přiznání') ;DlgOnLineHelp(101,'Bez těchto pokynů se Vám bude přiznání těžko sestavovat...') DlgStatic(-1,'TOTO JE POUZE POMŮCKA K SESTAVENÍ PŘIZNÁNÍ K DANI Z PŘÍJMU PRÁVNICKÝCH OSOB',1,5,600) DlgStatic(-1,'Doporučení - seznamte se s POKYNY k vyplnění přiznání k DPPO',16,34,510) DlgStatic(-1,'(25 5404/1 MFin 5404/1 - vzor č. 9) 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ě nezaokrohlených údajů za 12/'+STR(IniRok,4),16,82,540) IF(Program.TypFirmy<>2) ; nevýdělečné begin DlgStatic(-1,'-účet 551 zvolte "Nevstupuje do daňové závěrky" před výpočtem',98,98,425) DlgStatic(-1,'sestavy Daňový HV',98,114,135) end DlgStatic(-1,'- musí být vypočtena sestava Daňový hosp.výsledek v menu Roční závěrka',98,130,493) DlgStatic(-1,'Upozornění - výpočet není určen pro peněžní ústavy a pojišťovny',16,146,433) ;IF(not CompareStr(IniRok,'1999')) ; DlgStatic(-1,'- tento program počítá přiznání DPPO podle pravidel roku 1999 - vzor č.9',93,162,476) Souhlas:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Souhlas',INI)) DlgBitmap(903,20,163) DlgCheckBox(100,Souhlas,68,177,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 údaje, které zadáváte sami, ale i ty, které jsou do výpočtů 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 DPPO (pro výpočet DPPO je odsouhlašení tohoto bodu povinné)',88,197,504) DlgStatic(-1,'pokud sestavujete přiznání ručně, lze tento bod přeskočit',88,213,500) DlgDivider(16,231,567,0) DatumUctSkup:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumUctSkup',INI) If(LENGTH(DatumUctSkup)<>0)) begin NactiNedanAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'NactiNedanAnoNe',INI)) DlgCheckBox(110,NactiNedanAnoNe,12,237,572,,'Načíst tabulku nedaňových nákladů ze sestavy: ') DlgOnLineHelp(110,'Tabulku A. Rozdělení výdajů ... lze načíst ze sestavy Daňový HV nebo lze zadat ručně') DlgStatic(-1,'- sestava Daňový HV (součást roční závěrky) z data: '+DatumUctSkup,94,256,490) ;DlgStatic(-1,'(tabulku je možno zadat nebo opravit ručně)',104,308,290) end else begin DlgStatic(-1,'- vypočtěte sestavu Daňový HV, údaje z ní budou převzaty',93,237,396) DlgStatic(-1,'do výpočtů DPPO Tab. A, jinak je budete muset zadat ručně',102,253,390) 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,243,,'Načíst tabulku odpisů 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ů DPPO, 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,1040) 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,'NactiNedanAnoNe',NactiNedanAnoNe,INI) ;{definice promennych} AktualCover:Integer=0 skrt:String[3]='---' V3:LongInt=0 IV3:LongInt=0 IV6:LongInt=0 SumaNeNakl:LongInt=0 SumaNeNaklNact:LongInt=0 SumaDanOdpis:LongInt=0 SumaDanOdpisNact:LongInt=0 Suma551:LongInt=0 HV10:Double=0 ExistVZaZ:Boolean=False RozdilOdpisu:LongInt=0 RozdilOdpisu50:LongInt=0 RozdilOdpisu150:LongInt=0 II70:LongInt=0 II170:LongInt=0 FA4:LongInt=0 FB6:LongInt=0 FB8:LongInt=0 II200:LongInt=0 II220:LongInt=0 II250:LongInt=0 II270:LongInt=0 SazbaDan:Real=0 II290:LongInt=0 II310:LongInt=0 Zahr1:LongInt=0 Zahr3:Real=0 Zahr4:LongInt=0 Zahr6:LongInt=0 Zahr7:LongInt=0 II330:LongInt=0 II333:LongInt=0 II335:LongInt=0 II340:LongInt=0 II360:LongInt=0 CP24:LongInt=0 CP34:LongInt=0 CP56:LongInt=0 CP57:LongInt=0 E84:LongInt=0 E85:LongInt=0 SoucetK1:Double=0 ;{definice a nacteni promennych z INI} begin ;{nacteni pro 1.cover} FinancniUrad:String[50]=GetFromIni('TITULNI','FinancniUrad',INI) ObchodniJmeno:String[35]=GetFromIni('TITULNI','ObchodniJmeno',INI) DodatekJmena:String[35]=GetFromIni('TITULNI','DodatekJmena',INI) Obec:String[16]=GetFromIni('TITULNI','Obec',INI) PSCdppo:String[5]=GetFromIni('TITULNI','PSC',INI) UliceDppo:String[22]=GetFromIni('TITULNI','Ulice',INI) Okres:String[19]=GetFromIni('TITULNI','Okres',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) TypPriz1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'TypPriz1',INI)) PoradceAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'PoradceAnoNe',INI)) OverAuditAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'OverAuditAnoNe',INI)) ZaverkaAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'ZaverkaAnoNe',INI)) DatumDodat:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDodat',INI)) PocetPodilFondu:Integer=VAL(GetFromIni('TITULNI'+IniRok,'PocetPodilFondu',INI)) PoradCisloFondu:Integer=VAL(GetFromIni('TITULNI'+IniRok,'PoradCisloFondu',INI)) PocetPrilII:Integer=VAL(GetFromIni('TITULNI'+IniRok,'PocetPrilII',INI)) PocetZvlPril:Integer=VAL(GetFromIni('TITULNI'+IniRok,'PocetZvlPril',INI)) KodRozlis:String[2]=GetFromIni('TITULNI','KodRozlis',INI) IF(Length(KodRozlis)=0) KodRozlis='1A' HlavCinn1:String[140]=GetFromIni('TITULNI','HlavCinn1',INI) HlavCinn2:String[140]=GetFromIni('TITULNI','HlavCinn2',INI) ;{nacteni pro 2.cover} IF(NactiNedanAnoNe) ;vynuluje hodnoty a nacte platne ze sekce Hodnoty v INI begin TextUctSkup1:STRING[50] TextUctSkup2:STRING[50] TextUctSkup3:STRING[50] TextUctSkup4:STRING[50] TextUctSkup5:STRING[50] TextUctSkup6:STRING[50] TextUctSkup7:STRING[50] TextUctSkup8:STRING[50] TextUctSkup9:STRING[50] TextUctSkup10:STRING[50] TextUctSkup11:STRING[50] TextUctSkup12:STRING[50] UctSkup1:LongInt UctSkup2:LongInt UctSkup3:LongInt UctSkup4:LongInt UctSkup5:LongInt UctSkup6:LongInt UctSkup7:LongInt UctSkup8:LongInt UctSkup9:LongInt UctSkup10:LongInt UctSkup11:LongInt UctSkup12:LongInt ;cyklus pro nacteni hodnot: i:Byte=0 j:Byte=0 SumaNeNakl:LongInt=0 SumaNeNaklNact:LongInt=0 ; zjisteni ucetnich odpisu z INI z Hodnoty: IF(Program.TypFirmy<>2) ; neni nevýdělečná Suma551=VAL(GetFromIni('Hodnoty '+IniRok,'Ucet551',INI)) else ; je nevýdělečná Suma551=VAL(GetFromIni('Ba'+IniRok,'Suma551',INI)) pom1:STRING[50] pom2:LongInt While((i<10) AND ((Length(pom1)<>0) OR (i=0))) begin i=i+1 ;pocet v cyklu pom1:STRING[50]=GetFromIni('Hodnoty '+IniRok,'TextUctSkup '+STR(i),INI) pom2:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'UctSkup '+STR(i),INI)))) x:STRING=ToChar(' ',pom1) IF(CompareStr(x,'55')) ;ocistit o ucetni odpisy begin pom1=pom1+' (bez účetních odpisů)' pom2=pom2-Suma551 end SumaNeNaklNact=SumaNeNaklNact+pom2 IF(i=1) begin TextUctSkup1=pom1 UctSkup1=pom2 end IF(i=2) begin TextUctSkup2=pom1 UctSkup2=pom2 end IF(i=3) begin TextUctSkup3=pom1 UctSkup3=pom2 end IF(i=4) begin TextUctSkup4=pom1 UctSkup4=pom2 end IF(i=5) begin TextUctSkup5=pom1 UctSkup5=pom2 end IF(i=6) begin TextUctSkup6=pom1 UctSkup6=pom2 end IF(i=7) begin TextUctSkup7=pom1 UctSkup7=pom2 end IF(i=8) begin TextUctSkup8=pom1 UctSkup8=pom2 end IF(i=9) begin TextUctSkup9=pom1 UctSkup9=pom2 end IF(i=10) begin TextUctSkup10=pom1 UctSkup10=pom2 end end end else ; nacte ze sekce A v INI begin TextUctSkup1:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup1',INI) TextUctSkup2:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup2',INI) TextUctSkup3:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup3',INI) TextUctSkup4:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup4',INI) TextUctSkup5:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup5',INI) TextUctSkup6:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup6',INI) TextUctSkup7:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup7',INI) TextUctSkup8:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup8',INI) TextUctSkup9:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup9',INI) TextUctSkup10:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup10',INI) TextUctSkup11:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup11',INI) TextUctSkup12:STRING[50]=GetFromIni('A'+IniRok,'TextUctSkup12',INI) UctSkup1:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup1',INI)) UctSkup2:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup2',INI)) UctSkup3:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup3',INI)) UctSkup4:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup4',INI)) UctSkup5:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup5',INI)) UctSkup6:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup6',INI)) UctSkup7:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup7',INI)) UctSkup8:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup8',INI)) UctSkup9:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup9',INI)) UctSkup10:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup10',INI)) UctSkup11:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup11',INI)) UctSkup12:LongInt=VAL(GetFromIni('A'+IniRok,'UctSkup12',INI)) Suma551=VAL(GetFromIni('Ba'+IniRok,'Suma551',INI)) end ;{nacteni pro 3.cover} 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 ;David: nekdy v noci se probudim, nebot me prekvapi myslenka ;v mladi jsem prikladal myslenkam velkou vahu 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)) 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)) ;{nacteni pro 4.cover} OdpisPohl1:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl1',INI)) OdpisPohl2:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl2',INI)) OdpisPohl3:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl3',INI)) OdpisPohl4:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl4',INI)) OdpisPohl5:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl5',INI)) OdpisPohl6:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl6',INI)) OdpisPohl7:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl7',INI)) OdpisPohl8:LongInt=VAL(GetFromIni('Ca'+IniRok,'OdpisPohl8',INI)) Rezerva18:LongInt=VAL(GetFromIni('Cd'+IniRok,'Rezerva18',INI)) Rezerva19:LongInt=VAL(GetFromIni('Cd'+IniRok,'Rezerva19',INI)) Rezerva20:LongInt=VAL(GetFromIni('Ce'+IniRok,'Rezerva20',INI)) Rezerva21:LongInt=VAL(GetFromIni('Ce'+IniRok,'Rezerva21',INI)) Rezerva22:LongInt=VAL(GetFromIni('Ce'+IniRok,'Rezerva22',INI)) ;{nacteni pro 5.cover} CP14:LongInt=VAL(GetFromIni('CP'+IniRok,'CP14',INI)) CP15:LongInt=VAL(GetFromIni('CP'+IniRok,'CP15',INI)) CP16:LongInt=VAL(GetFromIni('CP'+IniRok,'CP16',INI)) CP17:LongInt=VAL(GetFromIni('CP'+IniRok,'CP17',INI)) CP22:LongInt=VAL(GetFromIni('CP'+IniRok,'CP22',INI)) CP23:LongInt=VAL(GetFromIni('CP'+IniRok,'CP23',INI)) CP25:LongInt=VAL(GetFromIni('CP'+IniRok,'CP25',INI)) CP26:LongInt=VAL(GetFromIni('CP'+IniRok,'CP26',INI)) CP27:LongInt=VAL(GetFromIni('CP'+IniRok,'CP27',INI)) CP32:LongInt=VAL(GetFromIni('CP'+IniRok,'CP32',INI)) CP33:LongInt=VAL(GetFromIni('CP'+IniRok,'CP33',INI)) CP35:LongInt=VAL(GetFromIni('CP'+IniRok,'CP35',INI)) CP36:LongInt=VAL(GetFromIni('CP'+IniRok,'CP36',INI)) CP37:LongInt=VAL(GetFromIni('CP'+IniRok,'CP37',INI)) E11:LongInt=VAL(GetFromIni('E'+IniRok,'E11',INI)) E12:LongInt=VAL(GetFromIni('E'+IniRok,'E12',INI)) E13:LongInt=VAL(GetFromIni('E'+IniRok,'E13',INI)) E14:LongInt=VAL(GetFromIni('E'+IniRok,'E14',INI)) E15:LongInt=VAL(GetFromIni('E'+IniRok,'E15',INI)) E21:LongInt=VAL(GetFromIni('E'+IniRok,'E21',INI)) E22:LongInt=VAL(GetFromIni('E'+IniRok,'E22',INI)) E23:LongInt=VAL(GetFromIni('E'+IniRok,'E23',INI)) E24:LongInt=VAL(GetFromIni('E'+IniRok,'E24',INI)) E25:LongInt=VAL(GetFromIni('E'+IniRok,'E25',INI)) E31:LongInt=VAL(GetFromIni('E'+IniRok,'E31',INI)) E32:LongInt=VAL(GetFromIni('E'+IniRok,'E32',INI)) E33:LongInt=VAL(GetFromIni('E'+IniRok,'E33',INI)) E34:LongInt=VAL(GetFromIni('E'+IniRok,'E34',INI)) E35:LongInt=VAL(GetFromIni('E'+IniRok,'E35',INI)) E41:LongInt=VAL(GetFromIni('E'+IniRok,'E41',INI)) E42:LongInt=VAL(GetFromIni('E'+IniRok,'E42',INI)) E43:LongInt=VAL(GetFromIni('E'+IniRok,'E43',INI)) E44:LongInt=VAL(GetFromIni('E'+IniRok,'E44',INI)) E45:LongInt=VAL(GetFromIni('E'+IniRok,'E45',INI)) E51:LongInt=VAL(GetFromIni('E'+IniRok,'E51',INI)) E52:LongInt=VAL(GetFromIni('E'+IniRok,'E52',INI)) E53:LongInt=VAL(GetFromIni('E'+IniRok,'E53',INI)) E54:LongInt=VAL(GetFromIni('E'+IniRok,'E54',INI)) E55:LongInt=VAL(GetFromIni('E'+IniRok,'E55',INI)) E61:LongInt=VAL(GetFromIni('E'+IniRok,'E61',INI)) E62:LongInt=VAL(GetFromIni('E'+IniRok,'E62',INI)) E63:LongInt=VAL(GetFromIni('E'+IniRok,'E63',INI)) E64:LongInt=VAL(GetFromIni('E'+IniRok,'E64',INI)) E65:LongInt=VAL(GetFromIni('E'+IniRok,'E65',INI)) E71:LongInt=VAL(GetFromIni('E'+IniRok,'E71',INI)) E72:LongInt=VAL(GetFromIni('E'+IniRok,'E72',INI)) E73:LongInt=VAL(GetFromIni('E'+IniRok,'E73',INI)) E74:LongInt=VAL(GetFromIni('E'+IniRok,'E74',INI)) E75:LongInt=VAL(GetFromIni('E'+IniRok,'E75',INI)) ;{nacteni pro 6.coveru} FA1:LongInt=VAL(GetFromIni('F'+IniRok,'FA1',INI)) FA2:LongInt=VAL(GetFromIni('F'+IniRok,'FA2',INI)) FA3:LongInt=VAL(GetFromIni('F'+IniRok,'FA3',INI)) FB5:LongInt=VAL(GetFromIni('F'+IniRok,'FB5',INI)) FB7:LongInt=VAL(GetFromIni('F'+IniRok,'FB7',INI)) ;{nacteni pro 7.cover} Dar4:LongInt=VAL(GetFromIni('G'+IniRok,'Dar4',INI)) Dar2:LongInt=VAL(GetFromIni('G'+IniRok,'Dar2',INI)) H1:LongInt=VAL(GetFromIni('H'+IniRok,'H1',INI)) H2:LongInt=VAL(GetFromIni('H'+IniRok,'H2',INI)) H3:LongInt=VAL(GetFromIni('H'+IniRok,'H3',INI)) ZapocetZahr:Boolean=GetBoolean(GetFromIni('I'+IniRok,'ZapocetZahr',INI)) Zahr2:LongInt=VAL(GetFromIni('I'+IniRok,'Zahr2',INI)) Zahr5:LongInt=VAL(GetFromIni('I'+IniRok,'Zahr5',INI)) Zahr6:LongInt=VAL(GetFromIni('I'+IniRok,'Zahr6',INI)) Komand11:LongInt=VAL(GetFromIni('J'+IniRok,'Komand11',INI)) Komand12:LongInt=VAL(GetFromIni('J'+IniRok,'Komand12',INI)) Komand21:LongInt=VAL(GetFromIni('J'+IniRok,'Komand21',INI)) Komand22:LongInt=VAL(GetFromIni('J'+IniRok,'Komand22',INI)) Komand31:LongInt=VAL(GetFromIni('J'+IniRok,'Komand31',INI)) Komand32:LongInt=VAL(GetFromIni('J'+IniRok,'Komand32',INI)) Komand41:LongInt=VAL(GetFromIni('J'+IniRok,'Komand41',INI)) Komand42:LongInt=VAL(GetFromIni('J'+IniRok,'Komand42',INI)) Komand51:LongInt=VAL(GetFromIni('J'+IniRok,'Komand51',INI)) Komand52:LongInt=VAL(GetFromIni('J'+IniRok,'Komand52',INI)) Komand61:LongInt=VAL(GetFromIni('J'+IniRok,'Komand61',INI)) Komand62:LongInt=VAL(GetFromIni('J'+IniRok,'Komand62',INI)) Komand72:LongInt=VAL(GetFromIni('J'+IniRok,'Komand72',INI)) Komand81:LongInt=VAL(GetFromIni('J'+IniRok,'Komand81',INI)) Komand82:LongInt=VAL(GetFromIni('J'+IniRok,'Komand82',INI)) Komand91:LongInt=VAL(GetFromIni('J'+IniRok,'Komand91',INI)) Komand92:LongInt=VAL(GetFromIni('J'+IniRok,'Komand92',INI)) Komand101:LongInt=VAL(GetFromIni('J'+IniRok,'Komand101',INI)) Komand102:LongInt=VAL(GetFromIni('J'+IniRok,'Komand102',INI)) ;{nacteni pro 8.cover} II20:LongInt=VAL(GetFromIni('II'+IniRok,'II20',INI)) II30:LongInt=VAL(GetFromIni('II'+IniRok,'II30',INI)) II60:LongInt=VAL(GetFromIni('II'+IniRok,'II60',INI)) II61:LongInt=VAL(GetFromIni('II'+IniRok,'II61',INI)) II62text:STRING=GetFromIni('II'+IniRok,'II62text',INI) II62:LongInt=VAL(GetFromIni('II'+IniRok,'II62',INI)) II100:LongInt=VAL(GetFromIni('II'+IniRok,'II100',INI)) II101:LongInt=VAL(GetFromIni('II'+IniRok,'II101',INI)) II110:LongInt=VAL(GetFromIni('II'+IniRok,'II110',INI)) II120:LongInt=VAL(GetFromIni('II'+IniRok,'II120',INI)) II130:LongInt=VAL(GetFromIni('II'+IniRok,'II130',INI)) II140:LongInt=VAL(GetFromIni('II'+IniRok,'II140',INI)) II160:LongInt=VAL(GetFromIni('II'+IniRok,'II160',INI)) II161:LongInt=VAL(GetFromIni('II'+IniRok,'II161',INI)) II162text:STRING=GetFromIni('II'+IniRok,'II162text',INI) II162:LongInt=VAL(GetFromIni('II'+IniRok,'II162',INI)) ;{nacteni pro 9.cover} II201:LongInt=VAL(GetFromIni('II'+IniRok,'II201',INI)) II210:LongInt=VAL(GetFromIni('II'+IniRok,'II210',INI)) II230:LongInt=VAL(GetFromIni('II'+IniRok,'II230',INI)) II241text:STRING=GetFromIni('II'+IniRok,'II241text',INI) II241:LongInt=VAL(GetFromIni('II'+IniRok,'II241',INI)) II251:LongInt=VAL(GetFromIni('II'+IniRok,'II251',INI)) II260:LongInt=VAL(GetFromIni('II'+IniRok,'II260',INI)) SazbaDPPO:Integer=VAL(GetFromIni('II'+IniRok,'SazbaDPPO',INI)) II300:LongInt=VAL(GetFromIni('II'+IniRok,'II300',INI)) II301text:STRING=GetFromIni('II'+IniRok,'II301text',INI) II301:LongInt=VAL(GetFromIni('II'+IniRok,'II301',INI)) II320:LongInt=VAL(GetFromIni('II'+IniRok,'II320',INI)) II331:LongInt=VAL(GetFromIni('II'+IniRok,'II331',INI)) SazbaDPPO2:Integer=VAL(GetFromIni('II'+IniRok,'SazbaDPPO2',INI)) II334:LongInt=VAL(GetFromIni('II'+IniRok,'II334',INI)) ;II340:LongInt=VAL(GetFromIni('II'+IniRok,'II340',INI)) II350:LongInt=VAL(GetFromIni('II'+IniRok,'II350',INI)) II351:LongInt=VAL(GetFromIni('II'+IniRok,'II351',INI)) ;{nacteni pro 10.cover} III1:LongInt=VAL(GetFromIni('III'+IniRok,'III1',INI)) III2:LongInt=VAL(GetFromIni('III'+IniRok,'III2',INI)) III3:LongInt=VAL(GetFromIni('III'+IniRok,'III3',INI)) IV1:LongInt=VAL(GetFromIni('IV'+IniRok,'IV1',INI)) IV2:LongInt=VAL(GetFromIni('IV'+IniRok,'IV2',INI)) IV4:LongInt=VAL(GetFromIni('IV'+IniRok,'IV4',INI)) IV5:LongInt=VAL(GetFromIni('IV'+IniRok,'IV5',INI)) V1:LongInt=VAL(GetFromIni('V'+IniRok,'V1',INI)) V2:LongInt=VAL(GetFromIni('V'+IniRok,'V2',INI)) JmenoOpravnen:STRING[10]=GetFromIni('ZAVER'+IniRok,'JmenoOpravnen',INI) PrijmeniOpravnen:STRING[22]=GetFromIni('ZAVER'+IniRok,'PrijmeniOpravnen',INI) Postaveni:STRING[150]=GetFromIni('ZAVER'+IniRok,'Postaveni',INI) EvCisOsved:STRING[6]=GetFromIni('ZAVER'+IniRok,'EvCisOsved',INI) SidloPoradce:STRING[150]=GetFromIni('ZAVER'+IniRok,'SidloPoradce',INI) DatumPodani:Word=ValDate(GetFromIni('ZAVER'+IniRok,'DatumPodani',INI)) Sestavil:STRING[50]=GetFromIni('ZAVER'+IniRok,'Sestavil',INI) TelefSestav:STRING[12]=GetFromIni('ZAVER'+IniRok,'TelefSestav',INI) end ;{ vypocet HV na radku 10 - je to v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} ;VZaZ musi obsahovat udaje bez zaokrouhleni IF(Program.TypFirmy=0) ; podnikatelska begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True IF(Program.ZkraceneF) ; zkracene begin SkipWNSLine(2,256,45) ; 46ř LoadWNSLine(2,256) HV10=GetFromWNSLine(4,False) ; false = maskovani, pri vypoctu bere nezakrouhlene end else ; plny rozsah begin SkipWNSLine(2,0,60) ; 61ř LoadWNSLine(2,0) HV10=GetFromWNSLine(4,False) end end else ; neexistuje VZaZ begin ExistVZaZ=False end end IF(Program.TypFirmy=3) ; spor.druzstva begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,3,60) ; 61ř LoadWNSLine(2,3) HV10=GetFromWNSLine(4,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end IF(Program.TypFirmy=1) ; příspěvková begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,1,16) LoadWNSLine(2,1) ; 27ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) ;asi nejde, asi to precte 5 z dalsiho radku, skip -1??? LoadWNSLine(2,1) ; 28ř HV10=HV10-GetFromWNSLine(4,False)-GetFromWNSLine(5,False) SkipWNSLine(2,1,2) LoadWNSLine(2,1) ; 31ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) SkipWNSLine(2,1,2) LoadWNSLine(2,1) ; 34ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) SkipWNSLine(2,1,2) LoadWNSLine(2,1) ; 37ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) LoadWNSLine(2,1) ; 38ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) SkipWNSLine(2,1,3) LoadWNSLine(2,1) ; 42ř HV10=HV10+GetFromWNSLine(4,False)+GetFromWNSLine(5,False) LoadWNSLine(2,1) ; 43ř HV10=HV10-GetFromWNSLine(4,False)-GetFromWNSLine(5,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end IF(Program.TypFirmy=2) ; nevýdělečné begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,2,28) ;číslování je o 200 dolů LoadWNSLine(2,2) ; 229ř HV10=HV10+GetFromWNSLine(5,False) LoadWNSLine(2,2) ; 230ř HV10=HV10+GetFromWNSLine(5,False) SkipWNSLine(2,2,8) LoadWNSLine(2,2) ; 239ř HV10=HV10+GetFromWNSLine(5,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end IF(Program.TypFirmy=4) ; obecneprospesna begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,4,57) LoadWNSLine(2,4) ; 68ř HV10=HV10+GetFromWNSLine(7,False) ; cislo sloupce??? end else ; neexistuje VZaZ begin ExistVZaZ=False end end ;{vypocet pocitanych hodnot} Vypocet: IF(LENGTH(BankovniUcet)=0) BankovniUcet=Program.DefUcet IF(LENGTH(ObchodniJmeno)=0) ObchodniJmeno=Program.Firma IF(LENGTH(DodatekJmena)=0) DodatekJmena=Program.Rozsireni IF(LENGTH(Obec)=0) Obec=Program.Mesto IF(LENGTH(PSCdppo)=0) PSCdppo=Program.PSC IF(LENGTH(UliceDppo)=0) UliceDppo=Program.Ulice IF(LENGTH(Stat)=0) Stat=Program.Stat SumaDanOdpis=Odpis1+Odpis2+Odpis3+Odpis4+Odpis5+Odpis6+Odpis7+Odpis8 ;abych mohl násobit sazbou: IF(SazbaDPPO=0) SazbaDan=35 IF(SazbaDPPO=1) SazbaDan=25 IF(SazbaDPPO=2) SazbaDan=17.5 IF(SazbaDPPO=3) SazbaDan=12.5 IF((SazbaDPPO>3) OR (SazbaDPPO<0)) SazbaDan=35 IF(CompareStr(IniRok,'1999')) begin IF(SazbaDPPO=0) SazbaDan=35 IF(SazbaDPPO=1) SazbaDan=25 IF(SazbaDPPO=2) SazbaDan=17.5 IF(SazbaDPPO=3) SazbaDan=12.5 IF((SazbaDPPO>3) OR (SazbaDPPO<0)) SazbaDan=35 end IF(II331<>0) begin SazbaDPPO2=25 ; sazbadppo2 podle § 21 odst.4 II333=Double((II331*SazbaDPPO2)/100) end else begin SazbaDPPO2=0 II333=0 end Vypoc1: RozdilOdpisu=SumaDanOdpis+Odpis10-Suma551 IF(RozdilOdpisu>0) begin RozdilOdpisu150=RozdilOdpisu RozdilOdpisu50=0 end IF(RozdilOdpisu<0) begin RozdilOdpisu50=(RozdilOdpisu*(-1)) RozdilOdpisu150=0 end IF(RozdilOdpisu=0) begin RozdilOdpisu150=0 RozdilOdpisu50=0 end SumaNeNakl=0 SumaNeNakl=UctSkup1+UctSkup2+UctSkup3+UctSkup4+UctSkup5+UctSkup6+UctSkup7+UctSkup8+UctSkup9+UctSkup10+UctSkup11+UctSkup12 II70=II20+II30+SumaNeNakl+RozdilOdpisu50+II60+II61+II62 II170=II100+II101+II110+II120+II130+II140+RozdilOdpisu150+II160+II161+II162 FA4=((FA1*10)+(FA2*15)+(FA3*20))/100 FB6=FA4-FB5 FB8=FB5+FB7 II200=HV10+II70-II170 II220=II200-II201-II210 II250=II220-II230-FB8-II241 IF(II250<0) II250=0 II270=II250-II251-II260 ; zaokrouhli na cele tisice dolu: II270=INT(II270/1000)*1000 IF(II270<0) II270=0 IF(SazbaDPPO=0) SazbaDan=31 IF(SazbaDPPO=1) SazbaDan=25 IF(SazbaDPPO=2) SazbaDan=31/2 IF(SazbaDPPO=3) SazbaDan=25/2 IF((SazbaDPPO>3) OR (SazbaDPPO<0)) SazbaDan=31 IF(CompareStr(IniRok,'1999')) begin IF(SazbaDPPO=0) SazbaDan=35 IF(SazbaDPPO=1) SazbaDan=25 IF(SazbaDPPO=2) SazbaDan=35/2 IF(SazbaDPPO=3) SazbaDan=25/2 IF((SazbaDPPO>3) OR (SazbaDPPO<0)) SazbaDan=35 end II290=Double((II270*SazbaDan)/100) IF(II290<0) II290=0 II310=II290-II300-II301 IF(II310<0) II310=0 Zahr1=0 IF(ZapocetZahr) begin IF(II220>0) Zahr1=II220 end Zahr3=0 IF(Zahr1<>0) Zahr3=(Zahr2/Zahr1)*100 Zahr3=INT(Zahr3*100) Zahr3=Zahr3/100 IF(Zahr2<0) Zahr3=0 zahr4=0 Zahr4=Double((II290*Zahr3)/100) IF(Zahr4Zahr5) begin Zahr6=Zahr5 Zahr7=0 end IF(Zahr6>II320) Zahr7=Zahr7+Zahr6-II320 IF(Zahr2<0) begin Zahr6=0 Zahr4=0 Zahr3=0 end IF(ZapocetZahr) begin II320=Zahr6 IF(II320>II310) II320=II310 end ;zaokrouhlit na cele Kc nahoru, asi jen pro komplementare, cisla jsou jiz zaokrouhlena: II330=II310-II320 IF(II330<0) II330=0 ;zaokrouhlit na cele Kc nahoru II333=Double(((II331*SazbaDPPO2)/100)+0.5) ; jiz je zaokrouhleno: II335=II333-II334 II340=II330+II335 IF(II340<0) II340=0 II360=II340-II351 IF(II360<100) II360=0 IV3=IV2-IV1 IV6=IV5-IV4 V3=0 IF(TypPriz1<>2) V3=V1+V2-II340 CP24=(CP22-CP23) CP34=(CP32-CP33) CP56=(CP16+CP26+CP36) CP57=(CP17+CP27+CP37) E84=(E14+E24+E34+E44+E54+E64+E74) E85=(E15+E25+E35+E45+E55+E65+E75) IF(Program.TypFirmy=0) ; podnikatelska begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin IF(Program.ZkraceneF) ; zkracena begin LoadWNSLine(2,256) ;1ř soucetK1=GetFromWNSLine(4,True) ; true = maskovani, pri vypoctu bere zakrouhlene SkipWNSLine(2,256,2) LoadWNSLine(2,256) ;4ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,9) LoadWNSLine(2,256) ;14ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,2) LoadWNSLine(2,256) ;17ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,1) LoadWNSLine(2,256) ;19ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,1) LoadWNSLine(2,256) ;21ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,2) LoadWNSLine(2,256) ;24ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,1) LoadWNSLine(2,256) ;26ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,1) LoadWNSLine(2,256) ;28ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,1) LoadWNSLine(2,256) ;30ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,256,7) LoadWNSLine(2,256) ;38ř soucetK1=soucetK1+GetFromWNSLine(4,True) end else ; plna begin LoadWNSLine(2,0) ;1ř soucetK1=GetFromWNSLine(4,True) SkipWNSLine(2,0,2) LoadWNSLine(2,0) ;4ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,14) LoadWNSLine(2,0) ;19ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;21ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;23ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;25ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;27ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,2) LoadWNSLine(2,0) ;30ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;32ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,3) LoadWNSLine(2,0) ;36ř soucetK1=soucetK1+GetFromWNSLine(4,True) LoadWNSLine(2,0) ;37ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;39ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;41ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;43ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,1) LoadWNSLine(2,0) ;45ř soucetK1=soucetK1+GetFromWNSLine(4,True) SkipWNSLine(2,0,7) LoadWNSLine(2,0) ;53ř soucetK1=soucetK1+GetFromWNSLine(4,True) end SoucetK1=SoucetK1*1000 end else ; neexistuje VZaZ begin SoucetK1=0 end end else begin ; neni podnikatelska SoucetK1=0 end ;{kontroly pro 11.cover} WarnZapor:STRING='' IF(II20<0) WarnZapor=WarnZapor+' 20,' IF(II30<0) WarnZapor=WarnZapor+' 30,' IF(SumaNeNakl<0) WarnZapor=WarnZapor+' 40,' IF(II60<0) WarnZapor=WarnZapor+' 60,' IF(II61<0) WarnZapor=WarnZapor+' 61,' IF(II62<0) WarnZapor=WarnZapor+' 62,' IF(II70<0) WarnZapor=WarnZapor+' 70,' IF(II100<0) WarnZapor=WarnZapor+' 100,' IF(II101<0) WarnZapor=WarnZapor+' 101,' IF(II110<0) WarnZapor=WarnZapor+' 110,' IF(II120<0) WarnZapor=WarnZapor+' 120,' IF(II130<0) WarnZapor=WarnZapor+' 130,' IF(II140<0) WarnZapor=WarnZapor+' 140,' IF(II160<0) WarnZapor=WarnZapor+' 160,' IF(II161<0) WarnZapor=WarnZapor+' 161,' IF(II162<0) WarnZapor=WarnZapor+' 162,' IF(II170<0) WarnZapor=WarnZapor+' 170,' IF(SumaDanOdpis<0) WarnZapor=WarnZapor+' Daňové odpisy,' IF(Suma551<0) WarnZapor=WarnZapor+' Účetní odpisy,' IF(Odpis10<0) WarnZapor=WarnZapor+' řádek 10 přílohy č.I odst. B,' IF(II250<0) WarnZapor=WarnZapor+' 250,' IF(II270<0) WarnZapor=WarnZapor+' 270,' IF(II310<0) WarnZapor=WarnZapor+' 310,' IF(II330<0) WarnZapor=WarnZapor+' 330,' IF(II331<0) WarnZapor=WarnZapor+' 331,' IF(II334<0) WarnZapor=WarnZapor+' 334,' IF(II340<0) WarnZapor=WarnZapor+' 340,' IF(II360<0) WarnZapor=WarnZapor+' 360,' IF(Zahr4<0) WarnZapor=WarnZapor+' Tab. I.ř.4?,' IF(Zahr5<0) WarnZapor=WarnZapor+' Tab. I.ř.5?,' IF(II320<0) WarnZapor=WarnZapor+' 320?,' IF(IV4<0) WarnZapor=WarnZapor+' Tab. IV.ř.4,' IF(IV5<0) WarnZapor=WarnZapor+' Tab. IV.ř.5,' WarnDodat:STRING='' IF((DatumDodat<>0) AND (TypPriz1=0)) WarnDodat='- je vyplněno datum dodat. (opravného) přiznání a současně zvoleno daňové ŘÁDNÉ' WarnDodat2:STRING='' IF((DatumDodat=0) AND ((IV1<>0) OR (IV2<>0) OR (IV3<>0) OR (IV4<>0) OR (IV5<>0) OR (IV6<>0))) WarnDodat2='- je vyplněn IV Oddíl, ale není vyplněno datum dodatečného daňového přiznání' WarnDodat3:STRING='' IF((TypPriz1=2) AND ((V1<>0) OR (V2<>0) OR (V3<>0))) WarnDodat3='- je zvoleno dodatečné daňové přiznání a přitom jsou vyplněny údaje v V. oddíle' WarnDodat4:STRING='' IF((TypPriz1=2) AND (DatumDodat=0)) WarnDodat4='- je zvoleno dodatečné daňové přiznání a není datum zjištění důvodů pro podání dodatečného' WarnDodat5:STRING='' IF((TypPriz1=0) AND ((IV1<>0) OR (IV2<>0) OR (IV3<>0) OR (IV4<>0) OR (IV5<>0) OR (IV6<>0))) WarnDodat5='- je vyplněn IV Oddíl, a přitom je zvoleno řádné daňové přiznání' Warn230:STRING='' IF((II230>II220)AND(II230<>0)) Warn230='- řádek 230 nesmí být větší než řádek 220' Warn230E84:STRING='' IF(II230<>E84) Warn230E84='- řádek 230 je různý od ř.8 sl.4 tabulky E přílohy č. 1 II. oddílu' Warn240II220:STRING='' IF((Fb8>II220)AND(Fb8<>0)) Warn240II220='- řádek 240 nesmí být větší než řádek 220' Warn240II230:STRING='' IF(Fb8>II230) Warn240II230='- řádek 240 nesmí být větší než řádek 230' Warn240II23020:STRING='' IF((Fb8>II220-II230)AND(Fb8<>0)) Warn240II23020='- řádek 240 nesmí být větší než řádek 220 snížený o řádek 230' WarnDar:STRING='' IF(II260>Dar4+Dar2) WarnDar='- skutečně uplatněná částka odečtu hodnoty darů (ř.260) je vyšší nežli součet darů v příl. G.' WarnDar1:STRING='' IF(((II250*0.02)0) AND (Dar4<>0)) WarnDar3='- skutečně uplatněná částka odečtu hodnoty darů (ř.260) je vyšší nežli 4% z řádku 250' WarnDar4:STRING='' IF((Dar2=0) AND (Dar4=0) AND (II260<>0)) WarnDar4='- hodnota darů na ř. 260 není podložena údaji v příloze G.' Warn320II310:STRING='' IF(II320>II310) Warn320II310='- řádek 320 nesmí být větší než řádek 310' Warn334II333:STRING='' IF(II334>II333) Warn334II333='- řádek 334 je větší nežli ř. 333' Warn351II340:STRING='' IF(II351>II340) Warn351II340='- řádek 351 nesmí být větší než řádek 340' WarnIII:STRING='' IF((III1<>0) OR (III2<>0) OR (III3<>0)) WarnIII='- upozornění: III. oddíl vyplňují jen investiční společnosti spravující podílové fondy' WarnE1:STRING='' x:Integer=VAL(IniRok) IF((x-E11>7) AND (E11<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E21>7) AND (E21<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E31>7) AND (E31<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E41>7) AND (E41<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E51>7) AND (E51<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E61>7) AND (E61<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' IF((x-E71>7) AND (E71<>0)) WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však 7 obdobích,je uvedeno starší' WarnF:STRING='' IF(FB5>FA4) WarnF='- uplatněný odečet (údaj v příloze F, ř.5) je vyšší nežli nárok na odečet (údaj v příloze F, ř.4)' WarnII300H:STRING='' IF(II300>H1+H2+H3) WarnII300H='- Slevy na dani podle §35 (údaj na řádku 300) je vyšší nežli rozpis v příloze H.' WarnII300II290:STRING='' IF(II300>II290) WarnII300II290='- Slevy na dani podle §35 (údaj na řádku 300) je vyšší nežli daň na řádku 290' WarnFA4Komand:STRING='' IF((Komand32<>0)AND(Komand32<>FA4)) WarnFA4Komand='- údaj v tab. J ř.3 sl.3 je různý od řádku 4. tabulky F.' WarnG1Komand:STRING='' IF((Komand42<>0)AND(Komand42<>Dar4)) WarnG1Komand='- údaj v tab. J ř.4 sl.3 je různý od řádku 1. tabulky G.' WarnG2Komand:STRING='' IF((Komand52<>0)AND(Komand52<>Dar2)) WarnG2Komand='- údaj v tab. J ř.5 sl.3 je různý od řádku 2. tabulky G.' WarnH4Komand:STRING='' IF((Komand62<>0)AND(Komand62<>H1+H2+H3)) WarnH4Komand='- údaj v tab. J ř.6 sl.3 je různý od řádku 4. tabulky H.' WarnCP:STRING='' IF(CP56>CP34) WarnCP='- údaj v tab. D ř.5 sl.6 je větší než údaj v tab. D ř.3 sl.4' WarnE1rok:STRING='' IF((E11=0)AND((E12<>0)OR(E13<>0)OR(E14<>0)OR(E15<>0))) WarnE1rok='- v tabulce E řádek 1 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE2rok:STRING='' IF((E21=0)AND((E22<>0)OR(E23<>0)OR(E24<>0)OR(E25<>0))) WarnE2rok='- v tabulce E řádek 2 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE3rok:STRING='' IF((E31=0)AND((E32<>0)OR(E33<>0)OR(E34<>0)OR(E35<>0))) WarnE3rok='- v tabulce E řádek 3 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE4rok:STRING='' IF((E41=0)AND((E42<>0)OR(E43<>0)OR(E44<>0)OR(E45<>0))) WarnE4rok='- v tabulce E řádek 4 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE5rok:STRING='' IF((E51=0)AND((E52<>0)OR(E53<>0)OR(E54<>0)OR(E55<>0))) WarnE5rok='- v tabulce E řádek 5 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE6rok:STRING='' IF((E61=0)AND((E62<>0)OR(E63<>0)OR(E64<>0)OR(E65<>0))) WarnE6rok='- v tabulce E řádek 6 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE7rok:STRING='' IF((E71=0)AND((E72<>0)OR(E73<>0)OR(E74<>0)OR(E75<>0))) WarnE7rok='- v tabulce E řádek 7 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnPrizn:STRING='' DatumPovinn3:Word=ValDate('31.03.'+str(IniRok+1)) IF((DatumPodani>DatumPovinn3)AND(not(PoradceAnoNe))) ; nemam poradce a odevzdavam po 31.3 WarnPrizn='- datum podání přiznání je po 31.03.'+str(IniRok+1)+' a přitom není daňový poradce') WarnPorad1:STRING='' IF((LENGTH(EvCisOsved)=0)AND(PoradceAnoNe)) WarnPorad1='- podání sestavuje poradce a není vyplněno jeho evidenční číslo') WarnPorad2:STRING='' IF((LENGTH(EvCisOsved)>0)AND(not(PoradceAnoNe))) WarnPorad2='- podání nesestavuje poradce a přitom je vyplněno jeho evidenční číslo') IF(Result=id_OK) GOTO(tisk) ;{definice hlavniho dialogu} begin DefDialog('! POMŮCKA ! pro výpočet daně z příjmu právnických osob',620,450) ;{vykreslení uvodu} DlgShade(-1,'',4,4,610,420) DlgCover(199,11,8,8,604,370,False,AktualCover) ;{============================== 1.cover ================================} ;{vykresleni 1.coveru} SetCover(1,'&Titulní') DlgStatic(-1,'&Finančnímu úřadu',16,4,143) DlgEdit(101,FinancniUrad,160,0,428,,80) DlgOnLineHelp(101,'Název finančního úřadu - v příslušném tvaru, např. v Písku, Ostrava I apod.') DlgStatic(-1,'&Daňové přiznání',16,30,143) DlgCombo(102,TypPriz1,160,26,100,128,9,CBS_DropDownList,'řádné','opravné','dodatečné') DlgOnLineHelp(102,'Typ daňového přiznání') DlgStatic(-1,'Dů&vody..zjištěny dne',16,56,143) DlgEditDate(103,DatumDodat,160,52,78,,10,,ValidDatum) ;je-li promenna string nebo cislena, osetri DlgOnLineHelp(103,'Důvody pro podání dodatečného daňového přiznání zjištěny dne') DlgStatic(-1,'Kód roz&lišení typu ...',16,82,143) DlgEdit(104,KodRozlis,160,78,26,,2) DlgOnLineHelp(104,'Kód rozlišení typu přiznání - viz POKYNY k vyplnění ...') DlgStatic(-1,'&Počet PF...',310,42,100) DlgEdit(105,PocetPodilFondu,410,38,30,,3) DlgOnLineHelp(105,'Počet podílových fondů,'+#13+'jejichž majetek je obhospodařován') DlgStatic(-1,'Po&řad číslo PF',310,68,100) DlgEdit(106,PoradCisloFondu,410,64,30,,3) DlgOnLineHelp(106,'Pořadové číslo podílového fondu') DlgStatic(-1,'Počet př&íloh II.',450,42,108) DlgEdit(107,PocetPrilII,558,38,30,,3) DlgOnLineHelp(107,'Počet příloh II. oddílu') DlgStatic(-1,'Poč&et zvl. příloh',450,68,108) DlgEdit(108,PocetZvlPril,558,64,30,,3) DlgOnLineHelp(108,'Počet zvláštních příloh') DlgStatic(-1,'Obchodní &jméno',16,106,140) DlgEdit(109,ObchodniJmeno,160,104,428,,35) DlgOnLineHelp(109,'Obchodní jméno') DlgStatic(-1,'Dodate&k jména',16,133,140) DlgEdit(110,DodatekJmena,160,131,428,,35) DlgOnLineHelp(110,'Dodatek obchodního jména') DlgStatic(-1,'&Obec',16,159,40) DlgEdit(111,Obec,160,157,150,,16) DlgOnLineHelp(111,'Sídlo právnické osoby - obec') DlgStatic(-1,'P&sč',315,159,30) DlgEdit(112,PSCdppo,344,157,50,,5) DlgOnLineHelp(112,'Sídlo právnické osoby - PSČ') DlgStatic(-1,'&Ulice',400,159,35) DlgEdit(113,UliceDppo,438,157,150,,22) DlgOnLineHelp(113,'Sídlo právnické osoby - ulice') DlgStatic(-1,'Ok&res',16,185,50) DlgEdit(114,Okres,160,183,170,,19) DlgOnLineHelp(114,'Sídlo právnické osoby - okres') DlgStatic(-1,'St&át',400,185,30) DlgEdit(115,Stat,438,183,150,,15) DlgOnLineHelp(115,'Sídlo právnické osoby - stát') DlgStatic(-1,'Číslo telefo&nu',16,211,95) DlgEdit(116,Telefon,160,209,150,,12) DlgOnLineHelp(116,'číslo telefonu') DlgStatic(-1,'Číslo fa&xu',364,211,70) DlgEdit(117,Fax,438,209,150,,12) DlgOnLineHelp(117,'číslo faxu') DlgStatic(-1,'Bankovn&í spojení',16,237,136) DlgEdit(118,BankovniUcet,160,233,428,,30,,ValidBU) DlgOnLineHelp(118,'číslo bankovního účtu') DlgCheckBox(130,PoradceAnoNe,16,263,160,,'D&aňový poradce') DlgOnLineHelp(130,'Přiznání zapracoval a předložil daňový poradce') DlgCheckBox(140,OverAuditAnoNe,211,263,160,,'&Zákonná povinnost...') DlgOnLineHelp(140,'Zákonná povinnost ověření účetní závěrky auditorem') DlgCheckBox(150,ZaverkaAnoNe,404,263,185,,'Účetní závěrka přilo&žena') DlgOnLineHelp(150,'Účetní závěrka přiložena') DlgStatic(-1,'&Hlavní činnost',16,290,143) DlgEdit(160,HlavCinn1,160,286,428,,140) DlgOnLineHelp(160,'Hlavní (převažující) činnost') DlgStatic(-1,'Hlavní &čin. - pokrač',16,316,143) DlgEdit(161,HlavCinn2,160,312,428,,140) DlgOnLineHelp(161,'Hlavní (převažující) činnost') ;{============================== 2.cover ================================} ;{vykresleni 2.coveru} SetCover(2,'&Str.3/1') IF(LENGTH(DatumUctSkup)>0 begin DlgStatic(-1,'A. Rozdělení výdajů, které se neuznávají = ř.40 II.oddílu...',16,4,400) IF(Program.TypFirmy=2) DlgStatic(-1,'(doporučuji zkontrolovat !)',425,4,176) IF((SumaNeNakl=SumaNeNaklNact)AND(NactiNedanAnoNe)) begin DlgStatic(-1,'převzato ze sestavy: Daňový hospodářský výsledek ze dne '+DatumUctSkup,26,20,560) NactiNedanAnoNe=False ;kdyz sahnou na nactena data a pak to zase vrati zpet, uz to nebude hlasit datum sestavy end end else begin DlgStatic(-1,'A. Rozdělení výdajů...: NEBYLA SPOČTENA SESTAVA Daňový hospodářský výsledek... ',16,4,580) DlgStatic(-1,'tyto údaje NUTNO ZADAT RUČNĚ',142,20,480) end DlgStatic(-1,'13. Celkem',16,316,100) DlgStatic(-1,STR(SumaNeNakl,0,0),460,316,117,,,ES_RIGHT) DlgStatic(-1,'Zadej výši účetních odpisů',16,42,180) DlgEdit(2201,Suma551,490,38,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(2201,'výši účetních odpisů možno zadat ručně') DlgStatic(-1,'1',16,70,15) DlgEdit(170,TextUctSkup1,36,68,451,,50) DlgOnLineHelp(170,'Název účtové skupiny (včetně číselného označení)') DlgEdit(171,UctSkup1,490,68,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(171,'Částka v celých Kč') DlgStatic(-1,'2',16,90,15) DlgEdit(172,TextUctSkup2,36,88,451,,50) DlgOnLineHelp(172,'Název účtové skupiny (včetně číselného označení)') DlgEdit(173,UctSkup2,490,88,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(173,'Částka v celých Kč') DlgStatic(-1,'3',16,110,15) DlgEdit(174,TextUctSkup3,36,108,451,,50) DlgOnLineHelp(174,'Název účtové skupiny (včetně číselného označení)') DlgEdit(175,UctSkup3,490,108,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(175,'Částka v celých Kč') DlgStatic(-1,'4',16,130,15) DlgEdit(176,TextUctSkup4,36,128,451,,50) DlgOnLineHelp(176,'Název účtové skupiny (včetně číselného označení)') DlgEdit(177,UctSkup4,490,128,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(177,'Částka v celých Kč') DlgStatic(-1,'5',16,150,15) DlgEdit(178,TextUctSkup5,36,148,451,,50) DlgOnLineHelp(178,'Název účtové skupiny (včetně číselného označení)') DlgEdit(179,UctSkup5,490,148,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(179,'Částka v celých Kč') DlgStatic(-1,'6',16,170,15) DlgEdit(180,TextUctSkup6,36,168,451,,50) DlgOnLineHelp(180,'Název účtové skupiny (včetně číselného označení)') DlgEdit(181,UctSkup6,490,168,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(181,'Částka v celých Kč') DlgStatic(-1,'7',16,190,15) DlgEdit(182,TextUctSkup7,36,188,451,,50) DlgOnLineHelp(182,'Název účtové skupiny (včetně číselného označení)') DlgEdit(183,UctSkup7,490,188,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(183,'Částka v celých Kč') DlgStatic(-1,'8',16,210,15) DlgEdit(184,TextUctSkup8,36,208,451,,50) DlgOnLineHelp(184,'Název účtové skupiny (včetně číselného označení)') DlgEdit(185,UctSkup8,490,208,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(185,'Částka v celých Kč') DlgStatic(-1,'9',16,230,15) DlgEdit(186,TextUctSkup9,36,228,451,,50) DlgOnLineHelp(186,'Název účtové skupiny (včetně číselného označení)') DlgEdit(187,UctSkup9,490,228,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(187,'Částka v celých Kč') DlgStatic(-1,'10',16,250,15) DlgEdit(188,TextUctSkup10,36,248,451,,50) DlgOnLineHelp(188,'Název účtové skupiny (včetně číselného označení)') DlgEdit(189,UctSkup10,490,248,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(189,'Částka v celých Kč') DlgStatic(-1,'11',16,270,15) DlgEdit(190,TextUctSkup11,36,268,451,,50) DlgOnLineHelp(190,'Název účtové skupiny (včetně číselného označení)') DlgEdit(191,UctSkup11,490,268,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(191,'Částka v celých Kč') DlgStatic(-1,'12',16,290,15) DlgEdit(192,TextUctSkup12,36,288,451,,50) DlgOnLineHelp(192,'Název účtové skupiny (včetně číselného označení)') DlgEdit(193,UctSkup12,490,288,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(193,'Částka v celých Kč') ;{============================== 3.cover ================================} ;{vykresleni 3.coveru} SetCover(3,'&Str.3/2') DlgDivider(5,46,592,0) IF(Program.Majetky) IF(LENGTH(DatumSkupOdp)>0 begin DlgStatic(-1,'B. Odpisy hmotného a nehmotného majetku',16,4,400) IF((SumaDanOdpis=SumaDanOdpisNact)AND(NactiOdpisAnoNe)) begin DlgStatic(-1,'převzato ze sestavy: Daňové odpisy - rekapitulace ze dne '+DatumSkupOdp,26,20,560) NactiOdpisAnoNe=False ;kdyz sahnou na nactena data a pak to zase vrati zpet, uz to nebude hlasit datum sestavy end end else begin DlgStatic(-1,'B. Odpisy HIM a NIM: NEBYLA SPOČTENA SESTAVA Daňové odpisy - rekapitulace... ',16,4,580) DlgStatic(-1,'tyto údaje NUTNO ZADAT RUČNĚ',142,20,480) end else DlgStatic(-1,'B. Odpisy hmotného a nehmotného majetku',16,4,580) DlgStatic(-1,'B. Odpisy hmotného a nehmotného majetku:',16,60,300) DlgStatic(-1,'a)',6,78,15) DlgStatic(-1,'&1. Odpisy HaNM zařazeného do 1. odpisové skupiny',26,78,350) DlgEdit(201,Odpis1,460,76,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(201,'1. Odpisy hmotného a nehmotného majetku zařazeného do 1. odpisové skupiny') DlgStatic(-1,'&2. Odpisy HaNM zařazeného do 2. odpisové skupiny',26,104,350) DlgEdit(202,Odpis2,460,102,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(202,'2. Odpisy hmotného a nehmotného majetku zařazeného do 2. odpisové skupiny') DlgStatic(-1,'&3. Odpisy HaNM zařazeného do 3. odpisové skupiny',26,130,350) DlgEdit(203,Odpis3,460,128,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(203,'3. Odpisy hmotného a nehmotného majetku zařazeného do 3. odpisové skupiny') DlgStatic(-1,'&4. Odpisy HM zařazeného do 4. odpisové skupiny',26,156,350) DlgEdit(204,Odpis4,460,154,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(204,'4. Odpisy hmotného majetku zařazeného do 4. odpisové skupiny') DlgStatic(-1,'&5. Odpisy HM zařazeného do 5. odpisové skupiny',26,182,350) DlgEdit(205,Odpis5,460,180,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(205,'5. Odpisy hmotného majetku zařazeného do 5. odpisové skupiny') DlgStatic(-1,'&6. Odpisy HM podle § 30 odst. 4 zákona',26,208,350) DlgEdit(206,Odpis6,460,206,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(206,'6. Odpisy hmotného majetku podle § 30 odst. 4 zákona') DlgStatic(-1,'&7. Odpisy HaNM podle § 30 odst. 6 až 8 zákona',26,234,350) DlgEdit(207,Odpis7,460,232,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(207,'7. Odpisy hmotného a nehmotného majetku podle § 30 odst. 6 až 8 zákona') DlgStatic(-1,'&8.',26,260,16) DlgEdit(218,PopisOdpis8,41,258,415,,50) DlgOnLineHelp(218,'8. ???') DlgEdit(208,Odpis8,460,258,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(208,'8. ???') DlgStatic(-1,'9. Daňové odpisy HaNM celkem',26,286,220) DlgStatic(-1,STR(SumaDanOdpis,0,0),460,286,117,,,ES_RIGHT) DlgStatic(-1,'b)',6,310,15) DlgStatic(-1,'10. Účetní &odpisy HIM,NIM a opravné položky ... nejsou vymezeny',18,310,443) DlgEdit(210,Odpis10,460,308,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(210,'10. Účetní odpisy HM,NM'+#13+'a opravné položky k úplatně nabytému majetku,které nejsou pro účely zákona'+#13+'vymezeny jako HM nebo NM,uplatněné jako výdaj (náklad)'+#13+'na dosažení,...zdanitelných příjmů podle §24 odst.2 písm.v)') ;{============================== 4.cover ================================} ;{vykresleni 4.coveru} SetCover(4,'Str.&4') DlgDivider(301,119,292,0) DlgDivider(301,27,0,231) DlgStatic(-1,'C. Odpis pohledávek zahrnovaný do výdajů ... a zákonné rezervy a opravné položky ...:',16,4,583) DlgStatic(-1,'a) Odpis neuhrazených...:',16,26,180) DlgStatic(-1,'&1. Úhrn neuhr. pohledávek ...',5,44,204) DlgEdit(301,OdpisPohl1,212,42,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(301,'1. Úhrn... nebo cen pořízení pohledávek nabytých'+#13+'postoupením,u nichž termín splatnosti nastal do konce roku 1994,jejichž část lze'+#13+'uplatnit jako výdaj (náklad) k dosažení... podle čl.II bodu'+#13+'2 zák.č.210/1997 Sb...') DlgStatic(-1,'&2. Částka odpisu uplatněná ...',5,70,204) DlgEdit(302,OdpisPohl2,212,68,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(302,'2. Částka ... v daném zdaňovacím období jako výdaj (náklad)'+#13+'na dosažení, zajištění a udržení příjmů podle čl. II bodu 2 zákona č. 210/1997 Sb.'+#13+'(maximálně 20% ze ř.1)') DlgStatic(-1,'&3. Opravné pol. k pohledávkám ...',5,96,204) DlgEdit(303,OdpisPohl3,212,94,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(303,'3. Opravné položky k pohledávkám za dlužníky v konkursním a vyrovnacím řízení'+#13+'vytvořené podle § 8 zákona o rezervách v daném zdaňovacím období') DlgStatic(-1,'&4. Stav zákonných opravných ...',5,122,204) DlgEdit(304,OdpisPohl4,212,120,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(304,'4. Stav zákonných opravných položek k pohledávkám za dlužníky v konkursním'+#13+'a vyrovnávacím řízení (§ 8 zákona o rezervách) ke konci zdaňovacího období') DlgStatic(-1,'&5. Stav nepromlčených pohl...',5,148,204) DlgEdit(305,OdpisPohl5,212,146,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(305,'5. Stav nepromlčených pohledávek splatných po 31. prosinci 1994, na které lze tvořit'+#13+'zákonné opravné položky (§ 8a zákona o rezervách) ke konci zdaňovacího období') DlgStatic(-1,'&6. Opr. pol. k nepromlčeným',5,174,204) DlgEdit(306,OdpisPohl6,212,172,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(306,'6. Opravné položky k nepromlčeným pohledávkám vytvořené podle § 8a zákona'+#13+'o rezervách v daném zdaňovacím období') DlgStatic(-1,'&7. Stav zákonných opr. položek ...',5,200,204) DlgEdit(307,OdpisPohl7,212,198,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(307,'7. Stav zákonných opravných položek k nepromlčeným pohledávkám splatným po'+#13+'31. prosinci 1994 (§ 8a zákona o rezervách) ke konci zdaňovacího období') DlgStatic(-1,'&8. Úhrn hodnot pohledávek ...',5,226,204) DlgEdit(308,OdpisPohl8,212,224,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(308,'8. Úhrn hodnot pohledávek nebo cen pořízení pohledávek nabytých postoupením,'+#13+'uplatněných v daném zdaňovacím období jako výdaj (náklad) na dosažení, zajištění'+#13+'a udržení příjmů podle § 24 odst. 2 písm. y) zákona') DlgStatic(-1,'d) Rezervy na opravy hmotného majetku ...:',315,36,285) DlgStatic(-1,'18. &Rezerva na opravy HM ...',305,54,204) DlgEdit(318,Rezerva18,512,52,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(318,'18. Rezerva na opravy hmotného majetku vytvořená podle § 7 zákona o rezervách'+#13+'v daném zdaňovacím období') DlgStatic(-1,'19. &Stav rezerv na opravy ...',305,80,204) DlgEdit(319,Rezerva19,512,78,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(319,'19. Stav rezerv na opravy hmotného majetku (§ 7 zákona o rezervách) ke konci'+#13+'zdaňovacího období') DlgStatic(-1,'e) Ostatní zákonné rezervy ...:',315,136,198) DlgStatic(-1,'20. R&ezer. na pěstební činnost',305,154,207) DlgEdit(320,Rezerva20,512,152,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(320,'20. Rezerva na pěstební činnost vytvořená podle § 9 zákona o rezervách v daném'+#13+'zdaňovacím období') DlgStatic(-1,'21. S&tav rezervy na pěstební ',305,180,207) DlgEdit(321,Rezerva21,512,178,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(321,'21. Stav rezervy na pěstební činnost (§ 9 zákona o rezervách) ke konci zdaňovacího'+#13+'období') DlgStatic(-1,'22. Ost&atní rezervy vytvořené',305,206,207) DlgEdit(322,Rezerva22,512,204,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(322,'22. Ostatní rezervy vytvořené podle § 10 zákona o rezervách v daném zdaňovacím'+#13+'období') ;{============================== 5.cover ================================} ;{vykresleni 5.coveru} SetCover(5,'Str.&5/1') DlgStatic(-1,'D. Uplatnění výdaje (nákladu) podle § 24 odst. 2 písm. r) zákona:',16,0,430) DlgStatic(-1,'0',5,16,10) DlgStatic(-1,'1',38,16,10) DlgStatic(-1,'2',110,16,10) DlgStatic(-1,'3',195,16,10) DlgStatic(-1,'4',280,16,10) DlgStatic(-1,'5',365,16,10) DlgStatic(-1,'6',450,16,10) DlgStatic(-1,'7',535,16,10) DlgStatic(-1,'1 199&7 X X',5,34,205) DlgEdit(4014,CP14,240,32,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4014,'Tabulka D.příl.1 II.odd. ř.1 sl.4'+#13+'Vyplní poplatník, jenž v roce 1997 vykázal záporný rozdíl mezi úhrnem příjmů z prodeje akcií a podílových listů a úhrnem...'+#13+'Údaj shodný s ř.12 tabulky A příl.1 II.oddílu za rok 1997') DlgEdit(4015,CP15,325,32,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4015,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 5'+#13+' - vyplňuje pouze poplatník, jenž ve zdaňovacím období roku 1997 vykázal záporný rozdíl mezi úhrnem příjmů z prodeje akcií'+#13+'a podílových listů a úhrnem...') DlgEdit(4016,CP16,410,32,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4016,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 6'+#13+' - vyplňuje pouze poplatník, jenž ve zdaňovacím období roku 1997 vykázal záporný rozdíl mezi úhrnem příjmů z prodeje akcií'+#13+'a podílových listů a úhrnem...') DlgEdit(4017,CP17,495,32,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4017,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 7'+#13+' - vyplňuje pouze poplatník, jenž ve zdaňovacím období roku 1997 vykázal záporný rozdíl mezi úhrnem příjmů z prodeje akcií'+#13+'a podílových listů a úhrnem...') DlgStatic(-1,'2 199&8',5,58,60) DlgEdit(4022,CP22,70,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4022,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 2'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1998 prodej cených papírů') DlgEdit(4023,CP23,155,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4023,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 3'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1998 prodej cených papírů') DlgStatic(-1,STR(CP24,12,0),242,58,80,,,ES_RIGHT) DlgEdit(4025,CP25,325,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4025,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 5'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1998 prodej cených papírů') DlgEdit(4026,CP26,410,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4026,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 6'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1998 prodej cených papírů') DlgEdit(4027,CP27,495,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4027,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 7'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1998 prodej cených papírů') DlgStatic(-1,'3 199&9',5,82,60) DlgEdit(4032,CP32,70,80,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4032,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 2'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1999 prodej cených papírů') DlgEdit(4033,CP33,155,80,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4033,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 3'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1999 prodej cených papírů') DlgStatic(-1,STR(CP34,12,0),242,82,80,,,ES_RIGHT) DlgEdit(4035,CP35,325,80,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4035,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 5'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1999 prodej cených papírů') DlgEdit(4036,CP36,410,80,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4036,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 6'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1999 prodej cených papírů') DlgEdit(4037,CP37,495,80,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4037,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 7'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce 1999 prodej cených papírů') DlgStatic(-1,'5 Celkem',5,106,62) DlgStatic(-1,STR(CP56,12,0),412,106,80,,,ES_RIGHT) DlgStatic(-1,STR(CP57,12,0),497,106,80,,,ES_RIGHT) DlgStatic(-1,'E. Odečet daňové ztráty od základu daně podle § 34 odst. 1 ...:',16,121,410) DlgStatic(-1,'0',5,135,10) DlgStatic(-1,'1',76,135,10) DlgStatic(-1,'2',188,135,10) DlgStatic(-1,'3',300,135,10) DlgStatic(-1,'4',412,135,10) DlgStatic(-1,'5',524,135,10) DlgStatic(-1,'1',5,152,10) DlgEdit(4111,E11,57,150,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4111,'Tabulka E. přílohy č. 1 II. oddílu - řádek 1 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4112,E12,132,150,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4112,'Tabulka E. přílohy č. 1 II. oddílu - řádek 1 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4113,E13,244,150,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4113,'Tabulka E. přílohy č. 1 II. oddílu - řádek 1 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4114,E14,356,150,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4114,'Tabulka E. přílohy č. 1 II. oddílu - řádek 1 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4115,E15,468,150,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4115,'Tabulka E. přílohy č. 1 II. oddílu - řádek 1 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'2',5,176,10) DlgEdit(4121,E21,57,174,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4121,'Tabulka E. přílohy č. 1 II. oddílu - řádek 2 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4122,E22,132,174,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4122,'Tabulka E. přílohy č. 1 II. oddílu - řádek 2 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4123,E23,244,174,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4123,'Tabulka E. přílohy č. 1 II. oddílu - řádek 2 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4124,E24,356,174,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4124,'Tabulka E. přílohy č. 1 II. oddílu - řádek 2 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4125,E25,468,174,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4125,'Tabulka E. přílohy č. 1 II. oddílu - řádek 2 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'3',5,200,10) DlgEdit(4131,E31,57,198,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4131,'Tabulka E. přílohy č. 1 II. oddílu - řádek 3 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4132,E32,132,198,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4132,'Tabulka E. přílohy č. 1 II. oddílu - řádek 3 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4133,E33,244,198,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4133,'Tabulka E. přílohy č. 1 II. oddílu - řádek 3 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4134,E34,356,198,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4134,'Tabulka E. přílohy č. 1 II. oddílu - řádek 3 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4135,E35,468,198,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4135,'Tabulka E. přílohy č. 1 II. oddílu - řádek 3 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'4',5,224,10) DlgEdit(4141,E41,57,222,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4141,'Tabulka E. přílohy č. 1 II. oddílu - řádek 4 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4142,E42,132,222,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4142,'Tabulka E. přílohy č. 1 II. oddílu - řádek 4 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4143,E43,244,222,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4143,'Tabulka E. přílohy č. 1 II. oddílu - řádek 4 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4144,E44,356,222,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4144,'Tabulka E. přílohy č. 1 II. oddílu - řádek 4 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4145,E45,468,222,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4145,'Tabulka E. přílohy č. 1 II. oddílu - řádek 4 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'5',5,248,10) DlgEdit(4151,E51,57,246,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4151,'Tabulka E. přílohy č. 1 II. oddílu - řádek 5 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4152,E52,132,246,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4152,'Tabulka E. přílohy č. 1 II. oddílu - řádek 5 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4153,E53,244,246,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4153,'Tabulka E. přílohy č. 1 II. oddílu - řádek 5 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4154,E54,356,246,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4154,'Tabulka E. přílohy č. 1 II. oddílu - řádek 5 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4155,E55,468,246,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4155,'Tabulka E. přílohy č. 1 II. oddílu - řádek 5 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'6',5,272,10) DlgEdit(4161,E61,57,270,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4161,'Tabulka E. přílohy č. 1 II. oddílu - řádek 6 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4162,E62,132,270,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4162,'Tabulka E. přílohy č. 1 II. oddílu - řádek 6 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4163,E63,244,270,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4163,'Tabulka E. přílohy č. 1 II. oddílu - řádek 6 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4164,E64,356,270,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4164,'Tabulka E. přílohy č. 1 II. oddílu - řádek 6 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4165,E65,468,270,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4165,'Tabulka E. přílohy č. 1 II. oddílu - řádek 6 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'7',5,296,10) DlgEdit(4171,E71,57,294,45,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4171,'Tabulka E. přílohy č. 1 II. oddílu - řádek 7 sloupec 1'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4172,E72,132,294,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4172,'Tabulka E. přílohy č. 1 II. oddílu - řádek 7 sloupec 2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4173,E73,244,294,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4173,'Tabulka E. přílohy č. 1 II. oddílu - řádek 7 sloupec 3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4174,E74,356,294,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4174,'Tabulka E. přílohy č. 1 II. oddílu - řádek 7 sloupec 4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4175,E75,468,294,112,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4175,'Tabulka E. přílohy č. 1 II. oddílu - řádek 7 sloupec 5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však sedmi zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgStatic(-1,'8 Celkem',5,320,65) DlgStatic(-1,STR(E84,12,0),357,320,107,,,ES_RIGHT) DlgStatic(-1,STR(E85,12,0),470,320,107,,,ES_RIGHT) ;{============================== 6.cover ================================} ;{vykresleni 6.coveru} SetCover(6,'Str.5&/2') DlgDivider(16,169,570,0) DlgStatic(-1,'F. Odečet podle § 34 odst. 3 písm a) až d) a následujících odstavců zákona',16,16,490) DlgStatic(-1,'a) Nárok na odečet vzniklý v daném období',16,50,285) DlgStatic(-1,'&1. Úhrn vst. cen nově poř. HM ... lze uplatnit odečet (§34 odst.3) 10% vstupní ceny',6,68,453) DlgEdit(501,FA1,470,66,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(501,'1. Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit'+#13+'podle § 34 odst. 3 zákona odečet ve výši 10% vstupní ceny') DlgStatic(-1,'&2. Úhrn vst. cen nově poř. HM ... lze uplatnit odečet (§34 odst.3) 15% vstupní ceny',6,94,453) DlgEdit(502,FA2,470,92,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(502,'2. Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit'+#13+'podle § 34 odst. 3 zákona odečet ve výši 15% vstupní ceny') DlgStatic(-1,'&3. Úhrn vst. cen nově poř. HM ... lze uplatnit odečet (§34 odst.3) 20% vstupní ceny',6,120,453) DlgEdit(503,FA3,470,118,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(503,'3. Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit'+#13+'podle § 34 odst. 3 zákona odečet ve výši 20% vstupní ceny') DlgStatic(-1,'&4. Částka nároku na odečet vstupní ceny nově pořízeného majetku...',6,146,453) DlgStatic(-1,STR(FA4,12,0),470,146,118,,,ES_RIGHT) DlgStatic(-1,'b) Odečet uplatněný v daném zdaňovacím období',16,175,323) DlgStatic(-1,'&5. Částka odečtu uplatněná v daném zdaňovacím období z nároku uvedeného na ř. 4',6,193,453) DlgEdit(505,FB5,470,191,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(505,'5. Částka odečtu uplatněná v daném zdaňovacím období z nároku uvedeného'+#13+'na ř. 4') DlgStatic(-1,'&6. Nevyužitá část nároku uvedeného na ř. 4, jejíž odečet lze uplatnit',6,219,453) DlgStatic(-1,STR(FB6,12,0),470,219,118,,,ES_RIGHT) DlgStatic(-1,'&7. Částka odečtu z nevyužitého nároku vzniklého v předchozích zdaňovacích obdobích',6,245,453) DlgEdit(507,FB7,470,243,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(507,'7. Částka odečtu z nevyužitého nároku vzniklého v předchozích zdaňovacích obdobích'+#13+'údaj musí navazovat na přiznání z předchozích období') DlgStatic(-1,'&8. Celková částka odečtu uplatněného podle §34 odst. 3 zákona',6,271,453) DlgStatic(-1,STR(FB8,12,0),470,271,118,,,ES_RIGHT) ;{============================== 7.cover ================================} ;{vykresleni 7.coveru} SetCover(7,'Str.&6') DlgStatic(-1,'&G. Celková hodnota darů,... pro odečet do 4% (§34)...',5,4,345) DlgEdit(601,Dar4,357,1,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(601,'1. Celková hodnota poskytnutých darů, splňujících zákonné podmínky'+#13+'pro odečet do 4% ze základu daně, sníženého podle § 34 zákona') DlgStatic(-1,'&2%',483,5,24) DlgEdit(602,Dar2,514,1,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(602,'2. Celková hodnota poskytnutých darů, splňujících zákonné podmínky'+#13+'pro odečet do 2% ze základu daně, sníženého podle § 34 zákona') DlgStatic(-1,'&H. Rozčlenění slev... §35 odst.1 písm.a)',5,26,262) DlgEdit(604,H1,268,24,80,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(604,'1. Sleva na dani podle § 35 odst. 1 písm. a) zákona') DlgStatic(-1,'&b)',358,26,15) DlgEdit(605,H2,373,24,80,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(605,'2. Sleva na dani podle § 35 odst. 1 písm. b) zákona') DlgStatic(-1,'&odst.3',463,26,45) DlgEdit(606,H3,514,24,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(606,'3. Sleva na dani podle § 35 odst. 3 zákona') DlgCheckBox(6061,ZapocetZahr,5,47,193,,'&I.Zápočet daně v zahraničí') DlgOnLineHelp(6061,'Chcete vyplňovat Tab. I. přílohy?'+#13+'Ano = řádek 1. bude převzat ze řádku 220'+#13+'Ne = tabulka I. bude prázdná') IF(ZapocetZahr) begin DlgStatic(-1,'Úhrn příjmů zdaněných',203,49,345) DlgEdit(607,Zahr2,357,47,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(607,'2. Úhrn příjmů (základů daně a daňových ztrát) zdaněných v zahraničí, u nichž je'+#13+'uplatňován zápočet, zaokrouhlený na celé Kč dolů') DlgStatic(-1,'&Úhrn daně',445,49,68) DlgEdit(608,Zahr5,514,47,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(608,'5. Úhrn daně zaplacené v zahraničí uplatňované k zápočtu vztahující se'+#13+'k příjmům uvedeným na ř. 2 (zaokrouhlený na celé Kč nahoru)') end DlgStatic(-1,'&J. Rozdělení někt. položek (komanditní s.) Komplementář: Komanditisté: Komand.spol.:',5,68,593) DlgStatic(-1,'&1. Základ daně nebo daňová ztráta',5,84,324) DlgEdit(610,Komand11,332,82,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(610,'1. Základ daně nebo daňová ztráta ze ř. 200 (ř.201)'+#13+'- částka připadající na komplementáře') DlgEdit(611,Komand12,417,82,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(611,'1. Základ daně nebo daňová ztráta ze ř. 200 (ř.201)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand11+Komand12,12,0),506,84,90,,,ES_RIGHT) DlgStatic(-1,'&2. Úhrn vyňatých příjmů (...) v zahraničí',5,106,324) DlgEdit(612,Komand21,332,104,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(612,'2. Úhrn vyňatých příjmů (základů daně a daňových ztrát)'+#13+'podléhajících zdanění v zahraničí (ř. 210)'+#13+'- částka připadající na komplementáře') DlgEdit(613,Komand22,417,104,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(613,'2. Úhrn vyňatých příjmů (základů daně a daňových ztrát)'+#13+'podléhajících zdanění v zahraničí (ř. 210)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand21+Komand22,12,0),506,106,90,,,ES_RIGHT) DlgStatic(-1,'&3. Odečet podle § 34 odst.3 zákona',5,128,324) DlgEdit(614,Komand31,332,126,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(614,'3. Odečet podle § 34 odst. 3 zákona (ř.4 tabulky F)'+#13+'- částka připadající na komplementáře') DlgEdit(615,Komand32,417,126,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(615,'3. Odečet podle § 34 odst. 3 zákona (ř.4 tabulky F)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand31+Komand32,12,0),506,128,90,,,ES_RIGHT) DlgStatic(-1,'&4. Hodnota darů k odečtu do 4%',5,150,324) DlgEdit(616,Komand41,332,148,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(616,'4. Hodnota darů k odečtu do 4% ze ř. 250'+#13+'(ř. 1 tabulky G)'+#13+'- částka připadající na komplementáře') DlgEdit(617,Komand42,417,148,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(617,'4. Hodnota darů k odečtu do 4% ze ř. 250'+#13+'(ř. 1 tabulky G)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand41+Komand42,12,0),506,150,90,,,ES_RIGHT) DlgStatic(-1,'&5. Hodnota darů k odečtu do 2%',5,172,324) DlgEdit(618,Komand51,332,170,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(618,'5. Hodnota darů k odečtu do 2% ze ř. 250'+#13+'(ř. 2 tabulky G)'+#13+'- částka připadající na komplementáře') DlgEdit(619,Komand52,417,170,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(619,'5. Hodnota darů k odečtu do 2% ze ř. 250'+#13+'(ř. 2 tabulky G)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand51+Komand52,12,0),506,172,90,,,ES_RIGHT) DlgStatic(-1,'&6. Celk. nárok na slevy na dani podle § 35',5,194,324) DlgEdit(620,Komand61,332,192,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(620,'6. Celkový nárok na slevy na dani podle § 35 zákona'+#13+'(ř. 4 tabulky H)'+#13+'- částka připadající na komplementáře') DlgEdit(621,Komand62,417,192,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(621,'6. Celkový nárok na slevy na dani podle § 35 zákona'+#13+'(ř. 4 tabulky H)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand61+Komand62,12,0),506,194,90,,,ES_RIGHT) DlgStatic(-1,'&7. Z celkové částky slev na ř.6 sleva podle §35 odst.3 zákona',5,216,404) DlgEdit(623,Komand72,417,214,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(623,'7. Z celkové částky slev uvedené na ř. 6'+#13+'sleva podle § 35 odst. 3 zákona'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand72,12,0),506,216,90,,,ES_RIGHT) DlgStatic(-1,'&8. Úhrn příjmů zdaněných v zahraničí, u nichž lze',5,238,325) DlgEdit(624,Komand81,332,236,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(624,'8. Úhrn příjmů (základů daně) zdaněných v zahraničí,'+#13+'u nichž lze uplatnit zápočet (ř. 2 tabulky I)'+#13+'- částka připadající na komplementáře') DlgEdit(625,Komand82,417,236,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(625,'8. Úhrn příjmů (základů daně) zdaněných v zahraničí,'+#13+'u nichž lze uplatnit zápočet (ř. 2 tabulky I)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand81+Komand82,12,0),506,238,90,,,ES_RIGHT) DlgStatic(-1,'&9. Úhrn zahr.daně, který lze uplatnit k zápočtu...',5,260,324) DlgEdit(626,Komand91,332,258,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(626,'9. Úhrn zahraniční daně, který lze uplatnit k zápočtu'+#13+'v souladu s mezinárodní smlouvou (ř. 5 tabulky I)'+#13+'- částka připadající na komplementáře') DlgEdit(627,Komand92,417,258,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(627,'9. Úhrn zahraniční daně, který lze uplatnit k zápočtu'+#13+'v souladu s mezinárodní smlouvou (ř. 5 tabulky I)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand91+Komand92,12,0),506,260,90,,,ES_RIGHT) DlgStatic(-1,'&10. Zápočet podle §36 odst. 6 zákona',5,282,324) DlgEdit(628,Komand101,332,280,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(628,'10. Zápočet podle § 36 odst. 6 zákona (ř. 350 a ř. 2 V. oddílu)'+#13+'- částka připadající na komplementáře') DlgEdit(629,Komand102,417,280,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(629,'10. Zápočet podle § 36 odst. 6 zákona (ř. 350 a ř. 2 V. oddílu)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand101+Komand102,12,0),506,282,90,,,ES_RIGHT) IF(Program.TypFirmy=0) ; podnikatelska begin OpenWNSIfExist(WorkPath+'VYZZ12'+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ; tisky za podnikatele DlgStatic(-1,'&K. Vybrané ukazatele hospodaření',5,306,244) DlgStatic(-1,'&1. Čistý obrat - vypočteno z VZaZ za 12/'+ROK()+' z data '+DateVZaZ+' '+TimeVZaZ+' (Kč)',5,322,492) DlgStatic(-1,STR(SoucetK1,13,0),506,322,90,,,ES_RIGHT) end else ; neexistuje VZaZ begin SoucetK1=0 DlgStatic(-1,'&K. Vybrané ukazatele hospodaření',5,306,244) DlgStatic(-1,'&1. Čistý obrat - dosud nebyl spočten Výkaz zisků a ztrát za 12. měsíc',5,322,500) end end else ; neni podnikatelska begin DlgStatic(-1,'&K. Vybrané ukazatele hospodaření',5,306,244) DlgStatic(-1,'&1. Čistý obrat - jen pro poplatníky účtující podle Účtové osnovy pro podnikatele',5,322,590) end ;{============================== 8.cover ================================} ;{vykresleni 8.coveru} SetCover(8,'Str.&2') DlgDivider(16,26,570,0) DlgDivider(303,27,0,294) IF(ExistVZaZ) begin DlgStatic(-1,'10 HV před zdaněním - vypočteno z VZaZ za 12/'+ROK()+' z data '+DateVZaZ+' '+TimeVZaZ+' (Kč)',5,4,500) DlgStatic(-1,STR(HV10,13,0),507,4,90,,,ES_RIGHT) end else DlgStatic(-1,'10 HV před zdaněním - dosud nebyl spočten Výkaz zisků a ztrát za 12. měsíc',5,322,500) DlgStatic(-1,'20 Částky neopr. zkrac. příjmy',5,120,207) DlgEdit(701,II20,216,118,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(701,'20 Částky neoprávněně zkracující příjmy a hodnota nepeněžních příjmů pokud'+#13+'nejsou zahrnuty v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji'+#13+'(ř. 10)') DlgStatic(-1,'30 Částky odečt. od základu §34',5,146,207) DlgEdit(702,II30,216,144,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(702,'30 Částky odečtené od základu daně podle § 34 odst. 3 zákona při nedodržení'+#13+'stanovených podmínek') DlgStatic(-1,'40 Výdaje neuznávané ...',5,172,209) DlgStatic(-1,STR(SumaNeNakl,12,0),216,172,88) DlgStatic(-1,'50/150 Rozdíl daňových a účetních odpisů:',5,190,280) DlgStatic(-1,'Účetní odpisy = ',10,204,104) DlgStatic(-1,STR(Suma551,13,0),115,204,92,,,ES_LEFT) DlgStatic(-1,'Daňové odpisy = ',224,204,114) DlgStatic(-1,STR(SumaDanOdpis+Odpis10,13,0),339,204,92,,,ES_LEFT) DlgStatic(-1,'Rozdíl = ',440,204,56) DlgStatic(-1,STR(SumaDanOdpis+Odpis10-Suma551,13,0),497,204,98,,,ES_RIGHT) DlgStatic(-1,'60 Zaměstnav. sražené...§23/3',5,224,207) DlgEdit(703,II60,216,222,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(703,'60 Zaměstnav.sražené,avšak v termínu podle §23 odst.3 zák.neza-'+#13+'placené částky pojist.soc.zabezp.a příspěvku na st.pol.'+#13+'zaměstnanosti a pojist.na veřejné zdrav.pojištění,k jejichž placení jsou'+#13+'povinni zaměstnanci') DlgStatic(-1,'61 Úprava základu daně dle §23',5,250,210) DlgEdit(704,II61,216,248,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(704,'61 Úprava základu daně podle § 23 zákona v případě zrušení poplatníka s likvidací') DlgStatic(-1,'62',5,276,19) DlgEdit(705,II62text,23,274,192,,100) DlgOnLineHelp(705,'62 Popis pro ostatní případy mimo ř.20 až ř.61, kdy je nutné pro správné stanovení základu daně zvýšit HV ... ') DlgEdit(706,II62,216,274,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(706,'62 ... ostatní případy mimo ř.20 až ř.61, kdy je nutné pro správné stanovení základu daně zvýšit HV ...') DlgStatic(-1,'70 Mezisoučet (ř.20 až ř.62)',5,300,207) DlgStatic(-1,STR(II70,13,0),217,300,85,,,ES_RIGHT) DlgStatic(-1,'100 &Příjmy,které nejsou...§18/2',305,42,204) DlgEdit(707,II100,512,40,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(707,'100 Příjmy, které nejsou předmětem daně podle § 18 odst. 2 zákona, pokud jsou'+#13+'zahrnuty v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') DlgStatic(-1,'101 &Příjmy,které nejsou...§18/4',305,68,204) DlgEdit(708,II101,512,66,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(708,'101 Příjmy,jež u poplatníků,kteří nebyli založeni nebo zřízeni za účelem podnikání,'+#13+'nejsou předmětem daně podle §18 odst.4 zákona, pokud jsou zahrnuty'+#13+'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř.10)') DlgStatic(-1,'110 &Příjmy osvobozené ... §19',305,94,204) DlgEdit(709,II110,512,92,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(709,'110 Příjmy osvobozené od daně podle § 19 zákona, pokud jsou zahrnuty'+#13+'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') DlgStatic(-1,'120 &Příjmy nezahrnov...§23/4a)',305,120,204) DlgEdit(710,II120,512,118,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(710,'120 Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. a) zákona') DlgStatic(-1,'130 &Příjmy nezahrnov...§23/4b)',305,146,204) DlgEdit(711,II130,512,144,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(711,'130 Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. b) zákona') DlgStatic(-1,'140 &Příjmy a částky...§23/4osta',305,172,205) DlgEdit(712,II140,512,170,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(712,'140 Příjmy a částky podle § 23 odst. 4 zákona, s výjimkou příjmů podle § 23'+#13+'odst. 4 písm. a) a b) zákona, nezahrnované do základu daně') DlgStatic(-1,'160 &Souhrn jedn.rozdílů ... §24',305,224,205) DlgEdit(713,II160,512,222,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(713,'160 Souhrn jednotlivých rozdílů, o které částky výdajů (nákladů) vynaložených'+#13+'na dosažení, zajištění a udržení příjmů převyšují náklady uplatněné'+#13+'v účetnictví') DlgStatic(-1,'161 &Úprava základu daně ... §23',305,250,205) DlgEdit(714,II161,512,248,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(714,'161 Úprava základu daně podle § 23 zákona v případě zrušení poplatníka'+#13+'s likvidací') DlgStatic(-1,'162',305,276,24) DlgEdit(715,II162text,330,274,180,,100) DlgOnLineHelp(715,'162 Popis pro ostatní případy mimo ř.100 až ř.161, kdy je nutné pro správné stanovení základu daně snížit HV ... ') DlgEdit(716,II162,512,274,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(716,'162 ... ostatní případy mimo ř.100 až ř.161, kdy je nutné pro správné stanovení základu daně snížit HV ... ') DlgStatic(-1,'170 Mezisoučet (ř.100 až ř.170)',305,300,207) DlgStatic(-1,STR(II170,13,0),513,300,81,,,ES_RIGHT) ;{============================== 9.cover ================================} ;{vykresleni 9.coveru} SetCover(9,'Str.&7') DlgDivider(303,4,0,335) DlgStatic(-1,'200 Základ daně nebo daň.ztráta',5,6,214) DlgStatic(-1,STR(II200,12,0),220,6,81,,,ES_RIGHT) DlgStatic(-1,'201 Část zákl.daně..komplement.',5,32,220) DlgEdit(801,II201,219,30,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(801,'201 Část základu daně nebo daňové ztráty připadající na komplementáře'+#13+'v případě vykázání ztráty se uvede částka se znaménkem mínus (-)'+#13+'vyplní pouze poplatník, který je komanditní společností') DlgStatic(-1,'210 Úhrn vyňatých příjmů..zahr.',5,58,212) DlgEdit(802,II210,219,56,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(802,'210 Úhrn vyňatých příjmů (základů daně a daňových ztrát)'+#13+'podléhajících zdanění v zahraničí') DlgStatic(-1,'220 Základ daně..po úpravě',5,84,205) DlgStatic(-1,STR(II220,13,0),220,84,81,,,ES_RIGHT) DlgStatic(-1,'230 Odečet daňové ztráty §34/1',5,110,220) DlgEdit(803,II230,219,108,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(803,'230 Odečet daňové ztráty podle § 34 odst. 1 zákona'+#13+'údaj z tabulky E. řád.8 sl.4'+#13+'pokud poplatníkem daně je komanditní společnost, uvede pouze částky připadající na komanditisty') DlgStatic(-1,'240 Odečet dle §34/3 a)-d)=F.b)8',5,136,210) DlgStatic(-1,STR(FB8,13,0),220,136,81,,,ES_RIGHT) DlgStatic(-1,'241',5,162,23) DlgEdit(804,II241text,30,160,185,,100) DlgOnLineHelp(804,'241 ... ??? popis ... mimo jiné pro uplatněnou částku snížení základu daně podílového fondu...') DlgEdit(805,II241,219,160,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(805,'241 ... mimo jiné uplatněná částka snížení základu daně podílového fondu...') DlgStatic(-1,'250 Základ daně snížený...',5,188,180) DlgStatic(-1,STR(II250),220,188,81,,,ES_RIGHT) DlgStatic(-1,'251 Částka, o kterou lze snížit...',5,214,220) DlgEdit(806,II251,219,212,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(806,'251 Částka, o kterou lze dále snížit již snížený základ daně uvedený na ř. 250'+#13+'u poplatníků, kteří nejsou založeni nebo zřízeni za účelem podnikání') DlgStatic(-1,'260 Hodnota darů podle § 20 odst.8',5,240,220) DlgEdit(807,II260,219,238,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(807,'260 Hodnota darů podle § 20 odst. 8 zákona (nejvýše 2% a v úhrnu s dary poskytnutými'+#13+'v souvislosti s živelní pohromou nejvýše 4% z částky na ř. 250)') DlgStatic(-1,'270 Snížený základ daně...',5,266,181) DlgStatic(-1,STR(II270),220,266,81,,,ES_RIGHT) IF(not CompareStr(IniRok,'1999')) begin DlgStatic(-1,'280 &Sazba daně v %',5,292,140) DlgCombo(808,SazbaDPPO,220,290,85,128,9,CBS_DropDownList,'31','25','31/2','25/2') DlgOnLineHelp(808,'280 Sazba daně (v %) podle § 21 odst. 1 nebo odst. 2 zákona (příp. upravená podle'+#13+'§ 35 zákona)') end else begin DlgStatic(-1,'280 &Sazba daně v %',5,292,140) DlgCombo(808,SazbaDPPO,220,290,85,128,9,CBS_DropDownList,'35','25','35/2','25/2') DlgOnLineHelp(808,'280 Sazba daně (v %) podle § 21 odst. 1 nebo odst. 2 zákona (příp. upravená podle'+#13+'§ 35 zákona)') end DlgStatic(-1,'290 Daň',5,320,60) DlgStatic(-1,STR(II290),220,320,81,,,ES_RIGHT) DlgStatic(-1,'300 Slevy na dani podle § 35...',305,6,208) DlgEdit(810,II300,514,4,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(810,'300 Slevy na dani podle § 35 zákona (nejvýše do částky uvedené na ř. 290)') DlgStatic(-1,'301',305,30,23) DlgEdit(811,II301text,330,28,180,,100) DlgOnLineHelp(811,'301 Využití tohoto řádku je možné, pokud zákon stanoví nové položky, o které se dále upraví daňová povinnost') DlgEdit(812,II301,514,28,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(812,'301 Využití tohoto řádku je možné, pokud zákon stanoví nové položky, o které se dále upraví daňová povinnost') DlgStatic(-1,'310 Daň uprav.o ř. 300 a 301',305,54,190) DlgStatic(-1,STR(II310,12,0),515,54,81,,,ES_RIGHT) DlgStatic(-1,'320 Zápočet daně zapl. v zahr.',305,78,210) DlgEdit(813,II320,514,76,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(813,'320 Zápočet daně zaplacené v zahraničí na daň uvedenou na ř.'+#13+'(nejvýše do částky uvedené na ř. 310)') DlgStatic(-1,'330 Daň po zápočt. ř. 320',305,102,208) DlgStatic(-1,STR(II330,12,0),515,102,81,,,ES_RIGHT) DlgStatic(-1,'331 Samostatný základ daně §20b',305,126,190) DlgEdit(814,II331,514,124,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(814,'331 Samostatný základ daně podle § 20b zákona, zaokrouhlený na celé Kč dolů') DlgStatic(-1,'332 Sazba daně podle §21 odst.4 v %',305,150,250) DlgStatic(-1,STR(SazbaDPPO2,2,0),570,150,24,,,ES_RIGHT) DlgStatic(-1,'333 Daň ze samost.základu ...',305,174,200) DlgStatic(-1,STR(II333,12,0),514,174,81,,,ES_RIGHT) DlgStatic(-1,'334 Zápočet daně zapl.v zahran.',305,198,215) DlgEdit(815,II334,514,198,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(815,'334 Zápočet daně zaplacené v zahraničí na daň ze samostatného základu daně'+#13+'(nejvýše do částky uvedené na ř. 333)') DlgStatic(-1,'335 Daň ze samost.základu ...',305,222,200) DlgStatic(-1,STR(II335,12,0),515,222,81,,,ES_RIGHT) DlgStatic(-1,'340 Celková daňová povinnost...',305,246,220) DlgStatic(-1,STR(II340,12,0),515,246,81,,,ES_RIGHT) DlgStatic(-1,'350 Sražená daň dle §36 odst.6',305,272,215) DlgEdit(816,II350,514,270,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(816,'350 Sražená daň, splňující podmínky podle § 36 odst. 6 zákona pro zápočet na'+#13+'celkovou daňovou povinnost') DlgStatic(-1,'351 Částka sražené daně zř.350',305,298,220) DlgEdit(817,II351,514,296,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(817,'351 Částka sražené daně ze ř.350, uplatňovaná pro účely stanovení poslední známé'+#13+'daňové povinnosti podle § 38a odst. 1 zákona (nejvýše do částky uvedené na ř. 340)') DlgStatic(-1,'360 Poslední známá daň. povin.',305,324,210) DlgStatic(-1,STR(II360,12,0),515,324,81,,,ES_RIGHT) ;{============================== 10.cover ================================} ;{vykresleni 10.coveru} SetCover(10,'Str.&8') DlgDivider(16,74,570,0) DlgDivider(16,167,570,0) DlgDivider(16,213,570,0) DlgStatic(-1,'III. ODDÍL - výsledná daň invest. spol. obhospodařující majetek v podílových fondech',5,5,555) DlgStatic(-1,'1 Celková daň.povinnost za PF',5,25,205) DlgEdit(901,III1,219,23,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(901,'1 Celková daňová povinnost za podílové fondy'+#13+'- vyplňuje pouze investiční společnost obhospodařující majetek v podílových fondech') DlgStatic(-1,'2 Celková daň.povinnost...',305,25,172) DlgEdit(9011,III2,512,23,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(9011,'2 Celková daňová povinnost (ř. 1 + ř. 340 II. oddílu)'+#13+'- vyplňuje pouze investiční společnost obhospodařující majetek v podílových fondech') DlgStatic(-1,'3 Posl.známá daňová povinnost',5,49,212) DlgEdit(902,III3,219,47,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(902,'3 Poslední známá daňová povinnost pro účely stanovení záloh podle § 38a zákona'+#13+'- vyplňuje pouze investiční společnost obhospodařující majetek v podílových fondech') DlgStatic(-1,'IV.ODDÍL - dodatečné daňové přiznání',5,75,252) DlgStatic(-1,'1 Poslední známá částka daně',5,95,206) DlgEdit(903,IV1,219,93,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(903,'1 Poslední známá částka daně') DlgStatic(-1,'2 Nově zjištěná částka daně',5,119,206) DlgEdit(904,IV2,219,117,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(904,'2 Nově zjištěná částka daně (ř. 340 II. oddílu, resp. ř. 2 III. oddílu)') DlgStatic(-1,'3 Zvýšení (+), snížení (-)',5,143,160) DlgStatic(-1,STR(IV3,12,0),221,143,81,,,ES_RIGHT) DlgStatic(-1,'4 Poslední známá daň. ztráta',305,95,206) DlgEdit(905,IV4,512,93,85,,15,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(905,'1 Poslední známá daňová ztráta - vyplňuje se kladně') DlgStatic(-1,'5 Nově zjištěná daň. ztráta',305,119,206) DlgEdit(906,IV5,512,117,85,,15,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(906,'2 Nově zjištěná daňová ztráta (ř. 220 II. oddílu) - vyplňuje se kladně') DlgStatic(-1,'6 Zvýšení (+), snížení (-)',305,143,160) DlgStatic(-1,STR(IV6,12,0),513,143,81,,,ES_RIGHT) DlgStatic(-1,'V.ODDÍL - placení daně',5,169,150) DlgStatic(-1,'1 Na zálohách...zaplaceno',5,189,174) DlgEdit(907,V1,178,187,80,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(907,'1 Na zálohách a zajištění daně zaplaceno') DlgStatic(-1,'2 Sražená daň',260,189,206) DlgEdit(908,V2,360,187,80,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(908,'2 Sražená daň, která splňuje podmínky podle § 36 odst. 6 zákona pro zápočet'+#13+'na celkovou daňovovu povinnost (ř. 350 II. oddílu') IF(V3<0) DlgStatic(-1,'3 Nedopl.',443,189,69) else DlgStatic(-1,'3 Přepl.',443,189,69) DlgStatic(-1,STR(V3,12,0),513,189,81,,,ES_RIGHT) DlgStatic(-1,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO PŘIZNÁNÍ JSOU PRAVDIVÉ',5,215,590) DlgStatic(-1,'A ÚPLNÉ',5,234,90) DlgStatic(-1,'jméno',100,234,60) DlgEdit(920,JmenoOpravnen,145,232,120,,10) DlgOnLineHelp(920,'Osoba oprávněná k podání daňového přiznání za právnickou osobu - jméno') DlgStatic(-1,'příjmení',272,234,100) DlgEdit(921,PrijmeniOpravnen,331,232,266,,22) DlgOnLineHelp(921,'Osoba oprávněná k podání daňového přiznání za právnickou osobu - příjmení') DlgStatic(-1,'postavení k právnické osobě',5,260,190) DlgEdit(922,Postaveni,197,258,400,,150) DlgOnLineHelp(922,'postavení k právnické osobě') DlgStatic(-1,'Číslo poradce',5,286,100) DlgEdit(923,EvCisOsved,97,284,68,,6) DlgOnLineHelp(923,'Pokud daňové přiznání zpracovává daňový poradce, uvede evidenční číslo osvědčení') DlgStatic(-1,'Sídlo poradce',172,286,90) DlgEdit(924,SidloPoradce,264,284,333,,150) DlgOnLineHelp(924,'Pokud daňové přiznání zpracovává daňový poradce, uvede své sídlo') DlgStatic(-1,'Datum',5,312,88) DlgEditDate(925,DatumPodani,49,310,78,,10,,ValidDatum) DlgOnLineHelp(925,'Datum') DlgStatic(-1,'Přiznání sestavil',136,312,188) DlgEdit(926,Sestavil,250,310,180,,12) DlgOnLineHelp(926,'Přiznání sestavil') DlgStatic(-1,'Telefon',437,312,50) DlgEdit(927,TelefSestav,487,310,110,,12) DlgOnLineHelp(927,'Telefon') ;{============================== 11.cover = protokol ==============================} ;{vykresleni 11.coveru - protokolu} SetCover(11,'Protokol') radek:INTEGER=0 IF(LENGTH(WarnDodat)<>0) begin DlgStatic(-1,WarnDodat,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDodat2)<>0) begin DlgStatic(-1,WarnDodat2,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDodat3)<>0) begin DlgStatic(-1,WarnDodat3,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDodat4)<>0) begin DlgStatic(-1,WarnDodat4,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDodat5)<>0) begin DlgStatic(-1,WarnDodat5,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZapor)>0) begin DlgStatic(-1,'- seznam řádků, které 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(Warn230)<>0) begin DlgStatic(-1,Warn230,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn230E84)<>0) begin DlgStatic(-1,Warn230E84,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn240II220)<>0) begin DlgStatic(-1,Warn240II220,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn240II230)<>0) begin DlgStatic(-1,Warn240II230,3,(radek*20)+5,280) radek=radek+1 end IF(LENGTH(Warn240II23020)<>0) begin DlgStatic(-1,Warn240II23020,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn320II310)<>0) begin DlgStatic(-1,Warn320II310,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn351II340)<>0) begin DlgStatic(-1,Warn351II340,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnIII)<>0) begin DlgStatic(-1,WarnIII,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE1)<>0) begin DlgStatic(-1,WarnE1,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDar)<>0) begin DlgStatic(-1,WarnDar,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDar1)<>0) begin DlgStatic(-1,WarnDar1,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDar2)<>0) begin DlgStatic(-1,WarnDar2,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDar3)<>0) begin DlgStatic(-1,WarnDar3,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDar4)<>0) begin DlgStatic(-1,WarnDar4,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnF)<>0) begin DlgStatic(-1,WarnF,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnII300H)<>0) begin DlgStatic(-1,WarnII300H,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnII300II290)<>0) begin DlgStatic(-1,WarnII300II290,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn334II333)<>0) begin DlgStatic(-1,Warn334II333,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnFA4Komand)<>0) begin DlgStatic(-1,WarnFA4Komand,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnG1Komand)<>0) begin DlgStatic(-1,WarnG1Komand,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnG2Komand)<>0) begin DlgStatic(-1,WarnG2Komand,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnH4Komand)<>0) begin DlgStatic(-1,WarnH4Komand,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnCP)<>0) begin DlgStatic(-1,WarnCP,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE1rok)<>0) begin DlgStatic(-1,WarnE1rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE2rok)<>0) begin DlgStatic(-1,WarnE2rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE3rok)<>0) begin DlgStatic(-1,WarnE3rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE4rok)<>0) begin DlgStatic(-1,WarnE4rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE5rok)<>0) begin DlgStatic(-1,WarnE5rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE6rok)<>0) begin DlgStatic(-1,WarnE6rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE7rok)<>0) begin DlgStatic(-1,WarnE7rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPrizn)<>0) begin DlgStatic(-1,WarnPrizn,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPorad1)<>0) begin DlgStatic(-1,WarnPorad1,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPorad2)<>0) begin DlgStatic(-1,WarnPorad2,3,(radek*20)+5,595) radek=radek+1 end ;{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!} SetCover(11,'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,1040) ;{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','FinancniUrad',FinancniUrad,INI) SetToIni('TITULNI'+IniRok,'TypPriz1',TypPriz1,INI) SetToIni('TITULNI'+IniRok,'DatumDodat',StrDate(DatumDodat),INI) SetToIni('TITULNI','ObchodniJmeno',ObchodniJmeno,INI) SetToIni('TITULNI','DodatekJmena',DodatekJmena,INI) SetToIni('TITULNI','Obec',Obec,INI) SetToIni('TITULNI','PSC',PSCdppo,INI) SetToIni('TITULNI','Ulice',UliceDppo,INI) SetToIni('TITULNI','Okres',Okres,INI) SetToIni('TITULNI','Stat',Stat,INI) SetToIni('TITULNI','Telefon',telefon,INI) SetToIni('TITULNI','Fax',fax,INI) SetToIni('TITULNI','BankovniUcet',BankovniUcet,INI) SetToIni('TITULNI','KodRozlis',KodRozlis,INI) SetToIni('TITULNI'+IniRok,'PocetPodilFondu',PocetPodilFondu,INI) SetToIni('TITULNI'+IniRok,'PoradCisloFondu',PoradCisloFondu,INI) SetToIni('TITULNI'+IniRok,'PocetPrilII',PocetPrilII,INI) SetToIni('TITULNI'+IniRok,'PocetZvlPril',PocetZvlPril,INI) SetToIni('TITULNI'+IniRok,'PoradceAnoNe',PoradceAnoNe,INI) SetToIni('TITULNI'+IniRok,'OverAuditAnoNe',OverAuditAnoNe,INI) SetToIni('TITULNI'+IniRok,'ZaverkaAnoNe',ZaverkaAnoNe,INI) SetToIni('TITULNI','HlavCinn1',HlavCinn1,INI) SetToIni('TITULNI','HlavCinn2',HlavCinn2,INI) ;{ulozeni hodnot 2. coveru} SetToIni('A'+IniRok,'TextUctSkup1',TextUctSkup1,INI) SetToIni('A'+IniRok,'TextUctSkup2',TextUctSkup2,INI) SetToIni('A'+IniRok,'TextUctSkup3',TextUctSkup3,INI) SetToIni('A'+IniRok,'TextUctSkup4',TextUctSkup4,INI) SetToIni('A'+IniRok,'TextUctSkup5',TextUctSkup5,INI) SetToIni('A'+IniRok,'TextUctSkup6',TextUctSkup6,INI) SetToIni('A'+IniRok,'TextUctSkup7',TextUctSkup7,INI) SetToIni('A'+IniRok,'TextUctSkup8',TextUctSkup8,INI) SetToIni('A'+IniRok,'TextUctSkup9',TextUctSkup9,INI) SetToIni('A'+IniRok,'TextUctSkup10',TextUctSkup10,INI) SetToIni('A'+IniRok,'TextUctSkup11',TextUctSkup11,INI) SetToIni('A'+IniRok,'TextUctSkup12',TextUctSkup12,INI) SetToIni('A'+IniRok,'UctSkup1',UctSkup1,INI) SetToIni('A'+IniRok,'UctSkup2',UctSkup2,INI) SetToIni('A'+IniRok,'UctSkup3',UctSkup3,INI) SetToIni('A'+IniRok,'UctSkup4',UctSkup4,INI) SetToIni('A'+IniRok,'UctSkup5',UctSkup5,INI) SetToIni('A'+IniRok,'UctSkup6',UctSkup6,INI) SetToIni('A'+IniRok,'UctSkup7',UctSkup7,INI) SetToIni('A'+IniRok,'UctSkup8',UctSkup8,INI) SetToIni('A'+IniRok,'UctSkup9',UctSkup9,INI) SetToIni('A'+IniRok,'UctSkup10',UctSkup10,INI) SetToIni('A'+IniRok,'UctSkup11',UctSkup11,INI) SetToIni('A'+IniRok,'UctSkup12',UctSkup12,INI) SetToIni('Ba'+IniRok,'Suma551',Suma551,INI) ;{ulozeni hodnot 3. coveru} 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) ;{ulozeni hodnot 4. coveru} SetToIni('Ca'+IniRok,'OdpisPohl1',OdpisPohl1,INI) SetToIni('Ca'+IniRok,'OdpisPohl2',OdpisPohl2,INI) SetToIni('Ca'+IniRok,'OdpisPohl3',OdpisPohl3,INI) SetToIni('Ca'+IniRok,'OdpisPohl4',OdpisPohl4,INI) SetToIni('Ca'+IniRok,'OdpisPohl5',OdpisPohl5,INI) SetToIni('Ca'+IniRok,'OdpisPohl6',OdpisPohl6,INI) SetToIni('Ca'+IniRok,'OdpisPohl7',OdpisPohl7,INI) SetToIni('Ca'+IniRok,'OdpisPohl8',OdpisPohl8,INI) SetToIni('Cd'+IniRok,'Rezerva18',Rezerva18,INI) SetToIni('Cd'+IniRok,'Rezerva19',Rezerva19,INI) SetToIni('Ce'+IniRok,'Rezerva20',Rezerva20,INI) SetToIni('Ce'+IniRok,'Rezerva21',Rezerva21,INI) SetToIni('Ce'+IniRok,'Rezerva22',Rezerva22,INI) ;{ulozeni hodnot 5. coveru} SetToIni('CP'+IniRok,'CP14',CP14,INI) SetToIni('CP'+IniRok,'CP15',CP15,INI) SetToIni('CP'+IniRok,'CP16',CP16,INI) SetToIni('CP'+IniRok,'CP17',CP17,INI) SetToIni('CP'+IniRok,'CP22',CP22,INI) SetToIni('CP'+IniRok,'CP23',CP23,INI) SetToIni('CP'+IniRok,'CP25',CP25,INI) SetToIni('CP'+IniRok,'CP26',CP26,INI) SetToIni('CP'+IniRok,'CP27',CP27,INI) SetToIni('CP'+IniRok,'CP32',CP32,INI) SetToIni('CP'+IniRok,'CP33',CP33,INI) SetToIni('CP'+IniRok,'CP35',CP35,INI) SetToIni('CP'+IniRok,'CP36',CP36,INI) SetToIni('CP'+IniRok,'CP37',CP37,INI) SetToIni('E'+IniRok,'E11',E11,INI) SetToIni('E'+IniRok,'E12',E12,INI) SetToIni('E'+IniRok,'E13',E13,INI) SetToIni('E'+IniRok,'E14',E14,INI) SetToIni('E'+IniRok,'E15',E15,INI) SetToIni('E'+IniRok,'E21',E21,INI) SetToIni('E'+IniRok,'E22',E22,INI) SetToIni('E'+IniRok,'E23',E23,INI) SetToIni('E'+IniRok,'E24',E24,INI) SetToIni('E'+IniRok,'E25',E25,INI) SetToIni('E'+IniRok,'E31',E31,INI) SetToIni('E'+IniRok,'E32',E32,INI) SetToIni('E'+IniRok,'E33',E33,INI) SetToIni('E'+IniRok,'E34',E34,INI) SetToIni('E'+IniRok,'E35',E35,INI) SetToIni('E'+IniRok,'E41',E41,INI) SetToIni('E'+IniRok,'E42',E42,INI) SetToIni('E'+IniRok,'E43',E43,INI) SetToIni('E'+IniRok,'E44',E44,INI) SetToIni('E'+IniRok,'E45',E45,INI) SetToIni('E'+IniRok,'E51',E51,INI) SetToIni('E'+IniRok,'E52',E52,INI) SetToIni('E'+IniRok,'E53',E53,INI) SetToIni('E'+IniRok,'E54',E54,INI) SetToIni('E'+IniRok,'E55',E55,INI) SetToIni('E'+IniRok,'E61',E61,INI) SetToIni('E'+IniRok,'E62',E62,INI) SetToIni('E'+IniRok,'E63',E63,INI) SetToIni('E'+IniRok,'E64',E64,INI) SetToIni('E'+IniRok,'E65',E65,INI) SetToIni('E'+IniRok,'E71',E71,INI) SetToIni('E'+IniRok,'E72',E72,INI) SetToIni('E'+IniRok,'E73',E73,INI) SetToIni('E'+IniRok,'E74',E74,INI) SetToIni('E'+IniRok,'E75',E75,INI) ;{ulozeni hodnot 6. coveru} SetToIni('F'+IniRok,'FA1',FA1,INI) SetToIni('F'+IniRok,'FA2',FA2,INI) SetToIni('F'+IniRok,'FA3',FA3,INI) SetToIni('F'+IniRok,'FB5',FB5,INI) SetToIni('F'+IniRok,'FB7',FB7,INI) ;{ulozeni hodnot 7 coveru} SetToIni('G'+IniRok,'Dar4',Dar4,INI) SetToIni('G'+IniRok,'Dar2',Dar2,INI) SetToIni('H'+IniRok,'H1',H1,INI) SetToIni('H'+IniRok,'H2',H2,INI) SetToIni('H'+IniRok,'H3',H3,INI) SetToIni('I'+IniRok,'ZapocetZahr',ZapocetZahr,INI) SetToIni('I'+IniRok,'Zahr2',Zahr2,INI) SetToIni('I'+IniRok,'Zahr5',Zahr5,INI) SetToIni('I'+IniRok,'Zahr6',Zahr6,INI) ; je pocitany, ale aby ho znal v dalsim cyklu od zacatku SetToIni('J'+IniRok,'Komand11',Komand11,INI) SetToIni('J'+IniRok,'Komand12',Komand12,INI) SetToIni('J'+IniRok,'Komand21',Komand21,INI) SetToIni('J'+IniRok,'Komand22',Komand22,INI) SetToIni('J'+IniRok,'Komand31',Komand31,INI) SetToIni('J'+IniRok,'Komand32',Komand32,INI) SetToIni('J'+IniRok,'Komand41',Komand41,INI) SetToIni('J'+IniRok,'Komand42',Komand42,INI) SetToIni('J'+IniRok,'Komand51',Komand51,INI) SetToIni('J'+IniRok,'Komand52',Komand52,INI) SetToIni('J'+IniRok,'Komand61',Komand61,INI) SetToIni('J'+IniRok,'Komand62',Komand62,INI) SetToIni('J'+IniRok,'Komand72',Komand72,INI) SetToIni('J'+IniRok,'Komand81',Komand81,INI) SetToIni('J'+IniRok,'Komand82',Komand82,INI) SetToIni('J'+IniRok,'Komand91',Komand91,INI) SetToIni('J'+IniRok,'Komand92',Komand92,INI) SetToIni('J'+IniRok,'Komand101',Komand101,INI) SetToIni('J'+IniRok,'Komand102',Komand102,INI) ;{ulozeni hodnot 8 coveru} SetToIni('II'+IniRok,'II20',II20,INI) SetToIni('II'+IniRok,'II30',II30,INI) SetToIni('II'+IniRok,'II60',II60,INI) SetToIni('II'+IniRok,'II61',II61,INI) SetToIni('II'+IniRok,'II62text',II62text,INI) SetToIni('II'+IniRok,'II62',II62,INI) SetToIni('II'+IniRok,'II100',II100,INI) SetToIni('II'+IniRok,'II101',II101,INI) SetToIni('II'+IniRok,'II110',II110,INI) SetToIni('II'+IniRok,'II120',II120,INI) SetToIni('II'+IniRok,'II130',II130,INI) SetToIni('II'+IniRok,'II140',II140,INI) SetToIni('II'+IniRok,'II160',II160,INI) SetToIni('II'+IniRok,'II161',II161,INI) SetToIni('II'+IniRok,'II162text',II162text,INI) SetToIni('II'+IniRok,'II162',II162,INI) ;{ulozeni hodnot 9. coveru} SetToIni('II'+IniRok,'SazbaDPPO',SazbaDPPO,INI) SetToIni('II'+IniRok,'SazbaDPPO2',SazbaDPPO2,INI) SetToIni('II'+IniRok,'II201',II201,INI) SetToIni('II'+IniRok,'II210',II210,INI) SetToIni('II'+IniRok,'II230',II230,INI) SetToIni('II'+IniRok,'II241text',II241text,INI) SetToIni('II'+IniRok,'II241',II241,INI) SetToIni('II'+IniRok,'II251',II251,INI) SetToIni('II'+IniRok,'II260',II260,INI) SetToIni('II'+IniRok,'II300',II300,INI) SetToIni('II'+IniRok,'II301text',II301text,INI) SetToIni('II'+IniRok,'II301',II301,INI) SetToIni('II'+IniRok,'II320',II320,INI) SetToIni('II'+IniRok,'II331',II331,INI) SetToIni('II'+IniRok,'II333',II333,INI) SetToIni('II'+IniRok,'II334',II334,INI) SetToIni('II'+IniRok,'II350',II350,INI) SetToIni('II'+IniRok,'II351',II351,INI) ;{ulozeni hodnot 10. coveru} SetToIni('III'+IniRok,'III1',III1,INI) SetToIni('III'+IniRok,'III2',III2,INI) SetToIni('III'+IniRok,'III3',III3,INI) SetToIni('IV'+IniRok,'IV1',IV1,INI) SetToIni('IV'+IniRok,'IV2',IV2,INI) SetToIni('IV'+IniRok,'IV4',IV4,INI) SetToIni('IV'+IniRok,'IV5',IV5,INI) SetToIni('V'+IniRok,'V1',V1,INI) SetToIni('V'+IniRok,'V2',V2,INI) SetToIni('ZAVER'+IniRok,'JmenoOpravnen',JmenoOpravnen,INI) SetToIni('ZAVER'+IniRok,'PrijmeniOpravnen',PrijmeniOpravnen,INI) SetToIni('ZAVER'+IniRok,'Postaveni',Postaveni,INI) SetToIni('ZAVER'+IniRok,'EvCisOsved',EvCisOsved,INI) SetToIni('ZAVER'+IniRok,'SidloPoradce',SidloPoradce,INI) SetToIni('ZAVER'+IniRok,'DatumPodani',StrDate(DatumPodani),INI) SetToIni('ZAVER'+IniRok,'Sestavil',Sestavil,INI) SetToIni('ZAVER'+IniRok,'TelefSestav',TelefSestav,INI) end IF(Result=ID_OK) ;pri OK jede tudy na tisk sestavy GoTo(Vypocet) IF(Result2=ID_Yes) Halt Tisk: ;{================================================ str. 1 ========================} ;{tisk kontrol protokolu:} ;je-li datum zjisteni dodatecneho, musi byt jinde nez na radnem... ;cisla roku v E. sloupec 1 musi byt rozumna - 7 zdanovacich obdobi zpet ; hodnota daru... 2% 4% ;kontrola J3 a dalsi ; ;{tisk 1. strany:} begin PEN(0,0.1) ROUNDBOXA(18,16,97,22,3.3,3.3) ROUNDBOXA(18,28,93,34,3.3,3.3) LINEA(34,31.5,37,31.5) LINESA(23,32.5,23,34,5,0,14) ROUNDBOXA(18,42,36,48,3.3,3.3) ROUNDBOXA(41,42,59,48,3.3,3.3) ROUNDBOXA(64,42,82,48,3.3,3.3) ROUNDBOXA(113,26,193,61,3.3,3.3) ROUNDBOXA(63,61,103,67,3.3,3.3) LINESA(68,65.5,68,67,10,0,2) LINESA(73,64.5,73,67,10,0,2) LINESA(88,65.5,88,67,5,0,3) ROUNDBOXA(63,73,73,79,3.3,3.3) LINEA(68,77.5,68,79) ROUNDBOXA(183,68,193,74,3.3,3.3) ROUNDBOXA(183,75,193,81,3.3,3.3) ROUNDBOXA(183,82,193,88,3.3,3.3) ROUNDBOXA(183,89,193,95,3.3,3.3) ROUNDBOXA(154,115,187,121,3.3,3.3) ROUNDBOXA(18,135,193,141,3.3,3.3) LINESA(23,139.5,23,141,5,0,34) ROUNDBOXA(18,142,193,148,3.3,3.3) LINESA(23,146.5,23,148,5,0,34) ROUNDBOXA(18,155,58,161,3.3,3.3) LINESA(23,159.5,23,161,5,0,7) ROUNDBOXA(18,172,98,178,3.3,3.3) LINESA(23,176.5,23,178,5,0,15) ROUNDBOXA(103,172,129,178,3.3,3.3) LINESA(108,176.5,108,178,5,0,4) ROUNDBOXA(133,172,193,178,3.3,3.3) LINESA(138,176.5,138,178,5,0,11) ROUNDBOXA(18,185,129,191,3.3,3.3) LINESA(23,189.5,23,191,5,0,21) ROUNDBOXA(133,185,193,191,3.3,3.3) LINESA(138,189.5,138,191,5,0,11) ROUNDBOXA(18,198,113,204,3.3,3.3) LINESA(23,202.5,23,204,5,0,18) ROUNDBOXA(118,198,193,204,3.3,3.3) LINESA(123,202.5,123,204,5,0,14) ROUNDBOXA(18,210,168,216,3.3,3.3) LINESA(23,214.5,23,216,5,0,29) ROUNDBOXA(168,222,193,228,3.3,3.3) LINEA(180,222,180,228) ROUNDBOXA(153,232,193,238,3.3,3.3) LINESA(158,236.5,158,238,10,0,2) LINESA(163,236,163,238,10,0,2) LINESA(178,236.5,178,238,5,0,3) ROUNDBOXA(168,242,193,248,3.3,3.3) LINEA(180,242,180,248) ROUNDBOXA(141,252,166,258,3.3,3.3) LINEA(153,252,153,258) ROUNDBOXA(168,252,193,258,3.3,3.3) LINEA(180,252,180,258) ROUNDBOXA(18,265,158,271,3.3,3.3) ROUNDBOXA(163,265,193,271,3.3,3.3) LINESA(168,269.5,168,271,5,0,5) ROUNDBOXA(18,272,158,278,3.3,3.3) ROUNDBOXA(163,272,193,278,3.3,3.3) LINESA(168,276.5,168,278,5,0,5) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(58,8,TA_LEFT|TA_BASELINE,'Než začnete vyplňovat tiskopis, přečtěte si, prosím, pokyny.') FONTSIZE(3.2) FONTFACE(NORMAL) Text(18,15,TA_LEFT|TA_BASELINE,'Finančnímu úřadu') Text(18,27,TA_LEFT|TA_BASELINE,'01 Daňové identifikační číslo') Text(18,41,TA_LEFT|TA_BASELINE,'02 Daňové přiznání') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(27,46,TA_CENTER|TA_BASELINE,'řádné') Text(50,46,TA_CENTER|TA_BASELINE,'opravné') Text(73,46,TA_CENTER|TA_BASELINE,'dodatečné') FONTSIZE(2.7) Text(153,60,TA_CENTER|TA_BASELINE,'otisk prezentačního razítka finančního úřadu') FONTSIZE(3.2) Text(18,63,TA_LEFT|TA_BASELINE,'Důvody pro podání dodatečného') Text(18,66,TA_LEFT|TA_BASELINE,'daňového přiznání zjištěny dne') Text(18,77,TA_LEFT|TA_BASELINE,'03 Kód rozlišení typu přiznání') Text(136,71,TA_LEFT|TA_BASELINE,'Počet podílových fondů,') Text(136,74,TA_LEFT|TA_BASELINE,'jejichž majetek je obhospodařován') Text(136,79,TA_LEFT|TA_BASELINE,'Pořadové číslo podílového fondu') Text(136,86.5,TA_LEFT|TA_BASELINE,'Počet příloh II. oddílu') Text(136,93,TA_LEFT|TA_BASELINE,'Počet zvláštních příloh') FONTSIZE(10) FONTFACE(NORMAL|BOLD) Text(106,104,TA_CENTER|TA_BASELINE,'PŘIZNÁNÍ') FONTSIZE(6) Text(105,110,TA_CENTER|TA_BASELINE,'k dani z příjmů právnických osob') FONTSIZE(3.9) ;FONTWIDTHSCALE(1.5) Text(105,116,TA_CENTER|TA_BASELINE,'podle zákona ČNR č. 586/1992 Sb.') Text(88,120,TA_CENTER|TA_BASELINE,'o daních z příjmů, ve znění pozdějších předpisů (dále jen "zákon") za rok') FONTSIZE(3.6) Text(18,129,TA_LEFT|TA_BASELINE,'I. ODDÍL - údaje o poplatníkovi (podílovém fondu)') FontSize(1.5) FONTFACE(NORMAL) Text(0,-2.2,TA_Left|TA_Relative,'6)'); FONTSIZE(3.2) Text(18,134,TA_LEFT|TA_BASELINE,'04 Obchodní jméno') Text(18,154,TA_LEFT|TA_BASELINE,'05 Identifikační číslo') Text(18,167,TA_LEFT|TA_BASELINE,'06 Sídlo právnické osoby') Text(18,170.5,TA_LEFT|TA_BASELINE,'a) obec') Text(103,170.5,TA_LEFT|TA_BASELINE,'b) PSČ') Text(133,170.5,TA_LEFT|TA_BASELINE,'c) číslo telefonu') Text(18,183.5,TA_LEFT|TA_BASELINE,'d) ulice (část obce) a číslo popisné (číslo orientační)') Text(133,183.5,TA_LEFT|TA_BASELINE,'e) číslo faxu') Text(18,196.5,TA_LEFT|TA_BASELINE,'f) okres') Text(118,196.5,TA_LEFT|TA_BASELINE,'g) stát') Text(18,209,TA_LEFT|TA_BASELINE,'07 Bankovní spojení') Text(18,227.5,TA_LEFT|TA_BASELINE,'08 Přiznání zpracoval a předložil daňový poradce') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(174,226,TA_CENTER|TA_BASELINE,'ano') Text(186,226,TA_CENTER|TA_BASELINE,'ne') Text(18,237,TA_LEFT|TA_BASELINE,'09 Plná moc daňového poradce k zastupování uložena u finančního úřadu dne') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'2'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(18,247,TA_LEFT|TA_BASELINE,'10 Zákonná povinnost ověření účetní závěrky auditorem') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(174,245.8,TA_CENTER|TA_BASELINE,'ano') Text(186,245.8,TA_CENTER|TA_BASELINE,'ne') Text(18,255,TA_LEFT|TA_BASELINE,'11 Účetní závěrka přiložena') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,'),'); FontSize(1.5) Text(0,0.3,TA_Left|TA_Relative,'7'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(147,255.8,TA_CENTER|TA_BASELINE,'ano') Text(160,255.8,TA_CENTER|TA_BASELINE,'ne') Text(174,255.8,TA_CENTER|TA_BASELINE,'ano') Text(186,255.8,TA_CENTER|TA_BASELINE,'ne') FontSize(1.5) Text(7.5,-3.8,TA_Left|TA_Relative,'2'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(18,263.5,TA_LEFT|TA_BASELINE,'12 Hlavní (převažující) činnost') Text(163,263.5,TA_LEFT|TA_BASELINE,'Kód klasifikace OKEČ') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'2'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); FONTSIZE(2.5) Text(18,283,TA_LEFT|TA_BASELINE,'25 5404 MFin 5404 - vzor č. 9') Text(193,283,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') FONTSIZE(2.5) Text(107,285,TA_CENTER|TA_BASELINE,'1') ;{tisk hodnot 1. stranky} FONTSIZE(3.5) FontFace(Bold|Italic) Text(21,20,TA_LEFT|TA_BASELINE,FinancniUrad) STEXT(20,32,TA_LEFT|TA_BASELINE,5,3,ToChar('-',DIC)) STEXT(40,32,TA_LEFT|TA_BASELINE,5,10,FromChar('-',Program.DIC)) IF(TypPriz1=0) begin LINEA(45,43,55,47) LINEA(45,47,55,43) LINEA(68,43,78,47) LINEA(68,47,78,43) end; IF(TypPriz1=1) begin LINEA(22,43,32,47) LINEA(22,47,32,43) LINEA(68,43,78,47) LINEA(68,47,78,43) end; IF(TypPriz1=2) begin LINEA(22,43,32,47) LINEA(22,47,32,43) LINEA(45,43,55,47) LINEA(45,47,55,43) end; IF(DatumDodat<>0) begin STEXT(65,65,TA_LEFT|TA_BASELINE,5,2,Day(DatumDodat,2)) STEXT(75,65,TA_LEFT|TA_BASELINE,5,2,Month(DatumDodat,2)) STEXT(85,65,TA_LEFT|TA_BASELINE,5,4,Year(DatumDodat,4)) end STEXT(65,77,TA_LEFT|TA_BASELINE,4,2,KodRozlis) IF(PocetPodilFondu<>0 Text(190,72,TA_RIGHT|TA_BASELINE,PocetPodilFondu) IF(PoradCisloFondu<>0) Text(190,79,TA_RIGHT|TA_BASELINE,PoradCisloFondu) IF(PocetPrilII<>0) Text(190,86,TA_RIGHT|TA_BASELINE,PocetPrilII) IF(PocetZvlPril<>0) Text(190,93,TA_RIGHT|TA_BASELINE,PocetZvlPril) FONTSIZE(4) SText(160,119,TA_LEFT|TA_BASELINE,4,4,Rok) FONTSIZE(3.5) STEXT(20,139,TA_LEFT|TA_BASELINE,5,35,ObchodniJmeno) STEXT(20,146,TA_LEFT|TA_BASELINE,5,35,DodatekJmena) IF(PoradCisloFondu=0) STEXT(20,159,TA_LEFT|TA_BASELINE,5,8,ICO) STEXT(20,176,TA_LEFT|TA_BASELINE,5,16,Obec) STEXT(105,176,TA_LEFT|TA_BASELINE,5,5,PSCdppo) STEXT(135,176,TA_LEFT|TA_BASELINE,5,12,Telefon) STEXT(20,189,TA_LEFT|TA_BASELINE,5,22,UliceDppo) STEXT(135,189,TA_LEFT|TA_BASELINE,5,22,fax) STEXT(20,202,TA_LEFT|TA_BASELINE,5,19,Okres) STEXT(120,202,TA_LEFT|TA_BASELINE,5,15,Stat) STEXT(20,214,TA_LEFT|TA_BASELINE,5,30,BankovniUcet) IF(PoradceAnoNe=True) begin LINEA(181,223,191,227) LINEA(181,227,191,223) end; else begin LINEA(169,223,179,227) LINEA(169,227,179,223) end; IF(OverAuditAnoNe=True) begin LINEA(181,243,191,247) LINEA(181,247,191,243) end; else begin LINEA(169,243,179,247) LINEA(169,247,179,243) end; IF(ZaverkaAnoNe=True) begin LINEA(155,253,165,257) LINEA(155,257,165,253) end; else begin LINEA(142,253,152,257) LINEA(142,257,152,253) end; TEXT(20,269,TA_LEFT|TA_BASELINE,HlavCinn1) TEXT(20,276,TA_LEFT|TA_BASELINE,HlavCinn2) end ;{================================================ str. 2 ========================} ;{tisk 2. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(4,13,179,36,3.3,3.3) PEN(0,0.1) ROUNDBOXA(39,30,98,35,3.3,3.3) LINEA(14,13,14,36) LINEA(120,13,120,36) LINEA(150,19,150,36) LINEA(120,19,179,19) LINEA(4,25,179,25) PEN(0,0.3) ROUNDBOXA(4,43,179,145,3.3,3.3) PEN(0,0.1) LINEA(14,43,14,145) LINEA(120,43,120,145) LINEA(150,43,150,145) LINEA(4,57,179,57) LINEA(4,69,179,69) LINEA(4,82.5,179,82.5) LINEA(4,94.5,179,94.5) LINEA(4,109,179,109) LINEA(4,121,179,121) LINEA(4,133,179,133) PEN(0,0.3) ROUNDBOXA(4,151,179,283,3.3,3.3) PEN(0,0.1) LINEA(14,151,14,283) LINEA(120,151,120,283) LINEA(150,151,150,283) LINEA(4,162,179,162) LINEA(4,175,179,175) LINEA(4,187,179,187) LINEA(4,199,179,199) LINEA(4,211,179,211) LINEA(4,223,179,223) LINEA(4,235,179,235) LINEA(4,247,179,247) LINEA(4,259,179,259) LINEA(4,271,179,271) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(4,9,TA_LEFT|TA_BASELINE,'II. ODDÍL - daň z příjmů právnických osob (dále jen "daň")') FONTSIZE(3.2) FONTFACE(NORMAL) Text(9,20,TA_CENTER|TA_BASELINE,'Řádek') Text(151,17,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,23,TA_CENTER|TA_BASELINE,'poplatník') Text(165,23,TA_CENTER|TA_BASELINE,'finanční úřad') Text(9,32,TA_CENTER|TA_BASELINE,'10') FontSize(1.5) Text(2,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,28.5,TA_LEFT|TA_BASELINE,'Hospodařský výsledek před zdaněním (zisk +, ztráta -)') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,') nebo rozdíl mezi příjmy'); Text(16,34,TA_LEFT|TA_BASELINE,'a výdaji') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,') ke dni'); Text(9,51,TA_CENTER|TA_BASELINE,'20') Text(16,48,TA_LEFT|TA_BASELINE,'Částky neoprávněně zkracující příjmy a hodnota nepeněžních příjmů pokud') Text(16,51.5,TA_LEFT|TA_BASELINE,'nejsou zahrnuty v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji') Text(16,55,TA_LEFT|TA_BASELINE,'(ř. 10)') Text(9,64,TA_CENTER|TA_BASELINE,'30') Text(16,62,TA_LEFT|TA_BASELINE,'Částky odečtené od základu daně podle § 34 odst. 3 zákona při nedodržení') Text(16,66,TA_LEFT|TA_BASELINE,'stanovených podmínek') Text(9,76,TA_CENTER|TA_BASELINE,'40') Text(16,73,TA_LEFT|TA_BASELINE,'Výdaje (náklady) neuznávané za výdaje (náklady) vynaložené k dosažení,zajištění') Text(16,76.5,TA_LEFT|TA_BASELINE,'a udržení příjmů (§ 25 nebo § 24 zákona), pokud jsou zahrnuty v hospodářském') Text(16,80,TA_LEFT|TA_BASELINE,'výsledku nebo v rozdílu mezi příjmy a výdaji na ř. 10') Text(9,90,TA_CENTER|TA_BASELINE,'50') Text(16,87,TA_LEFT|TA_BASELINE,'Rozdíl, o který odpisy hmotného a nehmotného majetku (§ 26 zákona) uplatněné') Text(16,91,TA_LEFT|TA_BASELINE,'v účetnictví převyšují odpisy tohoto majetku stanovené podle § 26 až 33 zákona') Text(9,103,TA_CENTER|TA_BASELINE,'60') Text(16,97.5,TA_LEFT|TA_BASELINE,'Zaměstnavatelem sražené, avšak v termínu podle § 23 odst. 3 zákona neza-') Text(16,101,TA_LEFT|TA_BASELINE,'placené částky pojistného sociálního zabezpečení a příspěvku na státní politiku') Text(16,104.5,TA_LEFT|TA_BASELINE,'zaměstnanosti a pojistného na veřejné zdravotní pojištění, k jejichž placení jsou') Text(16,108,TA_LEFT|TA_BASELINE,'povinni zaměstnanci') Text(9,116,TA_CENTER|TA_BASELINE,'61') FontSize(1.5) Text(1.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,116,TA_LEFT|TA_BASELINE,'Úprava základu daně podle § 23 zákona v případě zrušení poplatníka s likvidací') Text(9,127.5,TA_CENTER|TA_BASELINE,'62') FontSize(1.5) Text(2,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(9,139.5,TA_CENTER|TA_BASELINE,'70') Text(16,139.5,TA_LEFT|TA_BASELINE,'Mezisoučet (ř. 20 + 30 + 40 + 50 + 60 + 61 + 62)') Text(9,158,TA_CENTER|TA_BASELINE,'100') Text(16,156,TA_LEFT|TA_BASELINE,'Příjmy, které nejsou předmětem daně podle § 18 odst. 2 zákona, pokud jsou') Text(16,160,TA_LEFT|TA_BASELINE,'zahrnuty v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,170,TA_CENTER|TA_BASELINE,'101') Text(16,167,TA_LEFT|TA_BASELINE,'Příjmy, jež u poplatníků, kteří nebyli založeni nebo zřízeni za účelem podnikání,') Text(16,170,TA_LEFT|TA_BASELINE,'nejsou předmětem daně podle § 18 odst. 4 zákona, pokud jsou zahrnuty') Text(16,173,TA_LEFT|TA_BASELINE,'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,182,TA_CENTER|TA_BASELINE,'110') Text(16,181,TA_LEFT|TA_BASELINE,'Příjmy osvobozené od daně podle § 19 zákona, pokud jsou zahrnuty') Text(16,184.5,TA_LEFT|TA_BASELINE,'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,194,TA_CENTER|TA_BASELINE,'120') Text(16,194,TA_LEFT|TA_BASELINE,'Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. a) zákona') Text(9,206,TA_CENTER|TA_BASELINE,'130') Text(16,206,TA_LEFT|TA_BASELINE,'Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. b) zákona') Text(9,218,TA_CENTER|TA_BASELINE,'140') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,217,TA_LEFT|TA_BASELINE,'Příjmy a částky podle § 23 odst. 4 zákona, s výjimkou příjmů podle § 23') Text(16,220,TA_LEFT|TA_BASELINE,'odst 4 písm. a) a b) zákona, nezahrnované do základu daně') Text(9,230,TA_CENTER|TA_BASELINE,'150') Text(16,229,TA_LEFT|TA_BASELINE,'Rozdíl, o který odpisy hmotného a nehmotného majetku stanovené podle') Text(16,232.5,TA_LEFT|TA_BASELINE,'§ 26 až 33 zákona převyšují odpisy tohoto majetku uplatněné v účetnictví') Text(9,242,TA_CENTER|TA_BASELINE,'160') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,239,TA_LEFT|TA_BASELINE,'Souhrn jednotlivých rozdílů, o které částky výdajů (nákladú) vynaložených') Text(16,242.5,TA_LEFT|TA_BASELINE,'na dosažení, zajištění a udržení příjmů převyšují náklady uplatněné') Text(16,246,TA_LEFT|TA_BASELINE,'v účetnictví') Text(9,253,TA_CENTER|TA_BASELINE,'161') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,252,TA_LEFT|TA_BASELINE,'Úprava základu daně podle § 23 zákona v případě zrušení poplatníka') Text(16,255.5,TA_LEFT|TA_BASELINE,'s likvidací') Text(9,267,TA_CENTER|TA_BASELINE,'162') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(9,277.5,TA_CENTER|TA_BASELINE,'170') Text(16,276,TA_LEFT|TA_BASELINE,'Mezisoučet') Text(16,280,TA_LEFT|TA_BASELINE,'(ř. 100 + 101 + 110 + 120 + 130 + 140 + 150 + 160 + 161 + 162)') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'2') ;{tisk hodnot 2. stranky} FONTSIZE(3.5) FontFace(Bold|Italic) Text(45,33.5,TA_LEFT|TA_BASELINE,'31.12.'+IniRok) Text(145,33.5,TA_RIGHT|TA_BASELINE,STR(HV10,13,0)) Text(145,51,TA_RIGHT|TA_BASELINE,STR(II20)) Text(145,64,TA_RIGHT|TA_BASELINE,STR(II30)) Text(145,76,TA_RIGHT|TA_BASELINE,STR(SumaNeNakl)) Text(145,90,TA_RIGHT|TA_BASELINE,STR(RozdilOdpisu50)) Text(145,103,TA_RIGHT|TA_BASELINE,STR(II60)) Text(145,116,TA_RIGHT|TA_BASELINE,STR(II61)) Text(16,127.5,TA_LEFT|TA_BASELINE,II62text) Text(145,127.5,TA_RIGHT|TA_BASELINE,STR(II62)) Text(145,139.5,TA_RIGHT|TA_BASELINE,STR(II70)) Text(145,158,TA_RIGHT|TA_BASELINE,STR(II100)) Text(145,170,TA_RIGHT|TA_BASELINE,STR(II101)) Text(145,182,TA_RIGHT|TA_BASELINE,STR(II110)) Text(145,194,TA_RIGHT|TA_BASELINE,STR(II120)) Text(145,206,TA_RIGHT|TA_BASELINE,STR(II130)) Text(145,218,TA_RIGHT|TA_BASELINE,STR(II140)) Text(145,230,TA_RIGHT|TA_BASELINE,STR(RozdilOdpisu150)) Text(145,242,TA_RIGHT|TA_BASELINE,STR(II160)) Text(145,253,TA_RIGHT|TA_BASELINE,STR(II161)) Text(16,267,TA_LEFT|TA_BASELINE,II162text) Text(145,267,TA_RIGHT|TA_BASELINE,STR(II162)) Text(145,277.5,TA_RIGHT|TA_BASELINE,STR(II170)) end ;{================================================ str. 3 ========================} ;{tisk 3. strany:} begin NextPage PEN(0,0.1) ROUNDBOXA(17,20,57,26,3.3,3.3) ROUNDBOXA(70,20,146,26,3.3,3.3) ROUNDBOXA(171,20,181,26,3.3,3.3) LINESA(22,25,22,26,5,0,7) LINESA(75,25,75,26,5,0,14) LINEA(75,25,75,26) LINEA(86,23.5,89,23.5) PEN(0,0.3) ROUNDBOXA(17,41,192,153,3.3,3.3) ROUNDBOXA(17,172,192,253,3.3,3.3) ROUNDBOXA(17,265,192,282,3.3,3.3) PEN(0,0.1) LINEA(27,41,27,153) LINEA(133,41,133,153) LINEA(163,45,163,153) LINEA(133,45,192,45) LINESA(17,49,192,49,0,8,13) LINEA(27,172,27,253) LINEA(133,172,133,253) LINEA(163,177,163,253) LINEA(133,177,192,177) LINESA(17,181,192,181,0,8,9) LINEA(27,265,27,282) LINEA(133,265,133,282) LINEA(163,265,163,282) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(192,8,TA_RIGHT|TA_BASELINE,'Příloha č. 1 II. oddílu') FONTSIZE(3.2) FONTFACE(NORMAL) Text(17,16,TA_LEFT|TA_BASELINE,'Identifikační číslo, u podílového') Text(17,19,TA_LEFT|TA_BASELINE,'fondu se tento údaj nevyplňuje') Text(70,16,TA_LEFT|TA_BASELINE,'Daňové identikační číslo, u podílového fondu se uvede daňové') Text(70,19,TA_LEFT|TA_BASELINE,'identifikační číslo investiční společnosti obhospodařující jeho majetek') Text(171,16,TA_LEFT|TA_BASELINE,'Pořadové číslo') Text(171,19,TA_LEFT|TA_BASELINE,'podílového fondu') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,34,TA_LEFT|TA_BASELINE,'A. Rozdělení výdajů (nákladů), které se neuznávají za výdaje (náklady) vynaložené na dosažení, zajištění') ; Text(22,38,TA_LEFT|TA_BASELINE,'a udržení příjmů, uvedených na řádku 40 podle účtových skupin účtové třídy - náklady') Text(22,38,TA_LEFT|TA_BASELINE,'a udržení příjmů, ') FONTFACE(NORMAL|BOLD|UNDERLINE) Text(0,0,TA_Left|TA_Relative|TA_BASELINE,'uvedených na řádku 40 ') FONTFACE(NORMAL|BOLD) Text(0,0,TA_Left|TA_Relative|TA_BASELINE,'podle účtových skupin účtové třídy - náklady') FONTSIZE(3.2) FONTFACE(NORMAL) Text(22,46,TA_CENTER|TA_BASELINE,'Řádek') Text(31,46,TA_LEFT|TA_BASELINE,'Název účtové skupiny (včetně číselného označení)') Text(163,44,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(148,48,TA_CENTER|TA_BASELINE,'poplatník') Text(178,48,TA_CENTER|TA_BASELINE,'finanční úřad') Text(22,54,TA_CENTER|TA_BASELINE,'1') Text(22,62,TA_CENTER|TA_BASELINE,'2') Text(22,70,TA_CENTER|TA_BASELINE,'3') Text(22,78,TA_CENTER|TA_BASELINE,'4') Text(22,86,TA_CENTER|TA_BASELINE,'5') Text(22,94,TA_CENTER|TA_BASELINE,'6') Text(22,102,TA_CENTER|TA_BASELINE,'7') Text(22,110,TA_CENTER|TA_BASELINE,'8') Text(22,118,TA_CENTER|TA_BASELINE,'9') Text(22,126,TA_CENTER|TA_BASELINE,'10') Text(22,134,TA_CENTER|TA_BASELINE,'11') Text(22,142,TA_CENTER|TA_BASELINE,'12') Text(22,150,TA_CENTER|TA_BASELINE,'13') Text(30,150,TA_LEFT|TA_BASELINE,'Celkem') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,160,TA_LEFT|TA_BASELINE,'B. Odpisy hmotného a nehmotného majetku') FONTSIZE(3.2) Text(17,166,TA_LEFT|TA_BASELINE,'a) Daňové odpisy hmotného a nehmotného majetku uplatněné jako výdaj (náklad) na dosažení, zajištění a udržení zdanitelných') Text(22,169,TA_LEFT|TA_BASELINE,'příjmů podle § 24 odst. 2 písm. a) zákona') FONTSIZE(3.2) FONTFACE(NORMAL) Text(22,178,TA_CENTER|TA_BASELINE,'Řádek') Text(163,175.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(148,180,TA_CENTER|TA_BASELINE,'poplatník') Text(178,180,TA_CENTER|TA_BASELINE,'finanční úřad') Text(22,186,TA_CENTER|TA_BASELINE,'1') Text(30,186,TA_LEFT|TA_BASELINE,'Odpisy hmotného a nehmotného majetku zařazeného do 1. odpisové skupiny') Text(22,194,TA_CENTER|TA_BASELINE,'2') Text(30,194,TA_LEFT|TA_BASELINE,'Odpisy hmotného a nehmotného majetku zařazeného do 2. odpisové skupiny') Text(22,202,TA_CENTER|TA_BASELINE,'3') Text(30,202,TA_LEFT|TA_BASELINE,'Odpisy hmotného a nehmotného majetku zařazeného do 3. odpisové skupiny') Text(22,210,TA_CENTER|TA_BASELINE,'4') Text(30,210,TA_LEFT|TA_BASELINE,'Odpisy hmotného majetku zařazeného do 4. odpisové skupiny') Text(22,218,TA_CENTER|TA_BASELINE,'5') Text(30,218,TA_LEFT|TA_BASELINE,'Odpisy hmotného majetku zařazeného do 5. odpisové skupiny') Text(22,226,TA_CENTER|TA_BASELINE,'6') Text(30,226,TA_LEFT|TA_BASELINE,'Odpisy hmotného majetku podle § 30 odst. 4 zákona') Text(22,234,TA_CENTER|TA_BASELINE,'7') Text(30,234,TA_LEFT|TA_BASELINE,'Odpisy hmotného a nehmotného majetku podle § 30 odst. 6 a ž 8 zákona') Text(22,242,TA_CENTER|TA_BASELINE,'8') Text(22,250,TA_CENTER|TA_BASELINE,'9') Text(30,250,TA_LEFT|TA_BASELINE,'Daňové odpisy hmotného a nehmotného majetku celkem') FONTFACE(NORMAL|BOLD) Text(17,259,TA_LEFT|TA_BASELINE,'b) Účetní odpisy hmotného a nehmotného investičního majetku uplatněné jako výdaj (náklad) na dosažení, zajištění a udržení') Text(22,263,TA_LEFT|TA_BASELINE,'zdanitelných příjmů podle § 24 odst. 2 písm. v) zákona') FONTSIZE(3.2) FONTFACE(NORMAL) Text(22,272,TA_CENTER|TA_BASELINE,'10') Text(30,268.5,TA_LEFT|TA_BASELINE,'Účetní odpisy hmotného investičního majetku, nehmotného investičního majetku') Text(30,271.5,TA_LEFT|TA_BASELINE,'a opravné položky k úplatně nabytému majetku, které nejsou pro účely zákona') Text(30,274.5,TA_LEFT|TA_BASELINE,'vymezeny jako hmotný nebo nehmotný majetek, uplatněné jako výdaj (náklad)') Text(30,277.5,TA_LEFT|TA_BASELINE,'na dosažení, zajištění a udržení zdanitelných příjmů podle § 24 odst. 2') Text(30,280.5,TA_LEFT|TA_BASELINE,'písm. v) zákona') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'3') ;{tisk hodnot 3. stranky} FONTSIZE(4) FontFace(Bold|Italic) IF(PoradCisloFondu=0) STEXT(19,24,TA_LEFT|TA_BASELINE,5,8,ICO) STEXT(72,24,TA_LEFT|TA_BASELINE,5,3,ToChar('-',DIC)) STEXT(92,24,TA_LEFT|TA_BASELINE,5,10,FromChar('-',Program.DIC)) IF(PoradCisloFondu<>0) Text(173,24,TA_LEFT|TA_BASELINE,PoradCisloFondu) j:INTEGER=0 IF(UctSkup1<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup1) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup1,0,0)) end IF(UctSkup2<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup2) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup2,0,0)) end IF(UctSkup3<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup3) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup3,0,0)) end IF(UctSkup4<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup4) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup4,0,0)) end IF(UctSkup5<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup5) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup5,0,0)) end IF(UctSkup6<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup6) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup6,0,0)) end IF(UctSkup7<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup7) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup7,0,0)) end IF(UctSkup8<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup8) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup8,0,0)) end IF(UctSkup9<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup9) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup9,0,0)) end IF(UctSkup10<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup10) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup10,0,0)) end IF(UctSkup11<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup11) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup11,0,0)) end IF(UctSkup12<>0) begin j=j+1 Text(31,54+(j-1)*8,TA_LEFT|TA_BASELINE,TextUctSkup12) Text(160,54+(j-1)*8,TA_RIGHT|TA_BASELINE,STR(UctSkup12,0,0)) end IF(SumaNeNakl<>0) Text(160,150,TA_RIGHT|TA_BASELINE,STR(SumaNeNakl,0,0)) Text(160,186,TA_RIGHT|TA_BASELINE,STR(Odpis1,0,0)) Text(160,194,TA_RIGHT|TA_BASELINE,STR(Odpis2,0,0)) Text(160,202,TA_RIGHT|TA_BASELINE,STR(Odpis3,0,0)) Text(160,210,TA_RIGHT|TA_BASELINE,STR(Odpis4,0,0)) Text(160,218,TA_RIGHT|TA_BASELINE,STR(Odpis5,0,0)) Text(160,226,TA_RIGHT|TA_BASELINE,STR(Odpis6,0,0)) Text(160,234,TA_RIGHT|TA_BASELINE,STR(Odpis7,0,0)) Text(31,242,TA_LEFT|TA_BASELINE,PopisOdpis8) Text(160,242,TA_RIGHT|TA_BASELINE,STR(Odpis8,0,0)) Text(160,250,TA_RIGHT|TA_BASELINE,STR(SumaDanOdpis,0,0)) Text(160,272,TA_RIGHT|TA_BASELINE,STR(Odpis10,0,0)) end ;{================================================ str. 4 ========================} ;{tisk 4. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(3,29,178,120,3.3,3.3) ROUNDBOXA(3,130,178,193,3.3,3.3) ROUNDBOXA(3,203,178,220,3.3,3.3) ROUNDBOXA(3,230,178,248,3.3,3.3) ROUNDBOXA(3,255,178,282,3.3,3.3) PEN(0,0.1) LINEA(13,29,13,120) LINEA(120,29,120,120) LINEA(150,34,150,120) LINEA(120,34,178,34) LINEA(13,130,13,193) LINEA(120,130,120,193) LINEA(150,130,150,193) LINEA(13,203,13,220) LINEA(120,203,120,220) LINEA(150,203,150,220) LINEA(13,230,13,248) LINEA(120,230,120,248) LINEA(150,230,150,248) LINEA(13,255,13,282) LINEA(120,255,120,282) LINEA(150,255,150,282) LINEA(3,39,178,39) LINESA(3,50,178,50,0,10,7) LINESA(3,139,178,139,0,9,6) LINEA(3,211,178,211) LINEA(3,239,178,239) LINESA(3,264,178,264,0,9,2) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,9,TA_LEFT|TA_BASELINE,'C. Odpis pohledávek zahrnovaný do výdajů (nákladů) na dosažení, zajištění a udržení příjmů a zákonné rezervy') Text(8,13,TA_LEFT|TA_BASELINE,'a zákonné opravné položky vytvářené dle zákona č. 593/1992 Sb., o rezervách pro zajištění základu daně z příjmů,') Text(8,17,TA_LEFT|TA_BASELINE,'ve znění pozdějších předpisů (dále jen zákon o rezervách)') FONTSIZE(3.2) Text(3,21,TA_LEFT|TA_BASELINE,'a) Odpis neuhrazených pohledávek zahrnovaný do daňových výdajů (nákladů) a zákonné opravné položky k pohledávkám, mimo') Text(8,24,TA_LEFT|TA_BASELINE,'zákonných opravných položek peněžních ústavů podle § 5 zákona o rezervách - vyplňují všichni poplatníci') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,35,TA_CENTER|TA_BASELINE,'Řádek') Text(15,35,TA_LEFT|TA_BASELINE,'Název položky') Text(150,32.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,37.5,TA_CENTER|TA_BASELINE,'poplatník') Text(164,37.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,45,TA_CENTER|TA_BASELINE,'1') Text(15,42,TA_LEFT|TA_BASELINE,'Úhrn neuhrazených hodnot pohledávek nebo cen pořízení pohledávek nabytých') Text(15,44.5,TA_LEFT|TA_BASELINE,'postoupením, u nichž termín splatnosti nastal do konce roku 1994, jejichž část lze') Text(15,47,TA_LEFT|TA_BASELINE,'uplatnit jako výdaj (náklad) k dosažení, zajištění a udržení příjmů podle čl. II bodu') Text(15,49.5,TA_LEFT|TA_BASELINE,'2 zákona č. 210/1997 Sb., a to podle stavu ke konci zdaňovacího období') Text(8,57,TA_CENTER|TA_BASELINE,'2') Text(15,53,TA_LEFT|TA_BASELINE,'Částka odpisu uplatněná v daném zdaňovacím období jako výdaj (náklad)') Text(15,56,TA_LEFT|TA_BASELINE,'na dosažení, zajištění a udržení příjmů podle čl. II bodu 2 zákona č. 210/1997 Sb.') Text(15,59,TA_LEFT|TA_BASELINE,'(maximálně 20 % ze ř. 1)') Text(8,66,TA_CENTER|TA_BASELINE,'3') Text(15,64.5,TA_LEFT|TA_BASELINE,'Opravné položky k pohledávkám za dlužníky v konkursním a vyrovnacím řízení') Text(15,67.5,TA_LEFT|TA_BASELINE,'vytvořené podle § 8 zákona o rezervách v daném zdaňovacím období') Text(8,76,TA_CENTER|TA_BASELINE,'4') Text(15,74.5,TA_LEFT|TA_BASELINE,'Stav zákonných opravných položek k pohledávkám za dlužníky v konkursním') Text(15,77.5,TA_LEFT|TA_BASELINE,'a vyrovnacím řízení (§ 8 zákona o rezervách) ke konci zdaňovacího období') Text(8,86,TA_CENTER|TA_BASELINE,'5') Text(15,84.5,TA_LEFT|TA_BASELINE,'Stav nepromlčených pohledávek splatných po 31. prosinci 1994, na které lze tvořit') Text(15,87.5,TA_LEFT|TA_BASELINE,'zákonné opravné položky (§ 8a zákona o rezervách) ke konci zdaňovacího období') Text(8,96,TA_CENTER|TA_BASELINE,'6') Text(15,94.5,TA_LEFT|TA_BASELINE,'Opravné položky k nepromlčeným pohledávkám vytvořené podle § 8a zákona') Text(15,97.5,TA_LEFT|TA_BASELINE,'o rezervách v daném zdaňovacím období') Text(8,106,TA_CENTER|TA_BASELINE,'7') Text(15,104.5,TA_LEFT|TA_BASELINE,'Stav zákonných opravných položek k nepromlčeným pohledávkám splatným') Text(15,107.5,TA_LEFT|TA_BASELINE,'po 31. prosinci 1994 (§ 8a zákona o rezervách) ke konci zdaňovacího období') Text(8,116,TA_CENTER|TA_BASELINE,'8') Text(15,113,TA_LEFT|TA_BASELINE,'Úhrn hodnot pohledávek nebo cen pořízení pohledávek nabytých postoupením,') Text(15,116,TA_LEFT|TA_BASELINE,'uplatněných v daném zdaňovacím období jako výdaj(náklad) na dosažení,zajištění') Text(15,119,TA_LEFT|TA_BASELINE,'a udržení příjmů podle § 24 odst. 2 písm. y) zákona') FONTFACE(NORMAL|BOLD) FONTSIZE(3.2) Text(3,129,TA_LEFT|TA_BASELINE,'b) Bankovní rezervy a opravné položky podle § 5 zákona o rezervách - vyplňují pouze peněžní ústavy') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,136,TA_CENTER|TA_BASELINE,'9') Text(15,134.5,TA_LEFT|TA_BASELINE,'Rezervy na standardní pohledávky z úvěrů vytvořené podle § 5 odst. 1 písm. a)') Text(15,137.5,TA_LEFT|TA_BASELINE,'zákona o rezervách v daném zdaňovacím období') Text(8,145,TA_CENTER|TA_BASELINE,'10') Text(15,143.5,TA_LEFT|TA_BASELINE,'Stav rezerv na standardní pohledávky z úvěrů (§ 5 odst. 1 písm. a) zákona') Text(15,146.5,TA_LEFT|TA_BASELINE,'o rezervách) ke konci zdaňovacího období') Text(8,154,TA_CENTER|TA_BASELINE,'11') Text(15,154,TA_LEFT|TA_BASELINE,'Stav klasifikovaných pohledávek z úvěrů ke konci zdaňovacího období') Text(8,163,TA_CENTER|TA_BASELINE,'12') Text(15,161.5,TA_LEFT|TA_BASELINE,'Úhrn opravných položek ke klasifikovaným pohledávkám z úvěrů vytvořených') Text(15,164.5,TA_LEFT|TA_BASELINE,'podle § 5 odst. 1 písm. b) a odst. 3 zákona o rezervách za dané zdaňovací období') Text(8,172,TA_CENTER|TA_BASELINE,'13') Text(15,170.5,TA_LEFT|TA_BASELINE,'Stav zákonných opravných položek ke klasifikovaným pohledávkám z úvěrů') Text(15,173.5,TA_LEFT|TA_BASELINE,'(§ 5 odst. 1 písm. b) a odst. 3 zákona o rezervách)ke konci zdaňovacího období') Text(8,180,TA_CENTER|TA_BASELINE,'14') Text(15,178.5,TA_LEFT|TA_BASELINE,'Rezervy na poskytnuté záruky vytvořené podle § 5 odst. 1 písm. c) zákona') Text(15,181.5,TA_LEFT|TA_BASELINE,'o rezervách v daném zdaňovacím období') Text(8,189,TA_CENTER|TA_BASELINE,'15') Text(15,187.5,TA_LEFT|TA_BASELINE,'Stav zákonných rezerv na poskytnuté záruky (§ 5 odst. 1 písm. c) zákona') Text(15,190.5,TA_LEFT|TA_BASELINE,'o rezervách) ke konci zdaňovacího období') FONTFACE(NORMAL|BOLD) FONTSIZE(3.2) Text(3,201,TA_LEFT|TA_BASELINE,'c) Rezervy o pojišťovnictví - vyplňují pouze pojišťovny') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,209,TA_CENTER|TA_BASELINE,'16') Text(15,206.5,TA_LEFT|TA_BASELINE,'Rezervy v pojišťovnictví vytvořené podle § 6 zákona o rezervách v daném') Text(15,209.5,TA_LEFT|TA_BASELINE,'zdaňovacím období') Text(8,216.5,TA_CENTER|TA_BASELINE,'17') Text(15,216.5,TA_LEFT|TA_BASELINE,'Stav rezerv v pojišťovnictví (§ 6 zákona o rezervách) ke konci zdaňovacího období') FONTFACE(NORMAL|BOLD) FONTSIZE(3.2) Text(3,229,TA_LEFT|TA_BASELINE,'d) Rezervy na opravy hmotného majetku - vyplňují všichni poplatníci') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,236,TA_CENTER|TA_BASELINE,'18') Text(15,234.5,TA_LEFT|TA_BASELINE,'Rezerva na opravy hmotného majetku vytvořená podle § 7 zákona o rezervách') Text(15,237.5,TA_LEFT|TA_BASELINE,'v daném zdaňovacím období') Text(8,244,TA_CENTER|TA_BASELINE,'19') Text(15,243,TA_LEFT|TA_BASELINE,'Stav rezerv na opravy hmotného majetku (§ 7 zákona o rezervách)ke konci') Text(15,246,TA_LEFT|TA_BASELINE,'zdaňovacího období') FONTFACE(NORMAL|BOLD) FONTSIZE(3.2) Text(3,254,TA_LEFT|TA_BASELINE,'e) Ostatní zákonné rezervy - vyplňují pouze poplatníci oprávnění k jejich tvorbě a použití') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,261,TA_CENTER|TA_BASELINE,'20') Text(15,259.5,TA_LEFT|TA_BASELINE,'Rezerva na pěstební činnost vytvořená podle § 9 zákona o rezervách v daném') Text(15,262.5,TA_LEFT|TA_BASELINE,'zdaňovacím období') Text(8,270,TA_CENTER|TA_BASELINE,'21') Text(15,268.5,TA_LEFT|TA_BASELINE,'Stav rezervy na pěstební činnost (§ 9 zákona o rezervách) ke konci zdaňovacího') Text(15,271.5,TA_LEFT|TA_BASELINE,'období') Text(8,279,TA_CENTER|TA_BASELINE,'22') Text(15,277.5,TA_LEFT|TA_BASELINE,'Ostatní rezervy vytvořené podle § 10 zákona o rezervách v daném zdaňovacím') Text(15,280.5,TA_LEFT|TA_BASELINE,'období') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'4') ;{tisk hodnot 4. stranky} FONTSIZE(4) FontFace(Bold|Italic) Text(146,46,TA_RIGHT|TA_BASELINE,STR(OdpisPohl1,0,0)) Text(146,56,TA_RIGHT|TA_BASELINE,STR(OdpisPohl2,0,0)) Text(146,66,TA_RIGHT|TA_BASELINE,STR(OdpisPohl3,0,0)) Text(146,76,TA_RIGHT|TA_BASELINE,STR(OdpisPohl4,0,0)) Text(146,86,TA_RIGHT|TA_BASELINE,STR(OdpisPohl5,0,0)) Text(146,96,TA_RIGHT|TA_BASELINE,STR(OdpisPohl6,0,0)) Text(146,106,TA_RIGHT|TA_BASELINE,STR(OdpisPohl7,0,0)) Text(146,116,TA_RIGHT|TA_BASELINE,STR(OdpisPohl8,0,0)) Text(146,236,TA_RIGHT|TA_BASELINE,STR(Rezerva18,0,0)) Text(146,245,TA_RIGHT|TA_BASELINE,STR(Rezerva19,0,0)) Text(146,261,TA_RIGHT|TA_BASELINE,STR(Rezerva20,0,0)) Text(146,270,TA_RIGHT|TA_BASELINE,STR(Rezerva21,0,0)) Text(146,279,TA_RIGHT|TA_BASELINE,STR(Rezerva22,0,0)) end ;{================================================ str. 5 ========================} ;{tisk 5. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(17,13,192,75,3.3,3.3) ROUNDBOXA(17,88,192,181,3.3,3.3) ROUNDBOXA(17,195,192,241,3.3,3.3) ROUNDBOXA(17,248,192,283,3.3,3.3) PEN(0,0.1) LINEA(44,18,96,18) LINEA(115,18,192,18) LINEA(17,31,192,31) LINESA(17,35,192,35,0,8,5) LINEA(27,13,27,75) LINEA(44,13,44,67) LINEA(70,18,70,67) LINEA(96,13,96,67) LINEA(115,13,115,67) LINEA(141,18,141,75) LINEA(166,18,166,75) LINEA(17,105,192,105) LINESA(17,109,192,109,0,9,8) LINEA(27,88,27,181) LINEA(60,88,60,172) LINEA(93,88,93,172) LINEA(126,88,126,181) LINEA(159,88,159,181) LINEA(133,199.5,192,199.5) LINESA(17,204,192,204,0,9,4) LINEA(27,195,27,241) LINEA(133,195,133,241) LINEA(163,199.5,163,241) LINESA(17,257,192,257,0,9,3) LINEA(27,248,27,283) LINEA(133,248,133,283) LINEA(163,248,163,283) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,10,TA_LEFT|TA_BASELINE,'D. Uplatnění výdaje (nákladu) podle § 24 odst. 2 písm. r) zákona') FONTFACE(NORMAL) Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,' (vyplní se v celých Kč)') FONTSIZE(3.2) Text(70,16.5,TA_CENTER|TA_BASELINE,'Úhrn') Text(22,24,TA_CENTER|TA_BASELINE,'Řádek') Text(22,34,TA_CENTER|TA_BASELINE,'0') Text(22,40.5,TA_CENTER|TA_BASELINE,'1') Text(22,48.5,TA_CENTER|TA_BASELINE,'2') Text(22,56.5,TA_CENTER|TA_BASELINE,'3') Text(22,64.5,TA_CENTER|TA_BASELINE,'4') Text(22,72.5,TA_CENTER|TA_BASELINE,'5') Text(35,22,TA_CENTER|TA_BASELINE,'Zdaňovací') Text(35,25.5,TA_CENTER|TA_BASELINE,'období') Text(35,34,TA_CENTER|TA_BASELINE,'1') Text(35,40.5,TA_CENTER|TA_BASELINE,'1997') Text(35,48.5,TA_CENTER|TA_BASELINE,'1998') Text(35,56.5,TA_CENTER|TA_BASELINE,'1999') Text(29,72.5,TA_LEFT|TA_BASELINE,'Celkem') Text(57,21.5,TA_CENTER|TA_BASELINE,'příjmů') Text(57,24.5,TA_CENTER|TA_BASELINE,'z prodejů') Text(57,27.5,TA_CENTER|TA_BASELINE,'cenných papírů') Text(57,34,TA_CENTER|TA_BASELINE,'2') Text(57,40.5,TA_CENTER|TA_BASELINE,'X') Text(83,24,TA_CENTER|TA_BASELINE,'hodnot prodaných') Text(83,27,TA_CENTER|TA_BASELINE,'cenných papírů') Text(83,34,TA_CENTER|TA_BASELINE,'3') Text(83,40.5,TA_CENTER|TA_BASELINE,'X') Text(104.5,22,TA_CENTER|TA_BASELINE,'Rozdíl') Text(104.5,25.5,TA_CENTER|TA_BASELINE,'sl. 2 - sl. 3') Text(104.5,34,TA_CENTER|TA_BASELINE,'4') Text(153,16.5,TA_CENTER|TA_BASELINE,'Výdaj (náklad) podle § 24 odst. 2 písm. r) zákona') Text(128,21,TA_CENTER|TA_BASELINE,'uplatněný') Text(128,24,TA_CENTER|TA_BASELINE,'v předcházejících') Text(128,27,TA_CENTER|TA_BASELINE,'zdaňovacích') Text(128,30,TA_CENTER|TA_BASELINE,'obdobích') Text(128,34,TA_CENTER|TA_BASELINE,'5') Text(153.5,21,TA_CENTER|TA_BASELINE,'uplatněný') Text(153.5,24,TA_CENTER|TA_BASELINE,'v daném') Text(153.5,27,TA_CENTER|TA_BASELINE,'zdaňovacím') Text(153.5,30,TA_CENTER|TA_BASELINE,'období') Text(153.5,34,TA_CENTER|TA_BASELINE,'6') Text(179,21,TA_CENTER|TA_BASELINE,'který lze uplatnit') Text(179,24,TA_CENTER|TA_BASELINE,'v následujících') Text(179,27,TA_CENTER|TA_BASELINE,'zdaňovacích') Text(179,30,TA_CENTER|TA_BASELINE,'obdobích') Text(179,34,TA_CENTER|TA_BASELINE,'7') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,82,TA_LEFT|TA_BASELINE,'E. Odečet daňové ztráty od základu daně podle § 34 odst. 1 zákona') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,') nebo snížení základu daně podílového') Text(21,86,TA_LEFT|TA_BASELINE,'fondu o záporný rozdíl mezi jeho příjmy a výdaji podle § 20 odst. 3 zákona ') FONTFACE(NORMAL) ; Text(192,86,TA_RIGHT|TA_BASELINE,'(vyplní se v celých Kč)') Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,' (vyplní se v celých Kč)') FONTSIZE(3.2) Text(22,98,TA_CENTER|TA_BASELINE,'Řádek') Text(22,108,TA_CENTER|TA_BASELINE,'0') Text(22,115,TA_CENTER|TA_BASELINE,'1') Text(22,124,TA_CENTER|TA_BASELINE,'2') Text(22,133,TA_CENTER|TA_BASELINE,'3') Text(22,142,TA_CENTER|TA_BASELINE,'4') Text(22,151,TA_CENTER|TA_BASELINE,'5') Text(22,160,TA_CENTER|TA_BASELINE,'6') Text(22,169,TA_CENTER|TA_BASELINE,'7') Text(22,178,TA_CENTER|TA_BASELINE,'8') Text(44,95,TA_CENTER|TA_BASELINE,'Zdaňovací období,') Text(44,98,TA_CENTER|TA_BASELINE,'v němž daňová ztráta') Text(44,101,TA_CENTER|TA_BASELINE,'vznikla') Text(44,108,TA_CENTER|TA_BASELINE,'1') Text(29,178,TA_LEFT|TA_BASELINE,'Celkem') Text(78,92,TA_CENTER|TA_BASELINE,'Celková výše daňové') Text(78,95,TA_CENTER|TA_BASELINE,'ztráty vyměřené (vzniklé)') Text(78,98,TA_CENTER|TA_BASELINE,'nebo přiznávané') Text(78,101,TA_CENTER|TA_BASELINE,'za zdaňovací období') Text(78,104,TA_CENTER|TA_BASELINE,'uvedené ve sl. 1') Text(78,108,TA_CENTER|TA_BASELINE,'2') Text(110,93,TA_CENTER|TA_BASELINE,'Část daňové ztráty') Text(110,96,TA_CENTER|TA_BASELINE,'odečtená') Text(110,99,TA_CENTER|TA_BASELINE,'v předcházejících') Text(110,102,TA_CENTER|TA_BASELINE,'zdaň. obdobích') Text(110,108,TA_CENTER|TA_BASELINE,'3') Text(143,93,TA_CENTER|TA_BASELINE,'Část daňové ztráty') Text(143,96,TA_CENTER|TA_BASELINE,'odečtená') Text(143,99,TA_CENTER|TA_BASELINE,'v daném') Text(143,102,TA_CENTER|TA_BASELINE,'zdaň. období') Text(143,108,TA_CENTER|TA_BASELINE,'4') Text(176,93,TA_CENTER|TA_BASELINE,'Část ztráty, kterou') Text(176,96,TA_CENTER|TA_BASELINE,'je možno odečíst') Text(176,99,TA_CENTER|TA_BASELINE,'v následujících') Text(176,102,TA_CENTER|TA_BASELINE,'zdaň. obdobích') Text(176,108,TA_CENTER|TA_BASELINE,'5') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,189,TA_LEFT|TA_BASELINE,'F. Odečet podle § 34 odst. 3 písm. a) až d) a následujících odstavců zákona') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,')') FONTSIZE(3.2) Text(21,193,TA_LEFT|TA_BASELINE,'a) Nárok na odečet vzniklý v daném zdaňovacím období') FONTSIZE(3.2) FONTFACE(NORMAL) Text(22,201,TA_CENTER|TA_BASELINE,'Řádek') Text(29,201,TA_LEFT|TA_BASELINE,'Název položky') Text(163,198,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(148,202.5,TA_CENTER|TA_BASELINE,'poplatník') Text(178,202.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(22,210,TA_CENTER|TA_BASELINE,'1') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,208,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,211,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 10 % vstupní ceny') Text(22,219,TA_CENTER|TA_BASELINE,'2') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,217,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,220,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 15 % vstupní ceny') Text(22,228,TA_CENTER|TA_BASELINE,'3') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,226,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,229,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 20 % vstupní ceny') Text(22,237,TA_CENTER|TA_BASELINE,'4') Text(29,234,TA_LEFT|TA_BASELINE,'Částka nároku na odečet vstupní ceny nově') Text(29,237,TA_LEFT|TA_BASELINE,'pořízeného hmotného majetku podle § 34 odst. 3') Text(29,240,TA_LEFT|TA_BASELINE,'zákona, vzniklého v daném daňovacím období') LINEA(95,237,131,237) Text(113,236.5,TA_CENTER|TA_BASELINE,'(ř.1 x 10)+(ř.2 x 15)+(ř.3 x 20)') Text(113,239.5,TA_CENTER|TA_BASELINE,'100') FONTFACE(NORMAL|BOLD) FONTSIZE(3.2) Text(21,246,TA_LEFT|TA_BASELINE,'b) Odečet uplatněný v daném zdaňovacím období') FONTSIZE(3.2) FONTFACE(NORMAL) Text(22,254,TA_CENTER|TA_BASELINE,'5') Text(29,252,TA_LEFT|TA_BASELINE,'Částka odečtu uplatněná v daném zdaňovacím období z nároku uvedeného') Text(29,255,TA_LEFT|TA_BASELINE,'na ř. 4') Text(22,263,TA_CENTER|TA_BASELINE,'6') Text(29,261,TA_LEFT|TA_BASELINE,'Nevyužitá část nároku uvedeného na ř. 4, jejíž odečet lze uplatnit v dalších') Text(29,264,TA_LEFT|TA_BASELINE,'zdaňovacích obdobích (ř. 4 - 5)') Text(22,271.5,TA_CENTER|TA_BASELINE,'7') Text(29,271.5,TA_LEFT|TA_BASELINE,'Částka odečtu z nevyužitého nároku vzniklého v předchozích zdaň. obdobích') Text(22,280,TA_CENTER|TA_BASELINE,'8') Text(29,278,TA_LEFT|TA_BASELINE,'Celková částka odečtu uplatněného podle § 34 odst. 3 zákona v daném zdaň.') Text(29,281,TA_LEFT|TA_BASELINE,'období (ř. 5 + 7 = ř. 240 II. oddílu)') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'5') ;{tisk hodnot 5. stranky} FONTSIZE(4) FontFace(Bold|Italic) ;je-li cp14 zaporne, pak se tiskne, jinak proškrtávat IF(cp14<0) begin Text(112,40.5,TA_RIGHT|TA_BASELINE,STR(CP14,0,0)) Text(136,40.5,TA_RIGHT|TA_BASELINE,STR(CP15,0,0)) Text(161,40.5,TA_RIGHT|TA_BASELINE,STR(CP16,0,0)) Text(187,40.5,TA_RIGHT|TA_BASELINE,STR(CP17,0,0)) end else begin Text(112,40.5,TA_RIGHT|TA_BASELINE,skrt) Text(136,40.5,TA_RIGHT|TA_BASELINE,skrt) Text(161,40.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,40.5,TA_RIGHT|TA_BASELINE,skrt) end IF((cp22=0)AND(cp23=0)) ;neobchodoval begin Text(66,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(91,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(112,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(136,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(161,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,48.5,TA_RIGHT|TA_BASELINE,skrt) end else ; obchodoval begin Text(66,48.5,TA_RIGHT|TA_BASELINE,STR(CP22,0,0)) Text(91,48.5,TA_RIGHT|TA_BASELINE,STR(CP23,0,0)) Text(112,48.5,TA_RIGHT|TA_BASELINE,STR(CP24,0,0)) IF(CP24>0) ;kladny rozdil, zbytek se proskrtne begin Text(136,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(161,48.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,48.5,TA_RIGHT|TA_BASELINE,skrt) end else ;zaporny rozdil begin Text(136,48.5,TA_RIGHT|TA_BASELINE,STR(CP25,0,0)) Text(161,48.5,TA_RIGHT|TA_BASELINE,STR(CP26,0,0)) Text(187,48.5,TA_RIGHT|TA_BASELINE,STR(CP27,0,0)) end end IF((cp32=0)AND(cp33=0)) ;neobchodoval begin Text(66,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(91,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(112,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(136,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(161,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,56.5,TA_RIGHT|TA_BASELINE,skrt) end else ; obchodoval begin Text(66,56.5,TA_RIGHT|TA_BASELINE,STR(CP32,0,0)) Text(91,56.5,TA_RIGHT|TA_BASELINE,STR(CP33,0,0)) Text(112,56.5,TA_RIGHT|TA_BASELINE,STR(CP34,0,0)) IF(CP24>0) ;kladny rozdil, zbytek se proskrtne begin Text(136,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(161,56.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,56.5,TA_RIGHT|TA_BASELINE,skrt) end else ;zaporny rozdil begin Text(136,56.5,TA_RIGHT|TA_BASELINE,STR(CP35,0,0)) Text(161,56.5,TA_RIGHT|TA_BASELINE,STR(CP36,0,0)) Text(187,56.5,TA_RIGHT|TA_BASELINE,STR(CP37,0,0)) end end IF((CP56=0)AND(CP57)=0) begin Text(161,72.5,TA_RIGHT|TA_BASELINE,skrt) Text(187,72.5,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(161,72.5,TA_RIGHT|TA_BASELINE,STR(CP56,0,0)) Text(187,72.5,TA_RIGHT|TA_BASELINE,STR(CP57,0,0)) end IF(E11<>0) begin Text(55,115,TA_RIGHT|TA_BASELINE,STR(E11,0,0)) Text(88,115,TA_RIGHT|TA_BASELINE,STR(E12,0,0)) Text(121,115,TA_RIGHT|TA_BASELINE,STR(E13,0,0)) Text(154,115,TA_RIGHT|TA_BASELINE,STR(E14,0,0)) Text(187,115,TA_RIGHT|TA_BASELINE,STR(E15,0,0)) end IF(E21<>0) begin Text(55,124,TA_RIGHT|TA_BASELINE,STR(E21,0,0)) Text(88,124,TA_RIGHT|TA_BASELINE,STR(E22,0,0)) Text(121,124,TA_RIGHT|TA_BASELINE,STR(E23,0,0)) Text(154,124,TA_RIGHT|TA_BASELINE,STR(E24,0,0)) Text(187,124,TA_RIGHT|TA_BASELINE,STR(E25,0,0)) end IF(E31<>0) begin Text(55,133,TA_RIGHT|TA_BASELINE,STR(E31,0,0)) Text(88,133,TA_RIGHT|TA_BASELINE,STR(E32,0,0)) Text(121,133,TA_RIGHT|TA_BASELINE,STR(E33,0,0)) Text(154,133,TA_RIGHT|TA_BASELINE,STR(E34,0,0)) Text(187,133,TA_RIGHT|TA_BASELINE,STR(E35,0,0)) end IF(E41<>0) begin Text(55,142,TA_RIGHT|TA_BASELINE,STR(E41,0,0)) Text(88,142,TA_RIGHT|TA_BASELINE,STR(E42,0,0)) Text(121,142,TA_RIGHT|TA_BASELINE,STR(E43,0,0)) Text(154,142,TA_RIGHT|TA_BASELINE,STR(E44,0,0)) Text(187,142,TA_RIGHT|TA_BASELINE,STR(E45,0,0)) end IF(E51<>0) begin Text(55,151,TA_RIGHT|TA_BASELINE,STR(E51,0,0)) Text(88,151,TA_RIGHT|TA_BASELINE,STR(E52,0,0)) Text(121,151,TA_RIGHT|TA_BASELINE,STR(E53,0,0)) Text(154,151,TA_RIGHT|TA_BASELINE,STR(E54,0,0)) Text(187,151,TA_RIGHT|TA_BASELINE,STR(E55,0,0)) end IF(E61<>0) begin Text(55,160,TA_RIGHT|TA_BASELINE,STR(E61,0,0)) Text(88,160,TA_RIGHT|TA_BASELINE,STR(E62,0,0)) Text(121,160,TA_RIGHT|TA_BASELINE,STR(E63,0,0)) Text(154,160,TA_RIGHT|TA_BASELINE,STR(E64,0,0)) Text(187,160,TA_RIGHT|TA_BASELINE,STR(E65,0,0)) end IF(E71<>0) begin Text(55,169,TA_RIGHT|TA_BASELINE,STR(E71,0,0)) Text(88,169,TA_RIGHT|TA_BASELINE,STR(E72,0,0)) Text(121,169,TA_RIGHT|TA_BASELINE,STR(E73,0,0)) Text(154,169,TA_RIGHT|TA_BASELINE,STR(E74,0,0)) Text(187,169,TA_RIGHT|TA_BASELINE,STR(E75,0,0)) end Text(154,178,TA_RIGHT|TA_BASELINE,STR(E84,0,0)) Text(187,178,TA_RIGHT|TA_BASELINE,STR(E85,0,0)) Text(158,210,TA_RIGHT|TA_BASELINE,STR(FA1,0,0)) Text(158,219,TA_RIGHT|TA_BASELINE,STR(FA2,0,0)) Text(158,228,TA_RIGHT|TA_BASELINE,STR(FA3,0,0)) Text(158,237,TA_RIGHT|TA_BASELINE,STR(FA4,0,0)) Text(158,254,TA_RIGHT|TA_BASELINE,STR(FB5,0,0)) Text(158,263,TA_RIGHT|TA_BASELINE,STR(FB6,0,0)) Text(158,271.5,TA_RIGHT|TA_BASELINE,STR(FB7,0,0)) Text(158,280,TA_RIGHT|TA_BASELINE,STR(FB8,0,0)) end ;{================================================ str. 6 ========================} ;{tisk 6. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(3,11,178,33,3.3,3.3) ROUNDBOXA(3,41,178,77,3.3,3.3) ROUNDBOXA(3,86,178,151,3.3,3.3) ROUNDBOXA(3,160,178,254,3.3,3.3) ROUNDBOXA(3,261,178,283,3.3,3.3) PEN(0,0.1) LINEA(118,15,178,15) LINEA(13,11,13,33) LINEA(118,11,118,33) LINEA(148,15,148,33) LINESA(3,19,178,19,0,7,2) LINEA(118,45,178,45) LINEA(13,41,13,77) LINEA(118,41,118,77) LINEA(148,45,148,77) LINESA(3,49,178,49,0,7,4) LINEA(118,90,178,90) LINEA(13,86,13,151) LINEA(118,86,118,151) LINEA(148,90,148,151) LINESA(3,94,178,94,0,8,3) LINEA(3,118.5,178,118.5) LINESA(3,127,178,127,0,8,3) LINEA(13,160,13,254) LINEA(88,160,88,254) LINEA(118,160,118,254) LINEA(148,160,148,254) LINEA(3,171.5,178,171.5) LINESA(3,174,178,174,0,8,10) LINEA(118,265,178,265) LINEA(13,261,13,283) LINEA(96,261,96,283) LINEA(118,261,118,283) LINEA(148,265,148,283) LINESA(3,269,178,269,0,7,2) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,9,TA_LEFT|TA_BASELINE,'G. Celková hodnota poskytnutých darů, z níž lze na ř. 260 uplatnit odečet podle § 20 odst. 8 zákona') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,')') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,16,TA_CENTER|TA_BASELINE,'Řádek') Text(15,16,TA_LEFT|TA_BASELINE,'Název položky') Text(148,14,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(133,18,TA_CENTER|TA_BASELINE,'poplatník') Text(163,18,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,23,TA_CENTER|TA_BASELINE,'1') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,22,TA_LEFT|TA_BASELINE,'Celková hodnota poskytnutých darů, splňujících zákonné podmínky') Text(15,25,TA_LEFT|TA_BASELINE,'pro odečet do 4 % ze základu daně, sníženého podle § 34 zákona') Text(8,30.5,TA_CENTER|TA_BASELINE,'2') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,29,TA_LEFT|TA_BASELINE,'Celková hodnota poskytnutých darů, splňujících zákonné podmínky') Text(15,32,TA_LEFT|TA_BASELINE,'pro odečet do 2 % ze základu daně, sníženého podle § 34 zákona') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,40,TA_LEFT|TA_BASELINE,'H. Rozčlenění celkového nároku na slevy na dani (§ 35 zákona), který lze uplatnit na ř. 300') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,')') FONTSIZE(3.2) FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,46,TA_CENTER|TA_BASELINE,'Řádek') Text(15,46,TA_LEFT|TA_BASELINE,'Název položky') Text(148,44,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(133,48,TA_CENTER|TA_BASELINE,'poplatník') Text(163,48,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,53.5,TA_CENTER|TA_BASELINE,'1') Text(15,53.5,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 1 písm. a) zákona') Text(8,60.5,TA_CENTER|TA_BASELINE,'2') Text(15,60.5,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 1 písm. b) zákona') Text(8,68,TA_CENTER|TA_BASELINE,'3') Text(15,68,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 3 zákona') Text(8,75,TA_CENTER|TA_BASELINE,'4') Text(15,75,TA_LEFT|TA_BASELINE,'Celkem') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,84,TA_LEFT|TA_BASELINE,'I. Zápočet daně zaplacené v zahraničí') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,')') FONTSIZE(3.2) FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,91,TA_CENTER|TA_BASELINE,'Řádek') Text(15,91,TA_LEFT|TA_BASELINE,'Název položky') Text(148,89,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(133,93,TA_CENTER|TA_BASELINE,'poplatník') Text(163,93,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,99,TA_CENTER|TA_BASELINE,'1') Text(15,99,TA_LEFT|TA_BASELINE,'Základ daně uvedený na ř. 220 II. oddílu') Text(8,107,TA_CENTER|TA_BASELINE,'2') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,105.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů (základů daně a daňových ztrát) zdaněných v zahraničí, u nichž je') Text(15,109,TA_LEFT|TA_BASELINE,'uplatňován zápočet, zaokrouhlený na celé Kč dolů') Text(8,115.5,TA_CENTER|TA_BASELINE,'3') Text(15,114,TA_LEFT|TA_BASELINE,'Poměr příjmů ze řádku 2 k základu daně ze řádku 1 v %,') Text(15,117.5,TA_LEFT|TA_BASELINE,'zaokrouhlený na 2 desetinná místa') FONTSIZE(2.5) LINEA(101,114,111,114) Text(106,113.5,TA_CENTER|TA_BASELINE,'ř. 2 x 100') Text(106,116,TA_CENTER|TA_BASELINE,'ř. 1') FONTSIZE(3.2) Text(8,123.5,TA_CENTER|TA_BASELINE,'4') Text(15,122,TA_LEFT|TA_BASELINE,'Maximální výše daně zaplacené v zahraničí, kterou lze započíst,') Text(15,125.5,TA_LEFT|TA_BASELINE,'zaokrouhlená na celé Kč nahoru') FONTSIZE(2.5) LINEA(96,123,116,123) Text(106,122.5,TA_CENTER|TA_BASELINE,'(ř.290 II.oddílu x ř.3') Text(106,125,TA_CENTER|TA_BASELINE,'100') FONTSIZE(3.2) Text(8,131.5,TA_CENTER|TA_BASELINE,'5') FontSize(1.5) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,130,TA_LEFT|TA_BASELINE,'Úhrn daně zaplacené v zahraničí uplatňované k zápočtu vztahující se') Text(15,133.5,TA_LEFT|TA_BASELINE,'k příjmům uvedeným na ř. 2 (zaokrouhlený na celé Kč nahoru)') Text(8,139.5,TA_CENTER|TA_BASELINE,'6') Text(15,138,TA_LEFT|TA_BASELINE,'Výše daně zaplacené v zahraničí, kterou ') FONTFACE(NORMAL|BOLD) Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,'lze započíst') FONTFACE(NORMAL) Text(15,141.5,TA_LEFT|TA_BASELINE,'(uvede se nižší z částek na řádcích 4 a 5)') Text(8,147.5,TA_CENTER|TA_BASELINE,'7') Text(15,146,TA_LEFT|TA_BASELINE,'Výše daně zaplacené v zahraničí, kterou ') FONTFACE(NORMAL|BOLD) Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,'nelze započíst') FONTFACE(NORMAL) Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,' (kladný rozdíl ř. 5') Text(15,149.5,TA_LEFT|TA_BASELINE,'a ř. 4, zvýšený o kladný rozdíl částek na ř. 6 a na ř. 320 II. oddílu)') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,159,TA_LEFT|TA_BASELINE,'J. Rozdělení některých položek v případě komanditní společnosti') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'4'); FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(0,-0.5,TA_Left|TA_Relative,')') FONTSIZE(3.2) FONTFACE(NORMAL) Text(178,159,TA_RIGHT|TA_BASELINE,'(vyplní se v celých Kč)') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,168,TA_CENTER|TA_BASELINE,'Řádek') Text(50,163.5,TA_CENTER|TA_BASELINE,'Název položky a číslo řádku II. oddílu, případně číslo') Text(50,166.5,TA_CENTER|TA_BASELINE,'řádku vyznačené tabulky přílohy č. 1 II. oddílu,') Text(50,169.5,TA_CENTER|TA_BASELINE,'s nímž souvisí částka ze sloupce 2 nebo 3 této tabulky') Text(102,165,TA_CENTER|TA_BASELINE,'Částka připadající') Text(102,168,TA_CENTER|TA_BASELINE,'na komplementáře') Text(132,165,TA_CENTER|TA_BASELINE,'Částka připadající') Text(132,168,TA_CENTER|TA_BASELINE,'na komanditisty') Text(162,163.5,TA_CENTER|TA_BASELINE,'Částka za komanditní') Text(162,166.5,TA_CENTER|TA_BASELINE,'společnost jako celek') Text(162,169.5,TA_CENTER|TA_BASELINE,'(sl. 2 + 3)') FONTSIZE(3) Text(8,173.8,TA_CENTER|TA_BASELINE,'0') Text(50,173.8,TA_CENTER|TA_BASELINE,'1') Text(102,173.8,TA_CENTER|TA_BASELINE,'2') Text(132,173.8,TA_CENTER|TA_BASELINE,'3') Text(162,173.8,TA_CENTER|TA_BASELINE,'4') FONTSIZE(3.2) Text(8,179,TA_CENTER|TA_BASELINE,'1') Text(15,179,TA_LEFT|TA_BASELINE,'Základ daně nebo daňová ztráta ze ř. 200 (ř. 201)') Text(8,187,TA_CENTER|TA_BASELINE,'2') Text(15,185.5,TA_LEFT|TA_BASELINE,'Úhrn vyňatých příjmů (základů daně a daňových ztrát)') Text(15,189,TA_LEFT|TA_BASELINE,'podléhajících zdanění v zahraničí (ř. 210)') Text(8,195,TA_CENTER|TA_BASELINE,'3') Text(15,195,TA_LEFT|TA_BASELINE,'Odečet podle § 34 odst. 3 zákona (ř. 4 tabulky F)') Text(8,203,TA_CENTER|TA_BASELINE,'4') Text(15,201.5,TA_LEFT|TA_BASELINE,'Hodnota darů k odečtu do 4 % ze ř. 250') Text(15,205,TA_LEFT|TA_BASELINE,'(ř. 1 tabulky G)') Text(8,211,TA_CENTER|TA_BASELINE,'5') Text(15,209.5,TA_LEFT|TA_BASELINE,'Hodnota darů k odečtu do 2 % ze ř. 250') Text(15,213,TA_LEFT|TA_BASELINE,'(ř. 2 tabulky G)') Text(8,219,TA_CENTER|TA_BASELINE,'6') Text(15,217.5,TA_LEFT|TA_BASELINE,'Celkový nárok na slevy na dani podle § 35 zákona') Text(15,221,TA_LEFT|TA_BASELINE,'(ř. 4 tabulky H)') Text(8,227,TA_CENTER|TA_BASELINE,'7') Text(15,225.5,TA_LEFT|TA_BASELINE,'Z celkové částky slev uvedené na ř. 6') Text(15,229,TA_LEFT|TA_BASELINE,'sleva podle § 35 odst. 3 zákona') Text(8,235,TA_CENTER|TA_BASELINE,'8') Text(15,233.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů (základů daně) zdaněných v zahraničí,') Text(15,237,TA_LEFT|TA_BASELINE,'u nichž lze uplatnit zápočet (ř. 2 tabulky I)') Text(8,243,TA_CENTER|TA_BASELINE,'9') Text(15,241.5,TA_LEFT|TA_BASELINE,'Úhrn zahraniční daně, který lze uplatnit k zápočtu') Text(15,245,TA_LEFT|TA_BASELINE,'v souladu s mezinárodní smlouvou (ř. 5 tabulky I)') Text(8,251,TA_CENTER|TA_BASELINE,'10') Text(15,251,TA_LEFT|TA_BASELINE,'Zápočet podle § 36 odst. 6 zákona (ř. 350 a ř. 2 V. oddílu)') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,260,TA_LEFT|TA_BASELINE,'K. Vybrané ukazatele hospodaření') FONTFACE(NORMAL) FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,266,TA_CENTER|TA_BASELINE,'Řádek') Text(15,266,TA_LEFT|TA_BASELINE,'Název položky') Text(107,264.5,TA_CENTER|TA_BASELINE,'Měrná') Text(107,267.5,TA_CENTER|TA_BASELINE,'jednotka') Text(148,264,TA_CENTER|TA_BASELINE,'Vyplní') Text(133,268,TA_CENTER|TA_BASELINE,'poplatník') Text(163,268,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,273.5,TA_CENTER|TA_BASELINE,'1') Text(15,273.5,TA_LEFT|TA_BASELINE,'Čistý obrat') Text(107,273.5,TA_CENTER|TA_BASELINE,'Kč') Text(8,280.5,TA_CENTER|TA_BASELINE,'2') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'6') ;{tisk hodnot 6. stranky} FONTSIZE(4) FontFace(Bold|Italic) Text(142,23,TA_RIGHT|TA_BASELINE,STR(Dar4,0,0)) Text(142,30.5,TA_RIGHT|TA_BASELINE,STR(Dar2,0,0)) Text(142,53.5,TA_RIGHT|TA_BASELINE,STR(H1,0,0)) Text(142,60.5,TA_RIGHT|TA_BASELINE,STR(H2,0,0)) Text(142,68,TA_RIGHT|TA_BASELINE,STR(H3,0,0)) Text(142,75,TA_RIGHT|TA_BASELINE,STR(H1+H2+H3,0,0)) IF(ZapocetZahr) begin Text(142,99,TA_RIGHT|TA_BASELINE,STR(Zahr1,0,0)) Text(142,107,TA_RIGHT|TA_BASELINE,STR(Zahr2,0,0)) IF(Zahr2<0) begin Text(142,115.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,123.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,131.5,TA_RIGHT|TA_BASELINE,STR(Zahr5,0,0)) Text(142,139.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,147.5,TA_RIGHT|TA_BASELINE,STR(Zahr7,0,0)) end else begin Text(142,115.5,TA_RIGHT|TA_BASELINE,STR(Zahr3,5,2)) Text(142,123.5,TA_RIGHT|TA_BASELINE,STR(Zahr4,0,0)) Text(142,131.5,TA_RIGHT|TA_BASELINE,STR(Zahr5,0,0)) Text(142,139.5,TA_RIGHT|TA_BASELINE,STR(Zahr6,0,0)) Text(142,147.5,TA_RIGHT|TA_BASELINE,STR(Zahr7,0,0)) end end else begin Text(142,99,TA_RIGHT|TA_BASELINE,skrt) Text(142,107,TA_RIGHT|TA_BASELINE,skrt) Text(142,115.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,123.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,131.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,139.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,147.5,TA_RIGHT|TA_BASELINE,skrt) end Text(111,179,TA_RIGHT|TA_BASELINE,STR(Komand11,0,0)) Text(142,179,TA_RIGHT|TA_BASELINE,STR(Komand12,0,0)) Text(172,179,TA_RIGHT|TA_BASELINE,STR(Komand11+Komand12,0,0)) Text(111,187,TA_RIGHT|TA_BASELINE,STR(Komand21,0,0)) Text(142,187,TA_RIGHT|TA_BASELINE,STR(Komand22,0,0)) Text(172,187,TA_RIGHT|TA_BASELINE,STR(Komand21+Komand22,0,0)) Text(111,195,TA_RIGHT|TA_BASELINE,STR(Komand31,0,0)) Text(142,195,TA_RIGHT|TA_BASELINE,STR(Komand32,0,0)) Text(172,195,TA_RIGHT|TA_BASELINE,STR(Komand31+Komand32,0,0)) Text(111,203,TA_RIGHT|TA_BASELINE,STR(Komand41,0,0)) Text(142,203,TA_RIGHT|TA_BASELINE,STR(Komand42,0,0)) Text(172,203,TA_RIGHT|TA_BASELINE,STR(Komand41+Komand42,0,0)) Text(111,211,TA_RIGHT|TA_BASELINE,STR(Komand51,0,0)) Text(142,211,TA_RIGHT|TA_BASELINE,STR(Komand52,0,0)) Text(172,211,TA_RIGHT|TA_BASELINE,STR(Komand51+Komand52,0,0)) Text(111,219,TA_RIGHT|TA_BASELINE,STR(Komand61,0,0)) Text(142,219,TA_RIGHT|TA_BASELINE,STR(Komand62,0,0)) Text(172,219,TA_RIGHT|TA_BASELINE,STR(Komand61+Komand62,0,0)) Text(142,227,TA_RIGHT|TA_BASELINE,STR(Komand72,0,0)) Text(172,227,TA_RIGHT|TA_BASELINE,STR(Komand72,0,0)) Text(111,235,TA_RIGHT|TA_BASELINE,STR(Komand81,0,0)) Text(142,235,TA_RIGHT|TA_BASELINE,STR(Komand82,0,0)) Text(172,235,TA_RIGHT|TA_BASELINE,STR(Komand81+Komand82,0,0)) Text(111,243,TA_RIGHT|TA_BASELINE,STR(Komand91,0,0)) Text(142,243,TA_RIGHT|TA_BASELINE,STR(Komand92,0,0)) Text(172,243,TA_RIGHT|TA_BASELINE,STR(Komand91+Komand92,0,0)) Text(111,251,TA_RIGHT|TA_BASELINE,STR(Komand101,0,0)) Text(142,251,TA_RIGHT|TA_BASELINE,STR(Komand102,0,0)) Text(172,251,TA_RIGHT|TA_BASELINE,STR(Komand101+Komand102,0,0)) Text(142,273.5,TA_RIGHT|TA_BASELINE,STR(SoucetK1,0,0)) end ;{============================================== str. 7 ========================} ;{tisk 7. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(19,7,194,53,3.3,3.3) PEN(0,0.1) LINEA(30,7,30,53) LINEA(135,7,135,53) LINEA(165,12,165,53) LINEA(135,12,194,12) LINESA(19,17,194,17,0,9,4) PEN(0,0.3) ROUNDBOXA(19,57,194,93,3.3,3.3) PEN(0,0.1) LINEA(30,57,30,93) LINEA(135,57,135,93) LINEA(165,57,165,93) LINESA(19,66,194,66,0,9,3) PEN(0,0.3) ROUNDBOXA(19,96,194,122,3.3,3.3) PEN(0,0.1) LINEA(30,96,30,122) LINEA(135,96,135,122) LINEA(165,96,165,122) LINESA(19,105,194,105,0,9,2) PEN(0,0.3) ROUNDBOXA(19,126,194,144,3.3,3.3) PEN(0,0.1) LINEA(30,126,30,144) LINEA(135,126,135,144) LINEA(165,126,165,144) LINEA(19,135,194,135) PEN(0,0.3) ROUNDBOXA(19,148,194,174,3.3,3.3) PEN(0,0.1) LINEA(30,148,30,174) LINEA(135,148,135,174) LINEA(165,148,165,174) LINESA(19,156,194,156,0,9,2) PEN(0,0.3) ROUNDBOXA(19,178,194,195,3.3,3.3) PEN(0,0.1) LINEA(30,178,30,195) LINEA(135,178,135,195) LINEA(165,178,165,195) LINEA(19,186.5,194,186.5) PEN(0,0.3) ROUNDBOXA(19,198,194,243,3.3,3.3) PEN(0,0.1) LINEA(30,198,30,243) LINEA(135,198,135,243) LINEA(165,198,165,243) LINESA(19,207,194,207,0,9,4) PEN(0,0.3) ROUNDBOXA(19,246,194,282,3.3,3.3) PEN(0,0.1) LINEA(30,246,30,282) LINEA(135,246,135,282) LINEA(165,246,165,282) LINESA(19,255,194,255,0,9,3) FONTSIZE(3.2) FONTFACE(NORMAL) Text(24.5,14,TA_CENTER|TA_BASELINE,'Řádek') Text(165,10,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(150,15,TA_CENTER|TA_BASELINE,'poplatník') Text(180,15,TA_CENTER|TA_BASELINE,'finanční úřad') Text(24.5,23,TA_CENTER|TA_BASELINE,'200') Text(32,23,TA_LEFT|TA_BASELINE,'Základ daně nebo daňová ztráta (ř. 10 + 70 - 170)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,31.5,TA_CENTER|TA_BASELINE,'201') Text(32,31.5,TA_LEFT|TA_BASELINE,'Část základu daně nebo daňové ztráty připadající na komplementáře') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,'),'); FontSize(1.5) Text(0.5,0.3,TA_Left|TA_Relative,'4'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(24.5,40,TA_CENTER|TA_BASELINE,'210') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,39,TA_LEFT|TA_BASELINE,'Úhrn vyňatých příjmů (základů daně a daňových ztrát)') Text(32,43,TA_LEFT|TA_BASELINE,'podléhajících zdanění v zahraničí') FontSize(1.5) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,'),'); FontSize(1.5) Text(0.5,0.3,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(24.5,49,TA_CENTER|TA_BASELINE,'220') Text(32,47.5,TA_LEFT|TA_BASELINE,'Základ daně nebo daňová ztráta po úpravě o položky uvedené na ř. 201') Text(32,51,TA_LEFT|TA_BASELINE,'a 210 (ř. 200 - 201 - 210)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,63,TA_CENTER|TA_BASELINE,'230') Text(32,63,TA_LEFT|TA_BASELINE,'Odečet daňové ztráty podle § 34 odst. 1 zákona') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,71,TA_CENTER|TA_BASELINE,'240') Text(32,71,TA_LEFT|TA_BASELINE,'Odečet podle § 34 odst. 3 písm. a) až d) a následujících odstavců zákona') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,80,TA_CENTER|TA_BASELINE,'241') Text(24.5,90,TA_CENTER|TA_BASELINE,'250') Text(32,88,TA_LEFT|TA_BASELINE,'Základ daně snížený o položky uvedené na ř. 230 až 241') Text(32,91,TA_LEFT|TA_BASELINE,'(ř. 220 - 230 - 240 - 241)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,102,TA_CENTER|TA_BASELINE,'251') Text(32,100,TA_LEFT|TA_BASELINE,'Částka, o kterou lze dále snížit již snížený základ daně uvedený na ř. 250') Text(32,104,TA_LEFT|TA_BASELINE,'u poplatníků, kteří nejsou založeni nebo zřízeni za účelem podnikání') Text(24.5,110,TA_CENTER|TA_BASELINE,'260') Text(32,108.5,TA_LEFT|TA_BASELINE,'Hodnota darů podle §20 odst.8 zákona (nejvýše 2% a v úhrnu s dary poskytnut.') Text(32,112,TA_LEFT|TA_BASELINE,'v souvislosti s živelní pohromou nejvýše 4% z částky na ř. 250)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,119,TA_CENTER|TA_BASELINE,'270') Text(32,117.5,TA_LEFT|TA_BASELINE,'Snížený základ daně uvedený na ř. 250 dále snížený o položky uvedené') Text(32,121,TA_LEFT|TA_BASELINE,'na ř. 251 a 260, zaokrouhlený na celé tisíce Kč dolů') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,') (ř. 250 - 251 - 260)') Text(24.5,132,TA_CENTER|TA_BASELINE,'280') Text(32,130,TA_LEFT|TA_BASELINE,'Sazba daně (v %) podle § 21 odst. 1 nebo odst. 2 zákona (příp. upravená podle') Text(32,133,TA_LEFT|TA_BASELINE,'§ 35 zákona)') Text(24.5,141,TA_CENTER|TA_BASELINE,'290') Text(32,141,TA_LEFT|TA_BASELINE,'Daň') Text(41,139,TA_LEFT|TA_BASELINE,'ř. 270 x ř. 280') LINEA(39,140,60,140) Text(47,143,TA_LEFT|TA_BASELINE,'100') Text(24.5,153.5,TA_CENTER|TA_BASELINE,'300') Text(32,153.5,TA_LEFT|TA_BASELINE,'Slevy na dani podle § 35 zákona (nejvýše do částky uvedené na ř. 290)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,162,TA_CENTER|TA_BASELINE,'301') Text(24.5,171,TA_CENTER|TA_BASELINE,'310') Text(32,171,TA_LEFT|TA_BASELINE,'Daň upravená o položky uvedené na ř. 300 a 301 (ř. 290 - 300 +- 301)') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,184,TA_CENTER|TA_BASELINE,'320') Text(32,182,TA_LEFT|TA_BASELINE,'Zápočet daně zaplacené v zahraničí na daň uvedenou na ř.310') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,185,TA_LEFT|TA_BASELINE,'(nejvýše do částky uvedené na ř. 310)') Text(24.5,192,TA_CENTER|TA_BASELINE,'330') Text(32,190.5,TA_LEFT|TA_BASELINE,'Daň po zápočtu na ř. 320 (ř. 310 - 320), zaokrouhlená') Text(32,194,TA_LEFT|TA_BASELINE,'na celé Kč nahoru') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,204.5,TA_CENTER|TA_BASELINE,'331') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,204.5,TA_LEFT|TA_BASELINE,'Samostatný základ daně podle § 20b zákona, zaokrouhlený na celé Kč dolů') Text(24.5,213,TA_CENTER|TA_BASELINE,'332') Text(32,213,TA_LEFT|TA_BASELINE,'Sazba daně (v%) podle § 21 odst. 4 zákona') Text(24.5,221.5,TA_CENTER|TA_BASELINE,'333') Text(78,220,TA_LEFT|TA_BASELINE,'ř. 331 x ř. 332') LINEA(77,220.5,98,220.5) Text(86,223.5,TA_LEFT|TA_BASELINE,'100') Text(32,221,TA_LEFT|TA_BASELINE,'Daň ze samostatného základu daně') Text(32,224,TA_LEFT|TA_BASELINE,'zaokrouhlená na celé Kč nahoru') Text(24.5,231,TA_CENTER|TA_BASELINE,'334') FontSize(1.5) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,229,TA_LEFT|TA_BASELINE,'Zápočet daně zaplacené v zahraničí na daň ze samostatného základu daně') Text(32,233,TA_LEFT|TA_BASELINE,'(nejvýše do částky uvedené na ř. 333)') Text(24.5,240,TA_CENTER|TA_BASELINE,'335') Text(32,238,TA_LEFT|TA_BASELINE,'Daň ze samostatného základu daně po zápočtu (ř. 333 - 334),') Text(32,242,TA_LEFT|TA_BASELINE,'zaokrouhlená na celé Kč nahoru') Text(24.5,252,TA_CENTER|TA_BASELINE,'340') Text(32,252,TA_LEFT|TA_BASELINE,'Celková daňová povinnost (ř. 330 + 335)') Text(24.5,261,TA_CENTER|TA_BASELINE,'350') Text(32,259,TA_LEFT|TA_BASELINE,'Sražená daň, splňující podmínky podle § 36 odst. 6 zákona pro zápočet na') Text(32,263,TA_LEFT|TA_BASELINE,'celkovou daňovou povinnost') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,270,TA_CENTER|TA_BASELINE,'351') Text(32,268.5,TA_LEFT|TA_BASELINE,'Částka sražené daně ze ř. 350, uplatňovaná pro účely stanovení poslední známé') Text(32,272,TA_LEFT|TA_BASELINE,'daňové povinnosti podle § 38a odst. 1 zákona (nejvýše do částky uvedené na ř. 340)') Text(24.5,278.5,TA_CENTER|TA_BASELINE,'360') Text(32,277,TA_LEFT|TA_BASELINE,'Poslední známá daňová povinnost pro účely stanovení záloh podle § 38a zákona') Text(32,280.5,TA_LEFT|TA_BASELINE,'(ř. 340 - ř. 351)') FONTSIZE(2.5) Text(107,285,TA_CENTER|TA_BASELINE,'7') ;{tisk hodnot 7. stranky} FONTSIZE(4) FontFace(Bold|Italic) Text(160,23,TA_RIGHT|TA_BASELINE,STR(II200,0,0)) Text(160,31.5,TA_RIGHT|TA_BASELINE,STR(II201,0,0)) Text(160,40,TA_RIGHT|TA_BASELINE,STR(II210,0,0)) Text(160,49,TA_RIGHT|TA_BASELINE,STR(II220,0,0)) IF(II220<=0) begin ;je-li na ř. 220 ztráta, řádky 230 až 330 se proškrtnou Text(160,63,TA_RIGHT|TA_BASELINE,skrt) Text(160,71,TA_RIGHT|TA_BASELINE,skrt) Text(32,80,TA_LEFT|TA_BASELINE,II241text,0,0)) Text(160,80,TA_RIGHT|TA_BASELINE,skrt) Text(160,90,TA_RIGHT|TA_BASELINE,skrt) Text(160,102,TA_RIGHT|TA_BASELINE,skrt) Text(160,110,TA_RIGHT|TA_BASELINE,skrt) Text(160,119,TA_RIGHT|TA_BASELINE,skrt) IF(SazbaDPPO<2) Text(160,132,TA_RIGHT|TA_BASELINE,skrt) else Text(160,132,TA_RIGHT|TA_BASELINE,skrt) Text(160,141,TA_RIGHT|TA_BASELINE,skrt) Text(160,153.5,TA_RIGHT|TA_BASELINE,skrt) Text(32,162,TA_LEFT|TA_BASELINE,II301text,0,0)) Text(160,162,TA_RIGHT|TA_BASELINE,skrt) Text(160,171,TA_RIGHT|TA_BASELINE,skrt) Text(160,184,TA_RIGHT|TA_BASELINE,skrt) Text(160,192,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(160,63,TA_RIGHT|TA_BASELINE,STR(II230,0,0)) Text(160,71,TA_RIGHT|TA_BASELINE,STR(FB8,0,0)) Text(32,80,TA_LEFT|TA_BASELINE,II241text,0,0)) Text(160,80,TA_RIGHT|TA_BASELINE,STR(II241,0,0)) Text(160,90,TA_RIGHT|TA_BASELINE,STR(II250,0,0)) Text(160,102,TA_RIGHT|TA_BASELINE,STR(II251,0,0)) Text(160,110,TA_RIGHT|TA_BASELINE,STR(II260,0,0)) Text(160,119,TA_RIGHT|TA_BASELINE,STR(II270,0,0)) IF(SazbaDPPO<2) Text(160,132,TA_RIGHT|TA_BASELINE,STR(SazbaDan,4,0)) else Text(160,132,TA_RIGHT|TA_BASELINE,STR(SazbaDan,4,1)) Text(160,141,TA_RIGHT|TA_BASELINE,STR(II290,0,0)) Text(160,153.5,TA_RIGHT|TA_BASELINE,STR(II300,0,0)) Text(32,162,TA_LEFT|TA_BASELINE,II301text,0,0)) Text(160,162,TA_RIGHT|TA_BASELINE,STR(II301,0,0)) Text(160,171,TA_RIGHT|TA_BASELINE,STR(II310,0,0)) Text(160,184,TA_RIGHT|TA_BASELINE,STR(II320,0,0)) Text(160,192,TA_RIGHT|TA_BASELINE,STR(II330,0,0)) end Text(160,204.5,TA_RIGHT|TA_BASELINE,STR(II331,0,0)) Text(160,213,TA_RIGHT|TA_BASELINE,STR(SazbaDPPO2,0,0)) Text(160,221.5,TA_RIGHT|TA_BASELINE,STR(II333,0,0)) Text(160,231,TA_RIGHT|TA_BASELINE,STR(II334,0,0)) Text(160,240,TA_RIGHT|TA_BASELINE,STR(II335,0,0)) Text(160,252,TA_RIGHT|TA_BASELINE,STR(II340,0,0)) Text(160,261,TA_RIGHT|TA_BASELINE,STR(II350,0,0)) Text(160,270,TA_RIGHT|TA_BASELINE,STR(II351,0,0)) Text(160,278.5,TA_RIGHT|TA_BASELINE,STR(II360,0,0)) end ;{================================================ str. 8 ========================} ;{tisk 8. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(4,11,179,41,3.3,3.3) PEN(0,0.1) LINEA(14,11,14,41) LINEA(120,11,120,41) LINEA(150,16,150,41) LINEA(120,16,179,16) LINESA(4,20,179,20,0,7,3) PEN(0,0.3) ROUNDBOXA(4,49,179,100,3.3,3.3) PEN(0,0.1) LINEA(14,49,14,100) LINEA(120,49,120,100) LINEA(150,53.5,150,100) LINEA(120,53.5,179,53.5) LINESA(4,58,179,58,0,7,6) PEN(0,0.3) ROUNDBOXA(4,107,179,141,3.3,3.3) PEN(0,0.1) LINEA(14,107,14,141) LINEA(120,107,120,141) LINEA(150,112,150,141) LINEA(120,112,179,112) LINESA(4,117,179,117,0,8,3) PEN(0,0.3) LINEA(4,146,179,146) ROUNDBOXA(4,155,179,234,3.3,3.3) PEN(0,0.1) ROUNDBOXA(7,165,57,171,3.3,3.3) LINESA(12,169.5,12,171,5,0,9) LINESA(68,169.5,68,171,5,0,21) ROUNDBOXA(63,165,173,171,3.3,3.3) ROUNDBOXA(7,177,173,183,3.3,3.3) ROUNDBOXA(143,189,173,195,3.3,3.3) LINESA(148,193.5,148,195,5,0,5) ROUNDBOXA(24,201,173,207,3.3,3.3) ROUNDBOXA(30,212,70,218,3.3,3.3) LINESA(35,216.5,35,218,10,0,2) LINESA(40,215.5,40,218,10,0,2) LINESA(55,216.5,55,218,5,0,3) ROUNDBOXA(133,212,173,218,3.3,3.3) ROUNDBOXA(30,223,70,229,3.3,3.3) ROUNDBOXA(133,223,173,229,3.3,3.3) ROUNDBOXA(82,241,122,247,3.3,3.3) LINESA(87,245.5,87,247,10,0,2) LINESA(92,244.5,92,247,10,0,2) LINESA(107,245.5,107,247,5,0,3) ROUNDBOXA(133,241,173,247,3.3,3.3) LINESA(138,245.5,138,247,10,0,2) LINESA(143,244.5,143,247,10,0,2) LINESA(158,245.5,158,247,5,0,3) ROUNDBOXA(133,251,173,257,3.3,3.3) FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(4,9,TA_LEFT|TA_BASELINE,'III. ODDÍL - výsledná daň investiční společnosti obhospodařující majetek v podílových fondech') FONTSIZE(3.2) FONTFACE(NORMAL) Text(9,16,TA_CENTER|TA_BASELINE,'Řádek') Text(151,14,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,19,TA_CENTER|TA_BASELINE,'poplatník') Text(165,19,TA_CENTER|TA_BASELINE,'finanční úřad') Text(9,25,TA_CENTER|TA_BASELINE,'1') Text(16,25,TA_LEFT|TA_BASELINE,'Celková daňová povinnost za podílové fondy') Text(9,32,TA_CENTER|TA_BASELINE,'2') Text(16,32,TA_LEFT|TA_BASELINE,'Celková daňová povinnost (ř. 1 + ř. 340 II. oddílu)') Text(9,39,TA_CENTER|TA_BASELINE,'3') Text(16,39,TA_LEFT|TA_BASELINE,'Poslední známá daňová povinnost pro účely stanovení záloh podle § 38a zákona') FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(4,47,TA_LEFT|TA_BASELINE,'IV. ODDÍL - dodatečné daňové přinání') FONTSIZE(3.2) FONTFACE(NORMAL) Text(9,55,TA_CENTER|TA_BASELINE,'Řádek') Text(151,52.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,57,TA_CENTER|TA_BASELINE,'poplatník') Text(165,57,TA_CENTER|TA_BASELINE,'finanční úřad') Text(9,62.5,TA_CENTER|TA_BASELINE,'1') Text(16,62.5,TA_LEFT|TA_BASELINE,'Poslední známá částka daně') Text(9,70,TA_CENTER|TA_BASELINE,'2') Text(16,70,TA_LEFT|TA_BASELINE,'Nově zjištěná částka daně (ř. 340 II. oddílu, resp. ř. 2 III. oddílu)') Text(9,77,TA_CENTER|TA_BASELINE,'3') Text(16,77,TA_LEFT|TA_BASELINE,'Zvýšení (+), snížení (-) částky daně (ř. 2 - ř. 1)') Text(9,84,TA_CENTER|TA_BASELINE,'4') Text(16,84,TA_LEFT|TA_BASELINE,'Poslední známá daňová ztráta') Text(9,91,TA_CENTER|TA_BASELINE,'5') Text(16,91,TA_LEFT|TA_BASELINE,'Nově zjištěná daňová ztráta (ř. 220 II. oddílu)') Text(9,97.5,TA_CENTER|TA_BASELINE,'6') Text(16,97.5,TA_LEFT|TA_BASELINE,'Zvýšení (+), snížení (-) daňové ztráty (ř. 5 - ř. 4)') FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(4,106,TA_LEFT|TA_BASELINE,'V. ODDÍL - placení daně') FONTSIZE(3.2) FONTFACE(NORMAL) Text(9,113,TA_CENTER|TA_BASELINE,'Řádek') Text(151,110.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,115.5,TA_CENTER|TA_BASELINE,'poplatník') Text(165,115.5,TA_CENTER|TA_BASELINE,'finanční úřad') Text(9,122,TA_CENTER|TA_BASELINE,'1') Text(16,122,TA_LEFT|TA_BASELINE,'Na zálohách a zajištění daně zaplaceno') Text(9,130,TA_CENTER|TA_BASELINE,'2') Text(16,128.5,TA_LEFT|TA_BASELINE,'Sražená daň, která splňuje podmínky podle § 36 odst. 6 zákona pro zápočet') Text(16,131.5,TA_LEFT|TA_BASELINE,'na celkovou daňovou povinnost (ř. 350 II. oddílu)') Text(9,137,TA_CENTER|TA_BASELINE,'3') Text(16,136,TA_LEFT|TA_BASELINE,'Nedoplatek (-) (ř. 1 + ř. 2 - ř. 340 II. oddílu, resp. ř. 2 III. oddílu < O)') Text(16,139.5,TA_LEFT|TA_BASELINE,'Přeplatek (+) (ř. 1 + ř. 2 - ř. 340 II. oddílu, resp. ř. 2 III. oddílu > O)') FONTSIZE(3.6) FONTFACE(NORMAL|BOLD) Text(90.5,152,TA_CENTER|TA_BASELINE,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO PŘIZNÁNÍ JSOU PRAVDIVÉ A ÚPLNÉ') FONTSIZE(3.2) FONTFACE(NORMAL) Text(7,161,TA_LEFT|TA_BASELINE,'Osoba oprávněná k podání daňového přiznání za právnickou osobu:') Text(7,164,TA_LEFT|TA_BASELINE,'jméno') Text(63,164,TA_LEFT|TA_BASELINE,'příjmení') Text(7,176,TA_LEFT|TA_BASELINE,'postavení vzhledem k právnické osobě') Text(7,193,TA_LEFT|TA_BASELINE,'Pokud daňové přiznání zpracovává daňový poradce, uvede dále evidenční číslo osvědčení') Text(7,205,TA_LEFT|TA_BASELINE,'a své sídlo') Text(7,217,TA_LEFT|TA_BASELINE,'Datum') Text(122,217,TA_LEFT|TA_BASELINE,'Podpis') Text(7,229,TA_LEFT|TA_BASELINE,'Přiznání sestavil') Text(122,229,TA_LEFT|TA_BASELINE,'Telefon') Text(3,239.5,TA_LEFT|TA_BASELINE,'Za finanční úřad přiznanou daňovou povinnost vyměřil') FontSize(1.5) Text(0.5,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,') - dodatečně vyměřil') FontSize(1.5) Text(0.5,0,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,0,TA_Left|TA_Relative,') podle § 46 odst. 5 zákona ČNR č. 337/1992 Sb.,') Text(3,246.5,TA_LEFT|TA_BASELINE,'o správě daní a poplatků, ve znění pozdějších předpisů, dne') Text(124,246.5,TA_LEFT|TA_BASELINE,'ke dni') Text(174,246.5,TA_LEFT|TA_BASELINE,'.') Text(89,255,TA_LEFT|TA_BASELINE,'Podpis odpovědného pracovníka') FONTSIZE(2.5) Text(96,220,TA_CENTER|TA_BASELINE,'Otisk') Text(96,222.5,TA_CENTER|TA_BASELINE,'razítka') FONTFACE(NORMAL|BOLD) Text(3,250.5,TA_LEFT|TA_BASELINE,'Vysvětlivky:') FONTFACE(NORMAL) FontSize(1.5) Text(3,253,TA_Left|TA_Baseline,'1'); FONTSIZE(2.5) Text(4,253.5,TA_LEFT|TA_BASELINE,') Nehodící se škrtněte') FontSize(1.5) Text(3,256,TA_Left|TA_Baseline,'2'); FONTSIZE(2.5) Text(4,256.5,TA_LEFT|TA_BASELINE,') Vyplní finanční úřad') FontSize(1.5) Text(3,259,TA_Left|TA_Baseline,'3'); FONTSIZE(2.5) Text(4,259.5,TA_LEFT|TA_BASELINE,') V případě vykázání ztráty se uvede částka se znaménkem mínus (-)') FontSize(1.5) Text(3,262,TA_Left|TA_Baseline,'4'); FONTSIZE(2.5) Text(4,262.5,TA_LEFT|TA_BASELINE,') Vyplní pouze poplatník, který je komanditní společností') FontSize(1.5) Text(3,265,TA_Left|TA_Baseline,'5'); FONTSIZE(2.5) Text(4,265.5,TA_LEFT|TA_BASELINE,') Pokud poplatníkem daně je komanditní společnost, uvede pouze částky, připadající na komanditisty') FontSize(1.5) Text(3,268,TA_Left|TA_Baseline,'6'); FONTSIZE(2.5) Text(4,268.5,TA_LEFT|TA_BASELINE,') Zákon č. 248/1992 Sb., o investičních společnostech a investičních fondech, ve znění pozdějších předpisů') FontSize(1.5) Text(3,271,TA_Left|TA_Baseline,'7'); FONTSIZE(2.5) Text(4,271.5,TA_LEFT|TA_BASELINE,') Účetní závěrka, jako příloha vyznačená pod položkou 11 v I. oddílu, je součástí daňového přiznání (§ 40 odst. 2 zákona č. 337/1992 Sb., o správě') Text(7,274,TA_LEFT|TA_BASELINE,'daní a poplatků, ve znění pozdějších předpisů) a předkládají ji všichni poplatníci, kteří mají povinnost podat daňové přiznání. Za podílové fondy') Text(7,276.5,TA_LEFT|TA_BASELINE,'předkládá účetní závěrku investiční společnosti, která je spravuje.') FontSize(1.5) Text(3,279,TA_Left|TA_Baseline,'8'); FONTSIZE(2.5) Text(4,279.5,TA_LEFT|TA_BASELINE,') Bude-li vyplněn některý z takto označených řádků, je nutné ve smyslu dílčích pokynů pro jejich vyplnění, rozvést na zvláštní příloze věcnou náplň') Text(7,282,TA_LEFT|TA_BASELINE,'částky, vykázané na příslušném řádku, popřípadě její propočet.') FONTSIZE(2.5) Text(91,285,TA_CENTER|TA_BASELINE,'8') ;{tisk hodnot 8. stranky} FONTSIZE(4) FontFace(Bold|Italic) Text(145,25,TA_RIGHT|TA_BASELINE,STR(III1,0,0)) Text(145,32,TA_RIGHT|TA_BASELINE,STR(III2,0,0)) Text(145,39,TA_RIGHT|TA_BASELINE,STR(III3,0,0)) IF(TypPriz1=2) ;je dodatecne, lze tisknout hodnoty begin IF(IV1<>0) Text(145,62.5,TA_RIGHT|TA_BASELINE,STR(IV1,0,0)) else Text(145,62.5,TA_RIGHT|TA_BASELINE,skrt) IF(IV2<>0) Text(145,70,TA_RIGHT|TA_BASELINE,STR(IV2,0,0)) else Text(145,70,TA_RIGHT|TA_BASELINE,skrt) Text(145,77,TA_RIGHT|TA_BASELINE,STR(IV3,0,0)) IF(IV4<>0) Text(145,84,TA_RIGHT|TA_BASELINE,STR(IV4,0,0)) else Text(145,84,TA_RIGHT|TA_BASELINE,skrt) IF(IV5<>0) Text(145,91,TA_RIGHT|TA_BASELINE,STR(IV5,0,0)) else Text(145,91,TA_RIGHT|TA_BASELINE,skrt) Text(145,97.5,TA_RIGHT|TA_BASELINE,STR(IV6,0,0)) end IF(TypPriz1<>2) ;jeli dodatecne, tento oddil se nevyplnuje begin Text(145,122,TA_RIGHT|TA_BASELINE,STR(V1,0,0)) Text(145,130,TA_RIGHT|TA_BASELINE,STR(V2,0,0)) Text(145,137,TA_RIGHT|TA_BASELINE,STR(V3,0,0)) end SText(9,169,TA_LEFT|TA_BASELINE,5,10,JmenoOpravnen) SText(65,169,TA_LEFT|TA_BASELINE,5,22,PrijmeniOpravnen) Text(9,181,TA_LEFT|TA_BASELINE,Postaveni) SText(145,193,TA_LEFT|TA_BASELINE,5,6,EvCisOsved) Text(26,205,TA_LEFT|TA_BASELINE,SidloPoradce) IF(DatumPodani<>0) begin STEXT(32,216,TA_LEFT|TA_BASELINE,5,2,Day(DatumPodani,2)) STEXT(42,216,TA_LEFT|TA_BASELINE,5,2,Month(DatumPodani,2)) STEXT(52,216,TA_LEFT|TA_BASELINE,5,4,Year(DatumPodani,4)) end Text(33,227,TA_LEFT|TA_BASELINE,Sestavil) Text(136,227,TA_LEFT|TA_BASELINE,TelefSestav) end ;{================================================ str. 8 ========================} ;{tisk 9. strany - kalendář:} IF(II360>20000) begin NextPage PEN(0,0.1) FONTSIZE(4.5) FONTFACE(NORMAL|BOLD) TEXT(40,15,TA_LEFT,'Zálohy na daň - § 38 zákona o dani z příjmu') FONTSIZE(4) TEXT(20,25,TA_LEFT,ObchodniJmeno+' '+DodatekJmena+' '+Program.DIC) Text(20,35,TA_LEFT,'povinnost zaplatit zálohu do:') Text(110,35,TA_CENTER,'Částka v Kč') FONTSIZE(4) FONTFACE(ITALIC) i:INTEGER=0 j:INTEGER=0 PoslSourad:Integer=0 IF((II360>20000)AND(II360<=100000)) ; budou pololetni zalohy begin IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin Text(110,40,TA_CENTER,'40% z '+STR(II360,12,0)+',-') Text(30,50,TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,50,TA_CENTER,STR(II360*0.4,12,0)+',-') Text(30,58,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,58,TA_CENTER,STR(II360*0.4,12,0)+',-') FONTSIZE(3.5) Text(110,62,TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,67,3.3,3.3) LINESA(15,48,153,48,0,8,2) PoslSourad=67 end IF(NOT(PoradceAnoNe)) ; nemam poradce, odevzdavam tedy do 31.3 begin Text(110,40,TA_CENTER,'40% z '+STR(II360,12,0)+',-') Text(30,50,TA_LEFT,'30. června '+STR(IniRok+1)) Text(110,50,TA_CENTER,STR(II360*0.4,12,0)+',-') Text(30,58,TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,58,TA_CENTER,STR(II360*0.4,12,0)+',-') Text(30,66,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,66,TA_CENTER,STR(II360*0.4,12,0)+',-') FONTSIZE(3.5) Text(110,70,TA_CENTER,'(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>100000)AND(II360<=10000000)) ; budou kvartalni zalohy begin 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 Text(30,50,TA_LEFT,'30. září '+STR(IniRok+1)) Text(110,50,TA_CENTER,STR(II360*0.25,12,0)+',-') LINEA(15,56,153,56) i=i+1 j=0 Text(30,50+(i*8),TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360*0.25,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=j+1 Text(30,50+(i*8),TA_LEFT,'31. března '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360*0.25,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+6,TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+6,153,56+(i*8)+6) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+6,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,50+(i*8)+6,TA_CENTER,STR(II360*0.25,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*6),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,55+(i*8)+(j*6),3.3,3.3) PoslSourad=55+(i*8)+(j*6) end IF(NOT(PoradceAnoNe)) ; nemam poradce, odevzdavam tedy do 31.3 begin LINEA(15,48,153,48) Text(110,40,TA_CENTER,'1/4 z '+STR(II360,12,0)+',-') i=0 Text(30,50,TA_LEFT,'30. června '+STR(IniRok+1)) Text(110,50,TA_CENTER,STR(II360*0.25,12,0)+',-') LINEA(15,56,153,56) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. září '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360*0.25,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=0 Text(30,50+(i*8),TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360*0.25,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=j+1 Text(30,50+(i*8),TA_LEFT,'31. března '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360*0.25,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+4,TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+4,153,56+(i*8)+4) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+4,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,50+(i*8)+4,TA_CENTER,STR(II360*0.25,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,56+(i*8)+(j*4),3.3,3.3) PoslSourad=56+(i*8)+(j*4) end end IF(II360>10000000) ; budou mesicni zalohy begin IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin LINEA(15,48,153,48) Text(110,40,TA_CENTER,'1/12 z '+STR(II360,12,0)+',-') i=0 Text(30,50+(i*8),TA_LEFT,'31. července '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. srpna '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. září '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. října '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. listopadu '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. ledna '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=0 Text(30,50+(i*8),TA_LEFT,'28. února '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=j+1 Text(30,50+(i*8),TA_LEFT,'31. března '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+4,TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+4,153,56+(i*8)+4) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'30. dubna '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+(j*4),153,56+(i*8)+(j*4)) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'31. května '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+(j*4),153,56+(i*8)+(j*4)) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,55+(i*8)+(j*4),3.3,3.3) PoslSourad=55+(i*8)+(j*4) end IF(NOT(PoradceAnoNe)) ; nemam poradce, odevzdavam tedy do 31.3 begin LINEA(15,48,153,48) Text(110,40,TA_CENTER,'1/12 z '+STR(II360,12,0)+',-') i=0 Text(30,50+(i*8),TA_LEFT,'30. dubna '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. května '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. června '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. července '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. srpna '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. září '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. října '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'30. listopadu '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'15. prosince '+STR(IniRok+1)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 Text(30,50+(i*8),TA_LEFT,'31. ledna '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=0 Text(30,50+(i*8),TA_LEFT,'28. února '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') LINEA(15,56+(i*8),153,56+(i*8)) i=i+1 j=j+1 Text(30,50+(i*8),TA_LEFT,'31. března '+STR(IniRok+2)) Text(110,50+(i*8),TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+4,TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+4,153,56+(i*8)+4) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'30. dubna '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+(j*4),153,56+(i*8)+(j*4)) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'31. května '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') LINEA(15,56+(i*8)+(j*4),153,56+(i*8)+(j*4)) i=i+1 j=j+1 FONTSIZE(4) Text(30,50+(i*8)+(j*4)-4,TA_LEFT,'30. června '+STR(IniRok+2)) Text(110,50+(i*8)+(j*4)-4,TA_CENTER,STR(II360/12,12,0)+',-') FONTSIZE(3.5) Text(110,50+(i*8)+(j*4),TA_CENTER,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,55+(i*8)+(j*4),3.3,3.3) PoslSourad=55+(i*8)+(j*4) end end TEXT(20,PoslSourad+4,TA_LEFT,'Pokud se poslední daňová povinnost týkala jen části zdaňovacího období...') TEXT(20,PoslSourad+8,TA_LEFT,'... prostudujte si § 38a, odst. 7 zákona o daních z příjmů') end Exit; End