; DDT pro DPPO 2002 - vzor. č. 12 ; verze z 17.10.2003 ; podle podkladů z webu a z papírového formuláře 01/2003 včetně změny ve FZ 1-1/2003: ; Sdělení o upřesnění tiskopisů daňového přiznání k dani z příjmů právnických osob za zdaňovací období kalendářního roku 2002 ; a za zdaňovací období započatá po 1. lednu 2002 Čj. 543/2 237/2003 ze dne 10. 1. 2003 ; počítá s fiskálním rokem ; ; Autor: WinDUO Team ; zkontr. vazbu na vykazy pro Banky = typ firmy 7 a ucet odpisu pro banky ; blok pro prenos dat z VZaZ do DPPO je prenesen primo do TABu - VZaZ = podnikatele, nevydelecne, banky ; cleneni tohoto algoritmu na blok starsi nezli 2002 je zbytecne... IniRok:String=Rok() FileName('DPPO'+IniRok+'.WNS') Name('DPPO vzor č.12 za rok '+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 12') 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') ;DlgFollowMouse(True) 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.,+' ValidTypPrizn:String='0123456789ABCDEFGHIJKLabcdefghijkl' ValidIntDatum:String='0123456789.-' SetDecimalSize(2) Result:Integer=999 Result2:Integer=999 LocN:Integer=0 LocB:Boolean=False LocStr:String[17]='' LocWord1:Word=0 LocShInt1:ShortInt=0 PosunPrizn:ShortInt=0 ObdZtrat34:Byte=7 ; §34 odst. 1 = počet let, po který lze odečíst ztrátu DelkaFiscal:String=Null(Program.FiscalLength,2) ;{definice uvodniho dialogu} DefDialog('POMŮCKA pro sestavení přiznání DPPO vzor 12 pro rok 2002',600,400) DlgShade(-1,'',4,27,590,302) DlgStatic(-1,' TOTO JE POMŮCKA K SESTAVENÍ PŘIZNÁNÍ K DANI Z PŘÍJMU PRÁVNICKÝCH OSOB',23,5,554) 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 č. 12) a s formulářem PŘIZNÁNÍ ...',102,50,415) DlgStatic(-1,'- seznamte se s platným zákonem o daních z příjmů',94,66,350) DlgStatic(-1,'Předpoklady - musí být vypočtena VZaZ včetně nezaokrouhlených údajů za '+DelkaFiscal+'/'+Rok(2),16,82,540) DlgStatic(-1,'- účty Odpisy dlouhodobého majetku (např. 551/Anal.) zvolte: "Nevstupují',98,98,493) DlgStatic(-1,' do daňové závěrky" před výpočtem sestavy Daňový hosp.výsledek',98,114,493) 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 neobsahuje sestavení Zvláštní přílohy k ř.1 tab.H příl.č.1 II.oddílu',16,146,575) DlgStatic(-1,'- tento program počítá přiznání DPPO podle podkladů z 02/2003 - vzor č.12',93,162,490) WarnDPPOplatne:String IF(not CompareStr(IniRok,'2002')) begin WarnDPPOplatne='Daňové přiznání vzor 12 je určeno pro rok 2002 - ověřte, zda je stále platné' end ; plati v lednu 2003, zatim neni znamo, jestli budou zmeny v DPPO za rok 2003 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 ty údaje, které zadáváte sami, ale i ty, které jsou převzaty z účetnictví. Existuje mnoho způsobů, jakými se do tohoto výpočtu může vloudit chyba. Důvěřuj ale prověřuj!') DlgStatic(-1,'přiznání k DPPO (za správnost údajů v daň.přiznání neodpovídají autoři',88,197,505) DlgStatic(-1,'programu. 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]='---' V4: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 FA6:LongInt=0 FB8:LongInt=0 FB10: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:Real=0 CP14:LongInt=0 ;CP24:LongInt=0 ;CP34:LongInt=0 CP43:LongInt=0 CP44:LongInt=0 ;CP56:LongInt=0 ;CP57:LongInt=0 E94:LongInt=0 E95:LongInt=0 ; {Načtení čísla řádku VZaZ, který se předává jako HV na radek 10} ; {samotne nactení údaje je v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} HVPredDaniR:Word ;cislo radku, ktery bude prevzat z VZaZ HVPredDaniS:Word ;cislo sloupce, ktery bude prevzat z VZaZ SouborVZaZ:TextFile Open(SouborVZaZ,GetTabName(2)) While(not(EOF(SouborVZaZ))) begin LocStr=Readln(SouborVZaZ) if(CompareStr(Copy(LocStr,1,1),'*')) begin if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANR=')) ;*radek HV pred zdanenim begin LocStr=ToChar(' ',LocStr) HVPredDaniR=Val(FromChar('=',LocStr)) end if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANS=')) ;*sloupec HV pred zdanenim, pocitano vcetne textu begin LocStr=ToChar(' ',LocStr) HVPredDaniS=Val(FromChar('=',LocStr)) end end end ;{definice a nacteni promennych z INI} begin ;{nacteni pro 1.cover} ;FinancniUrad:String[50]=GetFromIni('TITULNI','FinancniUrad',INI) FinancniUrad:String[32]=GetDataINI('INFO','FinancniUrad') ObchodniJmeno:String[35]=GetFromIni('TITULNI','ObchodniJmeno',INI) DodatekJmena:String[35]=GetFromIni('TITULNI','DodatekJmena',INI) Obec:String[29]=GetFromIni('TITULNI','Obec',INI) PSCdppo:String=GetFromIni('TITULNI','PSC',INI) UliceDppo:String[35]=GetFromIni('TITULNI','Ulice',INI) Stat:String[15]=GetFromIni('TITULNI','Stat',INI) KodStat:String[15]=GetFromIni('TITULNI','KodStat',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)) ZahraniciAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'ZahraniciAnoNe',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) PismObd:String[1]=GetFromIni('TITULNI','PismObd',INI) DatumOd:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumOd',INI)) DatumDo:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDo',INI)) DatumLhuta:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumLhuta',INI)) IF(Length(KodRozlis)=0) KodRozlis='1A' IF(DatumLhuta=0) begin IF(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end end HlavCinn1:String[140]=GetFromIni('TITULNI','HlavCinn1',INI) HlavCinn2:String[140]=GetFromIni('TITULNI','HlavCinn2',INI) ;{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: Suma551=VAL(GetFromIni('Hodnoty '+IniRok,'Ucet551',INI)) IF(Program.TypFirmy=7) ;ucetni odpisy zadat rucne, v roce 2003 predelat pro podnikatele, kdyby treba nemeli 551 begin Message('Nezapomeňte na stránce 3/1 vyplnit výši účetních odpisů'+#13+'Vzhledem k tomu, že používáte směrnou účetní osnovu, nelze tento údaj převzít z účetnictví') end 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) ;debug IF((CompareStr(x,'55'))and(Program.TypFirmy<>7)) ;ocistit o ucetni odpisy begin pom1=pom1+' (bez účetních odpisů)' pom2=pom2-Suma551 end SumaNeNaklNact=SumaNeNaklNact+pom2 IF(pom2=0) pom1=' ' ; 3 mezery, aby to bylo jine, nezli prazdny retezec 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 ;ministr 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} ; CP11:String[4]=GetFromIni('CP'+IniRok,'CP11',INI) CP12:LongInt=VAL(GetFromIni('CP'+IniRok,'CP12',INI)) CP13:LongInt=VAL(GetFromIni('CP'+IniRok,'CP13',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)) ; CP17:LongInt=0 ; natvrdo vynulovat ; CP21:String[4]=GetFromIni('CP'+IniRok,'CP21',INI) CP22:LongInt=VAL(GetFromIni('CP'+IniRok,'CP22',INI)) CP23:LongInt=VAL(GetFromIni('CP'+IniRok,'CP23',INI)) CP24:LongInt=VAL(GetFromIni('CP'+IniRok,'CP24',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)) ; CP31:String[4]=GetFromIni('CP'+IniRok,'CP31',INI) CP32:LongInt=VAL(GetFromIni('CP'+IniRok,'CP32',INI)) CP33:LongInt=VAL(GetFromIni('CP'+IniRok,'CP33',INI)) CP34:LongInt=VAL(GetFromIni('CP'+IniRok,'CP34',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)) ; CP41:String[4]=GetFromIni('CP'+IniRok,'CP41',INI) ; CP42:LongInt=VAL(GetFromIni('CP'+IniRok,'CP42',INI)) ; CP43:LongInt; =VAL(GetFromIni('CP'+IniRok,'CP43',INI)) ; CP45:LongInt=VAL(GetFromIni('CP'+IniRok,'CP45',INI)) ; CP46:LongInt=VAL(GetFromIni('CP'+IniRok,'CP46',INI)) ; CP47:LongInt=VAL(GetFromIni('CP'+IniRok,'CP47',INI)) E11:String[21]=GetFromIni('E'+IniRok,'E11',INI) E21:String[21]=GetFromIni('E'+IniRok,'E21',INI) E31:String[21]=GetFromIni('E'+IniRok,'E31',INI) E41:String[21]=GetFromIni('E'+IniRok,'E41',INI) E51:String[21]=GetFromIni('E'+IniRok,'E51',INI) E61:String[21]=GetFromIni('E'+IniRok,'E61',INI) E71:String[21]=GetFromIni('E'+IniRok,'E71',INI) E81:String[21]=GetFromIni('E'+IniRok,'E81',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)) E15skrt:Boolean=False 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)) E25skrt:Boolean=False 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)) E35skrt:Boolean=False 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)) E45skrt:Boolean=False 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)) E55skrt:Boolean=False 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)) E65skrt:Boolean=False 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)) E75skrt:Boolean=False E82:LongInt=VAL(GetFromIni('E'+IniRok,'E82',INI)) E83:LongInt=VAL(GetFromIni('E'+IniRok,'E83',INI)) E84:LongInt=VAL(GetFromIni('E'+IniRok,'E84',INI)) E85:LongInt=VAL(GetFromIni('E'+IniRok,'E85',INI)) E85skrt:Boolean=False ;{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)) FA5:LongInt=VAL(GetFromIni('F'+IniRok,'FA5',INI)) FB7:LongInt=VAL(GetFromIni('F'+IniRok,'FB7',INI)) FB9:LongInt=VAL(GetFromIni('F'+IniRok,'FB9',INI)) ;{nacteni pro 7.cover} Dar5:LongInt=VAL(GetFromIni('G'+IniRok,'Dar5',INI)) ; Dar2Text:String=GetFromIni('G'+IniRok,'Dar2Text',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)) H4:LongInt=VAL(GetFromIni('H'+IniRok,'H4',INI)) H5:LongInt=VAL(GetFromIni('H'+IniRok,'H5',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)) Komand71:LongInt=VAL(GetFromIni('J'+IniRok,'Komand71',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)) ; Komand9Text:String=GetFromIni('J'+IniRok,'Komand9Text',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)) K1:LongInt=VAL(GetFromIni('K'+IniRok,'K1',INI)) K2:Real=VAL(GetFromIni('K'+IniRok,'K2',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)) II60=0 ; pro jistotu, řádek 60 je zrušen 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)) II111:LongInt=VAL(GetFromIni('II'+IniRok,'II111',INI)) II112:LongInt=VAL(GetFromIni('II'+IniRok,'II112',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)) ; II230=E94 ; priradi se pozdeji, az ho budu znat, az ve vypoctu 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)) V3:LongInt=VAL(GetFromIni('V'+IniRok,'V3',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} ;{pro specialni pripady 50... asi vypsat do uvodni obrazovky hlaseni, ze nelze nacist} ;VZaZ musi obsahovat udaje bez zaokrouhleni IF(Program.TypFirmy=5) ; {příspěvkové, zde neni osetreno nacitani HV z VZaZ, ale "natvrdo"} begin OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True IF(Val(Rok(4))<2002) ; {příspěvkové r. 2001 a níže, bere radek 58} begin SkipWNSLine(2,5,57) LoadWNSLine(2,5) ; 58ř HV10=GetFromWNSLine(4,False)+GetFromWNSLine(5,False) end else ; {příspěvkové r. 2002 a výše, bere radek 59} begin SkipWNSLine(2,5,58) LoadWNSLine(2,5) ; 59ř HV10=GetFromWNSLine(4,False)+GetFromWNSLine(5,False) end end else ; neexistuje VZaZ begin ExistVZaZ=False end end IF((Program.TypFirmy=0)or(Program.TypFirmy=6)or(Program.TypFirmy=7)) ; {podnikatele, nevydelecne, banky} begin CisloFirmy:Word=Program.TypFirmy If((Program.TypFirmy=0)and(Program.ZkraceneF)) ; zkracena, zjednodusena CisloFirmy=256 OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,CisloFirmy,HVPredDaniR-1) LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s HV před zdanením HV10=GetFromWNSLine(HVPredDaniS,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end LocB=False IF(Program.TypFirmy=1) ; přísp. do roku 1999 LocB=True IF(Program.TypFirmy=2) ; strany a hnuti do roku 1999 LocB=True IF(Program.TypFirmy=3) ; spor. druzstva do roku 2001 LocB=True IF(Program.TypFirmy=4) ; obecne prospesne LocB=True IF(Program.TypFirmy>7) ; neexistující LocB=True IF(LocB) Halt('Výpočet není určen pro Váš typ firmy: '+Str(Program.TypFirmy,2,0)) ;{vypocet pocitanych hodnot} Vypocet: IF(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(PSCdppo)=6) PSCdppo=Copy(PSCdppo,1,3)+Copy(PSCdppo,5,2) 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=31 IF(SazbaDPPO=1) SazbaDan=15 IF(SazbaDPPO=2) SazbaDan=15.5 IF(SazbaDPPO=3) SazbaDan=7.5 IF((SazbaDPPO>3) OR (SazbaDPPO<0)) SazbaDan=31 IF(II331<>0) begin SazbaDPPO2=15 ; sazbadppo2 podle § 21 odst.4 II333=Double((II331*SazbaDPPO2)/100) end else begin SazbaDPPO2=0 II333=0 end 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+II111+II112+II120+II130+II140+RozdilOdpisu150+II160+II161+II162 FA4=((FA1*10)+(FA2*15)+(FA3*20))/100 FA6=FA4+FA5 FB8=FA6-FB7 FB10=FB7+FB9 II200=HV10+II70-II170 II220=II200-II201-II210 II250=II220-II230-FB10-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 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=Zahr3+0.005 ; kvuli zaokrouhleni 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) ;zaokrouhlit na cele Kc nahoru, II331*1000 je tam proto, že se řádek 331 uvádí v tisícikorunách, asi blbě: ;II333=Double(((II331*1000*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 V4=0 IF(TypPriz1<>2) V4=V1+V2+V3-III2-II340 ;zde je zahrnut i řádek 2 III. oddílu, pokud to není fond, tak tam má nulu ;CP14=(CP12-CP13) ;IF(CP14>0) ; begin ; CP15=0 ; CP16=0 ; end ;CP24=(CP22-CP23) ;IF(CP24>0) ; begin ; CP25=0 ; CP26=0 ; CP27=0 ; end ;CP34=(CP32-CP33) ;IF(CP34>0) ; begin ; CP35=0 ; CP36=0 ; CP37=0 ; end ;CP44=(CP42-CP43) ;IF(CP44>0) ; begin ; CP45=0 ; CP46=0 ; CP47=0 ; end ;CP56=(CP16+CP26+CP36+CP46) ;CP57=(CP17+CP27+CP37+CP47) CP43=(CP13+CP23+CP33) CP44=(CP24+CP34) ; vyhodnoceni, zda neni narok na odpocet ztraty starsi nezli ObdZtrat34 (=7) let WarnObdobiE:String IF((Length(E11)<4)and(Length(E11)<>0)and(Val(E11)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E11)>4) begin LocN=Length(E11) LocStr=Copy(E11,LocN-3,4) ;vezme posledni 4 znaky jako rok LocN=Val(LocStr) end IF(Length(E11)=4) begin LocN=Val(E11) end IF(Length(E11)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E11:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E15<>0) begin WarnZtrata34E11='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.1 sl.5' end else begin WarnZtrata34E11='' end E15=0 ; kdyz je starsi, nezli 7 let, vynuluje, na obrazovce bude DlgStatic a v sestave proskrtne E15skrt=True end else begin E15skrt=False WarnZtrata34E11='' end IF((Length(E21)<4)and(Length(E21)<>0)and(Val(E21)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E21)>4) begin LocN=Length(E21) LocStr=Copy(E21,LocN-3,4) LocN=Val(LocStr) end IF(Length(E21)=4) begin LocN=Val(E21) end IF(Length(E21)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E21:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E25<>0) begin WarnZtrata34E21='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.2 sl.5' end else begin WarnZtrata34E21='' end E25=0 E25skrt=True end else begin E25skrt=False WarnZtrata34E21='' end IF((Length(E31)<4)and(Length(E31)<>0)and(Val(E31)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E31)>4) begin LocN=Length(E31) LocStr=Copy(E31,LocN-3,4) LocN=Val(LocStr) end IF(Length(E31)=4) begin LocN=Val(E31) end IF(Length(E31)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E31:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E35<>0) begin WarnZtrata34E31='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.3 sl.5' end else begin WarnZtrata34E31='' end E35=0 E35skrt=True end else begin E35skrt=False WarnZtrata34E31='' end IF((Length(E41)<4)and(Length(E41)<>0)and(Val(E41)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E41)>4) begin LocN=Length(E41) LocStr=Copy(E41,LocN-3,4) LocN=Val(LocStr) end IF(Length(E41)=4) begin LocN=Val(E41) end IF(Length(E41)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E41:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E45<>0) begin WarnZtrata34E41='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.4 sl.5' end else begin WarnZtrata34E41='' end E45=0 E45skrt=True end else begin E45skrt=False WarnZtrata34E41='' end IF((Length(E51)<4)and(Length(E51)<>0)and(Val(E51)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E51)>4) begin LocN=Length(E51) LocStr=Copy(E51,LocN-3,4) LocN=Val(LocStr) end IF(Length(E51)=4) begin LocN=Val(E51) end IF(Length(E51)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E51:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E55<>0) begin WarnZtrata34E51='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.5 sl.5' end else begin WarnZtrata34E51='' end E55=0 E55skrt=True end else begin E55skrt=False WarnZtrata34E51='' end IF((Length(E61)<4)and(Length(E61)<>0)and(Val(E61)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E61)>4) begin LocN=Length(E61) LocStr=Copy(E61,LocN-3,4) LocN=Val(LocStr) end IF(Length(E61)=4) begin LocN=Val(E61) end IF(Length(E61)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E61:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E65<>0) begin WarnZtrata34E61='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.6 sl.5' end else begin WarnZtrata34E61='' end E65=0 E65skrt=True end else begin E65skrt=False WarnZtrata34E61='' end IF((Length(E71)<4)and(Length(E71)<>0)and(Val(E71)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E71)>4) begin LocN=Length(E71) LocStr=Copy(E71,LocN-3,4) LocN=Val(LocStr) end IF(Length(E71)=4) begin LocN=Val(E71) end IF(Length(E71)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E71:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E75<>0) begin WarnZtrata34E71='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.7 sl.5' end else begin WarnZtrata34E71='' end E75=0 E75skrt=True end else begin E75skrt=False WarnZtrata34E71='' end IF((Length(E81)<4)and(Length(E81)<>0)and(Val(E81)<>0)) WarnObdobiE='- období v tabulce E, sl. 1 lze zadat jen ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR' IF(Length(E81)>4) begin LocN=Length(E81) LocStr=Copy(E81,LocN-3,4) LocN=Val(LocStr) end IF(Length(E81)=4) begin LocN=Val(E81) end IF(Length(E81)=0) begin LocN=Val(Rok(4)) ;podvod, aby to vyhodnocovalo nejake vhodne cislo v pripade, ze neni vyplneno nic end WarnZtrata34E81:String IF(Val(Rok(4))-LocN>=ObdZtrat34) begin IF(E85<>0) begin WarnZtrata34E81='- nelze odečíst ztrátu z období staršího '+STR(ObdZtrat34,2,0)+' let, vynulováno v tab.E ř.8 sl.5' end else begin WarnZtrata34E81='' end E85=0 E85skrt=True end else begin E85skrt=False WarnZtrata34E81='' end E94=(E14+E24+E34+E44+E54+E64+E74+E84) E95=(E15+E25+E35+E45+E55+E65+E75+E85) II230=E94 ;{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(II111<0) WarnZapor=WarnZapor+' 111,' IF(II112<0) WarnZapor=WarnZapor+' 112,' 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(II230<0) WarnZapor=WarnZapor+' 230,' 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,' IF(E94<0) WarnZapor=WarnZapor+' E94,' IF(E95<0) WarnZapor=WarnZapor+' E95,' 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) OR (V4<>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í' WarnOd:STRING='' IF(DatumOd=0) WarnOd='- není vyplněno datum OD na titulní stránce daňového přiznání' WarnDo:STRING='' IF(DatumDo=0) WarnDo='- není vyplněno datum DO na titulní stránce daňového přiznání' WarnOdDo:STRING='' IF(DatumOd>=DatumDo) WarnOdDo='- začátek zdaňovacího období je větší nežli konec' WarnLhuta:STRING='' IF(DatumLhuta=0) begin IF(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end WarnLhuta='- nebyl vyplněn den lhůty pro podání DP, pro výpočet záloh bylo dosazeno '+StrDate(DatumLhuta) end WarnLhuta2:STRING='' IF((DatumLhuta<>0)and(DatumLhuta0)and(DatumLhuta=DatumDo)) begin WarnLhuta2='- datum lhůty pro podání DP '+StrDate(DatumLhuta)+' je shodné s koncem zdaň.období '+StrDate(DatumDo) end Warn230:STRING='' IF((II230>II220)AND(II230<>0)) Warn230='- řádek 230 nesmí být větší než řádek 220' Warn230E94:STRING='' IF(II230<>E94) Warn230E94='- řádek 230 je různý od ř.9 sl.4 tabulky E přílohy č. 1 II. oddílu' ;toto by nemelo nastat, II230 se nezadava, ale prebira z E94 Warn240II220:STRING='' IF((FB10>II220)AND(FB10<>0)) Warn240II220='- řádek 240 nesmí být větší než řádek 220' Warn240II230:STRING='' IF(FB10>II230) Warn240II230='- řádek 240 nesmí být větší než řádek 230' Warn240II23020:STRING='' IF((FB10>II220-II230)AND(FB10<>0)) Warn240II23020='- řádek 240 nesmí být větší než řádek 220 snížený o řádek 230' WarnII241:String='' IF(II241<>CP43+E94) WarnII241='- řádek 241 neodpovídá tabulce D řádku 4 sloupec 3 a tabulce E řádku 9 sloupec 4' WarnDar:STRING='' IF(II260>Dar5+Dar2) WarnDar='- skutečně uplatněná částka odečtu hodnoty darů (ř.260) je vyšší hodnota darů v příl. G.' WarnDar1:STRING='' IF((II250*0.05)0)) WarnDar5='- 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' Warn351II330:STRING='' IF(II351>II330) Warn351II330='- řádek 351 nesmí být větší než řádek 330' 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='' ;toto asi zrusit, je to jiz ve WarnZtrata34 x:Integer=VAL(IniRok) IF((LENGTH(E11)=4) AND (x-VAL(E11)>ObdZtrat34)) ;je-li E11 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E21)=4) AND (x-VAL(E21)>ObdZtrat34)) ;je-li E21 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E31)=4) AND (x-VAL(E31)>ObdZtrat34)) ;je-li E31 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E41)=4) AND (x-VAL(E41)>ObdZtrat34)) ;je-li E41 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E51)=4) AND (x-VAL(E51)>ObdZtrat34)) ;je-li E51 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E61)=4) AND (x-VAL(E61)>ObdZtrat34)) ;je-li E61 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E71)=4) AND (x-VAL(E71)>ObdZtrat34)) ;je-li E71 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' IF((LENGTH(E81)=4) AND (x-VAL(E81)>ObdZtrat34)) ;je-li E81 dlouhe 4 znaky, je tam (asi) vyplnen pouze rok, lze tedy testovat WarnE1='- v tabulce E lze uvést daň.ztrátu v předchozích,nejvýše však '+STR(ObdZtrat34,2,0)+' obdobích,je zde starší' WarnF:STRING='' IF(FB7>FA6) WarnF='- uplatněný odečet (údaj v příloze F,ř.7) je vyšší nežli nárok na odečet (údaj v příloze F,ř.6)' WarnH1:STRING='' WarnH1a:STRING='' IF(H1<>0) WarnH1='- Nezapoměňte vyplnit Zvláštní přílohu k řádku 1 tabulky H přílohy č. 1 II. oddílu' WarnH1a=' (není součástí tohoto programu)' WarnH4:STRING='' IF(H4<>0) begin IF(H4<>II290/2) WarnH4='- Údaj v tab.H řádek 4 je různý od ř.290 II.oddílu x 50/100' end WarnII300H:STRING='' IF(II300>H1+H2+H3+H4+H5) 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' WarnFA6Komand:STRING='' IF((Komand32<>0)AND(Komand31+Komand32<>FA6)) WarnFA6Komand='- údaj v tab. J ř.3 sl.3 je různý od řádku 6. tabulky F.' WarnG1Komand:STRING='' IF((Komand42<>0)AND(Komand41+Komand42<>Dar5+Dar2)) WarnG1Komand='- údaj v tab. J ř.4 sl.3 je různý od řádku 1. tabulky G.' WarnH4Komand:STRING='' IF((Komand62<>0)AND(Komand62<>H1+H2+H3+H4+H5)) WarnH4Komand='- údaj v tab. J ř.6 sl.3 je různý od řádku 6. 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((Length(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((Length(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((Length(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((Length(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((Length(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((Length(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((Length(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' WarnE8rok:STRING='' IF((Length(E81)=0)AND((E82<>0)OR(E83<>0)OR(E84<>0)OR(E85<>0))) WarnE8rok='- v tabulce E řádek 8 není vyplněn sl.1 (ROK) a přitom je vyplněn další sloupec' WarnE1sum:STRING='' IF(E1287] begin DelkaObdobi=DelkaObdobi-88 end DelkaObdobi=DelkaObdobi+1 IF(DelkaObdobi<>Program.FiscalLength) WarnPrizn1='- délka zdaňovacího období (na titulní straně) neodpovídá zadanému hospodářského roku') WarnPrizn3:STRING='' LocStr=MesicZData(StrDate(DatumDo)) LocWord1=Val(LocStr)+3 LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=1 end ; DatumLhuta=MaxDay(6,2002); DatumPovinn3:Word=MaxDay(LocWord1,IniRok+LocShInt1) LocStr=StrDate(DatumPovinn3) IF((DatumPodani>DatumPovinn3)AND(not(PoradceAnoNe))) ; nemam poradce a odevzdavam po 31.3 WarnPrizn3='- datum podání přiznání je po '+LocStr+' 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') WarnObdobi1:STRING='' KodRozlis=UpCase(KodRozlis) ; IF((LENGTH(PismObd)>0)AND(not(CompareStr(Copy(KodRozlis,2,1),'A')))) ; begin ; IF(CompareStr(PismObd,'/')) ; begin ; ;nic ; end else ; begin ; WarnPorad2='- Kód rozlišení typu přiznání není A, přitom je vyplněn údaj: Zdaňovací období dle § 17a ...') ; end ; end Warn350V3:STRING='' IF(II350<>V3) Warn350V3='řádek 350 není shodný s údajem 3 v oddílu V, pravděpodobně by se měl shodovat' 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,'Zdaňovací období &od',265-220,82-60,160) DlgEditDate(1031,DatumOd,405-220,78-60,78,,10,,ValidDatum) DlgOnLineHelp(1031,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od.....') DlgStatic(-1,'&do',490-220,82-60,20) DlgEditDate(1032,DatumDo,510-220,78-60,78,,10,,ValidDatum) DlgOnLineHelp(1032,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od .. do ......') DlgStatic(-1,'Lhůta pro podání DP',45,48,135) DlgEditDate(162,DatumLhuta,185,46,78,,10,,ValidDatum) DlgOnLineHelp(162,'Poslední den lhůty pro podání daňového přiznání - §38a'+#13+'(bude použito pro výpočet kalendáře záloh na daň)') DlgCheckBox(130,PoradceAnoNe,16,263-180,500,,'Přiznání zpracoval a předložil d&aňový poradce') DlgOnLineHelp(130,'Přiznání zpracoval a předložil daňový poradce') DlgCheckBox(140,OverAuditAnoNe,16,263-160,500,,'&Zákonná povinnost ověření auditorem') DlgOnLineHelp(140,'Zákonná povinnost ověření účetní závěrky auditorem') DlgCheckBox(150,ZaverkaAnoNe,16,263-140,500,,'Účetní závěrka přilo&žena') DlgOnLineHelp(150,'Účetní závěrka nebo přehledy o majetku a závazcích a o příjmech a výdajích, přiloženy') DlgCheckBox(151,ZahraniciAnoNe,16,263-120,500,,'Spojení se zahraničím') DlgOnLineHelp(151,'Ekonomické nebo personální spojení se zahraničními osobami') DlgStatic(-1,'Ostatní údaje pro titulní stranu DPPO je nutno vyplnit',20,200,560,,,ES_CENTER) DlgStatic(-1,'v Nastavení + Nastavení údajů pro sestavy (DDT) + První strana DPPO',20,216,560,,,ES_CENTER) DlgStatic(-1,'( pokud nejsou na straně 8 k dispozici všechny údaje, restartuje WinDUO )',20,310,560,,,ES_CENTER) ; 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,,ValidTypPrizn) ; DlgOnLineHelp(104,'Kód rozlišení typu přiznání - viz POKYNY k vyplnění ...') ; ; DlgStatic(-1,'obd.§17a',187,82,60) ; DlgEdit(1041,PismObd,247,78,16,,1) ; DlgOnLineHelp(1041,'Zdaňovací období podle § 17a písmeno ... zákona.'+#13+'U daňových přiznání typu B až L se proškrtne') ; ; DlgStatic(-1,'zdaňovací období &od',265,82,160) ; DlgEditDate(1031,DatumOd,405,78,78,,10,,ValidDatum) ; DlgOnLineHelp(1031,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od.....') ; ; DlgStatic(-1,'&do',490,82,20) ; DlgEditDate(1032,DatumDo,510,78,78,,10,,ValidDatum) ; DlgOnLineHelp(1032,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od .. do ......') ; ; DlgStatic(-1,'&Počet PF...',310,30,100) ; DlgEdit(105,PocetPodilFondu,410,26,30,,3) ; DlgOnLineHelp(105,'Počet podílových fondů,'+#13+'jejichž majetek je obhospodařován') ; ; DlgStatic(-1,'Po&řad číslo PF',310,56,100) ; DlgEdit(106,PoradCisloFondu,410,52,30,,3) ; DlgOnLineHelp(106,'Pořadové číslo podílového fondu') ; ; DlgStatic(-1,'Počet př&íloh II.',450,30,108) ; DlgEdit(107,PocetPrilII,558,26,30,,3) ; DlgOnLineHelp(107,'Počet příloh II. oddílu') ; ; DlgStatic(-1,'Poč&et zvl. příloh',450,56,108) ; DlgEdit(108,PocetZvlPril,558,52,30,,3) ; DlgOnLineHelp(108,'Počet zvláštních příloh') ; ; DlgStatic(-1,'Obchodní &firma',16,106,140) ; DlgEdit(109,ObchodniJmeno,160,104,428,,35) ; DlgOnLineHelp(109,'Obchodní firma') ; ; DlgStatic(-1,'Dodate&k jména',16,133,140) ; DlgEdit(110,DodatekJmena,160,131,428,,35) ; DlgOnLineHelp(110,'Dodatek jména obchodní firmy') ; ; 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í zpracoval 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,213,,140) ; DlgOnLineHelp(161,'Hlavní (převažující) činnost') ; ; DlgStatic(-1,'Lhůta pro podání DP',374,316,135) ; DlgEditDate(162,DatumLhuta,510,312,78,,10,,ValidDatum) ; DlgOnLineHelp(162,'Poslední den lhůty pro podání daňového přiznání - §38a'+#13+'(bude použito pro výpočet kalendáře záloh na daň)') ; ; ; ;{============================== 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) 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ů',306,42,180) DlgEdit(2201,Suma551,490,38,90,,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(2201,'účetní odpisy možno zadat ručně nebo převzít z účtu 551 (u podnikatelů).'+#13+'Tento účet ale musí být v rozvrhu zadán jako daňově neuznaný náklad = nevstupuje do daňové závěrky'+#13+'Není-li to 551, zadejte ručně (banky...)') DlgStatic(-1,'1',16,70,15) DlgEdit(170,TextUctSkup1,36,68,451,20,50) DlgOnLineHelp(170,'Název účtové skupiny (včetně číselného označení)') DlgEdit(171,UctSkup1,490,68,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(171,'Částka v celých Kč') DlgStatic(-1,'2',16,90,15) DlgEdit(172,TextUctSkup2,36,88,451,20,50) DlgOnLineHelp(172,'Název účtové skupiny (včetně číselného označení)') DlgEdit(173,UctSkup2,490,88,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(173,'Částka v celých Kč') DlgStatic(-1,'3',16,110,15) DlgEdit(174,TextUctSkup3,36,108,451,20,50) DlgOnLineHelp(174,'Název účtové skupiny (včetně číselného označení)') DlgEdit(175,UctSkup3,490,108,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(175,'Částka v celých Kč') DlgStatic(-1,'4',16,130,15) DlgEdit(176,TextUctSkup4,36,128,451,20,50) DlgOnLineHelp(176,'Název účtové skupiny (včetně číselného označení)') DlgEdit(177,UctSkup4,490,128,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(177,'Částka v celých Kč') DlgStatic(-1,'5',16,150,15) DlgEdit(178,TextUctSkup5,36,148,451,20,50) DlgOnLineHelp(178,'Název účtové skupiny (včetně číselného označení)') DlgEdit(179,UctSkup5,490,148,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(179,'Částka v celých Kč') DlgStatic(-1,'6',16,170,15) DlgEdit(180,TextUctSkup6,36,168,451,20,50) DlgOnLineHelp(180,'Název účtové skupiny (včetně číselného označení)') DlgEdit(181,UctSkup6,490,168,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(181,'Částka v celých Kč') DlgStatic(-1,'7',16,190,15) DlgEdit(182,TextUctSkup7,36,188,451,20,50) DlgOnLineHelp(182,'Název účtové skupiny (včetně číselného označení)') DlgEdit(183,UctSkup7,490,188,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(183,'Částka v celých Kč') DlgStatic(-1,'8',16,210,15) DlgEdit(184,TextUctSkup8,36,208,451,20,50) DlgOnLineHelp(184,'Název účtové skupiny (včetně číselného označení)') DlgEdit(185,UctSkup8,490,208,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(185,'Částka v celých Kč') DlgStatic(-1,'9',16,230,15) DlgEdit(186,TextUctSkup9,36,228,451,20,50) DlgOnLineHelp(186,'Název účtové skupiny (včetně číselného označení)') DlgEdit(187,UctSkup9,490,228,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(187,'Částka v celých Kč') DlgStatic(-1,'10',16,250,15) DlgEdit(188,TextUctSkup10,36,248,451,20,50) DlgOnLineHelp(188,'Název účtové skupiny (včetně číselného označení)') DlgEdit(189,UctSkup10,490,248,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(189,'Částka v celých Kč') DlgStatic(-1,'11',16,270,15) DlgEdit(190,TextUctSkup11,36,268,451,20,50) DlgOnLineHelp(190,'Název účtové skupiny (včetně číselného označení)') DlgEdit(191,UctSkup11,490,268,90,20,13,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(191,'Částka v celých Kč') DlgStatic(-1,'12',16,290,15) DlgEdit(192,TextUctSkup12,36,288,451,20,50) DlgOnLineHelp(192,'Název účtové skupiny (včetně číselného označení)') DlgEdit(193,UctSkup12,490,288,90,20,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,440) 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 7 zák. č. 492/2000 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 odpisu uplatněná 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 7 části první'+#13+'zákona 492/2000 Sb. (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 období, za které se podává daňové přiznání') 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 období, za které se podává daňové přiznání') 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 období, za které'+#13+'se podává daňové přiznání') 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 období, za které se podává daňové přiznání') 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'+#13+'po 31. prosinci 1994 (§ 8a zákona o rezervách) ke konci období, za které se podává'+#13+'daňové přiznání') DlgStatic(-1,'&8. Úhrn hodnot pohledávek ...',5,226,204) DlgEdit(308,OdpisPohl8,212,224,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(308,'8. Úhrn pohledávek nebo cen pořízení pohledávek nabytých postoupením,'+#13+'uplatněných v daném období, za které se podává daňové přiznání, jako výdaj (náklad)'+#13+'na dosažení, zajištění a udržení příjmů podle §24 odst.2 písm.y)') DlgStatic(-1,'d) Rezervy na opravy hmotného majetku ...:',315,36,285) DlgStatic(-1,'17. &Rezerva na opravy HM ...',305,54,204) DlgEdit(318,Rezerva18,512,52,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(318,'17. 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,'18. &Stav rezerv na opravy ...',305,80,204) DlgEdit(319,Rezerva19,512,78,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(319,'18. 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,'19. R&ezer. na pěstební činnost',305,154,207) DlgEdit(320,Rezerva20,512,152,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(320,'19. Rezerva na pěstební činnost vytvořená podle § 9 zákona o rezervách v daném'+#13+'období, za které se podává daňové přiznání') DlgStatic(-1,'20. S&tav rezervy na pěstební ',305,180,207) DlgEdit(321,Rezerva21,512,178,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(321,'20. Stav rezervy na pěstební činnost (§ 9 zákona o rezervách) ke konci období, za které'+#13+'se podává daňové přiznání') DlgStatic(-1,'21. Ost&atní rezervy vytvořené',305,206,207) DlgEdit(322,Rezerva22,512,204,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(322,'21. 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. Odečet nevyužitých částí rozdílů,o které úhrn hodnot prod.CP převýšil úhrn příjmů...',16,0,582) DlgStatic(-1,'0',5,14,10) DlgStatic(-1,'1',38,14,10) DlgStatic(-1,'2',110,14,10) DlgStatic(-1,'3',195,14,10) DlgStatic(-1,'4',280,14,10) ; DlgStatic(-1,'5',365,14,10) ; DlgStatic(-1,'6',450,14,10) ; DlgStatic(-1,'7',535,14,10) DlgStatic(-1,'1',5,30,60) DlgStatic(-1,'1999',24,30,60) ; DlgEdit(4011,CP11,15,28,53,22,4,ES_RIGHT,ValidIntDatum) ; DlgOnLineHelp(4011,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 1'+#13+' - viz pokyny') DlgEdit(4012,CP12,70,28,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4012,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 2'+#13+' - viz pokyny') DlgEdit(4013,CP13,155,28,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4013,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 3'+#13+' - viz pokyny') ; DlgEdit(4014,CP14,155,28,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4014,'Tabulka D. přílohy č. 1 II. oddílu - řádek 1 sloupec 3'+#13+' - viz pokyny') DlgStatic(-1,'X',280,30,20) DlgStatic(-1,'2',5,52,60) DlgStatic(-1,'2000',24,52,60) ; DlgEdit(4021,CP21,15,50,53,22,4,ES_RIGHT,ValidIntDatum) ; DlgOnLineHelp(4021,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 1'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... - viz pokyny') DlgEdit(4022,CP22,70,50,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4022,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 2'+#13+' - viz pokyny') DlgEdit(4023,CP23,155,50,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4023,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 3'+#13+' - viz pokyny') DlgEdit(4024,CP24,240,50,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4024,'Tabulka D. přílohy č. 1 II. oddílu - řádek 2 sloupec 4'+#13+' - viz pokyny') DlgStatic(-1,'3',5,74,60) DlgStatic(-1,'2001',24,74,60) ; DlgEdit(4031,CP31,15,72,53,22,4,ES_RIGHT,ValidIntDatum) ; DlgOnLineHelp(4031,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 1'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') DlgEdit(4032,CP32,70,72,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4032,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 2'+#13+' - viz pokyny') DlgEdit(4033,CP33,155,72,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4033,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 3'+#13+' - viz pokyny') DlgEdit(4034,CP34,240,72,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4034,'Tabulka D. přílohy č. 1 II. oddílu - řádek 3 sloupec 4'+#13+' - viz pokyny') ; DlgStatic(-1,STR(CP34,12,0),242,74,80,,,ES_RIGHT) ; DlgEdit(4035,CP35,325,72,85,22,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 .... prodej cených papírů - viz pokyny') ; DlgEdit(4036,CP36,410,72,85,22,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 .... prodej cených papírů - viz pokyny') ; DlgEdit(4037,CP37,495,72,85,22,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 .... prodej cených papírů - viz pokyny') ; DlgStatic(-1,'4',5,96,10) ; DlgEdit(4041,CP41,15,94,53,22,4,ES_RIGHT,ValidIntDatum) ; DlgOnLineHelp(4041,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 1'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') ; DlgEdit(4042,CP42,70,94,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4042,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 2'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') ; DlgEdit(4043,CP43,155,94,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4043,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 3'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') ; DlgStatic(-1,STR(CP44,12,0),242,96,80,,,ES_RIGHT) ; DlgEdit(4045,CP45,325,94,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4045,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 5'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') ; DlgEdit(4046,CP46,410,94,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4046,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 6'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') ; DlgEdit(4047,CP47,495,94,85,22,15,ES_RIGHT,ValidCisloInt) ; DlgOnLineHelp(4047,'Tabulka D. přílohy č. 1 II. oddílu - řádek 4 sloupec 7'+#13+' - vyplňuje poplatník pouze tehdy, uskutečnil-li v roce .... prodej cených papírů - viz pokyny') DlgStatic(-1,'4 Celkem',5,94,62) DlgStatic(-1,STR(CP43,12,0),155,94,80,,,ES_RIGHT) DlgStatic(-1,STR(CP44,12,0),240,94,80,,,ES_RIGHT) DlgStatic(-1,'E. Odečet daňové ztráty ...:',16,119,187) DlgStatic(-1,'0',5,131,10) DlgStatic(-1,'1',76,131,10) DlgStatic(-1,'2',188,131,10) DlgStatic(-1,'3',300,131,10) DlgStatic(-1,'4',412,131,10) DlgStatic(-1,'5',524,131,10) DlgStatic(-1,'1',5,147,10) DlgEdit(4111,E11,15,145,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4111,'Tab.E. -ř.1 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4112,E12,132,145,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4112,'Tabulka E. přílohy č.1 II.oddílu - ř.1 sl.2'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však '+STR(ObdZtrat34,2,0)+' zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4113,E13,244,145,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4113,'Tabulka E. přílohy č.1 II.oddílu - ř.1 sl.3'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však '+STR(ObdZtrat34,2,0)+' zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') DlgEdit(4114,E14,356,145,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4114,'Tabulka E. přílohy č.1 II.oddílu - ř.1 sl.4'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však '+STR(ObdZtrat34,2,0)+' zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') IF(E15skrt) DlgStatic(-1,STR(E15,12,0),470,147,107,,,ES_RIGHT) else begin DlgEdit(4115,E15,468,145,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4115,'Tabulka E. přílohy č.1 II.oddílu - ř.1 sl.5'+#13+' - vyplňuje poplatník, jemuž v daném nebo v předchozích, nejvýše však '+STR(ObdZtrat34,2,0)+' zdaňovacích obdobích vznikla daňová ztráta, která byla nebo může být uplatněna ...') end DlgStatic(-1,'2',5,168,10) DlgEdit(4121,E21,15,166,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4121,'Tab.E. -ř.2 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4122,E22,132,166,112,21,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,166,112,21,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,166,112,21,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 ...') IF(E25skrt) DlgStatic(-1,STR(E25,12,0),470,168,107,,,ES_RIGHT) else begin DlgEdit(4125,E25,468,166,112,21,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 ...') end DlgStatic(-1,'3',5,189,10) DlgEdit(4131,E31,15,187,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4131,'Tab.E. -ř.3 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4132,E32,132,187,112,21,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,187,112,21,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,187,112,21,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 ...') IF(E35skrt) DlgStatic(-1,STR(E35,12,0),470,189,107,,,ES_RIGHT) else begin DlgEdit(4135,E35,468,187,112,21,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 ...') end DlgStatic(-1,'4',5,210,10) DlgEdit(4141,E41,15,208,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4141,'Tab.E. -ř.4 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4142,E42,132,208,112,21,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,208,112,21,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,208,112,21,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 ...') IF(E45skrt) DlgStatic(-1,STR(E45,12,0),470,210,107,,,ES_RIGHT) else begin DlgEdit(4145,E45,468,208,112,21,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 ...') end DlgStatic(-1,'5',5,231,10) DlgEdit(4151,E51,15,229,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4151,'Tab.E. -ř.5 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4152,E52,132,229,112,21,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,229,112,21,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,229,112,21,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 ...') IF(E55skrt) DlgStatic(-1,STR(E55,12,0),470,231,107,,,ES_RIGHT) else begin DlgEdit(4155,E55,468,229,112,21,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 ...') end DlgStatic(-1,'6',5,252,10) DlgEdit(4161,E61,15,250,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4161,'Tab.E. -ř.6 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4162,E62,132,250,112,21,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,250,112,21,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,250,112,21,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 ...') IF(E65skrt) DlgStatic(-1,STR(E65,12,0),470,252,107,,,ES_RIGHT) else begin DlgEdit(4165,E65,468,250,112,21,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 ...') end DlgStatic(-1,'7',5,273,10) DlgEdit(4171,E71,15,271,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4171,'Tab.E. -ř.7 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4172,E72,132,271,112,21,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,271,112,21,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,271,112,21,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 ...') IF(E75skrt) DlgStatic(-1,STR(E75,12,0),470,273,107,,,ES_RIGHT) else begin DlgEdit(4175,E75,468,271,112,21,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 ...') end DlgStatic(-1,'8',5,294,10) DlgEdit(4181,E81,15,292,116,21,21,ES_RIGHT,ValidIntDatum) DlgOnLineHelp(4181,'Tab.E. -ř.8 sl.1'+#13+'vyplňuje se,pokud v daném nebo v předchozích,nejvýše '+STR(ObdZtrat34,2,0)+' obdobích vznikla ztráta, ...'+#13+'nutno vyplnit ve tvaru RRRR nebo DD.MM.RRRR-DD.MM.RRRR'+#13+'např.: 1999 nebo 1.5.2001-30.4.2002) DlgEdit(4182,E82,132,292,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4182,'Tabulka E. přílohy č. 1 II. oddílu - řádek 8 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(4183,E83,244,292,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4183,'Tabulka E. přílohy č. 1 II. oddílu - řádek 8 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(4184,E84,356,292,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4184,'Tabulka E. přílohy č. 1 II. oddílu - řádek 8 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 ...') IF(E85skrt) DlgStatic(-1,STR(E85,12,0),470,294,107,,,ES_RIGHT) else begin DlgEdit(4185,E85,468,292,112,21,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(4185,'Tabulka E. přílohy č. 1 II. oddílu - řádek 8 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 ...') end DlgStatic(-1,'9 Celkem',5,321,65) DlgStatic(-1,STR(E94,12,0),357,321,107,,,ES_RIGHT) DlgStatic(-1,STR(E95,12,0),470,321,107,,,ES_RIGHT) ;{============================== 6.cover ================================} ;{vykresleni 6.coveru} SetCover(6,'Str.5&/2') DlgDivider(16,214,570,0) DlgStatic(-1,'F. Odečet podle § 34 odst. 3 písm a) až f) 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,42,285) DlgStatic(-1,'&1. Úhrn vst. cen nově poř. HM ... lze uplatnit odečet (§34 odst.3) 10%',6,60,453) DlgEdit(501,FA1,470,58,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%',6,86,453) DlgEdit(502,FA2,470,84,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%',6,112,453) DlgEdit(503,FA3,470,110,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,138,453) DlgStatic(-1,STR(FA4,12,0),470,138,118,,,ES_RIGHT) DlgStatic(-1,'&5. Částka nároku na odečet podle §34 odst.3) písm. f) zákona',6,164,453) DlgEdit(505,FA5,470,162,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(505,'5. Částka nároku na odečet podle § 34 odst. 3 písm. f) zákona') DlgStatic(-1,'&6. Celková částka nároku ... podle § 34 odst. 3 (ř. 4 + 5)',6,190,453) DlgStatic(-1,STR(FA6,12,0),470,190,118,,,ES_RIGHT) DlgStatic(-1,'b) Odečet uplatněný v daném zdaňovacím období',16,220,323) DlgStatic(-1,'&7. Částka odečtu uplatněná v daném zdaň. období z nároku na ř.6',6,238,465) DlgEdit(507,FB7,470,236,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(507,'7. Částka odečtu uplatněná v daném zdaňovacím období z nároku uvedeného na ř. 6') DlgStatic(-1,'&8. Nevyužitá část nároku uvedeného na ř. 6, jejíž odečet lze uplatnit',6,264,453) DlgStatic(-1,STR(FB8,12,0),470,264,118,,,ES_RIGHT) DlgStatic(-1,'&9. Částka odečtu z nevyuž. nároku vzniklého v předch. zdaň. obdobích',6,290,465) DlgEdit(509,FB9,470,288,120,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(509,'9. Čá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,'&10. Celková částka odečtu uplatněného podle §34 odst. 3 zákona',6,316,453) DlgStatic(-1,STR(FB10,12,0),470,316,118,,,ES_RIGHT) ;{============================== 7.cover ================================} ;{vykresleni 7.coveru} SetCover(7,'Str.&6') DlgStatic(-1,'&G.1.Celk.hodnota poskyt.darů...',5,4,250) DlgEdit(601,Dar5,215,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 5% ze základu daně, sníženého podle § 34 zákona') DlgStatic(-1,'&G.2.Ze ř.1. hodnota darů...povodní',306,4,250) ; DlgEdit(6021,Dar2Text,330,1,208,22,215,ES_LEFT) ; DlgOnLineHelp(6021,'2. viz pokyny k vyplnění'+#13+'- popis k řádku 2. tabulky G.') DlgEdit(6022,Dar2,539,1,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(6022,'2. Ze ř. 1 hodnota darů poskytnutých na financování odstraňování následků povodní a záplav, ke kterým došlo v roce 2002 na území České republiky (čl. II bodu 3 zákona č. 575/2002 Sb.)') DlgStatic(-1,'&H. Rozčlenění slev: §35ab',5,26,172) DlgEdit(603,H1,179,24,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(603,'1. Sleva na dani podle § 35a nebo § 35b zákona') DlgStatic(-1,'1&a)',243,26,20) DlgEdit(604,H2,264,24,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(604,'2. Sleva na dani podle § 35 odst. 1 písm. a) zákona') DlgStatic(-1,'1&b)',327,26,20) DlgEdit(605,H3,348,24,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(605,'3. Sleva na dani podle § 35 odst. 1 písm. b) zákona') DlgStatic(-1,'1&c)',411,26,20) DlgEdit(6051,H4,432,24,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(6051,'4. Sleva na dani podle § 35 odst. 1 písm. c) zákona') DlgStatic(-1,'&odst.3',496,26,42) DlgEdit(606,H5,539,24,60,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(606,'5. 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á'+#13+'Odkliknete-li, proveďte také přepočet tlačítkem Oprav') IF(ZapocetZahr) begin DlgStatic(-1,'Úhrn příjmů zdaněných',203,49,345) DlgEdit(607,Zahr2,357,47,85,20,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,20,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 (ř.6 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 (ř.6 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 5% ze ř. 250',5,150,324) DlgEdit(616,Komand41,332,148,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(616,'4. Hodnota darů k odečtu do 5% 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 5% 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. Celk. nárok na slevy na dani podle § 35',5,172,324) DlgEdit(620,Komand51,332,170,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(620,'5. Celkový nárok na slevy na dani podle §35a nebo §35b'+#13+'a §35 zákona (ř. 6 tabulky H)'+#13+'- částka připadající na komplementáře') DlgEdit(621,Komand52,417,170,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(621,'5. Celkový nárok na slevy na dani podle §35a nebo §35b'+#13+'a §35 zákona (ř. 6 tabulky H)'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand51+Komand52,12,0),506,172,90,,,ES_RIGHT) DlgStatic(-1,'&6. Z celkové částky slev na ř.5 sleva podle §35 odst.3 zákona',5,194,404) DlgEdit(623,Komand62,417,192,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(623,'6. Z celkové částky slev uvedené na ř. 5'+#13+'sleva podle § 35 odst. 3 zákona'+#13+'- částka připadající na komanditisty') DlgStatic(-1,Str(Komand62,12,0),506,192,90,,,ES_RIGHT) DlgStatic(-1,'&7. Úhrn příjmů zdaněných v zahraničí, u nichž lze',5,216,325) DlgEdit(624,Komand71,332,214,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(624,'7. Ú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,Komand72,417,214,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(625,'7. Ú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(Komand71+Komand72,12,0),506,216,90,,,ES_RIGHT) DlgStatic(-1,'&8. Úhrn zahr.daně, který lze uplatnit k zápočtu...',5,238,324) DlgEdit(626,Komand81,332,236,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(626,'8. Ú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,Komand82,417,236,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(627,'8. Ú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(Komand81+Komand82,12,0),506,238,90,,,ES_RIGHT) DlgStatic(-1,'&9. Ze ř.4 hodnota darů poskyt.na financování...',5,260,326) ; odstraňování následků povodní a záplav (ř. 2 tabulky G) ; DlgEdit(6260,Komand9Text,17,258,305,22,215,ES_LEFT) ; DlgOnLineHelp(6260,'9. ???'+#13+'- popis k řádku 9.') DlgEdit(6261,Komand91,332,258,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(6261,'9. Ze ř. 4 hodnota darů poskytnutých na financování odstraňování následků povodní a záplav (ř. 2 tabulky G)'+#13+'- částka připadající na komplementáře') DlgEdit(16271,Komand92,417,258,85,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(16271,'9. Ze ř. 4 hodnota darů poskytnutých na financování odstraňování následků povodní a záplav (ř. 2 tabulky G)'+#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) DlgStatic(-1,'&K.1. Čistý obrat nebo úhrn příjmů',5,304,244) DlgEdit(6901,K1,500,303,99,17,15,ES_RIGHT,ValidCislo) DlgOnLineHelp(6901,'K.1. Čistý obrat nebo úhrn všech dosažených příjmů') DlgStatic(-1,'&2. Průměrný přepočtený počet zaměstnanců',18,322,320) DlgEdit(6902,K2,500,321,99,17,15,ES_RIGHT,ValidCislo,5) DlgOnLineHelp(6902,'K.2. Průměrný přepočtený počet zaměstnanců (osoby)') ;{============================== 8.cover ================================} ;{vykresleni 8.coveru} SetCover(8,'Str.&2') DlgDivider(16,24,570,0) DlgDivider(303,27,0,294) IF(ExistVZaZ) begin DlgStatic(-1,'10 HV před zdaněním-zjištěno z VZaZ '+DelkaFiscal+'/'+ROK(2)+' vypoč.:'+DateVZaZ+'-'+TimeVZaZ+' (v Kč)',5,4,502) 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 období '+DelkaFiscal,5,3,505) DlgStatic(-1,'20 Částky neopráv. zkracující...',5,143,212) DlgEdit(701,II20,216,141,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(701,'20 Částky neoprávněně zkracující příjmy (§ 23 odst. 3 písm. a) bod 1 zákona),'+#13+'a hodnota nepeněžních příjmů (§ 23 odst. 6 zákona), pokud nejsou zahrnuty'+#13+'v hosp. výsledku nebo v rozdílu mezi příjmy a výdaji na ř.10') DlgStatic(-1,'30 Částky zvyšující HV §23/3a)',5,167,212) DlgEdit(702,II30,216,165,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(702,'30 Částky, o které se podle § 23 odst. 3 písm. a) bodů 3 až 6 zákona zvyšuje'+#13+'hospodářský výsledek nebo rozdíl mezi příjmy a výdaji') DlgStatic(-1,'40 Výdaje neuznávané ...',5,172+18,170) DlgStatic(-1,STR(SumaNeNakl,12,0),212,172+18,85,,,ES_RIGHT) ;nacita se ve 3/1 straně (2 cover) DlgStatic(-1,'50/150 Rozdíl daňových a účetních odpisů:',5,208,280) DlgStatic(-1,'Účetní odpisy = ',10,222,104) DlgStatic(-1,STR(Suma551,13,0),115,222,92,,,ES_LEFT) DlgStatic(-1,'Daňové odpisy = ',224,222,114) DlgStatic(-1,STR(SumaDanOdpis+Odpis10,13,0),339,222,92,,,ES_LEFT) DlgStatic(-1,'Rozdíl = ',440,222,56) DlgStatic(-1,STR(SumaDanOdpis+Odpis10-Suma551,13,0),497,222,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.politiku'+#13+'zaměstnanosti a pojist.na veř.zdrav.pojištění,k jejichž placení jsou'+#13+'povinni zaměstnanci') DlgStatic(-1,'61 Úprava základu daně dle §23',5,271,210) DlgEdit(704,II61,216,269,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,295,19) DlgEdit(705,II62text,23,293,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,293,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,319,207) DlgStatic(-1,STR(II70,13,0),212,319,85,,,ES_RIGHT) DlgStatic(-1,'100 &Příjmy,které nejsou...§18/2',305,29,204) DlgEdit(707,II100,512,27,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,53,204) DlgEdit(708,II101,512,51,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 a 13 zákona, pokud jsou zahrnuty'+#13+'v hosp.výsledku nebo v rozdílu mezi příjmy a výdaji (ř.10)') DlgStatic(-1,'110 &Příjmy osvobozené ... §19',305,77,204) DlgEdit(709,II110,512,75,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,'111 &Částky,o které...§23/3b)',305,101,204) DlgEdit(7091,II111,512,99,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(7091,'111 Částky, o které se podle §23 odst. 3 písm. b) zákona snižuje hospodářský výsledek'+#13+'nebo rozdíl mezi příjmy a výdaji') DlgStatic(-1,'112 &Částky,o které...§23/3c)',305,125,204) DlgEdit(7092,II112,512,123,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(7092,'112 Částky, o které lze podle §23 odst. 3 písm. c) zákona snížit hospodářský výsledek'+#13+'nebo rozdíl mezi příjmy a výdaji') DlgStatic(-1,'120 &Příjmy nezahrnov...§23/4a)',305,149,204) DlgEdit(710,II120,512,147,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,173,204) DlgEdit(711,II130,512,171,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,197,205) DlgEdit(712,II140,512,195,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,247,205) DlgEdit(713,II160,512,245,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,271,205) DlgEdit(714,II161,512,269,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,295,24) DlgEdit(715,II162text,330,293,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,293,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ž ř.162)',305,319,207) DlgStatic(-1,STR(II170,13,0),513,319,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,185) DlgStatic(-1,STR(II220,13,0),200,84,101,,,ES_RIGHT) DlgStatic(-1,'230 Odečet daňové ztráty §34/1',5,110,207) DlgStatic(-1,STR(II230,13,0),213,110,88,,,ES_RIGHT) ; 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/3a)-f)=F.b)10',5,136,210) DlgStatic(-1,STR(FB10,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 Odečet daru podle § 20 odst.8...',5,240,220) DlgEdit(807,II260,219,238,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(807,'260 Odečet daru dle §20 odst.8 zák.a čl.II bodu3 zák.č.575/2002 Sb.(nejvýše 5% a v úhrnu s dary poskytnutými na financ.odstraňování následků povodní a záplav,ke kterým došlo v roce 2002 na území ČR,nejvýše 10% z částky na ř.250)') DlgStatic(-1,'270 Snížený základ daně...',5,266,181) DlgStatic(-1,STR(II270),220,266,81,,,ES_RIGHT) DlgStatic(-1,'280 &Sazba daně v %',5,292,140) DlgCombo(808,SazbaDPPO,220,290,85,128,9,CBS_DropDownList,'31','15','31/2','15/2') DlgOnLineHelp(808,'280 Sazba daně (v %) podle § 21 odst. 1 nebo odst. 2 zákona') 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 ř. 310'+#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é tisícikoruny dolů') DlgStatic(-1,'332 Sazba daně podle §21 odst.3 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 Daň sražená dle §36 odst.6',305,272,215) DlgEdit(816,II350,514,270,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(816,'350 Daň sražená z příjmů podle § 36 odst.6 zákona, splňující podmínky pro zápočet'+#13+'na celkovou daňovou povinnost, sníženou o daň připadající na samostatný základ'+#13+'daně podle §20b zákona') DlgStatic(-1,'351 Započtená částka...daně zř.350',305,298,220) DlgEdit(817,II351,514,296,85,,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(817,'351 Započtená částka sražené daně ze ř.350, nezahrnovaná do poslední známé daňové'+#13+'povinnosti, z níž se podle §38a odst. 1 zákona vychází při stanovení výše'+#13+'a periodicity záloh, nejvýše do částky uvedené na ř. 330)') 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') DlgStatic(-1,'pokud nejsou viditelné všechny údaje, restartuje WinDUO',198,258,397) 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 (§ 38a) zaplaceno',304,169,248) DlgEdit(907,V1,517,168,80,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(907,'1 Na zálohách (§ 38a zákona) zaplaceno') DlgStatic(-1,'2 Sraženo plátcem',5,190,206) DlgEdit(908,V2,130,188,80,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(908,'2 Na zajištění daně sraženo plátcem (§ 38e zákona)'+#13+'viz Pokyny...') DlgStatic(-1,'3 Daň sražená ...',220,190,206) DlgEdit(909,V3,350,188,80,22,15,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(909,'3 Daň sražená z příjmů podle § 36 odst. 6 zákona, splňující podmínky pro zápočet'+#13+'na celkovou daňovou povinnost, sníženou o daň připadající na samostatný základ'+#13+'daně podle § 20b zákona (ř.350 II.oddílu)') IF(V4<0) DlgStatic(-1,'4 Nedopl.',443,190,69) else DlgStatic(-1,'4 Přepl.',443,190,69) DlgStatic(-1,STR(V4,12,0),513,190,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,55) 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,186) 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(WarnDPPOplatne)<>0) begin DlgStatic(-1,WarnDPPOplatne,3,(radek*20)+5,595) radek=radek+1 end 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(WarnOd)<>0) begin DlgStatic(-1,WarnOd,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnDo)<>0) begin DlgStatic(-1,WarnDo,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnOdDo)<>0) begin DlgStatic(-1,WarnOdDo,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnLhuta)<>0) begin DlgStatic(-1,WarnLhuta,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnLhuta2)<>0) begin DlgStatic(-1,WarnLhuta2,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZapor)>0) begin DlgStatic(-1,'- seznam řádků, které jsou záporné (a nesmí být záporné):',5,(radek*20)+5,590) radek=radek+1 DlgStatic(-1,WarnZapor,5,(radek*20)+5,580) radek=radek+1 end IF(LENGTH(Warn230)<>0) begin DlgStatic(-1,Warn230,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn230E94)<>0) begin DlgStatic(-1,Warn230E94,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(Warn351II330)<>0) begin DlgStatic(-1,Warn351II330,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(WarnZtrata34E11)<>0) begin DlgStatic(-1,WarnZtrata34E11,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E21)<>0) begin DlgStatic(-1,WarnZtrata34E21,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E31)<>0) begin DlgStatic(-1,WarnZtrata34E31,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E41)<>0) begin DlgStatic(-1,WarnZtrata34E41,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E51)<>0) begin DlgStatic(-1,WarnZtrata34E51,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E61)<>0) begin DlgStatic(-1,WarnZtrata34E61,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E71)<>0) begin DlgStatic(-1,WarnZtrata34E71,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnZtrata34E81)<>0) begin DlgStatic(-1,WarnZtrata34E81,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(WarnDar5)<>0) begin DlgStatic(-1,WarnDar5,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(WarnH1)<>0) begin DlgStatic(-1,WarnH1,3,(radek*20)+5,595) radek=radek+1 DlgStatic(-1,WarnH1a,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnH4)<>0) begin DlgStatic(-1,WarnH4,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(WarnFA6Komand)<>0) begin DlgStatic(-1,WarnFA6Komand,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(WarnObdobiE)<>0) begin DlgStatic(-1,WarnObdobiE,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnII241)<>0) begin DlgStatic(-1,WarnII241,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(WarnE8rok)<>0) begin DlgStatic(-1,WarnE8rok,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE1sum)<>0) begin DlgStatic(-1,WarnE1sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE2sum)<>0) begin DlgStatic(-1,WarnE2sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE3sum)<>0) begin DlgStatic(-1,WarnE3sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE4sum)<>0) begin DlgStatic(-1,WarnE4sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE5sum)<>0) begin DlgStatic(-1,WarnE5sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE6sum)<>0) begin DlgStatic(-1,WarnE6sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE7sum)<>0) begin DlgStatic(-1,WarnE7sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnE8sum)<>0) begin DlgStatic(-1,WarnE8sum,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPrizn3)<>0) begin DlgStatic(-1,WarnPrizn3,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(WarnPrizn1)<>0) begin DlgStatic(-1,WarnPrizn1,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 IF(LENGTH(WarnObdobi1)<>0) begin DlgStatic(-1,WarnObdobi1,3,(radek*20)+5,595) radek=radek+1 end IF(LENGTH(Warn350V3)<>0) begin DlgStatic(-1,Warn350V3,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) SetDataINI('INFO','FinancniUrad',FinancniUrad) SetToIni('TITULNI'+IniRok,'TypPriz1',TypPriz1,INI) SetToIni('TITULNI'+IniRok,'DatumDodat',StrDate(DatumDodat),INI) SetToIni('TITULNI'+IniRok,'DatumOd',StrDate(DatumOd),INI) SetToIni('TITULNI'+IniRok,'DatumDo',StrDate(DatumDo),INI) SetToIni('TITULNI'+IniRok,'DatumLhuta',StrDate(DatumLhuta),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','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','PismObd',PismObd,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'+IniRok,'ZahraniciAnoNe',ZahraniciAnoNe,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,'CP11',CP11,INI) SetToIni('CP'+IniRok,'CP12',CP12,INI) SetToIni('CP'+IniRok,'CP13',CP13,INI) ; 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,'CP21',CP21,INI) SetToIni('CP'+IniRok,'CP22',CP22,INI) SetToIni('CP'+IniRok,'CP23',CP23,INI) SetToIni('CP'+IniRok,'CP24',CP24,INI) ; SetToIni('CP'+IniRok,'CP25',CP25,INI) ; SetToIni('CP'+IniRok,'CP26',CP26,INI) ; SetToIni('CP'+IniRok,'CP27',CP27,INI) ; SetToIni('CP'+IniRok,'CP31',CP31,INI) SetToIni('CP'+IniRok,'CP32',CP32,INI) SetToIni('CP'+IniRok,'CP33',CP33,INI) SetToIni('CP'+IniRok,'CP34',CP34,INI) ; SetToIni('CP'+IniRok,'CP35',CP35,INI) ; SetToIni('CP'+IniRok,'CP36',CP36,INI) ; SetToIni('CP'+IniRok,'CP37',CP37,INI) ; SetToIni('CP'+IniRok,'CP41',CP41,INI) ; SetToIni('CP'+IniRok,'CP42',CP42,INI) ; SetToIni('CP'+IniRok,'CP43',CP43,INI) ; SetToIni('CP'+IniRok,'CP45',CP45,INI) ; SetToIni('CP'+IniRok,'CP46',CP46,INI) ; SetToIni('CP'+IniRok,'CP47',CP47,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) SetToIni('E'+IniRok,'E81',E81,INI) SetToIni('E'+IniRok,'E82',E82,INI) SetToIni('E'+IniRok,'E83',E83,INI) SetToIni('E'+IniRok,'E84',E84,INI) SetToIni('E'+IniRok,'E85',E85,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,'FA5',FA5,INI) SetToIni('F'+IniRok,'FB7',FB7,INI) SetToIni('F'+IniRok,'FB9',FB9,INI) ;{ulozeni hodnot 7 coveru} SetToIni('G'+IniRok,'Dar5',Dar5,INI) SetToIni('G'+IniRok,'Dar2',Dar2,INI) ; SetToIni('G'+IniRok,'Dar2Text',Dar2Text,INI) SetToIni('H'+IniRok,'H1',H1,INI) SetToIni('H'+IniRok,'H2',H2,INI) SetToIni('H'+IniRok,'H3',H3,INI) SetToIni('H'+IniRok,'H4',H4,INI) SetToIni('H'+IniRok,'H5',H5,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,'Komand71',Komand71,INI) SetToIni('J'+IniRok,'Komand72',Komand72,INI) SetToIni('J'+IniRok,'Komand81',Komand81,INI) SetToIni('J'+IniRok,'Komand82',Komand82,INI) ; SetToIni('J'+IniRok,'Komand9Text',Komand9Text,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) SetToIni('K'+IniRok,'K1',K1,INI) SetToIni('K'+IniRok,'K2',K2,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,'II111',II111,INI) SetToIni('II'+IniRok,'II112',II112,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('V'+IniRok,'V3',V3,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 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,83,48,3.3,3.3) ROUNDBOXA(113,26,193,61,3.3,3.3) ROUNDBOXA(63,61.5,103,66.5,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(70,83,80,89,3.3,3.3) 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(96,117,136,123,3.3,3.3) LINESA(101,121.5,101,123,10,0,2) LINESA(106,120.5,106,123,10,0,2) LINESA(121,121.5,121,123,5,0,3) ROUNDBOXA(144,117,184,123,3.3,3.3) LINESA(101+48,121.5,101+48,123,10,0,2) LINESA(106+48,120.5,106+48,123,10,0,2) LINESA(121+48,121.5,121+48,123,5,0,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,163,178,3.3,3.3) LINESA(23,176.5,23,178,5,0,28) ROUNDBOXA(167,172,193,178,3.3,3.3) LINESA(172,176.5,172,178,5,0,4) ROUNDBOXA(18,185,193,191,3.3,3.3) LINESA(23,189.5,23,191,5,0,34) ROUNDBOXA(18,198,63,204,3.3,3.3) LINESA(23,202.5,23,204,5,0,8) ROUNDBOXA(68,198,113,204,3.3,3.3) LINESA(73,202.5,73,204,5,0,8) ROUNDBOXA(118,198,178,204,3.3,3.3) LINESA(123,202.5,123,204,5,0,11) ROUNDBOXA(183,198,193,204,3.3,3.3) LINEA(188,202.5,188,204) ROUNDBOXA(18,210,168,216,3.3,3.3) LINESA(23,214.5,23,216,5,0,29) ROUNDBOXA(168,218,193,224,3.3,3.3) LINEA(180,218,180,224) ROUNDBOXA(153,226,193,232,3.3,3.3) LINESA(158,230.5,158,232,10,0,2) LINESA(163,230,163,232,10,0,2) LINESA(178,230.5,178,232,5,0,3) ROUNDBOXA(168,237.5,193,243.5,3.3,3.3) LINEA(180,237.5,180,243.5) ROUNDBOXA(141,246.5,166,252.5,3.3,3.3) LINEA(153,246.5,153,252.5) ROUNDBOXA(168,246.5,193,252.5,3.3,3.3) LINEA(180,246.5,180,252.5) ROUNDBOXA(168,254.5,193,260.5,3.3,3.3) LINEA(180,254.5,180,260.5) ROUNDBOXA(18,265+2.5,158,271+2.5,3.3,3.3) ROUNDBOXA(163,265+2.5,193,271+2.5,3.3,3.3) LINESA(168,269.5+2.5,168,271+2.5,5,0,5) ROUNDBOXA(18,272+2.5,158,278+2.5,3.3,3.3) ROUNDBOXA(163,272+2.5,193,278+2.5,3.3,3.3) LINESA(168,276.5+2.5,168,278+2.5,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.8) 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(22,86.5,TA_LEFT|TA_BASELINE,'Zdaňovací období podle § 17a písm.') Text(77,86.5,TA_LEFT|TA_BASELINE,')') Text(82,86.5,TA_LEFT|TA_BASELINE,'zákona') 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 č. 586/1992 Sb. o daních z příjmů, ve znění pozdějších předpisů (dále jen "zákon")') XText(28,120+1.5,89,TA_LEFT|TA_BASELINE,'za zdaňovací období nebo jeho část, od') Text(138,120+1.5,TA_LEFT|TA_BASELINE,'do') FONTSIZE(3.6) Text(18,129,TA_LEFT|TA_BASELINE,'I. ODDÍL - údaje o poplatníkovi (podílovém fondu)') FontSize(1.8) FONTFACE(NORMAL) Text(0,-2.2,TA_Left|TA_Relative,'6)'); FONTSIZE(3.2) Text(18,134,TA_LEFT|TA_BASELINE,'04 Obchodní firma') 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(167,170.5,TA_LEFT|TA_BASELINE,'b) PSČ') Text(18,183.5,TA_LEFT|TA_BASELINE,'c) ulice (část obce) a číslo popisné (číslo orientační)') Text(18,196.5,TA_LEFT|TA_BASELINE,'d) číslo telefonu') Text(68,196.5,TA_LEFT|TA_BASELINE,'e) číslo faxu') Text(118,196.5,TA_LEFT|TA_BASELINE,'f) stát/kód státu') Text(18,209,TA_LEFT|TA_BASELINE,'07 Bankovní spojení') Text(18,222,TA_LEFT|TA_BASELINE,'08 Přiznání zpracoval a předložil daňový poradce') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(174,222,TA_CENTER|TA_BASELINE,'ano') Text(186,222,TA_CENTER|TA_BASELINE,'ne') Text(18,231,TA_LEFT|TA_BASELINE,'09 Plná moc daňového poradce k zastupování uložena u finančního úřadu dne') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'2'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(18,241,TA_LEFT|TA_BASELINE,'10 Zákonná povinnost ověření účetní závěrky auditorem') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(174,241,TA_CENTER|TA_BASELINE,'ano') Text(186,241,TA_CENTER|TA_BASELINE,'ne') Text(18,250,TA_LEFT|TA_BASELINE,'11 Účetní závěrka nebo přehledy o majetku a závazcích a o příjmech a výdajích, přiloženy') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,'),'); FontSize(1.8) Text(0,0.3,TA_Left|TA_Relative,'7'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(147,250,TA_CENTER|TA_BASELINE,'ano') Text(160,250,TA_CENTER|TA_BASELINE,'ne') Text(174,250,TA_CENTER|TA_BASELINE,'ano') Text(186,250,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,258.5,TA_LEFT|TA_BASELINE,'12 Ekonomické nebo personální spojení se zahraničními osobami') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,')'); Text(174,258.5,TA_CENTER|TA_BASELINE,'ano') Text(186,258.5,TA_CENTER|TA_BASELINE,'ne') Text(18,266,TA_LEFT|TA_BASELINE,'13 Hlavní (převažující) činnost') Text(163,266,TA_LEFT|TA_BASELINE,'Kód klasifikace OKEČ') FontSize(1.8) 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,284,TA_LEFT|TA_BASELINE,'25 5404 MFin 5404 - vzor č. 12') Text(193,284,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO') FONTSIZE(2.5) Text(107,284.5,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) ;debug ;IF(Length(PismObd)=0) ;PismObd='/' TEXT(74,87,TA_LEFT|TA_BASELINE,PismObd) 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(98,121,TA_LEFT|TA_BASELINE,4,2,Day(DatumOd,2)) STEXT(108,121,TA_LEFT|TA_BASELINE,4,2,Month(DatumOd,2)) STEXT(118,121,TA_LEFT|TA_BASELINE,4.5,4,Year(DatumOd,4)) STEXT(98+48,121,TA_LEFT|TA_BASELINE,4,2,Day(DatumDo,2)) STEXT(108+48,121,TA_LEFT|TA_BASELINE,4,2,Month(DatumDo,2)) STEXT(118+48,121,TA_LEFT|TA_BASELINE,4.5,4,Year(DatumDo,4)) ; ROUNDBOXA(96,117,136,123,3.3,3.3) ; LINESA(101,121.5,101,123,10,0,2) ; LINESA(106,120.5,106,123,10,0,2) ; LINESA(121,121.5,121,123,5,0,3) 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,29,Obec) STEXT(168,176,TA_LEFT|TA_BASELINE,5,5,PSCdppo) STEXT(20,189,TA_LEFT|TA_BASELINE,5,35,UliceDppo) STEXT(20,202,TA_LEFT|TA_BASELINE,5,9,Telefon) STEXT(70,202,TA_LEFT|TA_BASELINE,5,9,fax) STEXT(120,202,TA_LEFT|TA_BASELINE,5,12,Stat) STEXT(185,202,TA_LEFT|TA_BASELINE,5,2,KodStat) STEXT(20,214,TA_LEFT|TA_BASELINE,5,30,BankovniUcet) IF(PoradceAnoNe=True) begin LINEA(181,219,191,223) LINEA(181,223,191,219) end else begin LINEA(169,219,179,223) LINEA(169,223,179,219) end; IF(OverAuditAnoNe=True) begin LINEA(181,238.5,191,242.5) LINEA(181,242.5,191,238.5) end else begin LINEA(169,238.5,179,242.5) LINEA(169,242.5,179,238.5) end; IF(ZaverkaAnoNe=True) begin LINEA(155,247.5,165,251.5) LINEA(155,251.5,165,247.5) end else begin LINEA(142,247.5,152,251.5) LINEA(142,251.5,152,247.5) end; IF(ZahraniciAnoNe=True) begin LINEA(181,247.5+8,191,251.5+8) LINEA(181,251.5+8,191,247.5+8) end else begin LINEA(169,247.5+8,179,251.5+8) LINEA(169,251.5+8,179,247.5+8) end; XTEXT(20,272,135,TA_LEFT|TA_BASELINE,HlavCinn1) XTEXT(20,279,135,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,41,179,120,3.3,3.3) PEN(0,0.1) LINESA(4.01,52,178.99,52,0,11,2) LINESA(4.01,76,178.99,76,0,11,4) LINEA(14,41,14,120) LINEA(120,41,120,120) LINEA(150,41,150,120) PEN(0,0.3) ROUNDBOXA(4,125,179,272,3.3,3.3) PEN(0,0.1) LINEA(14,125,14,272) LINEA(120,125,120,272) LINEA(150,125,150,272) LINEA(4,136,179,136) LINESA(4,149,179,149,0,11,8) LINESA(4,239,179,239,0,11,3) 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.1) FONTFACE(NORMAL) Text(9,20,TA_CENTER|TA_BASELINE,'Řádek') Text(16,20,TA_LEFT|TA_BASELINE,'Název položky') 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.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) 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.8) Text(0,-2.2,TA_Left|TA_Relative,'3'); FontSize(3.1) 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.8) Text(0,-2.2,TA_Left|TA_Relative,'3'); FontSize(3.1) Text(0,-0.3,TA_Left|TA_Relative,') ke dni'); Text(9,48,TA_CENTER|TA_BASELINE,'20') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,45,TA_LEFT|TA_BASELINE,'Částky neoprávněně zkracující příjmy (§ 23 odst. 3 písm. a) bod 1 zákona),') Text(16,47.75,TA_LEFT|TA_BASELINE,'a hodnota nepeněžních příjmů (§ 23 odst. 6 zákona), pokud nejsou zahrnuty') Text(16,50.5,TA_LEFT|TA_BASELINE,'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji na ř. 10') Text(9,59,TA_CENTER|TA_BASELINE,'30') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,57,TA_LEFT|TA_BASELINE,'Částky, o které se podle § 23 odst. 3 písm. a) bodů 3 až 6 zákona zvyšuje') Text(16,61,TA_LEFT|TA_BASELINE,'hospodářský výsledek nebo rozdíl mezi příjmy a výdaji') Text(9,70,TA_CENTER|TA_BASELINE,'40') Text(16,66.5,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,70,TA_LEFT|TA_BASELINE,'a udržení příjmů (§ 25 nebo § 24 zákona), pokud jsou zahrnuty v hospodářském') Text(16,73.5,TA_LEFT|TA_BASELINE,'výsledku nebo v rozdílu mezi příjmy a výdaji na ř. 10') Text(9,83,TA_CENTER|TA_BASELINE,'50') Text(16,81,TA_LEFT|TA_BASELINE,'Rozdíl, o který odpisy hmotného a nehmotného majetku (§ 26 zákona) uplatněné') Text(16,85,TA_LEFT|TA_BASELINE,'v účetnictví převyšují odpisy tohoto majetku stanovené podle § 26 až 33 zákona') Text(9,94,TA_CENTER|TA_BASELINE,'61') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,92,TA_LEFT|TA_BASELINE,'Úprava základu daně podle § 23 odst. 8 zákona v případě zrušení poplatníka') Text(16,96,TA_LEFT|TA_BASELINE,'s likvidací') Text(9,105,TA_CENTER|TA_BASELINE,'62') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(9,116,TA_CENTER|TA_BASELINE,'70') Text(16,116,TA_LEFT|TA_BASELINE,'Mezisoučet (ř. 20 + 30 + 40 + 50 + 61 + 62)') Text(9,132,TA_CENTER|TA_BASELINE,'100') Text(16,130,TA_LEFT|TA_BASELINE,'Příjmy, které nejsou předmětem daně podle § 18 odst. 2 zákona, pokud jsou') Text(16,134,TA_LEFT|TA_BASELINE,'zahrnuty v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,143.5,TA_CENTER|TA_BASELINE,'101') Text(16,140,TA_LEFT|TA_BASELINE,'Příjmy, jež u poplatníků, kteří nebyli založeni nebo zřízeni za účelem podnikání,') Text(16,143.5,TA_LEFT|TA_BASELINE,'nejsou předmětem daně podle § 18 odst. 4 a 13 zákona, pokud jsou zahrnuty') Text(16,147,TA_LEFT|TA_BASELINE,'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,156,TA_CENTER|TA_BASELINE,'110') Text(16,154,TA_LEFT|TA_BASELINE,'Příjmy osvobozené od daně podle § 19 zákona, pokud jsou zahrnuty') Text(16,158,TA_LEFT|TA_BASELINE,'v hospodářském výsledku nebo v rozdílu mezi příjmy a výdaji (ř. 10)') Text(9,167,TA_CENTER|TA_BASELINE,'111') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,165,TA_LEFT|TA_BASELINE,'Částky, o které se podle § 23 odst. 3 písm. b) zákona snižuje hospodářský výsledek') Text(16,169,TA_LEFT|TA_BASELINE,'nebo rozdíl mezi příjmy a výdaji') Text(9,178,TA_CENTER|TA_BASELINE,'112') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,176,TA_LEFT|TA_BASELINE,'Částky, o které lze podle § 23 odst. 3 písm. c) zákona snížit hospodářský výsledek') Text(16,180,TA_LEFT|TA_BASELINE,'nebo rozdíl mezi příjmy a výdaji') Text(9,189,TA_CENTER|TA_BASELINE,'120') Text(16,189,TA_LEFT|TA_BASELINE,'Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. a) zákona') Text(9,200,TA_CENTER|TA_BASELINE,'130') Text(16,200,TA_LEFT|TA_BASELINE,'Příjmy nezahrnované do základu daně podle § 23 odst. 4 písm. b) zákona') Text(9,211,TA_CENTER|TA_BASELINE,'140') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,209,TA_LEFT|TA_BASELINE,'Příjmy a částky podle § 23 odst. 4 zákona, s výjimkou příjmů podle § 23') Text(16,213,TA_LEFT|TA_BASELINE,'odst 4 písm. a) a b) zákona, nezahrnované do základu daně') Text(9,222,TA_CENTER|TA_BASELINE,'150') Text(16,220,TA_LEFT|TA_BASELINE,'Rozdíl, o který odpisy hmotného a nehmotného majetku stanovené podle') Text(16,224.5,TA_LEFT|TA_BASELINE,'§ 26 až 33 zákona převyšují odpisy tohoto majetku uplatněné v účetnictví') Text(9,233.5,TA_CENTER|TA_BASELINE,'160') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,230,TA_LEFT|TA_BASELINE,'Souhrn jednotlivých rozdílů, o které částky výdajů (nákladů) vynaložených') Text(16,233.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,237,TA_LEFT|TA_BASELINE,'v účetnictví') Text(9,246,TA_CENTER|TA_BASELINE,'161') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(16,244,TA_LEFT|TA_BASELINE,'Úprava základu daně podle § 23 odst. 8 zákona v případě zrušení poplatníka') Text(16,248,TA_LEFT|TA_BASELINE,'s likvidací') Text(9,257,TA_CENTER|TA_BASELINE,'162') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(9,268,TA_CENTER|TA_BASELINE,'170') Text(16,266,TA_LEFT|TA_BASELINE,'Mezisoučet') Text(16,270,TA_LEFT|TA_BASELINE,'(ř. 100 + 101 + 110 + 111 + 112 + 120 + 130 + 140 + 150 + 160 + 161 + 162)') FONTSIZE(2.5) Text(91,275,TA_CENTER|TA_BASELINE,'2') ;{tisk hodnot 2. stranky} FONTSIZE(4) FontFace(Bold|Italic) ; Text(45,33.5,TA_LEFT|TA_BASELINE,'31.12.'+IniRok) Text(45,33.5,TA_LEFT|TA_BASELINE,Day(DatumDo,2)+'.'+Month(DatumDo,2)+'.'+Year(DatumDo,4)) Text(145,32.5,TA_RIGHT|TA_BASELINE,STR(HV10,13,0)) Text(145,48.5,TA_RIGHT|TA_BASELINE,STR(II20)) Text(145,59.5,TA_RIGHT|TA_BASELINE,STR(II30)) Text(145,70.5,TA_RIGHT|TA_BASELINE,STR(SumaNeNakl)) Text(145,83.5,TA_RIGHT|TA_BASELINE,STR(RozdilOdpisu50)) ; Text(145,103,TA_RIGHT|TA_BASELINE,STR(II60)) Text(145,94.5,TA_RIGHT|TA_BASELINE,STR(II61)) FONTSIZE(3.2) Text(16,105,TA_LEFT|TA_BASELINE,II62text) FONTSIZE(4) Text(145,105.5,TA_RIGHT|TA_BASELINE,STR(II62)) Text(145,116.5,TA_RIGHT|TA_BASELINE,STR(II70)) Text(145,132.5,TA_RIGHT|TA_BASELINE,STR(II100)) Text(145,143.5,TA_RIGHT|TA_BASELINE,STR(II101)) Text(145,156.5,TA_RIGHT|TA_BASELINE,STR(II110)) Text(145,167.5,TA_RIGHT|TA_BASELINE,STR(II111)) Text(145,178.5,TA_RIGHT|TA_BASELINE,STR(II112)) Text(145,189.5,TA_RIGHT|TA_BASELINE,STR(II120)) Text(145,200.5,TA_RIGHT|TA_BASELINE,STR(II130)) Text(145,211.5,TA_RIGHT|TA_BASELINE,STR(II140)) Text(145,222.5,TA_RIGHT|TA_BASELINE,STR(RozdilOdpisu150)) Text(145,233.5,TA_RIGHT|TA_BASELINE,STR(II160)) Text(145,246.5,TA_RIGHT|TA_BASELINE,STR(II161)) FONTSIZE(3.2) Text(16,257,TA_LEFT|TA_BASELINE,II162text) FONTSIZE(4) Text(145,257.5,TA_RIGHT|TA_BASELINE,STR(II162)) Text(145,268.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,262,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,262,27,282) LINEA(133,262,133,282) LINEA(163,262,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ů, ') 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(30,178,TA_LEFT|TA_BASELINE,'Název položky') 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,258,TA_LEFT|TA_BASELINE,'b) Účetní 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,261,TA_LEFT|TA_BASELINE,'příjmů podle § 24 odst. 2 písm. v) zákona') FontSize(3.1) FONTFACE(NORMAL) Text(22,273,TA_CENTER|TA_BASELINE,'10') Text(30,265.5,TA_LEFT|TA_BASELINE,'Účetní odpisy hmotného majetku, který není vymezen pro účely zákona jako hmotný') Text(30,268.5,TA_LEFT|TA_BASELINE,'majetek,a nehmotného majetku vymezeného zvláštními právními předpisy,uplatněné') Text(30,271.5,TA_LEFT|TA_BASELINE,'podle § 24 odst. 2 písm. v) zákona ve znění platném od 1. ledna 2001, jako výdaj') Text(30,274.5,TA_LEFT|TA_BASELINE,'(náklad) na dosažení, zajištění a udržení zdanitelných příjmů. Pro nehmotný majetek') Text(30,277.5,TA_LEFT|TA_BASELINE,'evidovaný v majetku poplatníka do 31. prosince 2000, se použije zákon ve znění') Text(30,280.5,TA_LEFT|TA_BASELINE,'platném do uvedeného data, a to až do doby jeho vyřazení z majetku poplatníka') 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)) IF((SumaDanOdpis<>0)or(Odpis10<>0)) begin 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 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,190,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,190) LINEA(120,130,120,190) LINEA(150,130,150,190) 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,10,5) 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.1) 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,'bankovních opravných položek podle § 5 zákona o rezervách - vyplňují všichni poplatníci') FontSize(3.1) 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 pořizovacích cen 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 7') Text(15,49.5,TA_LEFT|TA_BASELINE,'části první zákona č. 492/2000 Sb., a to podle stavu ke konci zdaňovacího období') Text(8,56,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 7 části první zákona') Text(15,59,TA_LEFT|TA_BASELINE,'č. 492/2000 Sb. (maximálně 20 % ze ř. 1)') Text(8,66,TA_CENTER|TA_BASELINE,'3') Text(15,63,TA_LEFT|TA_BASELINE,'Opravné položky k pohledávkám za dlužníky v konkursním a vyrovnacím řízení') Text(15,66,TA_LEFT|TA_BASELINE,'vytvořené podle § 8 zákona o rezervách v daném období, za které se podává daňové') Text(15,69,TA_LEFT|TA_BASELINE,'přiznání') Text(8,76,TA_CENTER|TA_BASELINE,'4') Text(15,73,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,76,TA_LEFT|TA_BASELINE,'a vyrovnacím řízení (§ 8 zákona o rezervách) ke konci období, za které se podává') Text(15,79,TA_LEFT|TA_BASELINE,'daňové přiznání') Text(8,86,TA_CENTER|TA_BASELINE,'5') Text(15,83,TA_LEFT|TA_BASELINE,'Stav nepromlčených pohledávek splatných po 31. prosinci 1994, k nimž lze tvořit') Text(15,86,TA_LEFT|TA_BASELINE,'zákonné opravné položky (§ 8a zákona o rezervách) ke konci období, za které') Text(15,89,TA_LEFT|TA_BASELINE,'se podává daňové přiznání') 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 období, za které se podává daňové přiznání') Text(8,106,TA_CENTER|TA_BASELINE,'7') Text(15,103,TA_LEFT|TA_BASELINE,'Stav zákonných opravných položek k nepromlčeným pohledávkám splatným') Text(15,106,TA_LEFT|TA_BASELINE,'po 31. prosinci 1994 (§ 8a zákona o rezervách) ke konci období, za které se podává') Text(15,109,TA_LEFT|TA_BASELINE,'daňové přiznání') Text(8,116,TA_CENTER|TA_BASELINE,'8') Text(15,113,TA_LEFT|TA_BASELINE,'Úhrn hodnot pohledávek nebo pořízovacích cen pohledávek nabytých postoupením,') Text(15,116,TA_LEFT|TA_BASELINE,'uplatněných v daném období, za které se podává daňové přiznání, jako výdaj (náklad)') Text(15,119,TA_LEFT|TA_BASELINE,'na dosažení, zajištění a udržení příjmů podle § 24 odst. 2 písm. y) zákona') FONTFACE(NORMAL|BOLD) FontSize(3.1) Text(3,129,TA_LEFT|TA_BASELINE,'b) Bankovní rezervy a opravné položky podle § 5 zákona o rezervách - vyplňují pouze banky') FontSize(3.1) FONTFACE(NORMAL) Text(8,135.5,TA_CENTER|TA_BASELINE,'9') Text(15,134,TA_LEFT|TA_BASELINE,'Průměrný stav rozvahové hodnoty nepromlčených pohledávek z úvěrů podle') Text(15,137,TA_LEFT|TA_BASELINE,'§ 5 odst. 2 písm. a) zákona o rezervách') Text(8,145.5,TA_CENTER|TA_BASELINE,'10') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,144,TA_LEFT|TA_BASELINE,'Opravné položky k nepromlčeným pohledávkám z úvěrů, vytvořené podle') Text(15,147,TA_LEFT|TA_BASELINE,'§ 5 odst. 2 písm. a) zákona o rezervách za dané zdaňovací období') Text(8,155.5,TA_CENTER|TA_BASELINE,'11') Text(15,154,TA_LEFT|TA_BASELINE,'Stav zákonných opravných položek k nepromlčeným pohledávkám z úvěrů') Text(15,157,TA_LEFT|TA_BASELINE,'(§ 5 odst. 2 písm. a) zákona o rezervách) ke konci zdaňovacího období') Text(8,165.5,TA_CENTER|TA_BASELINE,'12') Text(15,164,TA_LEFT|TA_BASELINE,'Průměrný stav poskytnutých bankovních záruk za úvěry podle') Text(15,167,TA_LEFT|TA_BASELINE,'§ 5 odst. 2 písm. b) zákona o rezervách') Text(8,175.5,TA_CENTER|TA_BASELINE,'13') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,174,TA_LEFT|TA_BASELINE,'Rezervy na poskytnuté bankovní záruky za úvěry, vytvořené podle') Text(15,177,TA_LEFT|TA_BASELINE,'§ 5 odst. 2 písm. b) zákona o rezervách za dané zdaňovací období') Text(8,185.5,TA_CENTER|TA_BASELINE,'14') Text(15,184,TA_LEFT|TA_BASELINE,'Stav zákonných rezerv na poskytnuté bankovní záruky za úvěry') Text(15,187,TA_LEFT|TA_BASELINE,'(§ 5 odst. 2 písm. b) zákona o rezervách) ke konci zdaňovacího období') FONTFACE(NORMAL|BOLD) FontSize(3.1) Text(3,201,TA_LEFT|TA_BASELINE,'c) Rezervy v pojišťovnictví - vyplňují pouze pojišťovny') FontSize(3.1) FONTFACE(NORMAL) Text(8,209,TA_CENTER|TA_BASELINE,'15') Text(15,206.5,TA_LEFT|TA_BASELINE,'Rezervy v pojišťovnictví vytvořené podle § 6 zákona o rezervách v daném období,') Text(15,209.5,TA_LEFT|TA_BASELINE,'za které se podává daňové přiznání') Text(8,216.5,TA_CENTER|TA_BASELINE,'16') Text(15,215,TA_LEFT|TA_BASELINE,'Stav rezerv v pojišťovnictví (§ 6 zákona o rezervách) ke konci období, za které') Text(15,218,TA_LEFT|TA_BASELINE,'se podává daňové přiznání') FONTFACE(NORMAL|BOLD) FontSize(3.1) Text(3,229,TA_LEFT|TA_BASELINE,'d) Rezervy na opravy hmotného majetku - vyplňují všichni poplatníci') FontSize(3.1) FONTFACE(NORMAL) Text(8,236,TA_CENTER|TA_BASELINE,'17') 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,'18') 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.1) 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.1) FONTFACE(NORMAL) Text(8,261,TA_CENTER|TA_BASELINE,'19') 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,'období, za které se podává daňové přiznání') Text(8,270,TA_CENTER|TA_BASELINE,'20') Text(15,268.5,TA_LEFT|TA_BASELINE,'Stav rezervy na pěstební činnost (§ 9 zákona o rezervách) ke konci období, za které) Text(15,271.5,TA_LEFT|TA_BASELINE,'se podává daňové přiznání') Text(8,279,TA_CENTER|TA_BASELINE,'21') FontSize(1.8) Text(2,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); 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) IF((OdpisPohl1<>0)or(OdpisPohl2<>0)or(OdpisPohl3<>0)or(OdpisPohl4<>0)or(OdpisPohl5<>0)or(OdpisPohl6<>0)or(OdpisPohl7<>0)or(OdpisPohl8<>0)) begin 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)) end IF((Rezerva18<>0)or(Rezerva19<>0)) begin Text(146,236,TA_RIGHT|TA_BASELINE,STR(Rezerva18,0,0)) Text(146,245,TA_RIGHT|TA_BASELINE,STR(Rezerva19,0,0)) end IF((Rezerva20<>0)or(Rezerva21<>0)or(Rezerva22<>0)) begin 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 end ;{================================================ str. 5 ========================} ;{tisk 5. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(17,15,192,70,3.3,3.3) ROUNDBOXA(17,81,192,165,3.3,3.3) ROUNDBOXA(17,178,192,234,3.3,3.3) ROUNDBOXA(17,241,192,271,3.3,3.3) PEN(0,0.1) LINEA(17,37,192,37) LINEA(44,23,192,23) LINESA(17,42,192,42,0,7,4) LINEA(27,15,27,70) LINEA(44,15,44,63) LINEA(94,23,94,70) LINEA(144,23,144,70) LINEA(17,97.5,192,97.5) LINESA(17,102,192,102,0,7,9) LINEA(27,81,27,165) LINEA(60,81,60,158) LINEA(93,81,93,158) LINEA(126,81,126,165) LINEA(159,81,159,165) LINEA(133,182,192,182) LINESA(17,186,192,186,0,8,4) LINESA(17,219,192,219,0,7,2) LINEA(27,178,27,234) LINEA(133,178,133,234) LINEA(163,182,163,234) LINESA(17,248.5,192,248.5,0,7.5,3) LINEA(27,241,27,271) LINEA(133,241,133,271) LINEA(163,241,163,271) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,10,TA_LEFT|TA_BASELINE,'D. Odečet nevyužitých částí rozdílů, o které úhrn hodnot prodaných cenných papírů převýší úhrn příjmů z jejich') Text(21,13,TA_LEFT|TA_BASELINE,'prodeje, od základu daně ') FONTFACE(NORMAL) Text(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,' (vyplní se v celých Kč)') FontSize(3.2) Text(118,18.5,TA_CENTER|TA_BASELINE,'Nevyužitý rozdíl, o který úhrn hodnot prodaných cenných papírů převýšil úhrn příjmů z jejich prodeje,') Text(118,22,TA_CENTER|TA_BASELINE,'nebo jeho část, který') Text(22,26,TA_CENTER|TA_BASELINE,'Řádek') Text(22,40.5,TA_CENTER|TA_BASELINE,'0') Text(22,46.5,TA_CENTER|TA_BASELINE,'1') Text(22,53.5,TA_CENTER|TA_BASELINE,'2') Text(22,60.5,TA_CENTER|TA_BASELINE,'3') Text(22,67.5,TA_CENTER|TA_BASELINE,'4') Text(35,24,TA_CENTER|TA_BASELINE,'Zdaňovací') Text(35,27.5,TA_CENTER|TA_BASELINE,'období') Text(35,40.5,TA_CENTER|TA_BASELINE,'1') Text(35,47,TA_CENTER|TA_BASELINE,'1999') Text(35,54,TA_CENTER|TA_BASELINE,'2000') Text(35,61,TA_CENTER|TA_BASELINE,'2001') FONTFACE(Normal) Text(29,67.5,TA_LEFT|TA_BASELINE,'Celkem') FontSize(2.8) Text(69,25.2,TA_CENTER|TA_BASELINE,'bylo možné podle § 24 odst. 2 písm. r)') Text(69,28,TA_CENTER|TA_BASELINE,'zákona, ve znění platném do 31. prosince') Text(69,30.8,TA_CENTER|TA_BASELINE,'2001, uplatnit v následujících třech') Text(69,33.6,TA_CENTER|TA_BASELINE,'zdaňovacích obdobích jako výdaj (náklad)') Text(69,36.4,TA_CENTER|TA_BASELINE,'k dosažení, zajištění a udržení příjmů') Text(119,26.1,TA_CENTER|TA_BASELINE,'byl podle čl. V bodu 2 zákona') Text(119,28.9,TA_CENTER|TA_BASELINE,'č. 260/2002 Sb. v daném zdaňovacím') Text(119,31.7,TA_CENTER|TA_BASELINE,'období uplatněn jako odpočet') Text(119,34.5,TA_CENTER|TA_BASELINE,'od základu daně') Text(168,26.1,TA_CENTER|TA_BASELINE,'zbývá podle čl. V bodu 2 zákona') Text(168,28.9,TA_CENTER|TA_BASELINE,'č. 260/2002 Sb. k uplatnění odpočtu') Text(168,31.7,TA_CENTER|TA_BASELINE,'od začátku daně ve třech zdaňovacích') Text(168,34.5,TA_CENTER|TA_BASELINE,'obdobích následujících od jeho vykázání') FontSize(3.2) Text(69,40.5,TA_CENTER|TA_BASELINE,'2') Text(119,40.5,TA_CENTER|TA_BASELINE,'3') Text(168,40.5,TA_CENTER|TA_BASELINE,'4') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,75,TA_LEFT|TA_BASELINE,'E. Odečet daňové ztráty od základu daně podle § 34 odst. 1 zákona') FontSize(1.8) 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,79,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(0,0,TA_LEFT|TA_BASELINE|TA_RELATIVE,' (vyplní se v celých Kč)') FontSize(3.2) Text(22,91,TA_CENTER|TA_BASELINE,'Řádek') Text(22,101,TA_CENTER|TA_BASELINE,'0') Text(22,107,TA_CENTER|TA_BASELINE,'1') Text(22,114,TA_CENTER|TA_BASELINE,'2') Text(22,121,TA_CENTER|TA_BASELINE,'3') Text(22,128,TA_CENTER|TA_BASELINE,'4') Text(22,135,TA_CENTER|TA_BASELINE,'5') Text(22,142,TA_CENTER|TA_BASELINE,'6') Text(22,149,TA_CENTER|TA_BASELINE,'7') Text(22,156,TA_CENTER|TA_BASELINE,'8') Text(22,162.5,TA_CENTER|TA_BASELINE,'9') Text(44,88,TA_CENTER|TA_BASELINE,'Zdaňovací období,') Text(44,91,TA_CENTER|TA_BASELINE,'v němž daňová ztráta') Text(44,94,TA_CENTER|TA_BASELINE,'vznikla') Text(44,101,TA_CENTER|TA_BASELINE,'1') Text(29,162.5,TA_LEFT|TA_BASELINE,'Celkem') Text(77,85,TA_CENTER|TA_BASELINE,'Celková výše daňové') Text(77,88,TA_CENTER|TA_BASELINE,'ztráty vyměřené (vzniklé)') Text(77,91,TA_CENTER|TA_BASELINE,'nebo přiznávané') Text(77,94,TA_CENTER|TA_BASELINE,'za zdaňovací období') Text(77,97,TA_CENTER|TA_BASELINE,'uvedené ve sl. 1') Text(77,101,TA_CENTER|TA_BASELINE,'2') Text(110,86,TA_CENTER|TA_BASELINE,'Část daňové ztráty') Text(110,89,TA_CENTER|TA_BASELINE,'odečtená') Text(110,92,TA_CENTER|TA_BASELINE,'v předcházejících') Text(110,95,TA_CENTER|TA_BASELINE,'zdaň. obdobích') Text(110,101,TA_CENTER|TA_BASELINE,'3') Text(143,86,TA_CENTER|TA_BASELINE,'Část daňové ztráty') Text(143,89,TA_CENTER|TA_BASELINE,'odečtená') Text(143,92,TA_CENTER|TA_BASELINE,'v daném') Text(143,95,TA_CENTER|TA_BASELINE,'zdaň. období') Text(143,101,TA_CENTER|TA_BASELINE,'4') Text(176,86,TA_CENTER|TA_BASELINE,'Část ztráty, kterou') Text(176,89,TA_CENTER|TA_BASELINE,'je možno odečíst') Text(176,92,TA_CENTER|TA_BASELINE,'v následujících') Text(176,95,TA_CENTER|TA_BASELINE,'zdaň. obdobích') Text(176,101,TA_CENTER|TA_BASELINE,'5') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(17,171,TA_LEFT|TA_BASELINE,'F. Odečet podle § 34 odst. 3 písm. a) až f) a následujících odstavců zákona') FontSize(1.8) 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.1) Text(21,176,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,183,TA_CENTER|TA_BASELINE,'Řádek') Text(29,183,TA_LEFT|TA_BASELINE,'Název položky') Text(163,181,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(148,185,TA_CENTER|TA_BASELINE,'poplatník') Text(178,185,TA_CENTER|TA_BASELINE,'finanční úřad') Text(22,191,TA_CENTER|TA_BASELINE,'1') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,189.5,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,192.5,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 10 % vstupní ceny') Text(22,199,TA_CENTER|TA_BASELINE,'2') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,197.5,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,200.5,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 15 % vstupní ceny') Text(22,207,TA_CENTER|TA_BASELINE,'3') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FontSize(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(29,205.5,TA_LEFT|TA_BASELINE,'Úhrn vstupních cen nově pořízeného hmotného majetku, u něhož lze uplatnit') Text(29,208.5,TA_LEFT|TA_BASELINE,'podle § 34 odst. 3 zákona odečet ve výši 20 % vstupní ceny') Text(22,215.5,TA_CENTER|TA_BASELINE,'4') Text(29,213,TA_LEFT|TA_BASELINE,'Částka nároku na odečet podle § 34 odst. 3') Text(29,215.5,TA_LEFT|TA_BASELINE,'písm. a) až e) zákona, vzniklého v daném') Text(29,218,TA_LEFT|TA_BASELINE,'zdaňovacím období') LINEA(95,215.5,131,215.5) Text(113,214.5,TA_CENTER|TA_BASELINE,'(ř.1 x 10)+(ř.2 x 15)+(ř.3 x 20)') Text(113,218.5,TA_CENTER|TA_BASELINE,'100') Text(22,223.5,TA_CENTER|TA_BASELINE,'5') Text(29,223.5,TA_LEFT|TA_BASELINE,'Částka nároku na odečet podle § 34 odst. 3 písm. f) zákona') Text(22,231,TA_CENTER|TA_BASELINE,'6') Text(29,229.5,TA_LEFT|TA_BASELINE,'Celková částka nároku na odečet podle § 34 odst. 3 zákona') Text(29,232.5,TA_LEFT|TA_BASELINE,'vzniklého v daném zdaňovacím období (ř. 4 + 5)') FONTFACE(NORMAL|BOLD) FontSize(3.2) Text(21,239,TA_LEFT|TA_BASELINE,'b) Odečet uplatněný v daném zdaňovacím období') FontSize(3.1) FONTFACE(NORMAL) Text(22,245.5,TA_CENTER|TA_BASELINE,'7') Text(29,245.5,TA_LEFT|TA_BASELINE,'Částka odečtu uplatněná v daném zdaňovacím období z nároku uvedeného na ř. 6') Text(22,253,TA_CENTER|TA_BASELINE,'8') Text(29,251.5,TA_LEFT|TA_BASELINE,'Nevyužitá část nároku uvedeného na ř. 6, jejíž odečet lze uplatnit v dalších') Text(29,254.5,TA_LEFT|TA_BASELINE,'zdaňovacích obdobích (ř. 6 - 7)') Text(22,260.5,TA_CENTER|TA_BASELINE,'9') Text(29,260.5,TA_LEFT|TA_BASELINE,'Částka odečtu z nevyužitého nároku vzniklého v předchozích zdaňovacích obdobích') Text(22,268,TA_CENTER|TA_BASELINE,'10') Text(29,266.5,TA_LEFT|TA_BASELINE,'Celková částka odečtu uplatněného podle § 34 odst. 3 zákona v daném zdaňovacím') Text(29,269.5,TA_LEFT|TA_BASELINE,'období (ř. 7 + 9 = ř. 240 II. oddílu)') FONTSIZE(2.5) Text(91,274,TA_CENTER|TA_BASELINE,'5') ;{tisk hodnot 5. stranky} FONTSIZE(4) FontFace(Bold|Italic) IF((CP43<>0)or(CP44<>0)) ;obchodoval aspon v 1 roce begin FONTSIZE(4) FontFace(Bold|Italic) Text(168,47,TA_CENTER|TA_BASELINE,'X') IF((cp12=0)AND(cp13=0)) ;neobchodoval begin Text(90,47,TA_RIGHT|TA_BASELINE,skrt) Text(140,47,TA_RIGHT|TA_BASELINE,skrt) end else ; obchodoval begin Text(90,47,TA_RIGHT|TA_BASELINE,STR(CP12,0,0)) Text(140,47,TA_RIGHT|TA_BASELINE,STR(CP13,0,0)) ;Text(188,47,TA_RIGHT|TA_BASELINE,STR(CP14,0,0)) end IF((cp22=0)AND(cp23=0)AND(cp24=0)) ;neobchodoval begin Text(90,54,TA_RIGHT|TA_BASELINE,skrt) Text(140,54,TA_RIGHT|TA_BASELINE,skrt) Text(188,54,TA_RIGHT|TA_BASELINE,skrt) end else ; obchodoval begin Text(90,54,TA_RIGHT|TA_BASELINE,STR(CP22,0,0)) Text(140,54,TA_RIGHT|TA_BASELINE,STR(CP23,0,0)) Text(188,54,TA_RIGHT|TA_BASELINE,STR(CP24,0,0)) end IF((cp32=0)AND(cp33=0)AND(cp34=0)) ;neobchodoval begin Text(90,61,TA_RIGHT|TA_BASELINE,skrt) Text(140,61,TA_RIGHT|TA_BASELINE,skrt) Text(188,61,TA_RIGHT|TA_BASELINE,skrt) end else ; obchodoval begin Text(90,61,TA_RIGHT|TA_BASELINE,STR(CP32,0,0)) Text(140,61,TA_RIGHT|TA_BASELINE,STR(CP33,0,0)) Text(188,61,TA_RIGHT|TA_BASELINE,STR(CP34,0,0)) end IF((cp43=0)AND(cp44=0)) ;soucty begin end else begin Text(140,68,TA_RIGHT|TA_BASELINE,STR(CP43,0,0)) Text(188,68,TA_RIGHT|TA_BASELINE,STR(CP44,0,0)) end end else begin ; neobchodoval, mel bych škrtat ?? ; Text(90,47,TA_RIGHT|TA_BASELINE,skrt) ; Text(140,47,TA_RIGHT|TA_BASELINE,skrt) Text(168,47,TA_CENTER|TA_BASELINE,'X') ; Text(90,54,TA_RIGHT|TA_BASELINE,skrt) ; Text(140,54,TA_RIGHT|TA_BASELINE,skrt) ; Text(188,54,TA_RIGHT|TA_BASELINE,skrt) ; Text(90,61,TA_RIGHT|TA_BASELINE,skrt) ; Text(140,61,TA_RIGHT|TA_BASELINE,skrt) ; Text(188,61,TA_RIGHT|TA_BASELINE,skrt) end IF((Length(E11)<>0)or(Length(E21)<>0)or(Length(E31)<>0)or(Length(E41)<>0)or(Length(E51)<>0)or(Length(E61)<>0)or(Length(E71)<>0)or(Length(E81)<>0)) begin IF((Length(E11)>4)or(Length(E21)>4)or(Length(E31)>4)or(Length(E41)>4)or(Length(E51)>4)or(Length(E61)>4)or(Length(E71)>4)or(Length(E81)>4)) begin Vel1:Real=3.2 end else begin Vel1:Real=4 end ; IF(E11<>0) ; begin FONTSIZE(Vel1) Text(55,107,TA_RIGHT|TA_BASELINE,E11) FONTSIZE(4) Text(88,107,TA_RIGHT|TA_BASELINE,STR(E12,0,0)) Text(121,107,TA_RIGHT|TA_BASELINE,STR(E13,0,0)) Text(154,107,TA_RIGHT|TA_BASELINE,STR(E14,0,0)) IF(E15skrt) begin Text(187,107,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,107,TA_RIGHT|TA_BASELINE,STR(E15,0,0)) end ; end ; IF(E21<>0) begin FONTSIZE(Vel1) Text(55,114,TA_RIGHT|TA_BASELINE,E21) FONTSIZE(4) Text(88,114,TA_RIGHT|TA_BASELINE,STR(E22,0,0)) Text(121,114,TA_RIGHT|TA_BASELINE,STR(E23,0,0)) Text(154,114,TA_RIGHT|TA_BASELINE,STR(E24,0,0)) IF(E25skrt) begin Text(187,114,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,114,TA_RIGHT|TA_BASELINE,STR(E25,0,0)) end end ; IF(E31<>0) begin FONTSIZE(Vel1) Text(55,121,TA_RIGHT|TA_BASELINE,E31) FONTSIZE(4) Text(88,121,TA_RIGHT|TA_BASELINE,STR(E32,0,0)) Text(121,121,TA_RIGHT|TA_BASELINE,STR(E33,0,0)) Text(154,121,TA_RIGHT|TA_BASELINE,STR(E34,0,0)) IF(E35skrt) begin Text(187,121,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,121,TA_RIGHT|TA_BASELINE,STR(E35,0,0)) end end ; IF(E41<>0) begin FONTSIZE(Vel1) Text(55,128,TA_RIGHT|TA_BASELINE,E41) FONTSIZE(4) Text(88,128,TA_RIGHT|TA_BASELINE,STR(E42,0,0)) Text(121,128,TA_RIGHT|TA_BASELINE,STR(E43,0,0)) Text(154,128,TA_RIGHT|TA_BASELINE,STR(E44,0,0)) IF(E45skrt) begin Text(187,128,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,128,TA_RIGHT|TA_BASELINE,STR(E45,0,0)) end end ; IF(E51<>0) begin FONTSIZE(Vel1) Text(55,135,TA_RIGHT|TA_BASELINE,E51) FONTSIZE(4) Text(88,135,TA_RIGHT|TA_BASELINE,STR(E52,0,0)) Text(121,135,TA_RIGHT|TA_BASELINE,STR(E53,0,0)) Text(154,135,TA_RIGHT|TA_BASELINE,STR(E54,0,0)) IF(E55skrt) begin Text(187,135,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,135,TA_RIGHT|TA_BASELINE,STR(E55,0,0)) end end ; IF(E61<>0) begin FONTSIZE(Vel1) Text(55,142,TA_RIGHT|TA_BASELINE,E61) FONTSIZE(4) Text(88,142,TA_RIGHT|TA_BASELINE,STR(E62,0,0)) Text(121,142,TA_RIGHT|TA_BASELINE,STR(E63,0,0)) Text(154,142,TA_RIGHT|TA_BASELINE,STR(E64,0,0)) IF(E65skrt) begin Text(187,142,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,142,TA_RIGHT|TA_BASELINE,STR(E65,0,0)) end end ; IF(E71<>0) begin FONTSIZE(Vel1) Text(55,149,TA_RIGHT|TA_BASELINE,E71) FONTSIZE(4) Text(88,149,TA_RIGHT|TA_BASELINE,STR(E72,0,0)) Text(121,149,TA_RIGHT|TA_BASELINE,STR(E73,0,0)) Text(154,149,TA_RIGHT|TA_BASELINE,STR(E74,0,0)) IF(E75skrt) begin Text(187,149,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,149,TA_RIGHT|TA_BASELINE,STR(E75,0,0)) end end ; IF(E81<>0) begin FONTSIZE(Vel1) Text(55,156,TA_RIGHT|TA_BASELINE,E81) FONTSIZE(4) Text(88,156,TA_RIGHT|TA_BASELINE,STR(E82,0,0)) Text(121,156,TA_RIGHT|TA_BASELINE,STR(E83,0,0)) Text(154,156,TA_RIGHT|TA_BASELINE,STR(E84,0,0)) IF(E85skrt) begin Text(187,156,TA_RIGHT|TA_BASELINE,skrt) end else begin Text(187,156,TA_RIGHT|TA_BASELINE,STR(E85,0,0)) end end Text(154,163,TA_RIGHT|TA_BASELINE,STR(E94,0,0)) Text(187,163,TA_RIGHT|TA_BASELINE,STR(E95,0,0)) end IF((FA1<>0)or(FA2<>0)or(FA3<>0)or(FA4<>0)or(FB7<>0)or(FB8<>0)or(FB9<>0)or(FB10<>0)) begin Text(158,191.5,TA_RIGHT|TA_BASELINE,STR(FA1,0,0)) Text(158,199.5,TA_RIGHT|TA_BASELINE,STR(FA2,0,0)) Text(158,207.5,TA_RIGHT|TA_BASELINE,STR(FA3,0,0)) Text(158,216,TA_RIGHT|TA_BASELINE,STR(FA4,0,0)) Text(158,224,TA_RIGHT|TA_BASELINE,STR(FA5,0,0)) Text(158,231.5,TA_RIGHT|TA_BASELINE,STR(FA6,0,0)) Text(158,246,TA_RIGHT|TA_BASELINE,STR(FB7,0,0)) Text(158,253.5,TA_RIGHT|TA_BASELINE,STR(FB8,0,0)) Text(158,261,TA_RIGHT|TA_BASELINE,STR(FB9,0,0)) Text(158,268.5,TA_RIGHT|TA_BASELINE,STR(FB10,0,0)) end end ;{================================================ str. 6 ========================} ;{tisk 6. strany:} begin NextPage PEN(0,0.3) ROUNDBOXA(3,11,178,31,3.3,3.3) ROUNDBOXA(3,38,178,80,3.3,3.3) ROUNDBOXA(3,85,178,149,3.3,3.3) ROUNDBOXA(3,155,178,245,3.3,3.3) ROUNDBOXA(3,251,178,272,3.3,3.3) PEN(0,0.1) LINEA(118,15,178,15) LINEA(13,11,13,31) LINEA(118,11,118,31) LINEA(148,15,148,31) LINESA(3,19,178,19,0,6,2) LINEA(118,42,178,42) LINEA(13,38,13,80) LINEA(118,38,118,80) LINEA(148,42,148,80) LINESA(3,46.5,178,46.5,0,5.5,6) LINEA(118,89,178,89) LINEA(13,85,13,149) LINEA(118,85,118,149) LINEA(148,89,148,149) LINESA(3,93,178,93,0,8,7) ; LINEA(3,122.5,178,122.5) ; LINESA(3,131,178,131,0,8,3) LINEA(13,155,13,245) LINEA(88,155,88,245) LINEA(118,155,118,245) LINEA(148,155,148,245) LINEA(3,166,178,166) LINESA(3,170,178,170,0,7.5,10) LINEA(118,254.5,178,254.5) LINEA(13,251,13,272) LINEA(96,251,96,272) LINEA(118,251,118,272) LINEA(148,254.5,148,272) LINESA(3,258,178,258,0,7,2) FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,6.8,TA_LEFT|TA_BASELINE,'G. Celková hodnota poskytnutých darů, z níž lze na ř. 260 uplatnit odečet podle § 20 odst. 8 zákona') Text(3,10.1,TA_LEFT|TA_BASELINE,'a čl. II bodu 3 zákona č. 575/2002 Sb.') FontSize(1.8) 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') FONTSIZE(3) Text(8,23,TA_CENTER|TA_BASELINE,'1') Text(15,21.7,TA_LEFT|TA_BASELINE,'Celková hodnota darů poskytnutých na účely vymezené v § 20 odst. 8 zákona') Text(15,24.1,TA_LEFT|TA_BASELINE,'pro odečet ze základu daně sníženého podle § 34 zákona (ř. 250 II. oddílu)') Text(8,29,TA_CENTER|TA_BASELINE,'2') Text(15,27.7,TA_LEFT|TA_BASELINE,'Ze ř. 1 hodnota darů poskytnutých na financování odstraňování následků povodní a záplav,') Text(15,30.1,TA_LEFT|TA_BASELINE,'ke kterým došlo v roce 2002 na území České republiky (čl. II bodu 3 zákona č. 575/2002 Sb.)') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,36,TA_LEFT|TA_BASELINE,'H. Rozčlenění celkového nároku na slevy na dani § 35a nebo § 35b a § 35 zákona, který lze uplatnit na ř. 300') FontSize(1.8) 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,43,TA_CENTER|TA_BASELINE,'Řádek') Text(15,43,TA_LEFT|TA_BASELINE,'Název položky') Text(148,41,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(133,45,TA_CENTER|TA_BASELINE,'poplatník') Text(163,45,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,50.5,TA_CENTER|TA_BASELINE,'1') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,50.5,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35a') FontSize(1.8) Text(0,-2.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.2,TA_Left|TA_Relative,') nebo § 35b'); FontSize(1.8) Text(0,0.2,TA_Left|TA_Relative,'1'); FONTSIZE(3.2) Text(0,-0.3,TA_Left|TA_Relative,') zákona'); Text(8,56,TA_CENTER|TA_BASELINE,'2') Text(15,56,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 1 písm. a) zákona') Text(8,61.5,TA_CENTER|TA_BASELINE,'3') Text(15,61.5,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 1 písm. b) zákona') Text(8,67,TA_CENTER|TA_BASELINE,'4') Text(15,67,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 1 písm. c) zákona') FONTSIZE(2.5) LINEA(89,65.75,107,65.75) Text(113-15,65.25,TA_CENTER|TA_BASELINE,'ř.290 II. oddílu x 50') Text(113-15,68,TA_CENTER|TA_BASELINE,'100') FONTSIZE(3.2) Text(8,72.5,TA_CENTER|TA_BASELINE,'5') Text(15,72.5,TA_LEFT|TA_BASELINE,'Sleva na dani podle § 35 odst. 3 zákona') Text(8,78,TA_CENTER|TA_BASELINE,'6') Text(15,78,TA_LEFT|TA_BASELINE,'Celkem') FONTSIZE(3.4) FONTFACE(NORMAL|BOLD) Text(3,83.5,TA_LEFT|TA_BASELINE,'I. Zápočet daně zaplacené v zahraničí') FontSize(1.8) 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,90,TA_CENTER|TA_BASELINE,'Řádek') Text(15,90,TA_LEFT|TA_BASELINE,'Název položky') Text(148,88,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(133,92,TA_CENTER|TA_BASELINE,'poplatník') Text(163,92,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,98,TA_CENTER|TA_BASELINE,'1') Text(15,98,TA_LEFT|TA_BASELINE,'Základ daně uvedený na ř. 220 II. oddílu') Text(8,106,TA_CENTER|TA_BASELINE,'2') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,104.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů (základů daně a daňových ztrát) zdaněných v zahraničí,') Text(15,107.5,TA_LEFT|TA_BASELINE,'u nichž je uplatňován zápočet, zaokrouhlený na celé Kč dolů') Text(8,114,TA_CENTER|TA_BASELINE,'3') Text(15,112.5,TA_LEFT|TA_BASELINE,'Poměr příjmů ze řádku 2 k základu daně ze řádku 1 v %,') Text(15,115.5,TA_LEFT|TA_BASELINE,'zaokrouhlený na 2 desetinná místa') FONTSIZE(2.5) LINEA(101,113.5,111,113.5) Text(106,113,TA_CENTER|TA_BASELINE,'ř. 2 x 100') Text(106,115.5,TA_CENTER|TA_BASELINE,'ř. 1') FONTSIZE(3.2) Text(8,122,TA_CENTER|TA_BASELINE,'4') Text(15,120.5,TA_LEFT|TA_BASELINE,'Maximální výše daně zaplacené v zahraničí,') Text(15,123.5,TA_LEFT|TA_BASELINE,' kterou lze započíst, zaokrouhlená na celé Kč nahoru') FONTSIZE(2.5) LINEA(96,121.5,116,121.5) Text(106,121,TA_CENTER|TA_BASELINE,'(ř.290 II.oddílu x ř.3)') Text(106,123.5,TA_CENTER|TA_BASELINE,'100') FONTSIZE(3.2) Text(8,130,TA_CENTER|TA_BASELINE,'5') FontSize(1.8) Text(1,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(15,128.5,TA_LEFT|TA_BASELINE,'Úhrn daně zaplacené v zahraničí uplatňované k zápočtu, vztahující') Text(15,131.5,TA_LEFT|TA_BASELINE,'se k příjmům uvedeným na ř. 2 (zaokrouhlený na celé Kč nahoru)') Text(8,138,TA_CENTER|TA_BASELINE,'6') Text(15,136.5,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,139.5,TA_LEFT|TA_BASELINE,'(uvede se nižší z částek na řádcích 4 a 5)') Text(8,146,TA_CENTER|TA_BASELINE,'7') Text(15,144.5,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') Text(15,147.5,TA_LEFT|TA_BASELINE,'ř. 5 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,153.5,TA_LEFT|TA_BASELINE,'J. Rozdělení některých položek v případě komanditní společnosti') FontSize(1.8) 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,153.5,TA_RIGHT|TA_BASELINE,'(vyplní se v celých Kč)') FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,161.5,TA_CENTER|TA_BASELINE,'Řádek') Text(50,158.5,TA_CENTER|TA_BASELINE,'Název položky a číslo řádku II. oddílu, případně číslo') Text(50,161.5,TA_CENTER|TA_BASELINE,'řádku vyznačené tabulky přílohy č. 1 II. oddílu,') Text(50,164.5,TA_CENTER|TA_BASELINE,'s nímž souvisí částka ze sloupce 2 nebo 3 této tabulky') Text(102,160,TA_CENTER|TA_BASELINE,'Částka připadající') Text(102,163,TA_CENTER|TA_BASELINE,'na komplementáře') Text(132,160,TA_CENTER|TA_BASELINE,'Částka připadající') Text(132,163,TA_CENTER|TA_BASELINE,'na komanditisty') Text(162,158.5,TA_CENTER|TA_BASELINE,'Částka za komanditní') Text(162,161.5,TA_CENTER|TA_BASELINE,'společnost jako celek') Text(162,164.5,TA_CENTER|TA_BASELINE,'(sl. 2 + 3)') FONTSIZE(3) Text(8,169,TA_CENTER|TA_BASELINE,'0') Text(50,169,TA_CENTER|TA_BASELINE,'1') Text(102,169,TA_CENTER|TA_BASELINE,'2') Text(132,169,TA_CENTER|TA_BASELINE,'3') Text(162,169,TA_CENTER|TA_BASELINE,'4') FONTSIZE(3.2) Text(8,175,TA_CENTER|TA_BASELINE,'1') Text(15,175,TA_LEFT|TA_BASELINE,'Základ daně nebo daňová ztráta ze ř. 200 (ř. 201)') Text(8,182.5,TA_CENTER|TA_BASELINE,'2') Text(15,181,TA_LEFT|TA_BASELINE,'Úhrn vyňatých příjmů (základů daně a daňových ztrát)') Text(15,184,TA_LEFT|TA_BASELINE,'podléhajících zdanění v zahraničí (ř. 210)') Text(8,190,TA_CENTER|TA_BASELINE,'3') Text(15,190,TA_LEFT|TA_BASELINE,'Odečet podle § 34 odst. 3 zákona (ř. 6 tabulky F)') Text(8,197.5,TA_CENTER|TA_BASELINE,'4') Text(15,196,TA_LEFT|TA_BASELINE,'Celková hodnota darů poskytnutých na účely vymezené') Text(15,199,TA_LEFT|TA_BASELINE,'v § 20 odst. 8 zákona (ř. 1 tabulky G)') Text(8,205,TA_CENTER|TA_BASELINE,'5') Text(15,203.5,TA_LEFT|TA_BASELINE,'Celkový nárok na slevy na dani podle § 35a nebo § 35b') Text(15,206.5,TA_LEFT|TA_BASELINE,'a § 35 zákona (ř. 6 tabulky H)') Text(8,212.5,TA_CENTER|TA_BASELINE,'6') Text(15,211,TA_LEFT|TA_BASELINE,'Z celkové částky slev uvedené na ř. 5') Text(15,214,TA_LEFT|TA_BASELINE,'sleva podle § 35 odst. 3 zákona') Text(8,220,TA_CENTER|TA_BASELINE,'7') Text(15,218.5,TA_LEFT|TA_BASELINE,'Úhrn příjmů (základů daně) zdaněných v zahraničí,') Text(15,221.5,TA_LEFT|TA_BASELINE,'u nichž lze uplatnit zápočet (ř. 2 tabulky I)') Text(8,227.5,TA_CENTER|TA_BASELINE,'8') Text(15,226,TA_LEFT|TA_BASELINE,'Úhrn zahraniční daně, který lze uplatnit k zápočtu') Text(15,229,TA_LEFT|TA_BASELINE,'v souladu s mezinárodní smlouvou (ř. 5 tabulky I)') Text(8,235,TA_CENTER|TA_BASELINE,'9') Text(15,233.5,TA_LEFT|TA_BASELINE,'Ze ř. 4 hodnota darů poskytnutých na financování') Text(15,236.5,TA_LEFT|TA_BASELINE,'odstraňování následků povodní a záplav (ř. 2 tabulky G)') Text(8,242.5,TA_CENTER|TA_BASELINE,'10') Text(15,242.5,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,249.5,TA_LEFT|TA_BASELINE,'K. Vybrané ukazatele hospodaření') FONTFACE(NORMAL) FONTSIZE(3.2) FONTFACE(NORMAL) Text(8,255.5,TA_CENTER|TA_BASELINE,'Řádek') Text(15,255.5,TA_LEFT|TA_BASELINE,'Název položky') Text(107,254,TA_CENTER|TA_BASELINE,'Měrná') Text(107,257,TA_CENTER|TA_BASELINE,'jednotka') Text(148,254,TA_CENTER|TA_BASELINE,'Vyplní') Text(133,257,TA_CENTER|TA_BASELINE,'poplatník') Text(163,257,TA_CENTER|TA_BASELINE,'finanční úřad') Text(8,262.5,TA_CENTER|TA_BASELINE,'1') Text(15,262.5,TA_LEFT|TA_BASELINE,'Čistý obrat nebo úhrn všech dosažených příjmů') Text(107,262.5,TA_CENTER|TA_BASELINE,'Kč') Text(8,269.5,TA_CENTER|TA_BASELINE,'2') Text(15,269.5,TA_LEFT|TA_BASELINE,'Průměrný přepočtený počet zaměstnanců') Text(107,269.5,TA_CENTER|TA_BASELINE,'osoby') FONTSIZE(2.5) Text(91,275,TA_CENTER|TA_BASELINE,'6') ;{tisk hodnot 6. stranky} FONTSIZE(4) FontFace(Bold|Italic) IF(Dar5<>0) begin Text(142,23.5,TA_RIGHT|TA_BASELINE,STR(Dar5,0,0)) end ; FONTSIZE(3.2) ; FontFace(Normal) ; Text(15,28.5,TA_LEFT|TA_BASELINE,Dar2Text) FONTSIZE(4) FontFace(Bold|Italic) IF(Dar2<>0) begin Text(142,28.5,TA_RIGHT|TA_BASELINE,STR(Dar2,0,0)) end IF((H1<>0)or(H2<>0)or(H3<>0)or(H4<>0)or(H5<>0)) begin Text(142,51,TA_RIGHT|TA_BASELINE,STR(H1,0,0)) Text(142,56.5,TA_RIGHT|TA_BASELINE,STR(H2,0,0)) Text(142,62,TA_RIGHT|TA_BASELINE,STR(H3,0,0)) Text(142,67.5,TA_RIGHT|TA_BASELINE,STR(H4,0,0)) Text(142,73,TA_RIGHT|TA_BASELINE,STR(H5,0,0)) Text(142,78.5,TA_RIGHT|TA_BASELINE,STR(H1+H2+H3+H4+H5,0,0)) end IF(ZapocetZahr) begin Text(142,98.5,TA_RIGHT|TA_BASELINE,STR(Zahr1,0,0)) Text(142,106.5,TA_RIGHT|TA_BASELINE,STR(Zahr2,0,0)) IF(Zahr2<0) begin Text(142,114.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,122.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,130.5,TA_RIGHT|TA_BASELINE,STR(Zahr5,0,0)) Text(142,138.5,TA_RIGHT|TA_BASELINE,skrt) Text(142,146.5,TA_RIGHT|TA_BASELINE,STR(Zahr7,0,0)) end else begin Text(142,114.5,TA_RIGHT|TA_BASELINE,STR(Zahr3,5,2)) Text(142,122.5,TA_RIGHT|TA_BASELINE,STR(Zahr4,0,0)) Text(142,130.5,TA_RIGHT|TA_BASELINE,STR(Zahr5,0,0)) Text(142,138.5,TA_RIGHT|TA_BASELINE,STR(Zahr6,0,0)) Text(142,146.5,TA_RIGHT|TA_BASELINE,STR(Zahr7,0,0)) end end ; else ; begin ; Text(142,103,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,111,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,119,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,128,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,136,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,143.5,TA_RIGHT|TA_BASELINE,skrt) ; Text(142,151.5,TA_RIGHT|TA_BASELINE,skrt) ; end temp:real=0 temp=Komand11+Komand12+Komand21+Komand22+Komand31+Komand32+Komand41+Komand42+Komand51+Komand52+Komand62+Komand71+Komand72+Komand81+Komand82+Komand91+Komand92+Komand101+Komand102 IF(temp<>0) begin Text(111,175.5,TA_RIGHT|TA_BASELINE,STR(Komand11,0,0)) Text(142,175.5,TA_RIGHT|TA_BASELINE,STR(Komand12,0,0)) Text(172,175.5,TA_RIGHT|TA_BASELINE,STR(Komand11+Komand12,0,0)) Text(111,183,TA_RIGHT|TA_BASELINE,STR(Komand21,0,0)) Text(142,183,TA_RIGHT|TA_BASELINE,STR(Komand22,0,0)) Text(172,183,TA_RIGHT|TA_BASELINE,STR(Komand21+Komand22,0,0)) Text(111,190.5,TA_RIGHT|TA_BASELINE,STR(Komand31,0,0)) Text(142,190.5,TA_RIGHT|TA_BASELINE,STR(Komand32,0,0)) Text(172,190.5,TA_RIGHT|TA_BASELINE,STR(Komand31+Komand32,0,0)) Text(111,198,TA_RIGHT|TA_BASELINE,STR(Komand41,0,0)) Text(142,198,TA_RIGHT|TA_BASELINE,STR(Komand42,0,0)) Text(172,198,TA_RIGHT|TA_BASELINE,STR(Komand41+Komand42,0,0)) Text(111,205.5,TA_RIGHT|TA_BASELINE,STR(Komand51,0,0)) Text(142,205.5,TA_RIGHT|TA_BASELINE,STR(Komand52,0,0)) Text(172,205.5,TA_RIGHT|TA_BASELINE,STR(Komand51+Komand52,0,0)) ; Text(111,213,TA_RIGHT|TA_BASELINE,STR(Komand61,0,0)) Text(142,213,TA_RIGHT|TA_BASELINE,STR(Komand62,0,0)) Text(172,213,TA_RIGHT|TA_BASELINE,STR(Komand62,0,0)) Text(111,220.5,TA_RIGHT|TA_BASELINE,STR(Komand71,0,0)) Text(142,220.5,TA_RIGHT|TA_BASELINE,STR(Komand72,0,0)) Text(172,220.5,TA_RIGHT|TA_BASELINE,STR(Komand71+Komand72,0,0)) Text(111,228,TA_RIGHT|TA_BASELINE,STR(Komand81,0,0)) Text(142,228,TA_RIGHT|TA_BASELINE,STR(Komand82,0,0)) Text(172,228,TA_RIGHT|TA_BASELINE,STR(Komand81+Komand82,0,0)) ; FONTSIZE(3.2) ; FONTFACE(NORMAL) ; Text(15,235,TA_LEFT|TA_BASELINE,Komand9Text) ; FONTSIZE(4) ; FontFace(Bold|Italic) Text(111,235.5,TA_RIGHT|TA_BASELINE,STR(Komand91,0,0)) Text(142,235.5,TA_RIGHT|TA_BASELINE,STR(Komand92,0,0)) Text(172,235.5,TA_RIGHT|TA_BASELINE,STR(Komand91+Komand92,0,0)) Text(111,243,TA_RIGHT|TA_BASELINE,STR(Komand101,0,0)) Text(142,243,TA_RIGHT|TA_BASELINE,STR(Komand102,0,0)) Text(172,243,TA_RIGHT|TA_BASELINE,STR(Komand101+Komand102,0,0)) end ; IF(SoucetK1<>0) ; Text(142,263,TA_RIGHT|TA_BASELINE,STR(SoucetK1,0,0)) Text(142,263,TA_RIGHT|TA_BASELINE,Str(K1,0,0,True)) Text(142,270,TA_RIGHT|TA_BASELINE,StrNative(K2,5,,True)) 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,197,194,239,3.3,3.3) PEN(0,0.1) LINEA(30,197,30,239) LINEA(135,197,135,239) LINEA(165,197,165,239) LINESA(19,205.4,194,205.4,0,8.4,4) PEN(0,0.3) ROUNDBOXA(19,242,194,250,3.3,3.3) PEN(0,0.1) LINEA(30,242,30,250) LINEA(135,242,135,250) LINEA(165,242,165,250) PEN(0,0.3) ROUNDBOXA(19,253,194,280,3.3,3.3) PEN(0,0.1) LINEA(30,253,30,280) LINEA(135,253,135,280) LINEA(165,253,165,280) LINESA(19,262,194,262,0,9,2) 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.8) 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.8) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,'),'); FontSize(1.8) 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.8) 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.8) Text(0,-2.2,TA_Left|TA_Relative,'3'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,'),'); FontSize(1.8) 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.8) 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.8) 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ž f) a následujících odstavců zákona') FontSize(1.8) 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') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); 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.8) 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') FONTSIZE(3) Text(32,108,TA_LEFT|TA_BASELINE,'Odečet daru podle § 20 odst. 8 zákona a čl. II bodu 3 zákona č. 575/2002 Sb. (nejvýše ') Text(32,110.5,TA_LEFT|TA_BASELINE,'5 % a v úhrnu s dary poskytnutými na financování odstraňování následků povodní a záplav,') Text(32,113,TA_LEFT|TA_BASELINE,'ke kterým došlo v roce 2002 na území České republiky, nejvýše 10 % z částky na ř. 250)') ; Text(32,110,TA_LEFT|TA_BASELINE,'Hodnota darů podle §20 odst. 8 zákona (nejvýše 5% z částky na ř. 250).') FontSize(1.8) 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ě ze ř. 250, dále snížený o položky uvedené na ř. 251 a 260,') Text(32,121,TA_LEFT|TA_BASELINE,'zaokrouhlený na celé tisícikoruny dolů') FontSize(1.8) 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,132,TA_LEFT|TA_BASELINE,'Sazba daně (v %) podle § 21 odst. 1 nebo 2 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,151.3,TA_LEFT|TA_BASELINE,'Slevy na dani podle § 35a nebo § 35b a § 35 zákona (nejvýše do částky') Text(32,154.2,TA_LEFT|TA_BASELINE,'na ř. 290)') FontSize(1.8) 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.8) 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.8) 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,192,TA_LEFT|TA_BASELINE,'Daň po zápočtu na ř. 320 (ř. 310 - 320), zaokrouhlená na celé Kč nahoru') FontSize(1.8) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,203,TA_CENTER|TA_BASELINE,'331') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,201.5,TA_LEFT|TA_BASELINE,'Samostatný základ daně podle § 20b zákona, zaokrouhlený na celé tisícikoruny') Text(32,204,TA_LEFT|TA_BASELINE,'dolů') FontSize(1.8) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,211.4,TA_CENTER|TA_BASELINE,'332') Text(32,211.4,TA_LEFT|TA_BASELINE,'Sazba daně (v%) podle § 21 odst. 3 zákona') Text(24.5,219.8,TA_CENTER|TA_BASELINE,'333') Text(90,218.3,TA_LEFT|TA_BASELINE,'ř. 331 x ř. 332') LINEA(87,218.7,108,218.7) Text(96,221.4,TA_LEFT|TA_BASELINE,'100') Text(32,217.3,TA_LEFT|TA_BASELINE,'Daň ze samostatného základu daně') Text(32,220.3,TA_LEFT|TA_BASELINE,'zaokrouhlená na celé Kč nahoru') Text(24.5,228.2,TA_CENTER|TA_BASELINE,'334') FontSize(1.8) Text(2.5,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(32,226.2,TA_LEFT|TA_BASELINE,'Zápočet daně zaplacené v zahraničí na daň ze samostatného základu daně') Text(32,228.7,TA_LEFT|TA_BASELINE,'(nejvýše do částky uvedené na ř. 333)') Text(24.5,236.6,TA_CENTER|TA_BASELINE,'335') Text(32,234.6,TA_LEFT|TA_BASELINE,'Daň ze samostatného základu daně po zápočtu (ř. 333 - 334),') Text(32,237.1,TA_LEFT|TA_BASELINE,'zaokrouhlená na celé Kč nahoru') Text(24.5,247,TA_CENTER|TA_BASELINE,'340') Text(32,247,TA_LEFT|TA_BASELINE,'Celková daňová povinnost (ř. 330 + 335)') FONTSIZE(3.1) Text(24.5,258.5,TA_CENTER|TA_BASELINE,'350') Text(32,256,TA_LEFT|TA_BASELINE,'Daň sražená z příjmů podle § 36 odst. 6 zákona, splňující podmínky pro zápočet') Text(32,258.5,TA_LEFT|TA_BASELINE,'na celkovou daňovou povinnost, sníženou o daň připadající na samostatný základ') Text(32,261,TA_LEFT|TA_BASELINE,'daně podle § 20b zákona') FontSize(1.8) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.1) Text(0,-0.4,TA_Left|TA_Relative,')'); Text(24.5,267.5,TA_CENTER|TA_BASELINE,'351') Text(32,265,TA_LEFT|TA_BASELINE,'Započtená částka sražené daně ze ř. 350, nezahrnovaná do poslední známé daňové') Text(32,267.5,TA_LEFT|TA_BASELINE,'povinnosti, z níž se podle § 38a odst. 1 zákona vychází při stanovení výše') Text(32,270,TA_LEFT|TA_BASELINE,'a periodicity záloh, nejvýše do částky uvedené na ř. 330') Text(24.5,276.5,TA_CENTER|TA_BASELINE,'360') Text(32,275,TA_LEFT|TA_BASELINE,'Poslední známá daňová povinnost pro účely stanovení výše a periodicity záloh') Text(32,278.5,TA_LEFT|TA_BASELINE,'podle § 38a zákona (ř. 340 - ř. 351)') FONTSIZE(2.5) Text(107,283,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(FB10,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,203.5,TA_RIGHT|TA_BASELINE,STR(II331,0,0)) Text(160,211.9,TA_RIGHT|TA_BASELINE,STR(SazbaDPPO2,0,0)) Text(160,220.3,TA_RIGHT|TA_BASELINE,STR(II333,0,0)) Text(160,228.7,TA_RIGHT|TA_BASELINE,STR(II334,0,0)) Text(160,237.1,TA_RIGHT|TA_BASELINE,STR(II335,0,0)) Text(160,247.5,TA_RIGHT|TA_BASELINE,STR(II340,0,0)) Text(160,259,TA_RIGHT|TA_BASELINE,STR(II350,0,0)) Text(160,268,TA_RIGHT|TA_BASELINE,STR(II351,0,0)) Text(160,277,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,144,3.3,3.3) PEN(0,0.1) LINEA(14,107,14,144) LINEA(120,107,120,144) LINEA(150,112,150,144) LINEA(120,112,179,112) LINESA(4,116,179,116,0,6.5,3) LINEA(4,137,179,137) PEN(0,0.3) LINEA(4,147,179,147) 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,169,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(16,16,TA_LEFT|TA_BASELINE,'Název položky') 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(16,55,TA_LEFT|TA_BASELINE,'Název položky') 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(16,113,TA_LEFT|TA_BASELINE,'Název položky') Text(151,110.5,TA_CENTER|TA_BASELINE,'Vyplní v celých Kč') Text(135,115,TA_CENTER|TA_BASELINE,'poplatník') Text(165,115,TA_CENTER|TA_BASELINE,'finanční úřad') Text(9,120.5,TA_CENTER|TA_BASELINE,'1') Text(16,120.5,TA_LEFT|TA_BASELINE,'Na zálohách (§ 38a zákona) zaplaceno') Text(9,127,TA_CENTER|TA_BASELINE,'2') FontSize(1.8) Text(0.8,-2.2,TA_Left|TA_Relative,'8'); FONTSIZE(3.2) Text(0,-0.4,TA_Left|TA_Relative,')') Text(16,127,TA_LEFT|TA_BASELINE,'Na zajištění daně sraženo plátcem (§ 38e zákona)') Text(9,133.9,TA_CENTER|TA_BASELINE,'3') FONTSIZE(3.1) Text(16,131.5,TA_LEFT|TA_BASELINE,'Daň sražená z příjmů podle § 36 odst. 6 zákona, splňující podmínky pro zápočet') Text(16,133.9,TA_LEFT|TA_BASELINE,'na celkovou daňovou povinnost, sníženou o daň připadající na samostatný základ') Text(16,136.3,TA_LEFT|TA_BASELINE,'daně podle § 20b zákona') FontSize(1.8) Text(0.5,-2.2,TA_Left|TA_Relative,'5'); FONTSIZE(3.1) Text(0.5,-0.4,TA_Left|TA_Relative,') (ř. 350 II. oddílu)') FONTSIZE(3.2) Text(9,141.5,TA_CENTER|TA_BASELINE,'4') Text(16,139.9,TA_LEFT|TA_BASELINE,'Nedoplatek (-) (ř. 1 + ř. 2 + ř. 3 - ř. 340 II. oddílu, resp. ř. 2 III. oddílu) < 0') Text(16,143.1,TA_LEFT|TA_BASELINE,'Přeplatek (+) (ř. 1 + ř. 2 + ř. 3 - ř. 340 II. oddílu, resp. ř. 2 III. oddílu) > 0') 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') FONTSIZE(2) Text(171,202,TA_RIGHT|TA_BASELINE,'1') FONTSIZE(3.2) Text(173,203,TA_RIGHT|TA_BASELINE,') ') ; Text(173,205,TA_RIGHT|TA_BASELINE,'.') 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.8) 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.8) 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.8) 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.8) Text(3,253,TA_Left|TA_Baseline,'1'); FontSize(2.8) Text(4,253.5,TA_LEFT|TA_BASELINE,') Nehodící se škrtněte') FontSize(1.8) Text(3,256,TA_Left|TA_Baseline,'2'); FontSize(2.8) Text(4,256.5,TA_LEFT|TA_BASELINE,') Vyplní finanční úřad') FontSize(1.8) Text(3,259,TA_Left|TA_Baseline,'3'); FontSize(2.8) 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.8) Text(3,262,TA_Left|TA_Baseline,'4'); FontSize(2.8) Text(4,262.5,TA_LEFT|TA_BASELINE,') Vyplní pouze poplatník, který je komanditní společností') FontSize(1.8) Text(3,265,TA_Left|TA_Baseline,'5'); FontSize(2.8) 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.8) Text(3,268,TA_Left|TA_Baseline,'6'); FontSize(2.8) 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.8) Text(3,271,TA_Left|TA_Baseline,'7'); FontSize(2.8) Text(4,271.5,TA_LEFT|TA_BASELINE,') Účetní závěrka nebo přehled o majetku a závazcích a přehled o příjmech a výdajích, jako příloha vyznačená pod položkou 11 v I. oddílu, je součástí') Text(7,274,TA_LEFT|TA_BASELINE,'daňového přiznání (§ 40 odst. 2 zákona č. 337/1992 Sb., o správě daní a poplatků, ve znění pozdějších předpisů). Za podílové fondy předkládá účetní') Text(7,276.5,TA_LEFT|TA_BASELINE,'závěrku investiční společnost, která obhospodařuje jejich majetek.') FontSize(1.8) Text(3,279,TA_Left|TA_Baseline,'8'); FontSize(2.8) 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,120.5,TA_RIGHT|TA_BASELINE,STR(V1,0,0)) Text(145,127,TA_RIGHT|TA_BASELINE,STR(V2,0,0)) Text(145,133.9,TA_RIGHT|TA_BASELINE,STR(V3,0,0)) Text(145,141.5,TA_RIGHT|TA_BASELINE,STR(V4,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. 9 ========================} ;{tisk 9. strany - kalendář:} LocWord1=Month(DatumDo) LocShInt1=Month(DatumLhuta) IF(LocShInt1<=LocWord1) LocShInt1=LocShInt1+12 PosunPrizn=LocShInt1-LocWord1 ;priznání se podává o tolik pozdeji (3,6,9,10 měsíců) ;úprava délky období, je-li jinak nez 12 mesíců (je to přesunuto výše): ;DelkaObdobi:Real=0 ;DelkaObdobi=(year(DatumDo)*100+month(DatumDo))-(year(DatumOd)*100+month(DatumOd)) If(DelkaObdobi<0) Halt('Chybná délka zdaňovacího období < 0') If(DelkaObdobi=0) Halt('Chybná délka zdaňovacího období = 0') ;While(DelkaObdobi>87] ; begin ; DelkaObdobi=DelkaObdobi-88 ; end ;DelkaObdobi=DelkaObdobi+1 II360ori:Real=II360 IF(DelkaObdobi<>12) II360=(II360/DelkaObdobi)*12 IF(II360>30000) begin NextPage PEN(0,0.1) FONTSIZE(4.5) FONTFACE(NORMAL|BOLD) TEXT(40,10,TA_LEFT,'Zálohy na daň - § 38a zákona o dani z příjmu podle Zákona č. 492/2000') TEXT(40,15,TA_LEFT,'z 12.12.2000, zveřejněn v částce 143/2000 dne 29.12.2000') 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 LocWord1=0 LocShInt1=0 IF((II360>30000)AND(II360<=150000)) ; budou pololetni zalohy begin IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin i=0 ;zálohy před lhůtou přiznání: Text(30,47,TA_LEFT,'do '+StrDate(DatumLhuta)+':') Text(150,47+(i*5),TA_RIGHT,'podle daňového přiznání za rok '+Str(IniRok-1)) i=i+1 ;LINEA(15,50+(i*5),153,50+(i*5)) Text(110,35+(i*5),TA_CENTER,'40% z '+STR(II360,12,0)+',-') ;první záloha: LocWord1=Month(DatumDo)+12 ; muzu scitat Word+ShortInt ??? LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;druhá záloha: LocWord1=Month(DatumDo)+18 LocShInt1=0 While(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,58+(i*5),TA_LEFT,LocStr) Text(110,58+(i*5),TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') FONTSIZE(3.5) Text(150,62+(i*5),TA_RIGHT,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem...)') PEN(0,0.3) ROUNDBOXA(15,30,153,72,3.3,3.3) LINESA(15,45,153,45,0,8,3) PoslSourad=72 end IF(NOT(PoradceAnoNe)) ; nemam poradce, odevzdavam tedy do 31.3 begin Text(110,40,TA_CENTER,'40% z '+STR(II360,12,0)+',-') ;první záloha: LocWord1=Month(DatumDo)+6 ; muzu scitat Word+ShortInt ??? LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50,TA_LEFT,LocStr) Text(110,50,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;druhá záloha: LocWord1=Month(DatumDo)+12 LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,58,TA_LEFT,LocStr) Text(110,58,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') ;třetí záloha ;první záloha: LocWord1=Month(DatumDo)+6 ; muzu scitat Word+ShortInt ??? LocShInt1=1 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end ;;;; LocStr='15.'+Str(LocWord1)+'.'+STR(IniRok+1+LocShInt1) LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,66,TA_LEFT,LocStr) ; Text(30,66,TA_LEFT,'15. června '+STR(IniRok+2)) Text(110,66,TA_CENTER,STR(RoundFloat((II360*0.4)+49,2),12,0)+',-') FONTSIZE(3.5) Text(150,70,TA_RIGHT,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') PEN(0,0.3) ROUNDBOXA(15,30,153,75,3.3,3.3) LINESA(15,48,153,48,0,8,3) PoslSourad=75 end end IF(II360>150000) ; budou kvartalni zalohy begin IF(True) ; IF(PoradceAnoNe)AND(DatumPodani>DatumPovinn3) ; mam poradce a odevzdavam po 31.3 begin LINEA(15,48,153,48) Text(110,40,TA_CENTER,'1/4 z '+STR(II360,12,0)+',-') i=0 ;zálohy před lhůtou přiznání: Text(30,50,TA_LEFT,'do '+StrDate(DatumLhuta)+':') Text(150,50+(i*5),TA_RIGHT,'podle daňového přiznání za rok '+Str(IniRok-1)) i=i+1 LINEA(15,50+(i*5),153,50+(i*5)) ;první záloha po přiznání: LocWord1=Month(DatumDo)+PosunPrizn+3 ; v tomto měsíci by se mělo poprve platit záloha ; podle odevzdaneho priznani za aktualni rok LocShInt1=0 IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end IF(LocWord1>12) begin LocWord1=LocWord1-12 LocShInt1=LocShInt1+1 end LocStr='15.'+Str(LocWord1)+'.'+STR(Year(DatumDo)+LocShInt1) Text(30,50+(i*5),TA_LEFT,LocStr) Text(110,50+(i*5),TA_CENTER,STR(RoundFloat((II360*0.25)+49,2),12,0)+',-') i=i+1 IF(AddDay(DatumDo,365+90)12) begin TEXT(20,PoslSourad+i,TA_LEFT,'Výpočet přepočten na 12měsíční zdaňovací období: '+StrDate(DatumOd)+' - '+StrDate(DatumDo)+' ... počet měsíců je '+Str(DelkaObdobi,3,0)) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'(řádek 360= '+LTrim(Str(II360ori,16,2))+' / počet měsíců='+Str(DelkaObdobi,3,0)+') * 12 ='+Str((II360ori/DelkaObdobi)*12,13,2))) i=i+4 end if(DelkaObdobi<12) TEXT(20,PoslSourad+i,TA_LEFT,'Pokud se poslední daňová povinnost týkala jen části zdaňovacího období...') else TEXT(20,PoslSourad+i,TA_LEFT,'Pokud se poslední daňová povinnost týkala zdaňovacího období delšího nežli 12 měsíců...') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'... prostudujte si § 38a, odst. 6 zákona o daních z příjmů') i=i+8 TEXT(20,PoslSourad+i,TA_LEFT,'Podklady, které mají vliv na výpočet kalendáře záloh:') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Zdaňovací období: '+StrDate(DatumOd)+' - '+StrDate(DatumDo)) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Lhůta pro podání DP: '+StrDate(DatumLhuta)) i=i+4 LocStr=StrDate(AddDay(DatumLhuta,1)) LocShInt1=Length(LocStr) IF(LocShInt1>7) begin LocStr=RokZData(LocStr) LocWord1=Val(LocStr)+1 LocStr=Copy(StrDate(AddDay(DatumLhuta,1)),1,LocShInt1-4)+Str(LocWord1,4,0) LocWord1=ValDate(LocStr) LocWord1=AddDay(LocWord1,-1) TEXT(20,PoslSourad+i,TA_LEFT,'Zálohové období: '+StrDate(AddDay(DatumLhuta,1))+' - '+StrDate(LocWord1)) IF(PosunPrizn>3) Text(153,PoslSourad+i,TA_Right,'(bude-li přiznání za rok '+STR(IniRok+1)+' sestavováno daňovým poradcem)') i=i+4 end LocStr='Ne' IF(PoradceAnoNe) LocStr='Ano' TEXT(20,PoslSourad+i,TA_LEFT,'Přiznání podává daňový poradce: '+LocStr) i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,'Poslední známá daňová povinnost, vypočtená tímto přiznáním, může být upravena:') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - platebním výměrem') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - dodatečným daňovým přiznáním, opravným daňovým přiznáním') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - dodatečným platebním výměrem') i=i+4 TEXT(20,PoslSourad+i,TA_LEFT,' - rozhodnutím správce daně o opravném prostředku') i=i+4 end Exit; End policka: Zadej vysi ucetnich odpisu: Suma551 nacita z hodnoty: Suma551=VAL(GetFromIni('Hodnoty '+IniRok,'Ucet551',INI)) do toho INI se to dostane ze sestavy Danovy HV uklada to do: SetToIni('Ba'+IniRok,'Suma551',Suma551,INI) ale odtud bere pouze, kdyz nenacita ze sestavy Danovy HV strana 3: Tabulka A Danove neuznane jde ze sestavy Danovy HV, uklada se do IIxxx:LongInt=VAL(GetFromIni('II'+IniRok,'IIxxx',INI)) strana 2, ř. 40 = SumaNeNakl, a to je soucet: SumaNeNakl=UctSkup1+UctSkup2+UctSkup3+UctSkup4+UctSkup5+UctSkup6+UctSkup7+UctSkup8+UctSkup9+UctSkup10+UctSkup11+UctSkup12 UctSkup nacita z INI, tam se to dostane ze sestavy Danovy HV nebo rucne: pom2:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'UctSkup '+STR(i),INI)))) a z pom2 pak do UctSkup1, UctSkup2, ... strana 2, ř. 50 je Suma551 strana 2, ř. 150 je SumaDanOdpis a to je ze sestavy Danovych odpisu nebo rucne SumaDanOdpis=Odpis1+Odpis2+Odpis3+Odpis4+Odpis5+Odpis6+Odpis7+Odpis8 odpis1...8: Odpis5:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 5',INI)))) Odpis7:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Ostatni',INI)))) radek II230 je roven E94, nelze ho zadat rucne sloupec 5 v tabulce E je kontrolovan na 7 let, pricemz 7 je zadana jako promenna ObdZtrat34 II240 neexistuje, je to FB10 FA4 se pocita FA6 se pocita FB8 se pocita FB10 se pocita H6 neni, je to pocitany udaj: H1+H2+H3+(II290/2)+H5