; DDT pro DAP B 2005 - vzor. č. 12 ; verze z 22.2.2005 ; Autor: WinDUO Team IniRok:String=Rok() FileName('DAPB'+IniRok+'.WNS') Name('Daňové přiznání DAP vzor č.12 za '+IniRok) Designed('') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') Descr('Formulář daně z příjmů fyzických osob vzor 12') IF(Version()<5) Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop) if(not ExistVariable('Prazdny')) begin Prazdny:Boolean=False; end; ;{definice promennych 1} DeclareRec('Program') ;DlgFollowMouse(True) INI:String=DataPath+'DPPO.INI' ;umyslne je zde tento nazev INI, protoze nacita nektere hodnoty z DPPO.INI, neni pro to novy jiny INI NactiOdpisAnoNe:Boolean=False NactiVHPredZdan:Boolean=False Souhlas:Boolean=True LocL:LongInt LocD:Double ;MamPokyny:Boolean=False ValidDatum:String='0123456789.' ValidBU:String='0123456789-/ ' ValidCislo:String='0123456789.,+-' ValidCisloInt:String='0123456789+-' ValidCisloKl:String='0123456789.,+' ValidCisloK2:String='0123456789' ;ValidTypPrizn:String='0123456789ABCDEFGHIJKLMabcdefghijklm' ValidIntDatum:String='0123456789.-' SetDecimalSize(2) Result:Integer=999 Result2:Integer=999 LocN:Integer=0 LocB:Boolean=False LocStr:String[17]='' LocW:Word LocWord1:Word=0 LocShInt1:ShortInt=0 PosunPrizn:ShortInt=0 ;ObdZtrat34:Byte=7 ; §34 odst. 1 = počet let, po který lze odečíst ztrátu DelkaFiscal:String=Null(Program.FiscalLength,2) HlasVHPredZdan:String VyskaFontuHodn:Real=4; 3.8 poprve:Boolean=True HelpStr:String; Priznani:Boolean=True Pril1:Boolean Pril2:Boolean Pril3:Boolean Pril4:Boolean Pril5:Boolean DlgFollowMouse(True) DefDialog('Volba tisku',292,232) DlgShade(-1,'',4,27,282,132) DlgStatic(-1,'Tisknout následující formuláře',23,8,200) DlgCheckBox(101,Priznani,16,32,256,,'Přiznání k dani z příjmů - vzor č. 12'); DlgCheckBox(102,Pril1,16,52,110,,'Příloha č. 1'); DlgOnLineHelp(102,'P1 - Výpočet dílčího základu daně z příjmů z podnikání a z jiné samostatné výdělečné činnosti (§ 7 zákona)') DlgCheckBox(103,Pril2,16,72,110,,'Příloha č. 2'); DlgOnLineHelp(103,'P2 - Výpočet dílčích základů daně z příjmů z pronájmu (§ 9 zákona) a z ostatních příjmů (§ 10 zákona)') DlgCheckBox(104,Pril3,16,92,110,,'Příloha č. 3'); DlgOnLineHelp(104,'P3 - Výpočet daně z příjmů dosažených za více zdaňovacích období (§ 14 zákona), daně z příjmů ze zdrojů v zahraničí (§ 38f zákona) a daně po slevě (§ 35 zákona)') DlgCheckBox(105,Pril4,16,112,110,,'Příloha č. 4'); DlgOnLineHelp(105,'P4 - Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona') DlgCheckBox(106,Pril5,16,132,110,,'Příloha č. 5'); DlgOnLineHelp(106,'P5 - Výpočet společného základu daně manželů podle § 13a zákona') DlgButton(id_OK,'OK',156,164); DlgOnLineHelp(id_OK,'Pokračuje ve zpracování') DlgButton(id_Cancel,'Zpět',222,164); DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování') DlgButton(id_Help,'Help',4,164); DlgOnLineHelp(id_Help,'Help') DlgSetHelp(help_Context,1040) if(DlgExecute(True)<>id_OK) Halt; ;{proměnné pro stránky} x21:real x22:real x23:real x24:real x25:real y2:real i21:real i22:real PocRad2:Byte SirkaPolicka21:real SirkaPolicka22:real SirkaPolicka23:real SirkaPolicka24:real x31:real x32:real x33:real x34:real x35:real x36:real x37:real x38:real x39:real y3:real i31:real i32:real PocRad3:Byte SirkaPolicka31:real SirkaPolicka32:real SirkaPolicka33:real SirkaPolicka34:real x41:real x42:real x43:real x44:real x45:real y4:real i41:real i42:real PocRad4:Byte SirkaPolicka41:real SirkaPolicka42:real SirkaPolicka43:real SirkaPolicka44:real x51:real x52:real y5:real i51:real PocRad5:Byte SirkaPolicka51:real SirkaPolicka52:real x61:real x62:real y6:real i61:real PocRad6:Byte SirkaPolicka61:real SirkaPolicka62:real x81:real x82:real x83:real x84:real x85:real y8:real i81:real i82:real PocRad8:Byte SirkaPolicka81:real SirkaPolicka82:real SirkaPolicka83:real SirkaPolicka84:real x91:real x92:real x93:real x94:real x95:real y9:real i91:real i92:real PocRad9:Byte SirkaPolicka91:real SirkaPolicka92:real SirkaPolicka93:real x101:real x102:real x103:real x104:real x105:real y10:real i101:real i102:real PocRad10:byte SirkaPolicka101:real SirkaPolicka102:real Warns:Array[1..16] of String; WarnCount:Word=0 TotalWarn:Word=0; IF(Prazdny) GoTo(Tisk); ;{definice uvodniho dialogu} DefDialog('POMŮCKA pro sestavení přiznání DAP vzor 12 pro rok 2005',600,400) DlgShade(-1,'',4,27,590,302) DlgStatic(-1,' TOTO JE POMŮCKA K SESTAVENÍ PŘIZNÁNÍ K DANI Z PŘÍJMŮ FYZICKÝCH OSOB',23,5,554) DlgStatic(-1,'Doporučení - seznamte se s POKYNY k vyplnění přiznání k DAP',16,34,510) DlgStatic(-1,' (25 5405/1 MFin 5405/1 - vzor č. 13) a s formulářem PŘIZNÁNÍ ...',102,50,430) DlgStatic(-1,' - seznamte se s platným zákonem o daních z příjmů',94,66,350) if(Program.DanovaEvidence) DlgStatic(-1,'Předpoklady - musí být vypočteny Přehledy o M/Z a P/V k 31.12.'+Rok(4),16,82,540) else DlgStatic(-1,'Předpoklady - musí být vypočten VZaZ včetně nezaokrouhlených údajů za '+DelkaFiscal+'/'+Rok(2),16,82,540) DlgStatic(-1,'Upozornění - tento program počítá přiznání DAP dle podkladů z 12/2005 - vzor č.12',16,100,575) IF(not CompareStr(IniRok,'2005')) begin AddWarn('Daňové přiznání vzor 12 je určeno pro rok 2005 - ověřte, zda je stále platné') end Souhlas:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'Souhlas',INI)) RucneVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'RucneVHPredZdan',INI)) NactiVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'NactiVHPredZdan',INI)); údaj VH z VZaZ za 12 mesíc pro ř.104 v příloze 1 VypoctiVHPredZdan:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'VypoctiVHPredZdan',INI)) TabulkaDP1:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'TabulkaDP1',INI)) DlgBitmap(903,15,163-45) DlgCheckBox(100,Souhlas,63,177-45,528,,'jsem si vědom(a) toho, že tato funkce je pouze pomůcka pro snazší sestavení') DlgOnLineHelp(100,'Ověřte a zkontrolujte si nejen ty údaje, které zadáváte sami, ale i ty, které jsou převzaty z WinDUO. Existuje mnoho způsobů, jakými se do tohoto výpočtu může vloudit chyba. Důvěřuj, ale prověřuj!') DlgStatic(-1,'přiznání k DAP (za správnost údajů v daňovém přiznání neodpovídají autoři',83,197-45,500) DlgStatic(-1,'programu. Pokud sestavujete přiznání ručně, lze tento bod přeskočit)',83,213-45,500) DlgDivider(16,231-45,567,0) DatumUctSkup:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumUctSkup',INI) if(Program.DanovaEvidence) begin OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime DlgStatic(-1,'Údaje o příjmech a výdajích do ř.33,101,102 příl.1, 205,206 a 3.1 příl.2 si přejete vyplnit:',12,190,580) IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgOnLineHelp(9110,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, z WinDUO nebudou přeneseny') DlgRadioButton(9111,NactiVHPredZdan,28,227,560,,'- načíst údaje z Přehledu o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ,9110,9112) DlgOnLineHelp(9111,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B budou načteny ze sestavy Přehled o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ) DlgOnLineHelp(9112,'Údaje do řádků 33 a do 101,102 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, řádek 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103') end else begin DlgStatic(-1,'- nelze převzít z Přehledu o příjmech a výdajích za '+DelkaFiscal+'/'+ROK(2)+', sestava nebyla vypočtena',10,227,560) DlgOnLineHelp(9110,'Údaje do řádků 33 a do 101,102,104 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, z WinDUO nebudou přeneseny') DlgOnLineHelp(9112,'Údaje do řádků 33 a do 101,102 přílohy č. 1 a do 205,206 a 3.1 přílohy 2 DAP B zadáte ručně, řádek 104 přílohy č. 1 DAP B bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103') end end else begin OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime DlgStatic(-1,'Údaj o výsledku hospodaření do ř.104 Přílohy 1 si přejete vyplnit:',16,190,500) IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP zadáte ručně') DlgRadioButton(9111,NactiVHPredZdan,28,227,560,,'- načíst VH před zdaněním z VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ,9110,9112) DlgOnLineHelp(9111,'Údaj do řádku 104 přílohy č. 1 DAP bude načten ze sestavy VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ) DlgOnLineHelp(9112,'Údaj do řádku 104 přílohy č. 1 DAP bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') end else begin DlgOnLineHelp(9110,'Údaj do řádku 104 přílohy č. 1 DAP zadáte ručně') DlgStatic(-1,'- nelze převzít z VZaZ za '+DelkaFiscal+'/'+ROK(2)+', sestava nebyla vypočtena',50,227,560) DlgOnLineHelp(9111,'Údaj do řádku 104 přílohy č. 1 DAP bude vypočten jako rozdíl ř. 101 - ř. 102 - ř. 103, které zadáváte ručně') end end IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin DlgRadioButton(9110,RucneVHPredZdan,28,206,560,,'- ručně',9110,9112) DlgRadioButton(9112,VypoctiVHPredZdan,28,249,560,,'- vypočten jako rozdíl ř.101 - ř.102 - ř.103',9110,9112) end else begin DlgRadioButton(9110,RucneVHPredZdan,28,206,560,,'- ručně',9110,9111) DlgRadioButton(9111,VypoctiVHPredZdan,28,249,560,,'- vypočten jako rozdíl ř.101 - ř.102 - ř.103',9110,9111) end DatumSkupOdp:STRING[16]=GetFromIni('Hodnoty '+IniRok,'DatumSkupOdp',INI) If(Program.Majetky) begin If(LENGTH(DatumSkupOdp)<>0)) begin NactiOdpisAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'NactiOdpisAnoNe',INI)) DlgCheckBox(110,NactiOdpisAnoNe,12,273,350,,'Načíst tabulku odpisů do Přílohy 1 ze sestavy: ') DlgOnLineHelp(110,'Hodnoty daňových odpisů lze načíst ze sestavy Daňové odpisy nebo lze zadat ručně') DlgStatic(-1,'- sestava Daňové odpisy (součást roční závěrky) z data: '+DatumSkupOdp,48,292,490) DlgStatic(-1,'(odpisy je možno zadat nebo opravit ručně)',57,308,290) end else begin DlgStatic(-1,'- vypočtěte sestavu Daňové odpisy - rekapitulace,údaje z ní budou převzaty',48,292,496) DlgStatic(-1,'do výpočtů DAP, jinak je budete muset zadat ručně',57,308,345) end end; DlgButton(id_OK,'OK',414,334); DlgOnLineHelp(id_OK,'Pokračuje ve zpracování') DlgButton(id_Cancel,'Zpět',497,334); DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování') DlgButton(id_Help,'Help',33,334); DlgOnLineHelp(id_Help,'Help') DlgSetHelp(help_Context,1042) IF(DlgExecute()<>ID_OK) Halt IF(not(Souhlas)) begin SetToIni('TITULNI'+IniRok,'Souhlas',Souhlas,INI) Halt('Nepotvrdili jste zavazující podmínku pro zpracování formuláře '+#13+'(fajfka vedle vykřičníku).'+#13+#13+'Zpracování bylo ukončeno!') end if((not RucneVHPredZdan)and(not NactiVHPredZdan)and(not VypoctiVHPredZdan)) RucneVHPredZdan=True SetToIni('TITULNI'+IniRok,'Souhlas',Souhlas,INI) SetToIni('TITULNI'+IniRok,'NactiOdpisAnoNe',NactiOdpisAnoNe,INI) SetToIni('TITULNI'+IniRok,'NactiVHPredZdan',NactiVHPredZdan,INI) SetToIni('DAP'+IniRok,'RucneVHPredZdan',RucneVHPredZdan,INI) SetToIni('DAP'+IniRok,'NactiVHPredZdan',NactiVHPredZdan,INI) SetToIni('DAP'+IniRok,'VypoctiVHPredZdan',VypoctiVHPredZdan,INI) ;{definice promennych 2} AktualCover:Integer=0 skrt:String[5]='-----' SumaNeNakl:LongInt=0 SumaNeNaklNact:LongInt=0 SumaDanOdpis:LongInt=0 SumaDanOdpisNact:LongInt=0 OdpisNemov:LongInt=0 VHPredZdan:Double=0 ExistVZaZ:Boolean=False D34:LongInt=0 D36:LongInt=0 D39:LongInt=0 D40:LongInt=0 D41:LongInt=0 D42:LongInt=0 D45:LongInt=0 D60:LongInt=0 D61:LongInt=0 D62:LongInt=0 D63:LongInt=0 D64:LongInt=0 D65:LongInt=0 D66:LongInt=0 D76:LongInt=0 D77:LongInt=0 D79:LongInt=0 D86:LongInt=0 P2203:LongInt=0 P2206:LongInt=0 P2DilciSuma:LongInt=0 P2209:LongInt=0 P2207:LongInt=0 P2208:LongInt=0 P3301:LongInt=0 P3303:LongInt=0 P3306:LongInt=0 P3307:LongInt=0 P3308:LongInt=0 P3309:LongInt=0 P3310:LongInt=0 P3315:LongInt=0 P3316:LongInt=0 P3319:LongInt=0 P3320:LongInt=0 P3325:LongInt=0 P3326:LongInt=0 P3327:LongInt=0 P3330:LongInt=0 P4405:LongInt=0 P4406:LongInt=0 P4407:LongInt=0 P4408:LongInt=0 P4409:LongInt=0 P4410:LongInt=0 P4411:LongInt=0 P4414:LongInt=0 P4415:LongInt=0 P4416:LongInt=0 P4417:LongInt=0 P4418:LongInt=0 P5501P:LongInt=0 P5502P:LongInt=0 P5503P:LongInt=0 P5504P:LongInt=0 P5505P:LongInt=0 P5506P:LongInt=0 P5506M:LongInt=0 P5507PM:LongInt=0 P5520PM:LongInt=0 SPOLZAKLAD:LongInt=0 P5522:LongInt=0 P5526:LongInt=0 ; {Načtení čísla řádku VZaZ, který se předává jako VH na radek 104, bych řekla} ; {samotne nactení údaje je v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} VHPredDaniR:Word ;cislo radku, ktery bude prevzat z VZaZ VHPredDaniS:Word ;cislo sloupce, ktery bude prevzat z VZaZ SouborVZaZ:TextFile Open(SouborVZaZ,GetTabName(2)) While(not(EOF(SouborVZaZ))) begin LocStr=Readln(SouborVZaZ) if(CompareStr(Copy(LocStr,1,1),'*')) begin if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANR=')) ;*radek HV pred zdanenim begin LocStr=ToChar(' ',LocStr) VHPredDaniR=Val(FromChar('=',LocStr)) end if(CompareStr(UpCase(Copy(LocStr,1,9)),'*HV-DANS=')) ;*sloupec HV pred zdanenim, pocitano vcetne textu begin LocStr=ToChar(' ',LocStr) VHPredDaniS=Val(FromChar('=',LocStr)) end end end ;{definice a nacteni promennych z INI} begin ;{nacteni pro 1.cover} ;FinancniUrad:String[50]=GetFromIni('TITULNI','FinancniUrad',INI) FinancniUrad:String[32]=GetDataINI('INFO','FinancniUrad') ObchodniJmeno:String[35]=GetFromIni('TITULNI','ObchodniJmeno',INI) DodatekJmena:String[35]=GetFromIni('TITULNI','DodatekJmena',INI) Obec:String[29]=GetFromIni('TITULNI','Obec',INI) PSCdppo:String=GetFromIni('TITULNI','PSC',INI) UliceDppo:String[35]=GetFromIni('TITULNI','Ulice',INI) Stat:String[15]=GetFromIni('TITULNI','Stat',INI) Telefon:String[12]=GetFromIni('TITULNI','Telefon',INI) Fax:String[12]=GetFromIni('TITULNI','Fax',INI) BankovniUcet:String[30]=GetFromIni('TITULNI','BankovniUcet',INI) PoradceAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'PoradceAnoNe',INI)) EvCisOsved:STRING[6]=GetFromIni('ZAVER'+IniRok,'EvCisOsved',INI) OverAuditAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'OverAuditAnoNe',INI)) ZdanManzelu:Boolean=GetBoolean(GetFromIni('TITULNI'+IniRok,'ZdanManzelu',INI)) Celosvetove:LongInt=VAL(GetFromIni('TITULNI'+IniRok,'Celosvetove',INI)) ;DatumDodat:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDodat',INI)) Obdobi:Word=Val(GetFromIni('TITULNI'+IniRok,'Obdobi',INI)) DatumOd:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumOd',INI)) DatumDo:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumDo',INI)) if((Obdobi=0)and(DatumOd=0)and(DatumDo=0)) Obdobi=Val(Rok(4)) DatumLhuta:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumLhuta',INI)) IF(DatumLhuta=0) begin IF(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end end HlavCinn1:String[140]=GetFromIni('TITULNI','HlavCinn1',INI) HlavCinn2:String[140]=GetFromIni('TITULNI','HlavCinn2',INI) RodneCislo:String[11]=GetDataINI('INFO','RodneCislo') RodneCislo=ValidateStr(RodneCislo,'0123456789'); RodneCislo=Copy(RodneCislo,1,6)+' '+Copy(RodneCislo,7,255); Prijmeni:String[35]=GetFromIni('TITULNI','Prijmeni',INI) RodnePrijmeni:String[35]=GetFromIni('TITULNI','RodnePrijmeni',INI) Jmeno:String[35]=GetFromIni('TITULNI','Jmeno',INI) Titul:String[35]=GetFromIni('TITULNI','Titul',INI) StatPrislusnost:String[35]=GetFromIni('TITULNI','StatPrislusnost',INI) CisloPasu:String[35]=GetFromIni('TITULNI','CisloPasu',INI) ObecDapb:String[35]=GetFromIni('TITULNI','ObecDapb',INI) UliceDapb:String[35]=GetFromIni('TITULNI','UliceDapb',INI) CisloPODapb:String[12]=GetFromIni('TITULNI','CisloPODapb',INI) PSCDapb:String[6]=GetFromIni('TITULNI','PSCDapb',INI) TelefonDapb:String[35]=GetFromIni('TITULNI','TelefonDapb',INI) FaxDapb:String[35]=GetFromIni('TITULNI','FaxDapb',INI) Stat:String[12]=GetFromIni('TITULNI','Stat',INI) ObecTP:String[35]=GetFromIni('TITULNI','ObecTP',INI) UliceTP:String[35]=GetFromIni('TITULNI','UliceTP',INI) PSCTP:String[6]=GetFromIni('TITULNI','PSCTP',INI) CisloPOTP:String[12]=GetFromIni('TITULNI','CisloPOTP',INI) ObecZdrz:String[35]=GetFromIni('TITULNI','ObecZdrz',INI) UliceZdrz:String[35]=GetFromIni('TITULNI','UliceZdrz',INI) CisloPOZdrz:String[12]=GetFromIni('TITULNI','CisloPOZdrz',INI) PSCZdrz:String[6]=GetFromIni('TITULNI','PSCZdrz',INI) TelefonZdrz:String[35]=GetFromIni('TITULNI','TelefonZdrz',INI) FaxZdrz:String[35]=GetFromIni('TITULNI','FaxZdrz',INI) KodStat:String[30]=GetFromIni('TITULNI','KodStat',INI) BankovniUcet:String[30]=GetFromIni('TITULNI','BankovniUcet',INI) TypPriz1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'TypPriz1',INI)) EkPropojeniAnoNe:Boolean=GetBoolean(GetFromIni('TITULNI','EkPropojeniAnoNe',INI)) KodRozlis1:Integer=VAL(GetFromIni('TITULNI'+IniRok,'KodRozlis1',INI)) DatumRozlis:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumRozlis',INI)) ;{nacteni pro 2.cover} P1VydProcentem:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P1VydProcentem',INI)) P1101:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1101',INI)) P1102:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1102',INI)) P1103:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1103',INI)) P1105:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1105',INI)) P1104:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1104',INI)) P1106:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1106',INI)) P1107:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1107',INI)) P1108:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1108',INI)) P1109:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1109',INI)) P1110:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1110',INI)) P1111:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1111',INI)) P1112:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1112',INI)) P1113:LongInt CistyObrat:LongInt=VAL(GetFromIni('DAP'+IniRok,'CistyObrat',INI)) IF(NactiOdpisAnoNe) ; nacita ze sestavy dan. odpisu (pres INI + Hodnoty) begin Odpis1:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 1',INI)))) Odpis2:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 2',INI)))) Odpis3:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 3',INI)))) Odpis4:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 4',INI)))) Odpis5:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 5',INI)))) Odpis6:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 6',INI)))) Odpis7:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina 1a',INI)))) Odpis8:LongInt=ROUND(DOUBLE(VAL(GetFromIni('Hodnoty '+IniRok,'Skupina x',INI)))) SumaDanOdpisNact=Odpis1+Odpis2+Odpis3+Odpis4+Odpis5+Odpis6+Odpis7+Odpis8 SumaDanOdpis=SumaDanOdpisNact OdpisNemov=Odpis4+Odpis5+Odpis6 end else ; nacita z INI, kam se to dostalo z obrazovky, kde se to mohlo rucne upravit, uz to neni to, co bylo v sestave danovych odpisu begin Odpis1:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis1',INI)) Odpis2:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis2',INI)) Odpis3:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis3',INI)) Odpis4:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis4',INI)) Odpis5:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis5',INI)) Odpis6:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis6',INI)) Odpis7:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis7',INI)) SumaDanOdpis=VAL(GetFromIni('Ba'+IniRok,'SumaDanOdpis',INI)) OdpisNemov=VAL(GetFromIni('Ba'+IniRok,'OdpisNemov',INI)) end Odpis66:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis66',INI)) Odpis8:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis8',INI)) ;PopisOdpis8:STRING[150]=GetFromIni('Ba'+IniRok,'PopisOdpis8',INI) Odpis10:LongInt=VAL(GetFromIni('Ba'+IniRok,'Odpis10',INI)) DatumZah:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumZah',INI)) DatumPrer:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumPrer',INI)) DatumUkon:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumUkon',INI)) DatumObnov:Word=ValDate(GetFromIni('TITULNI'+IniRok,'DatumObnov',INI)) Pocetmesicu:Word=VAL(GetFromIni('TITULNI'+IniRok,'Pocetmesicu',INI)) ;{nacteni pro 3.cover} P1ETZvys1:String=GetFromIni('DAP'+IniRok,'P1ETZvys1',INI) P1ETZvys2:String=GetFromIni('DAP'+IniRok,'P1ETZvys2',INI) P1ETZvys3:String=GetFromIni('DAP'+IniRok,'P1ETZvys3',INI) P1ETZvys4:String=GetFromIni('DAP'+IniRok,'P1ETZvys4',INI) P1EHZvys1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys1',INI)) P1EHZvys2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys2',INI)) P1EHZvys3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys3',INI)) P1EHZvys4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHZvys4',INI)) P1ETSniz1:String=GetFromIni('DAP'+IniRok,'P1ETSniz1',INI) P1ETSniz2:String=GetFromIni('DAP'+IniRok,'P1ETSniz2',INI) P1ETSniz3:String=GetFromIni('DAP'+IniRok,'P1ETSniz3',INI) P1ETSniz4:String=GetFromIni('DAP'+IniRok,'P1ETSniz4',INI) P1EHSniz1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz1',INI)) P1EHSniz2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz2',INI)) P1EHSniz3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz3',INI)) P1EHSniz4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1EHSniz4',INI)) JmenoSdr1:String=GetFromIni('DAP'+IniRok,'JmenoSdr1',INI) JmenoSdr2:String=GetFromIni('DAP'+IniRok,'JmenoSdr2',INI) JmenoSdr3:String=GetFromIni('DAP'+IniRok,'JmenoSdr3',INI) PrijmeniSdr1:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr1',INI) PrijmeniSdr2:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr2',INI) PrijmeniSdr3:String=GetFromIni('DAP'+IniRok,'PrijmeniSdr3',INI) DICSdr1:String=GetFromIni('DAP'+IniRok,'DICSdr1',INI) DICSdr2:String=GetFromIni('DAP'+IniRok,'DICSdr2',INI) DICSdr3:String=GetFromIni('DAP'+IniRok,'DICSdr3',INI) PodilP1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP1',INI)) PodilP2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP2',INI)) PodilP3:Real=VAL(GetFromIni('DAP'+IniRok,'PodilP3',INI)) PodilV1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV1',INI)) PodilV2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV2',INI)) PodilV3:Real=VAL(GetFromIni('DAP'+IniRok,'PodilV3',INI)) JmenoSpol1:String=GetFromIni('DAP'+IniRok,'JmenoSpol1',INI) JmenoSpol2:String=GetFromIni('DAP'+IniRok,'JmenoSpol2',INI) PrijmeniSpol1:String=GetFromIni('DAP'+IniRok,'PrijmeniSpol1',INI) PrijmeniSpol2:String=GetFromIni('DAP'+IniRok,'PrijmeniSpol2',INI) DICSpol1:String=GetFromIni('DAP'+IniRok,'DICSpol1',INI) DICSpol2:String=GetFromIni('DAP'+IniRok,'DICSpol2',INI) PodilSpol1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilSpol1',INI)) PodilSpol2:Real=VAL(GetFromIni('DAP'+IniRok,'PodilSpol2',INI)) JmenoRozdel1:String=GetFromIni('DAP'+IniRok,'JmenoRozdel1',INI) PrijmeniRozdel1:String=GetFromIni('DAP'+IniRok,'PrijmeniRozdel1',INI) DICRozdel1:String=GetFromIni('DAP'+IniRok,'DICRozdel1',INI) PodilRozdel1:Real=VAL(GetFromIni('DAP'+IniRok,'PodilRozdel1',INI)) DICVOS:String=GetFromIni('DAP'+IniRok,'DICVOS',INI) PodilVOS:Real=VAL(GetFromIni('DAP'+IniRok,'PodilVOS',INI)) ;{nacteni pro 4.cover} P1D1Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D1Z',INI)) P1D2Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D2Z',INI)) P1D3Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D3Z',INI)) P1D4Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D4Z',INI)) P1D5Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D5Z',INI)) P1D6Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D6Z',INI)) P1D7Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D7Z',INI)) P1D8Z:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D8Z',INI)) P1D1K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D1K',INI)) P1D2K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D2K',INI)) P1D3K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D3K',INI)) P1D4K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D4K',INI)) P1D5K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D5K',INI)) P1D6K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D6K',INI)) P1D7K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D7K',INI)) P1D8K:LongInt=VAL(GetFromIni('DAP'+IniRok,'P1D8K',INI)) Mzdy1:LongInt=VAL(GetFromIni('DAP'+IniRok,'Mzdy1',INI)) ;{nacteni pro 5. cover} P2VydProcentem:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2VydProcentem',INI)) P2SpolJmeni:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'P2SpolJmeni',INI)) P2201:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2201',INI)) P2202:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2202',INI)) P2204:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2204',INI)) P2205:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2205',INI)) P2Druh1:String=GetFromIni('DAP'+IniRok,'P2Druh1',INI) P2Druh2:String=GetFromIni('DAP'+IniRok,'P2Druh2',INI) P2Druh3:String=GetFromIni('DAP'+IniRok,'P2Druh3',INI) P2Druh4:String=GetFromIni('DAP'+IniRok,'P2Druh4',INI) P2Prijem1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem1',INI)) P2Prijem2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem2',INI)) P2Prijem3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem3',INI)) P2Prijem4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Prijem4',INI)) P2Vydaj1:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj1',INI)) P2Vydaj2:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj2',INI)) P2Vydaj3:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj3',INI)) P2Vydaj4:LongInt=VAL(GetFromIni('DAP'+IniRok,'P2Vydaj4',INI)) P2Kod1:String=GetFromIni('DAP'+IniRok,'P2Kod1',INI) P2Kod2:String=GetFromIni('DAP'+IniRok,'P2Kod2',INI) P2Kod3:String=GetFromIni('DAP'+IniRok,'P2Kod3',INI) P2Kod4:String=GetFromIni('DAP'+IniRok,'P2Kod4',INI) ;{nacteni pro 6.cover} P3301:Real; =VAL(GetFromIni('DAP'+IniRok,'P3301',INI)) P3302:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3302',INI)) P3303:Real; =VAL(GetFromIni('DAP'+IniRok,'P3303',INI)) P3304:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3304',INI)) P3305:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3305',INI)) P3306:Real; =VAL(GetFromIni('DAP'+IniRok,'P3306',INI)) P3307:Real; =VAL(GetFromIni('DAP'+IniRok,'P3307',INI)) P3308:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3308',INI)) P3309:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3309',INI)) P3310:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3310',INI)) Tab3:Boolean=GetBoolean(GetFromIni('DAP'+IniRok,'Tab3',INI)) P3TAB1P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB1P',INI)) P3TAB2P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB2P',INI)) P3TAB3P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB3P',INI)) P3TAB4P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB4P',INI)) P3TAB5P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB5P',INI)) P3TAB1M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB1M',INI)) P3TAB2M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB2M',INI)) P3TAB3M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB3M',INI)) P3TAB4M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB4M',INI)) P3TAB5M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3TAB5M',INI)) P3311:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3311',INI)) P3312:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3312',INI)) P3313:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3313',INI)) P3314:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3314',INI)) P3315:Real; =VAL(GetFromIni('DAP'+IniRok,'P3315',INI)) P3316:Real; =VAL(GetFromIni('DAP'+IniRok,'P3316',INI)) ;{nacteni pro 7.coveru} P3317:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3317',INI)) P3318:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3318',INI)) P3319:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3319',INI)) P3319A:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3319A',INI)) P3320:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3320',INI)) KS1:String=GetFromIni('DAP'+IniRok,'KS1',INI) P3321:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3321',INI)) P3322:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3322',INI)) P3323:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3323',INI)) P3324:Real=VAL(GetFromIni('DAP'+IniRok,'P3324',INI)) P3325:Real; =VAL(GetFromIni('DAP'+IniRok,'P3325',INI)) P3326:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3326',INI)) P3327:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3327',INI)) P3328:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3328',INI)) P3329:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3329',INI)) P3330:LongInt; =VAL(GetFromIni('DAP'+IniRok,'P3330',INI)) P3ZPS1P:Real=VAL(GetFromIni('DAP'+IniRok,'P3ZPS1P',INI)) P3ZPS1H:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3ZPS1H',INI)) P3ZPS2P:Real=VAL(GetFromIni('DAP'+IniRok,'P3ZPS2P',INI)) P3ZPS2H:LongInt=VAL(GetFromIni('DAP'+IniRok,'P3ZPS2H',INI)) ;{nacteni pro 8.cover} P4401:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4401',INI)) P4402:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4402',INI)) P4403:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4403',INI)) P4404:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4404',INI)) P4412:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4412',INI)) P4413:LongInt=VAL(GetFromIni('DAP'+IniRok,'P4413',INI)) ;{nacteni pro 9. cover} P5Manzel:String=GetFromIni('DAP'+IniRok,'P5Manzel',INI) P5DICManzel:String=GetFromIni('DAP'+IniRok,'P5DICManzel',INI) P5501M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5501M',INI)) P5502M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5502M',INI)) P5503M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5503M',INI)) P5504M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5504M',INI)) P5505M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5505M',INI)) P5DuchodP:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5DuchodP',INI)) P5DuchodM:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5DuchodM',INI)) ;{nacteni pro 10. cover} P5508P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5508P',INI)) P5508M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5508M',INI)) P5509aP:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5509aP',INI)) P5509aM:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5509aM',INI)) P5509bP:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5509bP',INI)) P5509bM:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5509bM',INI)) P5510P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5510P',INI)) P5510M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5510M',INI)) P5511P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5511P',INI)) P5511M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5511M',INI)) P5512P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5512P',INI)) P5512M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5512M',INI)) P5513P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5513P',INI)) P5513M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5513M',INI)) P5514P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5514P',INI)) P5514M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5514M',INI)) P5515P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5515P',INI)) P5515M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5515M',INI)) P5516P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5516P',INI)) P5516M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5516M',INI)) P5517P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5517P',INI)) P5517M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5517M',INI)) P5518P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5518P',INI)) P5518M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5518M',INI)) P5519P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5519P',INI)) P5519M:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5519M',INI)) MesP5509aP:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5509aP',INI)) MesP5509aM:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5509aM',INI)) MesP5509bP:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5509bP',INI)) MesP5509bM:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5509bM',INI)) MesP5510P:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5510P',INI)) MesP5510M:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5510M',INI)) MesP5511P:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5511P',INI)) MesP5511M:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5511M',INI)) MesP5512P:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5512P',INI)) MesP5512M:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5512M',INI)) MesP5513P:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5513P',INI)) MesP5513M:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5513M',INI)) MesP5515P:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5515P',INI)) MesP5515M:LongInt=VAL(GetFromIni('DAP'+IniRok,'MesP5515M',INI)) P5523:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5523',INI)) P5524:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5524',INI)) P5525T:String=GetFromIni('DAP'+IniRok,'P5525T',INI) P5525P:LongInt=VAL(GetFromIni('DAP'+IniRok,'P5525P',INI)) ;{nacteni pro 11. cover} D31:LongInt=VAL(GetFromIni('DAP'+IniRok,'D31',INI)) D32:LongInt=VAL(GetFromIni('DAP'+IniRok,'D32',INI)) D33:LongInt=VAL(GetFromIni('DAP'+IniRok,'D33',INI)) D35:LongInt=VAL(GetFromIni('DAP'+IniRok,'D35',INI)) D37:LongInt=VAL(GetFromIni('DAP'+IniRok,'D37',INI)) D38:LongInt=VAL(GetFromIni('DAP'+IniRok,'D38',INI)) D43M:Byte=VAL(GetFromIni('DAP'+IniRok,'D43M',INI)) D44:LongInt=VAL(GetFromIni('DAP'+IniRok,'D44',INI)) Duch:LongInt=VAL(GetFromIni('DAP'+IniRok,'Duch',INI)) ManzelJmeno:String=GetFromIni('DAP','ManzelJmeno',INI) ManzelRC:String=GetFromIni('DAP','ManzelRC',INI) D46:LongInt=VAL(GetFromIni('DAP'+IniRok,'D46',INI)) D47AM:Byte=VAL(GetFromIni('DAP'+IniRok,'D47AM',INI)) D47AH:LongInt=VAL(GetFromIni('DAP'+IniRok,'D47AH',INI)) D47BM:Byte=VAL(GetFromIni('DAP'+IniRok,'D47BM',INI)) D47BH:LongInt=VAL(GetFromIni('DAP'+IniRok,'D47BH',INI)) D48M:Byte=VAL(GetFromIni('DAP'+IniRok,'D48M',INI)) D48H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D48H',INI)) D49M:Byte=VAL(GetFromIni('DAP'+IniRok,'D49M',INI)) D49H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D49H',INI)) D50M:Byte=VAL(GetFromIni('DAP'+IniRok,'D50M',INI)) D50H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D50H',INI)) D51M:Byte=VAL(GetFromIni('DAP'+IniRok,'D51M',INI)) D51H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D51H',INI)) D52:LongInt=VAL(GetFromIni('DAP'+IniRok,'D52',INI)) D53M:Byte=VAL(GetFromIni('DAP'+IniRok,'D53M',INI)) D53H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D53H',INI)) D54:LongInt=VAL(GetFromIni('DAP'+IniRok,'D54',INI)) D55:LongInt=VAL(GetFromIni('DAP'+IniRok,'D55',INI)) D56:LongInt=VAL(GetFromIni('DAP'+IniRok,'D56',INI)) D57:LongInt=VAL(GetFromIni('DAP'+IniRok,'D57',INI)) D58:LongInt=VAL(GetFromIni('DAP'+IniRok,'D58',INI)) D59T:String=GetFromIni('DAP','D59T',INI) D59M:Byte=VAL(GetFromIni('DAP'+IniRok,'D59M',INI)) D59H:LongInt=VAL(GetFromIni('DAP'+IniRok,'D59H',INI)) ;{nacteni pro 12.cover} D67:LongInt=VAL(GetFromIni('DAP'+IniRok,'D67',INI)) DiteJmeno1:String=GetFromIni('DAP','DiteJmeno1',INI) DiteRC1:String=GetFromIni('DAP','DiteRC1',INI) DiteMesic1:Byte=VAL(GetFromIni('DAP','DiteMesic1',INI)) DiteZTP1:Byte=VAL(GetFromIni('DAP','DiteZTP1',INI)) DiteJmeno2:String=GetFromIni('DAP','DiteJmeno2',INI) DiteRC2:String=GetFromIni('DAP','DiteRC2',INI) DiteMesic2:Byte=VAL(GetFromIni('DAP','DiteMesic2',INI)) DiteZTP2:Byte=VAL(GetFromIni('DAP','DiteZTP2',INI)) DiteJmeno3:String=GetFromIni('DAP','DiteJmeno3',INI) DiteRC3:String=GetFromIni('DAP','DiteRC3',INI) DiteMesic3:Byte=VAL(GetFromIni('DAP','DiteMesic3',INI)) DiteZTP3:Byte=VAL(GetFromIni('DAP','DiteZTP3',INI)) DiteJmeno4:String=GetFromIni('DAP','DiteJmeno4',INI) DiteRC4:String=GetFromIni('DAP','DiteRC4',INI) DiteMesic4:Byte=VAL(GetFromIni('DAP','DiteMesic4',INI)) DiteZTP4:Byte=VAL(GetFromIni('DAP','DiteZTP4',INI)) D74:LongInt=VAL(GetFromIni('DAP'+IniRok,'D74',INI)) D75:LongInt=VAL(GetFromIni('DAP'+IniRok,'D75',INI)) D78:LongInt=VAL(GetFromIni('DAP'+IniRok,'D78',INI)) D80:LongInt=VAL(GetFromIni('DAP'+IniRok,'D80',INI)) D81:LongInt=VAL(GetFromIni('DAP'+IniRok,'D81',INI)) D82:LongInt=VAL(GetFromIni('DAP'+IniRok,'D82',INI)) D83:LongInt=VAL(GetFromIni('DAP'+IniRok,'D83',INI)) D84:LongInt=VAL(GetFromIni('DAP'+IniRok,'D84',INI)) D85:LongInt=VAL(GetFromIni('DAP'+IniRok,'D85',INI)) ;{nacteni pro 13.cover} Pr1:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr1',INI)) Pr2:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr2',INI)) Pr3:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr3',INI)) Pr4:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr4',INI)) Pr5:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr5',INI)) Pr6:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr6',INI)) Pr7:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr7',INI)) Pr8:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr8',INI)) Pr9:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr9',INI)) Pr10:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr10',INI)) Pr11:Byte=VAL(GetFromIni('DAP'+IniRok,'Pr11',INI)) Pr12:Byte; Kde4:STRING=GetFromIni('DAP'+IniRok,'Kde4',INI) Kdy4:Word=ValDate(GetFromIni('DAP'+IniRok,'Kdy4',INI)) Zast1:STRING=GetFromIni('DAP'+IniRok,'Zast1',INI) Zast2:STRING=GetFromIni('DAP'+IniRok,'Zast2',INI) Zast3:STRING=GetFromIni('DAP'+IniRok,'Zast3',INI) Zast4:STRING=GetFromIni('DAP'+IniRok,'Zast4',INI) Zast5:STRING=GetFromIni('DAP'+IniRok,'Zast5',INI) Zast6:STRING=GetFromIni('DAP'+IniRok,'Zast6',INI) Zast7:STRING=GetFromIni('DAP'+IniRok,'Zast7',INI) Prep1:STRING=GetFromIni('DAP'+IniRok,'Prep1',INI) Prep2:STRING=GetFromIni('DAP'+IniRok,'Prep2',INI) Prep3:STRING=GetFromIni('DAP'+IniRok,'Prep3',INI) Prep4:STRING=GetFromIni('DAP'+IniRok,'Prep4',INI) Prep5:STRING=GetFromIni('DAP'+IniRok,'Prep5',INI) Prep6:STRING=GetFromIni('DAP'+IniRok,'Prep6',INI) Prep7:STRING=GetFromIni('DAP'+IniRok,'Prep7',INI) Prep8:Word=ValDate(GetFromIni('DAP'+IniRok,'Prep8',INI)) ;{nacteni pro 14.cover} ;{nacteni pro 15.cover} end ;{ vypocet VH na radku 104? - je to v sekci nacitani, protoze to jiz nelze ovlivnit v prubehu vypoctu} ;{pro specialni pripady 50... asi vypsat do uvodni obrazovky hlaseni, ze nelze nacist} ;VZaZ musi obsahovat udaje bez zaokrouhleni IF((Program.TypFirmy=0)and(not Program.DanovaEvidence)) ; {podnikatele} begin CisloFirmy:Word=Program.TypFirmy If((Program.TypFirmy=0)and(Program.ZkraceneF)) ; zkracena, zjednodusena CisloFirmy=256 OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True SkipWNSLine(2,CisloFirmy,VHPredDaniR-1) LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s VH před zdanením VHPredZdan=GetFromWNSLine(VHPredDaniS,False) end else ; neexistuje VZaZ begin ExistVZaZ=False end end else begin CisloFirmy:Word=Program.TypFirmy OpenWNSIfExist(WorkPath+'VYZZ'+DelkaFiscal+ROK(2)+'.WNS') DateVZaZ:String[10]=GetWNSDate TimeVZaZ:String=GetWNSTime IF(LENGTH(DateVZaZ)<>0) ; existuje VZaZ begin ExistVZaZ=True LocB=True While(LocB) begin LoadWNSLine(2,CisloFirmy) ; řádek ve VZaZ s VH před zdanením LocStr=GetFromWNSLine(1,False) if(CompareStr(LocStr,'I.')) P1101=GetFromWNSLine(4,False) if(CompareStr(LocStr,'A.+B.')) P1102=GetFromWNSLine(4,False) if(CompareStr(LocStr,'*§8')) D33=GetFromWNSLine(4,False) if(CompareStr(LocStr,'III.')) P2205=GetFromWNSLine(4,False) if(CompareStr(LocStr,'D.+E.')) P2206=GetFromWNSLine(4,False) if(CompareStr(LocStr,'IV.')) P2PRIJEM1=GetFromWNSLine(4,False) if(CompareStr(LocStr,'F.')) begin P2VYDAJ1=GetFromWNSLine(4,False) LocB=False end end ; if((P1101<>0)or(P1102<>0)) ; Pril1=True ; if((P2205<>0)or(P2206<>0)or(P2PRIJEM1<>0)or(P2VYDAJ1<>0)) ; Pril2=True end end LocB=False IF(Program.TypFirmy=1) ; přísp. do roku 1999 LocB=True IF(Program.TypFirmy=2) ; strany a hnuti do roku 1999 LocB=True IF(Program.TypFirmy=3) ; spor. druzstva do roku 2001 LocB=True IF(Program.TypFirmy=4) ; obecne prospesne LocB=True IF(Program.TypFirmy>7) ; neexistující LocB=True IF(LocB) Halt('Výpočet není určen pro Váš typ firmy: '+Str(Program.TypFirmy,2,0)) ;{vypocet pocitanych hodnot} Vypocet: WarnCount=0 TotalWarn=0 if(NactiVHPredZdan) begin P1104=VHPredZdan HlasVHPredZdan='VH před zdaněním - převzato z VZaZ za '+DelkaFiscal+'/'+ROK(2)+' z data: '+DateVZaZ+' '+TimeVZaZ if(Program.DanovaEvidence) begin P1104=(P1101-P1102-P1103) end end if(VypoctiVHPredZdan) begin P1104=(P1101-P1102-P1103) HlasVHPredZdan='Rozdíl mezi příjmy a výdaji - výpočet ř.101 - 102 - 103' end if(RucneVHPredZdan) begin if(poprve) P1104=VAL(GetFromIni('DAP'+IniRok,'P1104',INI)) poprve=False HlasVHPredZdan='Rozdíl mezi příjmy a výdaji ... nebo výsledek hospodaření (zisk, ztráta)' end P1113=(P1104+P1105-P1106-P1107+P1108+P1109-P1110-P1111+P1112) P2203=P2201-P2202 P2206=P2203+P2204-P2205 P2207=P2Prijem1+P2Prijem2+P2Prijem3+P2Prijem4 P2DilciSuma=0 IF(P2Prijem1-P2Vydaj1>0) P2DilciSuma=P2DilciSuma+P2Prijem1-P2Vydaj1 IF(P2Prijem2-P2Vydaj2>0) P2DilciSuma=P2DilciSuma+P2Prijem2-P2Vydaj2 IF(P2Prijem3-P2Vydaj3>0) P2DilciSuma=P2DilciSuma+P2Prijem3-P2Vydaj3 IF(P2Prijem4-P2Vydaj4>0) P2DilciSuma=P2DilciSuma+P2Prijem4-P2Vydaj4 P2209=P2DilciSuma P2208=P2207-P2209 if(D34=0) Pr7=0 else D36=D31-D32-D33 Pr7=1 D37=0 Pr1=0 if(Pril1) begin D37=P1113 Pr1=1 end D39=0 if(Pril2) D39=P2206 D40=0 if(Pril2) D40=P2209 if(D39<>0) and (D40<>0) or (D40<>0) Pr2=1 else Pr2=0 D41=D37+D38+D39+D40 ;WarnD59:String ;IF(D36>=0) ; D37=D31+D36 ; else ; begin ; D37=D31 ; if(D59=0) ; D59=ABS(D36) ; else ; WarnD59='Ověřte a případně opravte řádek 59 na str. 3' ; end D45=D42-D44 if(D43M<>0) D45=D43M D60=D46+D47AH+D47BH+D48H+D49H+D50H+D51H+D52+D53H+D54+D55+D56+D57+D58+D59H D61=D45-D60 IF(Pril5) begin if(P5526<>0) D61=P5526 end IF(D61<0) D61=0 D62=D61/100 D62=Int(D62) D62=D62*100 ;{tabulka pro vypocet dane} if(D62<=109200) D63=D62*0.15 if((D62>109200)and(D62<=218400)) D63=16380+((D62-109200)*0.2) if((D62>218400)and(D62<=331200)) D63=38220+((D62-218400)*0.25) if(D62>331200) D63=66420+((D62-331200)*0.32) D64=D63 Pr3=0 if(Pril3) begin Pr3=1 if(D43M<>0) P3301=100*D63/D43M if(D42<>0) P3301=100*D63/D42 P3301=Round(P3301*100) P3301=P3301/100 if(P3301<15) P3301=15 P3303=(P3301*P3302)/100 P3306=0 if(P3302<>0) P3306=(P3304*100)/P3302 P3306=Round(P3306*100) P3306=P3306/100 P3307=(P3303*P3306)/100 P3308=P3305 if(P3308>P3307) P3308=P3307 P3309=P3305-P3308 P3310=P3303-P3308 if(P3310<0) P3310=0 P3315=0 if(D62<>0) P3315=(D63*100)/D62 P3315=Round(P3315*100) P3315=P3315/100 P3316=(P3314*P3315)/100 P3319=P3ZPS1H+P3ZPS2H P3320=P3317+P3318-P3319-P3319A P3325=P3317*P3324/100 P3326=P3323 if(P33250) P4405=P4401 if(P4402<>0) P4406=P4402 P4407=P4403-P4404 if(P4405+P4407>0) P4408=Double((P4405+P4407)*0.15) ;zaokrouhlení na celé kč - aritmeticky? else P4408=0 if(P4406>0) P4409=Double(P4406*0.2) ;zaokrouhlení na celé kč else P4409=0 P4410=P4405+P4407 P4411=P4406 P4414=P4412 if(P4412>P4408) P4414=P4408 P4415=P4413 if(P4413>P4409) P4415=P4409 P4416=P4408-P4414 P4417=P4409-P4415 P4418=P4416+P4417 end Pr5=0 If(Pril5) begin Pr5=1 if(D36<>0) P5501P=D36 if(D37>0) P5502P=D37 if(D38<>0) P5503P=D38 if(D39>0) P5504P=D39 if(D40<>0) P5505P=D40 P5506P=P5501P+P5502P+P5503P+P5504P+P5505P P5506M=P5501M+P5502M+P5503M+P5504M+P5505M P5507PM=P5506P+P5506M P5519P=P5508P+P5509aP+P5509bP+P5510P+P5511P+P5512P+P5513P+P5514P+P5515P+P5516P+P5517P+P5518P P5519M=P5508M+P5509aM+P5509bM+P5510M+P5511M+P5512M+P5513M+P5514M+P5515M+P5516M+P5517M+P5518M P5520PM=P5519P+P5519M SPOLZAKLAD=P5507PM-P5520PM P5522=SPOLZAKLAD/2 IF(P5523+P5524+P5525P>P5522) begin P5526=0 AddWarn('Součet na řádcích 523+524+525 je větší než částka na řádku 522'); end else P5526=P5522-P5523-P5524-P5525P end D65=0 if(Pril4) D65=P4418 D66=Round(D64+D65+0.49) ;0.49 je kvuli zaokrouhleni na koruny nahoru , p. Čapek D66=Round(D64+0.49) ;0.49 je kvuli zaokrouhleni na koruny nahoru, řádek D57 raději nevstupovat, at tam nezanese nejake smeti D76=D66-D75 D77=D74-D75 D79=D77-D78 D86=D76-D79-D80-D81-D82-D83-D84-D85 Pr12=Pr1+Pr2+Pr3+Pr4+Pr5+Pr6+Pr7+Pr8+Pr9+Pr10+Pr11 ;{kontroly pro 10.cover} ;WarnPrizn1:STRING='' ;úprava délky období, je-li jinak nez 12 mesíců: ;IF(DelkaObdobi<>Program.FiscalLength) ; WarnPrizn1='- délka zdaňovacího období (na titulní straně) neodpovídá zadanému hospodářského roku') IF(D38>D36) begin AddWarn('Řádek 38 je větší nežli řádek 36') end IF((P3301<15)and(Pril3)) begin AddWarn('Řádek 301 v příloze 3 je menší nežli 15%') end IF((P3302<>P1111)and(Pril3)) begin AddWarn('Řádek 302 v příloze 3 je různý od řádku 111 přílohy 1') end IF((P3304>P3302)and(Pril3)) begin AddWarn('Řádek 304 v příloze 3 je větší nežli řádek 302 přílohy 3') end IF((P3317<>D55)and(P3317<>P3316)and(Pril3)) begin AddWarn('Řádek 317 v příloze 3 je odlišný od ř. 55 DAP i od řádku 316') end IF((P3318<>P3303)and(P3318<>P3310)and(Pril3)) begin AddWarn('Řádek 318 v příloze 3 je odlišný od ř. 303 i od řádku 310') end IF(OdpisNemov>SumaDanOdpis) begin AddWarn('Příloha 1 - odpis nemovitostí je větší nežli uplatněné odpisy celkem') end IF((D52<1000)and(D52<>0)) begin AddWarn('Hodnota daru je menší nežli 1000,-Kč') end IF((D52>D42/10)and(D52<>0)) begin AddWarn('Hodnota daru je větší nežli 10% z řádku 37') end IF((D520)) begin AddWarn('Hodnota daru je menší nežli 2% z řádku 37') end WarnZapor:STRING='' IF(D42<0) WarnZapor=WarnZapor+' 42,' IF(D67<0) WarnZapor=WarnZapor+' 67,' IF((P3320<0)and(Pril3)) WarnZapor=WarnZapor+' 320,' IF((DatumOd=0)and(Obdobi=0)) AddWarn('- není vyplněno Období ani Datum OD na titulní stránce daňového přiznání') IF((DatumDo=0)and(Obdobi=0)) AddWarn('- není vyplněno Období ani Datum DO na titulní stránce daňového přiznání') IF(DatumOd>DatumDo) AddWarn('- začátek zdaňovacího období je větší nežli konec') IF((DatumOd<>0)and(Obdobi<>0)) AddWarn('- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"') IF((DatumDo<>0)and(Obdobi<>0)) AddWarn('- je vyplněno zdaňovací období = "kalendářní rok" a současně i část roku = "od - do"') IF(DatumLhuta=0) begin IF(PoradceAnoNe) begin DatumLhuta=MaxDay(6+Program.FiscalOffset,IniRok+1) end else begin DatumLhuta=MaxDay(3+Program.FiscalOffset,IniRok+1) end AddWarn('- nebyl vyplněn den lhůty pro podání DP, pro výpočet záloh bylo dosazeno '+StrDate(DatumLhuta)) end IF((DatumLhuta<>0)and(DatumLhuta0)and(DatumLhuta=DatumDo)) begin AddWarn('- datum lhůty pro podání DP '+StrDate(DatumLhuta)+' je shodné s koncem zdaň.období '+StrDate(DatumDo)) end IF(((Pril1)and(Pr1=0))or((not Pril1)and(Pr1<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 1'); doplnit další kontroly k přílohám 4 a 5, pozor Pr4 a Pr5 už existovali! end IF(((Pril2)and(Pr2=0))or((not Pril2)and(Pr2<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 2') end IF(((Pril3)and(Pr3=0))or((not Pril3)and(Pr3<>0))) begin AddWarn('Nesouhlasí počet listů přílohy 3') end IF((LENGTH(EvCisOsved)=0)AND(PoradceAnoNe)) AddWarn('- podání sestavuje poradce a není vyplněno jeho evidenční číslo') IF((LENGTH(EvCisOsved)>0)AND(not(PoradceAnoNe))) AddWarn('- podání nesestavuje poradce a přitom je vyplněno jeho evidenční číslo') IF(D57<>0) AddWarn('Řádek 57 je nenulový. Nezapomeňte vyplnit přílohu č.4, která není součástí WinDUO'); if(((P2PRIJEM1<>0)or(P2VYDAJ1<>0))and(Length(P2Druh1)=0)) AddWarn('V příloze 2 část 3. Výpočet dílčího... jsou v 1.řádku hodnoty, ale chybí popis = Druh příjmu') IF(Result=id_OK) GOTO(tisk) ;{definice hlavniho dialogu} begin DefDialog('! POMŮCKA ! pro výpočet daně z příjmu fyzických osob',620,450) ;{vykreslení uvodu} DlgShade(-1,'',4,4,610,420) DlgCover(199,14,8,8,604,370,False,AktualCover) ;{============================== 1. cover ================================} ;{vykresleni 1. coveru} SetCover(1,'S1') DlgStatic(-1,'Zdaňovací období (kalendářní rok)',32,22,230) DlgEdit(103,Obdobi,260,20,40,,4) DlgOnLineHelp(103,'Kalendářní rok, za který DAP podáváte') DlgStatic(-1,'nebo &od',314,22,54) DlgEditDate(1031,DatumOd,379,18,78,,10,,ValidDatum) DlgOnLineHelp(1031,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část od ...') DlgStatic(-1,'&do',469,22,20) DlgEditDate(1032,DatumDo,491,18,78,,10,,ValidDatum) DlgOnLineHelp(1032,'PŘIZNÁNÍ ... za zdaňovací období nebo jeho část do ...') DlgStatic(-1,'Lhůta pro podání DP',32,53,135) DlgEditDate(162,DatumLhuta,175,49,78,,10,,ValidDatum) DlgOnLineHelp(162,'Poslední den lhůty pro podání daňového přiznání - §38a'+#13+'(bude použito pro výpočet kalendáře záloh na daň)') DlgStatic(-1,'Typ &DAP',409,53,57) ;DlgCombo(102,TypPriz1,469,49,100,128,9,CBS_DropDownList,'řádné','opravné','dodatečné'), vytvořil p. Čapek, zjistit záludnosti dodatečného DP, LĎ DlgCombo(102,TypPriz1,469,49,100,128,9,CBS_DropDownList,'řádné','opravné') DlgOnLineHelp(102,'03 Typ daňového přiznání DAP - viz POKYNY k vyplnění ...') DlgCheckBox(130,PoradceAnoNe,16,98,340,,'Přiznání zpracoval a předložil d&aňový poradce...') DlgOnLineHelp(130,'Přiznání zpracoval a předložil daňový poradce na základě plné moci k zastupování, která byla podána správci daně před uplynutím neprodloužené lhůty') DlgStatic(-1,'Číslo poradce',405,98,91) DlgEdit(131,EvCisOsved,500,94,68,,6) DlgOnLineHelp(131,'Pokud daňové přiznání zpracovává daňový poradce, uvede evidenční číslo osvědčení') DlgCheckBox(135,OverAuditAnoNe,16,120,500,,'Zákonná povinnost ověření účetní závěrky auditorem') DlgOnLineHelp(135,'Zákonná povinnost ověření účetní závěrky auditorem') DlgCheckBox(140,ZdanManzelu,16,263-160+37,500,,'V DAP je uplatňováno společné zdanění manželů podle § 13a zákona') DlgOnLineHelp(140,'V DAP je uplatňováno společné zdanění manželů podle § 13a zákona') DlgStatic(-1,'Výše celosvětových příjmů',304,173,180) DlgEdit(150,Celosvetove,488,169,80,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(150,'Uvede se úhrn všech příjmů ze zdrojů na území ČR a v zahraničí v celých Kč,'+#13+'jen pokud jste poplatníkem podle § 2 odst. 3 zákona a uplatňujete společné'+#13+'zdanění manželů podle § 13a zákona ... viz POKYNY') DlgStatic(-1,'Ostatní údaje pro titulní stranu DAP je nutno vyplnit',20,225,560,,,ES_CENTER) DlgStatic(-1,'v Nastavení + Nastavení údajů pro sestavy (DDT) + První strana DAP',20,241,560,,,ES_CENTER) LocStr=StrTime(GetTime(),True) LocStr=FromChar(':',LocStr) LocStr=FromChar(':',LocStr) LocStr=ToChar(':',LocStr) LocN=Val(LocStr)/10 if(LocN<=1) begin DlgStatic(-1,'Murphy: "Když nemáme dost času na správné vyplnění daňového přiznání,',20,284,560,,,ES_CENTER,$FF0000) DlgStatic(-1,'musíme pak mít dost času na dodatečné daňové přiznání."',20,302,560,,,ES_CENTER,$FF0000) end if(LocN=2) begin DlgStatic(-1,'Daňová spravedlnost je teorie pro dívčí gymnázia.',20,284,560,,,ES_CENTER,$FF0000) end if(LocN=3) begin DlgStatic(-1,'Bezchybná daňová přiznání jsou ta, která berní úřad dosud nezpochybnil.',20,284,560,,,ES_CENTER,$FF0000) end if(LocN=4) begin DlgStatic(-1,'Ty křížovky jsou trapně jednoduché! Podejte mi nějaké daňové přiznání!',20,284,560,,,ES_CENTER,$FF0000) end if(LocN>=5) begin DlgStatic(-1,'Co nedokáže počítač, to dokáže tužka!',20,284,560,,,ES_CENTER,$FF0000) end ;Nejsilnější zbraní berního úřadníka jsou nejasné zákony. ;{============================== 2. cover ================================} ;{vykresleni 2. coveru} SetCover(2,'P1/1') if(Pril1) begin x21=5 x22=507 x23=310 x24=497 x25=519 y2=2 i21=19 ;radkovani 1 i22=19 ;radkovani 2 PocRad2=0 ;pomocna promenna SirkaPolicka21=80 ;standardní šířka SirkaPolicka22=20 DlgCheckBox(200,P1VydProcentem,x21,y2+(PocRad2*i21),300,,'Uplatňuji výdaje procentem z příjmů') DlgOnLineHelp(200,'Vedení účetnictví či daňové evidence se přebírá z nastavení WinDUO. Uplaňujete-li výdaje procentem z příjmů, odklikněte tuto volbu') Inc(PocRad2) DlgStatic(-1,'101 Příjmy podle § 7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgEdit(201,P1101,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(201,'101 Příjmy podle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'102 Výdaje související s příjmy podle § 7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgEdit(202,P1102,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(202,'102 Výdaje související s příjmy podle § 7 zákona') Inc(PocRad2) DlgStatic(-1,'103 Pojistné',x21,y2+(PocRad2*i21),x22-2) DlgEdit(203,P1103,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(203,'103 Pojistné') Inc(PocRad2) DlgStatic(-1,'104 '+HlasVHPredZdan,x21,y2+(PocRad2*i21),x22-2) if(RucneVHPredZdan) begin ;DlgStatic(-1,'104 Rozdíl mezi příjmy a výdaji ... nebo VH (zisk, ztráta)',x21,y2+(PocRad2*i21),x22-2) DlgEdit(204,P1104,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(204,'104 Rozdíl mezi příjmy a výdaji (ř. 101 - ř. 102 - ř. 103)'+#13+'nebo výsledek hospodaření (zisk, ztráta)'+#13+'V úvodní obrazovce jste zvolili vstup Ručně, zadejte tedy ručně') end else begin DlgStatic(-1,P1104,x22+9,y2+(PocRad2*i21),SirkaPolicka21,,,ES_Right) end Inc(PocRad2) DlgStatic(-1,'105 Úhrn částek podle §5, §23 a ostatní úpravy ... zvyšující',x21,y2+(PocRad2*i21),x22-2) DlgEdit(205,P1105,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(205,'105 Úhrn částek podle §5, §23 a ostatní úpravy podle zákona zvyšující...'+#13+'Podkladem jsou částky uvedené v odd. E na str. (2)') Inc(PocRad2) DlgStatic(-1,'106 Úhrn částek podle §5, §23 a ostatní úpravy ... snižující',x21,y2+(PocRad2*i21),x22-2) DlgEdit(206,P1106,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(206,'106 Úhrn částek podle §5, §23 zákona a ostatní úpravy podle zákona snižující...'+#13+'Podkladem jsou částky uvedené v odd. E na str. (2)') Inc(PocRad2) DlgStatic(-1,'107 Část příjmů nebo VH před zdaněním (zisk)... na spolupracující osobu',x21,y2+(PocRad2*i21),x22-2) DlgEdit(207,P1107,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(207,'107 Část příjmů nebo výsledku hospodaření před zdaněním (zisk), kterou'+#13+'rozdělujete na spolupracující osobu (osoby) podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'108 Část výdajů nebo VH před zdaněním (ztráta)... na spolupracující osobu',x21,y2+(PocRad2*i21),x22-2) DlgEdit(208,P1108,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(208,'108 Část výdajů nebo výsledku hospodaření před zdaněním (ztráta),'+#13+'kterou rozdělujete na spolupracující osobu (osoby) podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'109 Část příjmů nebo VH před zdaněním (zisk)... na Vás jako na spoluprac.os.',x21,y2+(PocRad2*i21),x22-2) DlgEdit(209,P1109,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(209,'109 Část příjmů nebo výsledku hospodaření před zdaněním (zisk), která'+#13+'připadla na Vás jako na spolupracující osobu podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'110 Část výdajů nebo VH před zdaněním (ztráta)... na Vás jako na spolup.os.',x21,y2+(PocRad2*i21),x22-2) DlgEdit(210,P1110,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(210,'110 Část příjmů nebo výsledku hospodaření před zdaněním (ztráta),'+#13+'která připadla na Vás jako na spolupracující osobu podle § 13 zákona') Inc(PocRad2) DlgStatic(-1,'111 Zbývající část příjmů za více zdaňovacích období snížená ...',x21,y2+(PocRad2*i21),x22-2) DlgEdit(211,P1111,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(211,'111 Zbývající část příjmů za více zdaňovacích období snížená o zbývající'+#13+'část výdajů připadající na příjmy za více zdaňovacích období podle'+#13+'§ 14 zákona') Inc(PocRad2) DlgStatic(-1,'112 Váš podíl jako společníka VOS nebo komplementáře koman. společnosti',x21,y2+(PocRad2*i21),x22-2) DlgEdit(212,P1112,x22+12,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(212,'112 Váš podíl jako společníka veřejné obchodní společnosti nebo'+#13+'komplementáře komanditní společnosti. Vykáže-li společnost ztrátu,'+#13+'označte svůj podíl znaménkem mínus (-)') Inc(PocRad2) DlgStatic(-1,'113 Dílčí základ daně (ztráta) z příjmů dle §7 zákona',x21,y2+(PocRad2*i21),x22-2) DlgStatic(-1,P1113,x22+61-52,y2+(PocRad2*i21),SirkaPolicka21,,,ES_Right) Inc(PocRad2) xx22:real=((x22-x21)/2)-80 xx23:real=x22-82 xxe21:real=((x22-x21)/2)+4 xxe22:real=x22-x21 DlgStatic(-1,'Čistý obrat',x21,y2+(PocRad2*i21),90) DlgStatic(-1,'Uplatněné odpisy celkem',xx22,y2+(PocRad2*i21),170) DlgStatic(-1,'Z toho odpisy nemovitostí',xx23,y2+(PocRad2*i21),170,,,ES_RIGHT) Inc(PocRad2) DlgEdit(220,CistyObrat,x21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(220,'Vedete-li účetnictví, uveďte roční úhrn čistého obratu podle § 20 odst. 1 písm. a) bod 2 zákona č. 563/1991 Sb. o účetnictví, ve znění pozdějších předpisů') DlgOnLineHelp(222,'Z toho odpisy nemovitostí') IF(Program.Majetky) begin IF(LENGTH(DatumSkupOdp)>0 begin IF(NactiOdpisAnoNe) begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(221,'Uplatněné odpisy celkem - převzato ze sestavy: "Daňové odpisy - rekapitulace" ze dne '+DatumSkupOdp) NactiOdpisAnoNe=False ;kdyz sahnou na nactena data a pak to zase vrati zpet, uz to nebude hlasit datum sestavy DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(222,'Z toho odpisy nemovitostí - převzat součet odp. skupiny 4, 5 a 6 ze sestavy: "Daňové odpisy - rekapitulace" ze dne '+DatumSkupOdp) end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) if(SumaDanOdpis<>0) DlgOnLineHelp(221,'Uplatněné odpisy celkem') else DlgOnLineHelp(221,'Uplatněné odpisy celkem - nutno zadat ručně') end end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) if(SumaDanOdpis<>0) DlgOnLineHelp(221,'Uplatněné odpisy celkem - Nebyla spočtena sestava "Daňové odpisy - rekapitulace", zadáno ručně') else DlgOnLineHelp(221,'Uplatněné odpisy celkem - Nebyla spočtena sestava "Daňové odpisy - rekapitulace", nutno zadat ručně') end end else begin DlgEdit(221,SumaDanOdpis,xxe21,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(221,'Uplatněné odpisy celkem') DlgEdit(222,OdpisNemov,xxe22,y2+(PocRad2*i21)-2,SirkaPolicka21,i21,9,ES_RIGHT,ValidCisloInt) end Inc(PocRad2) DlgStatic(-1,'Datum zahájení',x21,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum přerušení',130,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum ukončení',255,y2+(PocRad2*i21),110) DlgStatic(-1,'Datum obnovení',380,y2+(PocRad2*i21),110) DlgStatic(-1,'Počet měsíců',505,y2+(PocRad2*i21),95) Inc(PocRad2) DlgEditDate(230,DatumZah,x21,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(230,'C. Údaje o podnikání - Datum zahájení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(231,DatumPrer,130,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(231,'C. Údaje o podnikání - Datum přerušení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(232,DatumUkon,255,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(232,'C. Údaje o podnikání - Datum skutečného ukončení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEditDate(233,DatumObnov,380,y2-4+(PocRad2*i21),78,i21,10,,ValidDatum) DlgOnLineHelp(233,'C. Údaje o podnikání - Datum obnovení činnosti'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') DlgEdit(234,Pocetmesicu,505,y2-4+(PocRad2*i21),78,i21,2) DlgOnLineHelp(234,'C. Počet měsíců činnosti - počet měsíců, ve kterých jste provozoval'+#13+'činnost podle § 7 odst. 1 písm. a),b) nebo c) zákona'+#13+'(Neuvádějte údaje o skutečnostech, ke kterým došlo před 1.1.2005)') end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 3. cover ================================} ;{vykresleni 3. coveru} SetCover(3,'P1/2') ;DlgDivider(5,46,592,0) if(Pril1) begin x31=5 x32=246 x33=500 x34=104 x35=250 x36=396 x37=500 x38=512 x39=549 y3=2 i31=20 ;radkovani 1 i32=20 ;radkovani 2 PocRad3=0 ;pomocna promenna SirkaPolicka31=250 ;standardní šířka SirkaPolicka32=100 SirkaPolicka33=150-10 SirkaPolicka34=34 DlgStatic(-1,'E.1 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(301,P1ETZvys1,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(301,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(302,P1EHZvys1,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(302,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(303,P1ETZvys2,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(303,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(304,P1EHZvys2,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(304,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(305,P1ETZvys3,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(305,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(306,P1EHZvys3,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(306,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §5 a §23 zvyšující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(307,P1ETZvys4,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(307,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') DlgEdit(308,P1EHZvys4,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(308,'E. Úprava podle §5, §23 a ostatní úpravy... zvyšující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) y3=y3+7 DlgStatic(-1,'E.1 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(311,P1ETSniz1,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(311,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(312,P1EHSniz1,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(312,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.2 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(313,P1ETSniz2,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(313,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(314,P1EHSniz2,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(314,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.3 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(315,P1ETSniz3,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(315,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(316,P1EHSniz3,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(316,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) DlgStatic(-1,'E.4 Úpravy dle §5 a §23 snižující...',x31,y3+(PocRad3*i31),x32-10) DlgEdit(317,P1ETSniz4,x32,y3+(PocRad3*i31)-2,SirkaPolicka31,i31,120) DlgOnLineHelp(317,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') DlgEdit(318,P1EHSniz4,x33,y3+(PocRad3*i31)-2,SirkaPolicka32,i31,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(318,'E. Úprava podle §5, §23 a ostatní úpravy... snižující VH'+#13+'hodnota úpravy v Kč') Inc(PocRad3) y3=y3+7 DlgStatic(-1,'1.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(330,JmenoSdr1,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(330,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(331,PrijmeniSdr1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(331,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(332,DICSdr1,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(332,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(333,PodilP1,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(333,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(334,PodilV1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(334,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'2.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(335,JmenoSdr2,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(335,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(336,PrijmeniSdr2,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(336,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(337,DICSdr2,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(337,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(338,PodilP2,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(338,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(339,PodilV2,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(339,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'3.Účastník sdr.',x31,y3+(PocRad3*i31),x34-2) DlgEdit(340,JmenoSdr3,x34,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(340,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- jméno') DlgEdit(341,PrijmeniSdr3,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(341,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- příjmení') DlgEdit(342,DICSdr3,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(342,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- DIČ') DlgEdit(343,PodilP3,x38,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(343,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na příjmech v %') DlgEdit(344,PodilV3,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(344,'F. Údaje o účastnících sdružení'+#13+'- ostatní účastníci sdružení'+#13+'- podíl na výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'1.Spolupracující',x31,y3+(PocRad3*i31),x34-2+6) DlgEdit(350,JmenoSpol1,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) DlgOnLineHelp(350,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- jméno') DlgEdit(351,PrijmeniSpol1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(351,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- příjmení') DlgEdit(352,DICSpol1,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(352,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- DIČ') DlgEdit(354,PodilSpol1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(354,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) DlgStatic(-1,'2.Spolupracující',x31,y3+(PocRad3*i31),x34-2+6) DlgEdit(355,JmenoSpol2,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) DlgOnLineHelp(355,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- jméno') DlgEdit(356,PrijmeniSpol2,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(356,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- příjmení') DlgEdit(357,DICSpol2,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(357,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- DIČ') DlgEdit(358,PodilSpol2,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(358,'G. Údaje o spolupracujících osobách'+#13+'- jste-li osoba, která rozděluje příjmy a výdaje podle §13 zákona'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'1.Rozdělující os.',x31-2,y3+(PocRad3*i31),x34-2+6) DlgEdit(360,JmenoRozdel1,x34+6,y3+(PocRad3*i31)-2,SirkaPolicka33-6,i31,30) DlgOnLineHelp(360,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- jméno') DlgEdit(361,PrijmeniRozdel1,x35,y3+(PocRad3*i31)-2,SirkaPolicka33,i31,30) DlgOnLineHelp(361,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- příjmení') DlgEdit(362,DICRozdel1,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(362,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- DIČ') DlgEdit(363,PodilRozdel1,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(363,'H. Údaje o osobě, která rozděluje příjmy a výdaje'+#13+'- jste-li spolupracující osoba podle §13 zákona, uveďte údaje'+#13+'o osobě, která na Vás rozdělila příjmy a výdaje'+#13+'- podíl na příjmech a výdajích v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) y3=y3+7 DlgStatic(-1,'I.Údaje o veřejné obchodní spol. nebo komanditní spol.',x31,y3+(PocRad3*i31),x34-2+282) DlgEdit(366,DICVOS,x36,y3+(PocRad3*i31)-2,SirkaPolicka32+12,i31,14) DlgOnLineHelp(366,'I. Údaje o veřejné obchodní společnosti nebo komanditní společnosti'+#13+'- DIČ v.o.s. nebo k.s., kde jste společníkem nebo komplementářem') DlgEdit(367,PodilVOS,x39,y3+(PocRad3*i31)-2,SirkaPolicka34,i31,5,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(367,'I. Údaje o veřejné obchodní společnosti nebo komanditní společnosti'+#13+'- výše Vašeho podílu v %') DlgStatic(-1,'%',x39+37,y3+(PocRad3*i31),11) Inc(PocRad3) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 4. cover ================================} ;{vykresleni 4. coveru} SetCover(4,'P1/DE') if(Pril1) begin if(Program.DanovaEvidence) begin DlgStatic(-1,'D. Tabulka pro poplatníky, kteří vedou daňovou evidenci podle § 7b zákona',5,2,590) ;OpenWNSIfExist(WorkPath+'PMZ1.1.'+ROK(4)+'.WNS') ;časový název? při výpočtu té sestavy se zadává od-do, jak pozná, že si má vzít data z 1.1. nebo 31.12., SEKCE? ;DatePMZ_DE:String[10]=GetWNSDate ;TimePMZ_DE:String=GetWNSTime ;DlgCheckBox(370,TabulkaDP1,5,27,528,,'údaje do tabulky D budou převzaty ze sestavy Přehled o majetku a závazcích z data: '+DatePMZ_DE+' '+TimePMZ_DE') DlgStatic(-1,'1. Dlouhodobý hmotný majetek',5,52,285) DlgEdit(371,P1D1Z,288,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(371,'1. Dlouhodobý hmotný majetek - na začátku zdaňovacího období') DlgEdit(372,P1D1K,433,52,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(372,'1. Dlouhodobý hmotný majetek - na konci zdaňovacího období') DlgStatic(-1,'2. Peněžní prostředky v hotovosti *)',5,72,285) DlgEdit(373,P1D2Z,288,72,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(373,'2. Peněžní prostředky v hotovosti *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(374,P1D2K,433,72,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(374,'2. Peněžní prostředky v hotovosti *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'3. Peněžní prostředky na bank. účtech *)',5,92,285) DlgEdit(375,P1D3Z,288,92,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(375,'3. Peněžní prostředky na bankovních účtech *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(376,P1D3K,433,92,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(376,'3. Peněžní prostředky na bankovních účtech *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'4. Zásoby',5,112,285) DlgEdit(377,P1D4Z,288,112,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(377,'4. Zásoby - na začátku zdaňovacího období') DlgEdit(378,P1D4K,433,112,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(378,'4. Zásoby - na konci zdaňovacího období') DlgStatic(-1,'5. Pohledávky včetně posk. úvěrů a půjček',5,132,285) DlgEdit(379,P1D5Z,288,132,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(379,'5. Pohledávky včetně poskytnutých úvěrů a půjček - na začátku zdaňovacího období') DlgEdit(380,P1D5K,433,132,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(380,'5. Pohledávky včetně poskytnutých úvěrů a půjček - na konci zdaňovacího období') DlgStatic(-1,'6. Ostatní majetek *)',5,152,285) DlgEdit(381,P1D6Z,288,152,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(381,'6. Ostatní majetek *) - nepovinný údaj - na začátku zdaňovacího období') DlgEdit(382,P1D6K,433,152,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(382,'6. Ostatní majetek *) - nepovinný údaj - na konci zdaňovacího období') DlgStatic(-1,'7. Závazky včetně přijatých úvěrů a půjček',5,172,285) DlgEdit(383,P1D7Z,288,172,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(383,'7. Závazky včetně přijatých úvěrů a půjček - na začátku zdaňovacího období') DlgEdit(384,P1D7K,433,172,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(384,'7. Závazky včetně přijatých úvěrů a půjček - na konci zdaňovacího období') DlgStatic(-1,'8. Rezervy',5,192,285) DlgEdit(385,P1D8Z,288,192,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(385,'8. Rezervy - na začátku zdaňovacího období') DlgEdit(386,P1D8K,433,192,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(386,'8. Rezervy - na konci zdaňovacího období') DlgStatic(-1,'9. Mzdy',5,220,285) DlgEdit(387,Mzdy1,143,220,140,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(387,'9. Mzdy') end else begin DlgStatic(-1,'Záložka P1/DE je určena k vyplnění pouze pro poplatníky,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'kteří vedou daňovou evidenci podle § 7b zákona',10,90,590,,,ES_CENTER,$ff0011) end end else begin DlgStatic(-1,'Máte-li pro přílohu č. 1 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ; ;{============================== 5. cover ================================} ;{vykresleni 5. coveru} SetCover(5,'P2') if(Pril2) begin DlgCheckBox(401,P2VydProcentem,5,5,210,,'Uplatňuji výdaje % z příjmů') DlgOnLineHelp(401,'1. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'Uplatňuji výdaje procentem z příjmů') DlgCheckBox(402,P2SpolJmeni,230,5,350,,'Dosáhl jsem příjmů ze společného jmění manželů') DlgOnLineHelp(402,'1. Výpočet dílčího základu DPFO z pronájmu'+#13+'§ 9 zákona'+#13+'Dosáhl jsem příjmů ze společného jmění manželů') DlgStatic(-1,'201 Příjmy podle § 9 zákona',5,30,200) DlgEdit(403,P2201,495,26,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(403,'201 Příjmy podle § 9 zákona') DlgStatic(-1,'202 Výdaje podle § 9 zákona',5,50,200) DlgEdit(404,P2202,495,46,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(404,'202 Výdaje podle § 9 zákona') DlgStatic(-1,'203 Rozdíl mezi příjmy a výdaji (ř.201-202) nebo VH před zdaněním',5,70,450) DlgStatic(-1,P2203,495,70,100,,,ES_Right) DlgStatic(-1,'204 Úhrn částek podle §5, §23 ... zvyšující rozdíl mezi příjmy a výdaji...',5,90,472) DlgEdit(405,P2204,495,86,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(405,'204 Úhrn částek podle §5, §23 a ostatní úpravy ... zvyšující rozdíl mezi příjmy a výdaji nebo VH před zdaněním (zisk, ztráta)') DlgStatic(-1,'205 Úhrn částek podle §5, §23 ... snižující rozdíl mezi příjmy a výdaji...',5,110,472) DlgEdit(406,P2205,495,106,100,,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(406,'205 Úhrn částek podle §5, §23 a ostatní úpravy ... snižující rozdíl mezi příjmy a výdaji nebo VH před zdaněním (zisk, ztráta)') DlgStatic(-1,'206 Dílčí základ daně, daňová ztráta z pronájmu (ř.203+204-205)',5,130,430) DlgStatic(-1,P2206,495,130,100,,,ES_Right) DlgStatic(-1,'1 Druh příjmů',5,154,98) DlgEdit(407,P2Druh1,103,152,160,19,50) DlgOnLineHelp(407,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(408,P2Prijem1,268,152,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(408,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.2 Příjmy') DlgEdit(409,P2Vydaj1,373,152,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(409,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem1-P2Vydaj1,9,0),475,152,77,,,ES_Right) DlgEdit(410,P2Kod1,560,152,35,19,3,ES_RIGHT) DlgOnLineHelp(410,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.1 sl.5 Kód') DlgStatic(-1,'2 Druh příjmů',5,173,98) DlgEdit(411,P2Druh2,103,171,160,19,50) DlgOnLineHelp(411,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(412,P2Prijem2,268,171,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(412,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.2 Příjmy') DlgEdit(413,P2Vydaj2,373,171,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(413,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem2-P2Vydaj2,9,0),475,171,77,,,ES_Right) DlgEdit(414,P2Kod2,560,171,35,19,3,ES_RIGHT) DlgOnLineHelp(414,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.2 sl.5 Kód') DlgStatic(-1,'3 Druh příjmů',5,192,98) DlgEdit(415,P2Druh3,103,190,160,19,50) DlgOnLineHelp(415,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(416,P2Prijem3,268,190,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(416,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.2 Příjmy') DlgEdit(417,P2Vydaj3,373,190,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(417,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem3-P2Vydaj3,9,0),475,190,77,,,ES_Right) DlgEdit(418,P2Kod3,560,190,35,19,3,ES_RIGHT) DlgOnLineHelp(418,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.3 sl.5 Kód') DlgStatic(-1,'4 Druh příjmů',5,211,98) DlgEdit(419,P2Druh4,103,209,160,19,50) DlgOnLineHelp(419,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.1 Druh příjmů podle § 10 odst. 1 zákona') DlgEdit(420,P2Prijem4,268,209,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(420,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.2 Příjmy') DlgEdit(421,P2Vydaj4,373,209,100,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(421,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.3 Výdaje') DlgStatic(-1,Str(P2Prijem4-P2Vydaj4,9,0),475,209,77,,,ES_Right) DlgEdit(422,P2Kod4,560,209,35,19,3,ES_RIGHT) DlgOnLineHelp(422,'2. Výpočet dílčího základu DPFO z ostatních příjmů'+#13+'§ 10 zákona'+#13+'řád.4 sl.5 Kód') DlgStatic(-1,'Úhrn kladných rozdílů',5,231,145) DlgStatic(-1,P2DilciSuma,475,231,77,,,ES_Right) DlgStatic(-1,'207 Příjmy podle §10 zákona',5,258,210) DlgStatic(-1,P2207,495,258,100,,,ES_Right) DlgStatic(-1,'208 Výdaje §10 zákona (max do výše příjmů)',5,278,310) DlgStatic(-1,P2208,495,278,100,,,ES_Right) DlgStatic(-1,'209 Dílčí základ daně připadající na ostatní příjmy (ř.207-208)',5,298,420) DlgStatic(-1,P2209,495,298,100,,,ES_Right) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 2 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 6. cover ================================} ;{vykresleni 6. coveru} SetCover(6,'P3/1') if(Pril3) begin x51=5 x52=497 y5=2 i51=19 ;radkovani 1 PocRad5=0 ;pomocna promenna SirkaPolicka51=380 ;standardní šířka SirkaPolicka52=100 DlgStatic(-1,'301 Procento daně ze základu daně ...',x51,y5+(PocRad5*i51),x52-10-14) DlgStatic(-1,StrNative(P3301,2),x52-21,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) ; DlgEdit(501,P3301,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloKl,2,True) ;DlgOnLineHelp(501,'1. Výpočet daně z příjmů dosažených za více zdaňovacích období'+#13+'301 Procento daně ze základu daně (ř. 55 DAP děleno ř.37 DAP'+#13+'násobeno stem. Jestliže takto zjištěné procento je menší než 15 %,'+#13+' použije se 15%') Inc(PocRad5) DlgStatic(-1,'302 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgEdit(502,P3302,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(502,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'302 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období (ř.111)') Inc(PocRad5) DlgStatic(-1,'303 Daň ze zbývající části příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3303,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'304 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období',x51,y5+(PocRad5*i51),x52-10) DlgEdit(504,P3304,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(504,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'304 Úhrn zbývajících částí příjmů dosažených za více zdaňovacích období,snížený o příslušnou část výdajů,na který je uplatňován zápočet daně zaplacené v zahraničí') Inc(PocRad5) DlgStatic(-1,'305 Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí',x51,y5+(PocRad5*i51),x52-10) DlgEdit(505,P3305,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(505,'1. Daň z příjmů dosažených za více zdaňovacích období'+#13+'305 Poměrná část daně zaplacené v zahraničí z úhrnu zbývajících částí příjmů dosažených za více zdaňovacích období v souladu se smlouvou') Inc(PocRad5) DlgStatic(-1,'306 Procento z úhrnu zbývajících částí příjmů',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,StrNative(P3306,2),x52-21,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) DlgStatic(-1,'%',x52+83,y5+(PocRad5*i51),14,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'307 Z částky daně zaplacené v zahraničí lze max. započítat',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3307,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'308 Daň ze zbývajících částí příjmů dosažených za více zd. období',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,Str(P3308,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'309 Rozdíl řádků (ř. 305 - ř. 308)',x51,y5+(PocRad5*i51),x52-10) if(P3309<0) DlgStatic(-1,'---',x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) else DlgStatic(-1,Str(P3309,12,0),x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgStatic(-1,'310 Daň ze zbývajících částí příjmů ... po zápočtu daně zapl.v zahraničí',x51,y5+(PocRad5*i51),x52-10) DlgStatic(-1,P3310,x52-4,y5+(PocRad5*i51),SirkaPolicka52,,,ES_Right) Inc(PocRad5) DlgCheckBox(3101,Tab3,x51,y5+(PocRad5*i51),105,,'Tabulka č. 3') DlgOnLineHelp(3101,'Tabulku č. 3 vyplňte pouze, pokud použijete metodu vynětí s výhradou progrese'+#13+'a současně uplatňujete výpočet společného ZD manželů podle § 13a zákona.'+#13+'Dále pokračujte ve výpočtu na ř. 311 a následujících.') IF(Tab3) begin DlgStatic(-1,'Dílčí základy daně po vynětí - § 6 zákona',134,y5+(PocRad5*i51),300) DlgEdit(3102,P3Tab1P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3102,'1 Dílčí základ daně podle § 6 zákona po vynětí'+#13+'- poplatník') DlgEdit(3103,P3Tab1M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3103,'1 Dílčí základ daně podle § 6 zákona po vynětí'+#13+'- manžel/ka') Inc(PocRad5) DlgStatic(-1,'2 ZD nebo ztráta §7',x51,y5+(PocRad5*i51),132) DlgEdit(3104,P3Tab2P,134,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3104,'2 Dílčí základ daně nebo ztráta podle § 7 po vynětí'+#13+'- poplatník') DlgEdit(3105,P3Tab2M,216,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3105,'2 Dílčí základ daně nebo ztráta podle § 7 po vynětí'+#13+'- manžel/ka') DlgStatic(-1,'3 Dílčí ZD - §8',298,y5+(PocRad5*i51),130) DlgEdit(3106,P3Tab3P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3106,'3 Dílčí základ daně podle § 8 po vynětí'+#13+'- poplatník') DlgEdit(3107,P3Tab3M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3107,' 3 Dílčí základ daně podle § 8 po vynětí'+#13+'- manžel/ka') Inc(PocRad5) DlgStatic(-1,'4 ZD nebo ztráta §9',x51,y5+(PocRad5*i51),132) DlgEdit(3108,P3Tab4P,134,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3108,'4 Dílčí základ daně nebo ztráta podle § 9 zákona po vynětí'+#13+'- poplatník') DlgEdit(3109,P3Tab4M,216,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3109,'4 Dílčí základ daně nebo ztráta podle § 9 zákona po vynětí'+#13+'- manžel/ka') DlgStatic(-1,'5 Dílčí ZD - § 10',298,y5+(PocRad5*i51),130) DlgEdit(3110,P3Tab5P,435,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3110,'5 Dílčí základ daně podle § 10 zákona po vynětí'+#13+'- poplatník') DlgEdit(3111,P3Tab5M,517,y5+(PocRad5*i51)-2,80,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(3111,'5 Dílčí základ daně podle § 10 zákona po vynětí'+#13+'- manžel/ka') end Inc(PocRad5) DlgStatic(-1,'311 Příjmy po vynětí dle § 6 zákona',x51,y5+(PocRad5*i51),x52-10) DlgEdit(520,P3311,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(520,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'311 Příjmy po vynětí dle § 6 zákona (ř.36-úhrn vyňatých příjmů ze zdrojů v zahraničí dle § 6 zákona)') Inc(PocRad5) DlgStatic(-1,'312 Příjmy po vynětí dle § 7 až § 10 zákona',x51,y5+(PocRad5*i51),x52-10) DlgEdit(521,P3312,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(521,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'312 Příjmy po vynětí dle § 7 až § 10 zákona (ř.41-úhrn vyňatých příjmů ze zdrojů v zahraničí dle § 7 až § 10 zákona)') Inc(PocRad5) DlgStatic(-1,'313 Základ daně po vynětí příjmů ze zdrojů v zahraničí (311+klad.312)',x51,y5+(PocRad5*i51),x52-10) DlgEdit(522,P3313,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_Right,ValidCisloInt) DlgOnLineHelp(522,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'313 Základ daně po vynětí příjmů ze zdrojů v zahraničí (ř. 311 + kladný ř. 312)') Inc(PocRad5) DlgStatic(-1,'314 Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený ...',x51,y5+(PocRad5*i51),x52-10) DlgEdit(523,P3314,x52,y5+(PocRad5*i51)-2,SirkaPolicka52,i51,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(523,'2. Příjmy ze zdrojů v zahraničí - metoda vynětí s výhradou progrese'+#13+'314 Základ daně po vynětí příjmů ze zdrojů v zahraničí snížený o nezdanitelné části základu daně a odčitatelné položky (ř.313 - ř.60 - ř.44)') Inc(PocRad5) DlgStatic(-1,'315 Sazba celk. daň. zatížení',x51,y5+(PocRad5*i51),208) DlgStatic(-1,StrNative(P3315,2),215,y5+(PocRad5*i51),50,,,ES_Right) DlgStatic(-1,'%',271,y5+(PocRad5*i51),14,,,ES_Right) DlgStatic(-1,'316 Daň po vynětí příjmů...',295,y5+(PocRad5*i51),218) DlgStatic(-1,P3316,513,y5+(PocRad5*i51),80,,,ES_Right) Inc(PocRad5) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 3 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ; ;{============================== 7. cover ================================} ;{vykresleni 7. coveru} SetCover(7,'P3/2') if(Pril3) begin x61=5 x62=497 y6=2 i61=20 ;radkovani 1 PocRad6=0 ;pomocna promenna SirkaPolicka61=380 ;standardní šířka SirkaPolicka62=100 DlgStatic(-1,'Vyplňte v případě, že zaměstnáváte osoby se změněnou pracovní schopností...',x61,y6+(PocRad6*i61),590) Inc(PocRad6) DlgStatic(-1,'a)průměrný se ZP',x61,y6+(PocRad6*i61),140) DlgEdit(601,P3ZPS1P,120,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloKl,2) DlgOnLineHelp(601,'a) průměrný roční přepočtený stav zaměstnanců se zdravotním postižením bez těžšího zdravotního postižení (se ZP bez TZP)') DlgStatic(-1,'sleva',203,y6+(PocRad6*i61),35) DlgEdit(602,P3ZPS1H,245-5,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(602,'sleva na dani (ZP bez TZP)') DlgStatic(-1,'b) s TZP',355-35+6,y6+(PocRad6*i61),74) DlgEdit(603,P3ZPS2P,345+38+14,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloKl,2) DlgOnLineHelp(603,'b) průměrný roční přepočtený stav zaměstnanců s těžším zdravotním postižením (s TZP)') DlgStatic(-1,'sleva',480,y6+(PocRad6*i61),35) DlgEdit(604,P3ZPS2H,480+38,y6+(PocRad6*i61)-2,80,i61,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(604,'sleva na dani (s TZP)') Inc(PocRad6) DlgStatic(-1,'317 Daň podle §16 odst.1 nebo po případném vynětí příjmů ze zdrojů zahr.',x61,y6+(PocRad6*i61),x62-10) DlgEdit(610,P3317,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(610,'3. Daň po vynětí a po slevě'+#13+'317 Daň podle §16 odst.1 zákona nebo daň po případném vynětí příjmů ze zdrojů v zahraničí (ř. 63 DAP nebo ř. 316)') Inc(PocRad6) DlgStatic(-1,'318 Daň ze zbývajících částí příjmů dosažených za více zdaň. období',x61,y6+(PocRad6*i61),x62-10) DlgEdit(611,P3318,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(611,'3. Daň po vynětí a po slevě'+#13+'318 Daň ze zbývajících částí příjmů dosažených za více zdaňovacích období (ř. 303 nebo ř. 310)') Inc(PocRad6) DlgStatic(-1,'319 Slevy celkem podle § 35 odst. 1 zákona',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3319,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'319a Sleva na registrační pokladnu',x61,y6+(PocRad6*i61),x62-10) DlgEdit(6111,P3319A,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(6111,'3. Daň po vynětí a po slevě'+#13+'319a Sleva na registrační pokladnu') Inc(PocRad6) DlgStatic(-1,'320 Daň po slevách (ř.317 + ř.318 - ř.319 - ř.319a)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3320,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'Kód státu',x61,y6+(PocRad6*i61),90) DlgEdit(6151,KS1,80,y6+(PocRad6*i61)-2,40,i61,5) DlgOnLineHelp(6151,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'Kód státu') DlgStatic(-1,'321 Příjmy ze zdrojů v zahraničí-metoda zápočtu',x61+155-30,y6+(PocRad6*i61),x62-180) DlgEdit(615,P3321,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(615,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'321 Příjmy ze zdrojů v zahraničí, u nichž se použije metoda zápočtu') Inc(PocRad6) DlgStatic(-1,'322 Výdaje',x61,y6+(PocRad6*i61),x62-10) DlgEdit(616,P3322,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(616,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'322 Výdaje') Inc(PocRad6) DlgStatic(-1,'323 Daň zaplacená v zahraničí',x61,y6+(PocRad6*i61),x62-10) DlgEdit(617,P3323,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(617,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'323 Daň zaplacená v zahraničí') Inc(PocRad6) DlgStatic(-1,'324 Koeficient zápočtu (ř.321-322) děleno (ř.42-příjmy vyňaté)*100',x61,y6+(PocRad6*i61),x62-10) DlgEdit(618,P3324,x62,y6+(PocRad6*i61)-2,SirkaPolicka62-20,i61,9,ES_RIGHT,ValidCislo) DlgOnLineHelp(618,'4. Příjmy ze zdrojů v zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'324 Koeficient zápočtu'+#13+'(ř.321-322)děleno(ř.42-příjmy vyňaté) násobeno stem') DlgStatic(-1,'%',x62+83,y6+(PocRad6*i61),14,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'325 Z částky daně zaplacené v zahraničí lze max. započítat',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3325,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'326 Daň uznaná k zápočtu (ř. 323 max. však do výše ř. 325)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3326,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'327 Rozdíl řádků (ř. 323 - ř. 326)',x61,y6+(PocRad6*i61),x62-10) if(P3327<0) DlgStatic(-1,'---',x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) else DlgStatic(-1,P3327,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) DlgStatic(-1,'328 Daň uznaná k zápočtu (úhrn ř. 326 i ze samost. listů)',x61,y6+(PocRad6*i61),x62-10) DlgEdit(619,P3328,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(619,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'328 Daň uznaná k zápočtu (úhrn řádků 326 i ze samostatných listů)') Inc(PocRad6) DlgStatic(-1,'329 Daň neuznaná k zápočtu (úhrn ř. 327 i ze samost. listů)',x61,y6+(PocRad6*i61),x62-10) DlgEdit(620,P3329,x62,y6+(PocRad6*i61)-2,SirkaPolicka62,i61,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(620,'4. Příjmy ze zahraničí - metoda prostého zápočtu daně zaplacené v zahraničí'+#13+'329 Daň neuznaná k zápočtu (úhrn řádků 327 i ze samostatných listů)') Inc(PocRad6) DlgStatic(-1,'330 Rozdíl řádků (ř. 320 - ř. 328)',x61,y6+(PocRad6*i61),x62-10) DlgStatic(-1,P3330,x62-4,y6+(PocRad6*i61),SirkaPolicka62,,,ES_Right) Inc(PocRad6) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 3 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 8. cover ================================} ;{vykresleni 8. coveru} SetCover(8,'P4') if(Pril4) begin x41=5 x42=507 x43=310 x44=497 x45=519 y4=2 i41=19 ;radkovani 1 i42=19 ;radkovani 2 PocRad4=0 ;pomocna promenna SirkaPolicka41=80 ;standardní šířka SirkaPolicka42=20 DlgStatic(-1,'401 Příjmy podle § 8 zákona plynoucí ze zdrojů v zahraničí',x41,y4+(PocRad4*i41),x42-2) DlgEdit(425,P4401,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(425,'Příloha 4 - Výpočet daně ze samostatného základu daně podle § 16 odst. 2 zákona'+#13+'401 Příjmy podle § 8 zákona plynoucí ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'402 Příjmy podle § 10 odst. 1 písm. h) a písm. ch) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(426,P4402,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(426,'402 Příjmy podle § 10 odst. 1 písm. h) a písm. ch) zákona ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'403 Příjmy podle § 10 odst. 1 písm. f) a písm. g) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(427,P4403,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(427,'403 Příjmy podle § 10 odst. 1 písm. f) a písm. g) zákona plynoucí ze zdrojů v zahraničí') Inc(PocRad4) DlgStatic(-1,'404 Výdaje k příjmům podle § 10 odst. 1 písm. f) a písm. g) zákona',x41,y4+(PocRad4*i41),x42-2) DlgEdit(428,P4404,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(428,'404 Výdaje k příjmům podle § 10 odst. 1 písm. f) a písm. g) zákona') Inc(PocRad4) DlgStatic(-1,'405 Dílčí samostatný ZD podle § 8 zákona (401)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4405,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'406 Dílčí samostatný ZD z příjmů dle § 10/1/h) a ch) zákona (402)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4406,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'407 Dílčí samostatný ZD z příjmů dle § 10/1/f) a g) zákona (403-404)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4407,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'408 Daň z příjmů se sazbou 15 % z příjmů (z dílčího ZD na ř. 405+407)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4408,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'409 Daň z příjmů se sazbou 20 % z příjmů (z dílčího ZD na ř. 406)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4409,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'410 Úhrn příjmů u nichž se uplatní zápočet - sazba daně 15 % (405+407)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4410,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'411 Úhrn příjmů u nichž se uplatní zápočet - sazba daně 20 % (406)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4411,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'412 Daň zaplacená v zahraničí z příjmů uvedených na ř. 410',x41,y4+(PocRad4*i41),x42-2) DlgEdit(429,P4412,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(429,'412 Daň zaplacená v zahraničí z příjmů uvedených na ř. 410') Inc(PocRad4) DlgStatic(-1,'413 Daň zaplacená v zahraničí z příjmů uvedených na ř. 411',x41,y4+(PocRad4*i41),x42-2) DlgEdit(430,P4413,x42+12,y4+(PocRad4*i41)-2,SirkaPolicka41,i41,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(430,'413 Daň zaplacená v zahraničí z příjmů uvedených na ř. 411') Inc(PocRad4) DlgStatic(-1,'414 Daň uznaná k zápočtu (ř. 412 maximálně do výše uvedené na ř. 408)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4414,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_Right) Inc(PocRad4) DlgStatic(-1,'415 Daň uznaná k zápočtu (ř. 413 maximálně do výše uvedené na ř. 409)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4415,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'416 Rozdíl řádků (ř. 408 - ř. 414)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4416,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'417 Rozdíl řádků (ř. 409 - ř. 415)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4417,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) DlgStatic(-1,'418 Daň celkem (ř. 416 + ř. 417)',x41,y4+(PocRad4*i41),x42-2) DlgStatic(-1,P4418,x42+12,y4+(PocRad4*i41),SirkaPolicka41,,,ES_RIGHT) Inc(PocRad4) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 4 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 9. cover ================================} ;{vykresleni 9. coveru} SetCover(9,'P5/1') if(Pril5) begin DlgStatic(-1,'PŘÍLOHA č. 5 - Výpočet společného základu daně manželů podle § 13a zákona',5,5,590,,,ES_CENTER) DlgStatic(-1,'Údaje o manželce/manželovi',5,35,200) DlgStatic(-1,'Příjmení, jméno, titul',5,57,145) DlgEdit(525,P5Manzel,150,55,255,20,100,ES_LEFT) DlgStatic(-1,'DIČ/RČ',415,57,50) DlgEdit(526,P5DICManzel,470,55,120,20,12,ES_LEFT) DlgStatic(-1,'poplatník',430,87,80) DlgStatic(-1,'manžel/ka',520,87,80) DlgStatic(-1,'501 Dílčí ZD ze závislé činnosti - § 6 zákona (ř. 36)',5,107,415) DlgStatic(-1,P5501P,425,105,80,,,ES_RIGHT) DlgEdit(527,P5501M,510,105,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(527,'501 Dílčí základ daně ze závislé činnosti a z funkčních požitků podle § 6 zákona (ř. 36) - manžel/ka') DlgStatic(-1,'502 Dílčí ZD z podnikání - § 7 zákona',5,127,415) DlgStatic(-1,P5502P,425,125,80,,,ES_RIGHT) DlgEdit(528,P5502M,510,125,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(528,'502 Dílčí základ daně z podnikání a z jiné samostatné výdělečné činnosti podle § 7 zákona (kladný ř. 37) - manžel/ka') DlgStatic(-1,'503 Dílčí ZD z kapitálového majetku - § 8 zákona',5,147,415) DlgStatic(-1,P5503P,425,145,80,,,ES_RIGHT) DlgEdit(529,P5503M,510,145,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(529,'503 Dílčí základ daně z kapitálového majetku podle § 8 zákona (ř. 38) - manžel/ka') DlgStatic(-1,'504 Dílčí ZD z pronájmu - § 9 zákona',5,167,415) DlgStatic(-1,P5504P,425,165,80,,,ES_RIGHT) DlgEdit(530,P5504M,510,165,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(530,'504 Dílčí základ daně z pronájmu podle § 9 zákona (kladný ř. 39) - manžel/ka') DlgStatic(-1,'505 Dílčí ZD z ostatních příjmů - § 10 zákona',5,187,415) DlgStatic(-1,P5505P,425,185,80,,,ES_RIGHT) DlgEdit(531,P5505M,510,185,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(531,'505 Dílčí základ daně z ostatních příjmů podle § 10 zákona (ř. 40) - manžel/ka') DlgStatic(-1,'506 Součet dílčích ZD podle § 6 až § 10 zákona',5,207,415) DlgStatic(-1,P5506P,425,205,80,,,ES_RIGHT) DlgStatic(-1,P5506M,510,205,80,,,ES_RIGHT) DlgStatic(-1,'507 Součet dílčích ZD za oba manžele (506 sl. poplatník+sl.manžel/ka)',5,240,500) DlgStatic(-1,P5507PM,510,238,80,,,ES_RIGHT) DlgStatic(-1,'Údaje o starobním důchodu',5,267,415) DlgEdit(532,P5DuchodP,425,265,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(532,'(POPLATNÍK) Pobíral-li jste k 1.1. zdaňovacího období starobní důchod ze soc. zabezpečení,'+#13+'uveďte jeho roční výši v Kč pouze v případě, uplatňujete-li nezdanitelnou část základu daně') DlgEdit(533,P5DuchodP,510,265,80,20,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(533,'(MANŽEL/KA) Pobíral-li jste k 1.1. zdaňovacího období starobní důchod ze soc. zabezpečení,'+#13+'uveďte jeho roční výši v Kč pouze v případě, uplatňujete-li nezdanitelnou část základu daně') end else begin DlgStatic(-1,'Máte-li pro přílohu č. 5 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 10. cover ================================} ;{vykresleni 10. coveru} SetCover(10,'P5/2') if(Pril5) begin x81=5 x82=207 x83=310 x84=497 x85=519 y8=2 i81=20 ;radkovani 1 i82=20 ;radkovani 2 PocRad8=0 ;pomocna promenna SirkaPolicka81=80 ;standardní šířka SirkaPolicka82=20 DlgDivider(395,5,0,319) DlgStatic(-1,'508 Odst.1a) základní nezd. částka',2,5,225) DlgEdit(534,P5508P,227,5,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(534,'508 § 15 odstavec 1 písm. a) zákona'+#13+'(základní nezdanitelná částka) - poplatník') DlgEdit(535,P5508M,321,5,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(535,'508 § 15 odstavec 1 písm. a) zákona'+#13+'(základní nezdanitelná částka) - manžel/ka') DlgStatic(-1,'509a Odst.1b) manžel/ka',2,25,203) DlgEdit(536,MesP5509aP,205,25,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(536,'509a § 15 Odst. 1. písmeno b) zákona (na manželku/manžela)'+#13+'Počet měsíců - poplatník') DlgEdit(537,P5509aP,227,25,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(537,'509a § 15 Odst. 1. písmeno b) zákona (na manželku/manžela)'+#13+'Částka - poplatník') DlgEdit(538,MesP5509aM,299,25,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(538,'509a § 15 Odst. 1. písmeno b) zákona (na manželku/manžela)'+#13+'Počet měsíců - manžel/ka') DlgEdit(539,P5509aM,321,25,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(539,'509a § 15 Odst. 1. písmeno b) zákona (na manželku/manžela)'+#13+'Částka - manžel/ka') DlgStatic(-1,'509b Odst.1b) manžel/ka ZTP',2,45,203) DlgEdit(540,MesP5509bP,205,45,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(540,'509b §15 Odst. 1. písmeno b) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P)'+#13+'Počet měsíců - poplatník') DlgEdit(541,P5509bP,227,45,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(541,'509b §15 Odst. 1. písmeno b) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P)'+#13+'Částka - poplatník') DlgEdit(542,MesP5509bM,299,45,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(542,'509b §15 Odst. 1. písmeno b) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P)'+#13+'Počet měsíců - manžel/ka') DlgEdit(543,P5509bM,321,45,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(543,'509b §15 Odst. 1. písmeno b) zákona (na manželku/manžela, která/který je držitelem průkazu ZTP/P)'+#13+'Částka - manžel/ka') DlgStatic(-1,'510 Odst.1c) část. inv. důchod',2,65,203) DlgEdit(544,MesP5510P,205,65,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(544,'510 §15 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu)'+#13+'Počet měsíců - poplatník') DlgEdit(545,P5510P,227,65,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(545,'510 §15 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu)'+#13+'Částka - poplatník') DlgEdit(546,MesP5510M,299,65,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(546,'510 §15 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu)'+#13+'Počet měsíců - manžel/ka') DlgEdit(547,P5510M,321,65,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(547,'510 §15 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu)'+#13+'Částka - manžel/ka') DlgStatic(-1,'511 Odst.1d) plný inv. důchod',2,85,203) DlgEdit(548,MesP5511P,205,85,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(548,'511 §15 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu)'+#13+'Počet měsíců - poplatník') DlgEdit(549,P5511P,227,85,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(549,'511 §15 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu)'+#13+'Částka - poplatník') DlgEdit(550,MesP5511M,299,85,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(550,'511 §15 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu)'+#13+'Počet měsíců - manžel/ka') DlgEdit(551,P5511M,321,85,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(551,'511 §15 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu)'+#13+'Částka - manžel/ka') DlgStatic(-1,'512 Odst.1e) držitel ZTP/P',2,105,203) DlgEdit(552,MesP5512P,205,105,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(552,'512 §15 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P)'+#13+'Počet měsíců - poplatník') DlgEdit(553,P5512P,227,105,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(553,'512 §15 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P)'+#13+'Částka - poplatník') DlgEdit(554,MesP5512M,299,105,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(554,'512 §15 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P)'+#13+'Počet měsíců - manžel/ka') DlgEdit(555,P5512M,321,105,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(555,'512 §15 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P)'+#13+'Částka - manžel/ka') DlgStatic(-1,'513 Odst.1f) studium',2,125,203) DlgEdit(556,MesP5513P,205,125,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(556,'513 podle §15 Odst. 1. písmeno f) zákona (studium)'+#13+'Počet měsíců - poplatník') DlgEdit(557,P5513P,227,125,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(557,'513 podle §15 Odst. 1. písmeno f) zákona (studium)'+#13+'Částka - poplatník') DlgEdit(558,MesP5513M,299,125,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(558,'513 podle §15 Odst. 1. písmeno f) zákona (studium)'+#13+'Počet měsíců - manžel/ka') DlgEdit(559,P5513M,321,125,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(559,'513 podle §15 Odst. 1. písmeno f) zákona (studium)'+#13+'Částka - manžel/ka') DlgStatic(-1,'514 Odst.5 - hodnota darů',2,145,203) DlgEdit(560,P5514P,227,145,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(560,'514 podle §15 Odst. 5 zákona (hodnota daru/darů) - poplatník') DlgEdit(561,P5514M,321,145,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(561,'514 podle §15 Odst. 5 zákona (hodnota daru/darů) - manžel/ka') DlgStatic(-1,'515 Odst.7 a 8 - odečet úroků',2,165,203) DlgEdit(563,MesP5515P,205,165,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(563,'515 podle §15 Odst. 7 a 8 zákona (odečet úroků)'+#13+'Počet měsíců - poplatník') DlgEdit(564,P5515P,227,165,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(564,'515 podle §15 Odst. 7 a 8 zákona (odečet úroků)'+#13+'Částka - poplatník') DlgEdit(565,MesP5515M,299,165,20,19,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(565,'515 podle §15 Odst. 7 a 8 zákona (odečet úroků)'+#13+'Počet měsíců - manžel/ka') DlgEdit(566,P5515M,321,165,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(566,'515 podle §15 Odst. 7 a 8 zákona (odečet úroků)'+#13+'Částka - manžel/ka') DlgStatic(-1,'516 Odst.9 zákona-penzij. přip.',2,185,203) DlgEdit(567,P5516P,227,185,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(567,'516 podle §15 Odst. 9 zákona (penzijní připojištění)'+#13+'Částka - poplatník') DlgEdit(568,P5516M,321,185,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(568,'516 podle §15 Odst. 9 zákona (penzijní připojištění)'+#13+'Částka - manžel/ka') DlgStatic(-1,'517 Odst. 10 zákona-život. poj.',2,205,203) DlgEdit(569,P5517P,227,205,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(569,'517 podle §15 Odst. 10 zákona (životní pojištění)'+#13+'Částka - poplatník') DlgEdit(570,P5517M,321,205,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(570,'517 podle §15 Odst. 10 zákona (životní pojištění)'+#13+'Částka - manžel/ka') DlgStatic(-1,'518 Odst. 11 zákona-odbor. přís.',2,225,220) DlgEdit(571,P5518P,227,225,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(571,'518 podle §15 Odst. 11 zákona (odborové příspěvky)'+#13+'Částka - poplatník') DlgEdit(572,P5518M,321,225,70,19,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(572,'518 podle §15 Odst. 11 zákona (odborové příspěvky)'+#13+'Částka - manžel/ka') DlgStatic(-1,'519 Úhrn nezdanitel. částí ZD',2,245,203) DlgStatic(-1,P5519P,227,245,70,,,ES_RIGHT) DlgStatic(-1,P5519M,321,245,70,,,ES_RIGHT) DlgStatic(-1,'520 Úhrn nezdan. č. ZD',399,5,200) DlgStatic(-1,P5520PM,520,25,80,,,ES_RIGHT) DlgStatic(-1,'521 Společný základ daně',399,45,200) DlgStatic(-1,SPOLZAKLAD,520,65,80,,,ES_RIGHT) DlgStatic(-1,'522 (jedna polovina z ř. 521)',399,85,200) DlgStatic(-1,P5522,520,105,80,,,ES_RIGHT) DlgStatic(-1,'523 § 34 odst. 1 zákona',399,125,200) DlgEdit(573,P5523,520,145,80,19,9,ES_RIGHT) DlgOnLineHelp(573,'523 uveďte uplatňovanou ztrátu dle § 34 odst. 1 zákona, která vznikla ve ZO v němž neuplatňujete výpočet společného základu daně.') DlgStatic(-1,'524 § 34 odst. 4 zákona',399,165,200) DlgEdit(574,P5524,520,185,80,19,9,ES_RIGHT) DlgOnLineHelp(574,'524 uveďte uplatňovanou výši výdajů (nákladů) dle § 34 odst. 4 zákona, vynaložených při realizaci výzkumu a vývoje') DlgStatic(-1,'525',399,205,28) DlgEdit(575,P5525T,428,205,172,19,100,ES_LEFT) DlgOnLineHelp(575,'525 Další částky - např. uplatňovaná výše odpočtu podle § 34 odst. 3 až 10 a 12 zákona v platném znění do 31. 12. 2004. Název položky') DlgEdit(576,P5525P,520,225,80,19,9,ES_RIGHT) DlgOnLineHelp(576,'525 Další částky - např. uplatňovaná výše odpočtu podle § 34 odst. 3 až 10 a 12 zákona v platném znění do 31. 12. 2004. Částka') DlgStatic(-1,'526 (522-523-524-525)',399,245,200) DlgStatic(-1,P5526,520,265,80,,,ES_RIGHT) end else begin DlgStatic(-1,'Máte-li pro přílohu č. 5 obsahovou náplň,',10,60,590,,,ES_CENTER,$ff0011) DlgStatic(-1,'potvrďte výběr této přílohy před vstupem do formuláře',10,90,590,,,ES_CENTER,$ff0011) end ;{============================== 11. cover ================================} ;{vykresleni 11. coveru} SetCover(11,'S2') DlgDivider(303,5,0,230) x81=5 x82=207 x83=310 x84=497 x85=519 y8=2 i81=20 ;radkovani 1 i82=20 ;radkovani 2 PocRad8=0 ;pomocna promenna SirkaPolicka81=80 ;standardní šířka SirkaPolicka82=20 DlgStatic(-1,'31 Úhrn příjmů od všech zam.',x81,y8+(PocRad8*I81),x82-2) DlgEdit(621,D31,x82,y8+(PocRad8*I81),SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(621,'31 Úhrn příjmů od všech zaměstnavatelů') Inc(PocRad8) DlgStatic(-1,'32 Úhrn pojistného',x81,y8+(PocRad8*I81),x82-2) DlgEdit(622,D32,x82,y8+(PocRad8*I81),SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(622,'32 Úhrn pojistného') Inc(PocRad8) DlgStatic(-1,'33 Daň zaplacená v zahraničí',x81,y8+(PocRad8*I81),x82-2) DlgEdit(623,D33,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(623,'33 Daň zaplacená v zahraničí podle § 6 odst. 13 zákona') Inc(PocRad8) DlgStatic(-1,'34 Dílčí základ daně podle §6',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D34,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'35 Úhrn zahr. příjmů-pojistné',x81,y8+(PocRad8*I81),x82-2) DlgEdit(624,D35,x82,y8+(PocRad8*I81),SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(624,'35 Úhrn příjmů plynoucí ze zahraničí snížený o pojistné') Inc(PocRad8) DlgStatic(-1,'36 Dílčí ZD podle § 6',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D36,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'37 Dílčí ZD podle § 7',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D37,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'38 Dílčí ZD podle § 8',x81,y8+(PocRad8*I81),x82-2) DlgEdit(625,D38,x82,y8+(PocRad8*I81),SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(625,'38 Dílčí základ daně z kapitálového majetku podle § 8 zákona') Inc(PocRad8) DlgStatic(-1,'39 Dílčí ZD nebo ztráta - § 9',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D39,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'40 Dílčí ZD podle § 10',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D40,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'41 Úhrn ř.37+38+39+40',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,D41,x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'42 Základ daně ř.36+kladný41',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,STR(D42,13,0),x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'43 Minimální základ daně',x81,y8+(PocRad8*I81),x82-2) DlgEdit(8021,D43M,x82-12,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloK2) DlgOnLineHelp(8021,'43 Minimální základ daně - počet měsíců'+#13+'§ 7c zákona o daních z příjmů'+#13+'Vyplňuje se pouze tehdy, pokud se na Vás tento § zákona vztahuje') DlgEdit(8022,D34,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(8022,'43 Minimální základ daně'+#13+'§ 7c zákona o daních z příjmů'+#13+'Vyplňuje se pouze tehdy, pokud se na Vás tento § zákona vztahuje'+#13+'Pokud vyplníte, bude přeneseno do ř. 45') Inc(PocRad8) DlgStatic(-1,'44 Uplatňovaná výše ... ztráty',x81,y8+(PocRad8*I81),x82-2) DlgEdit(802,D44,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(802,'44 Uplatňovaná výše vzniklé a vyměřené ztráty za předcházející'+#13+'zdaňovací období maximálně do výše ř. 41') Inc(PocRad8) DlgStatic(-1,'45 Základ daně po odečt.ztráty',x81,y8+(PocRad8*I81),x82-2) DlgStatic(-1,STR(D45,13,0),x82,y8+(PocRad8*I81),90,,,ES_RIGHT) Inc(PocRad8) DlgStatic(-1,'Údaje o starobním důchodu',x81,y8+(PocRad8*I81),x82-2) DlgEdit(851,Duch,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(851,'Pobíral-li jste k 1.1. zdaňovacího období starobní důchod ze sociálního zabezpečení'+#13+'uveďte jeho roční výši pouze v případě, uplatňujete-li nezdanitelnou část základu daně') Inc(PocRad8) DlgStatic(-1,'Údaje o manželce/manželovi',x81,y8+(PocRad8*I81),192) DlgEdit(852,ManzelJmeno,x82+12,y8+(PocRad8*I81)-2,SirkaPolicka81+180,i81,100,ES_LEFT) DlgOnLineHelp(852,'Příjmení, jméno, titul') DlgStatic(-1,'RČ',x82+275,y8+(PocRad8*I81),20) DlgEdit(853,ManzelRC,x82+300,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(853,'Rodné číslo') Inc(PocRad8) PocRad8=0 DlgStatic(-1,'46 Odst.1,a)-základní nezd.',x83,y8+(PocRad8*I81),203) DlgEdit(821,D46,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(821,'Částka podle §15'+#13+'46 Odst. 1. písmeno a) zákona (základní nezdanitelná částka) v celých Kč') Inc(PocRad8) DlgStatic(-1,'47a)Odst.1,b)-manžel/ka',x83,y8+(PocRad8*I81),183) DlgEdit(822,D47AM,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(822,'Částka podle §15'+#13+'47a) Odst. 1. písmeno b) zákona (na manželku/manžela)'+#13+'Počet měsíců') DlgEdit(823,D47AH,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(823,'Částka podle §15'+#13+'47a) Odst. 1. písmeno b) zákona (na manželku/manžela) v celých Kč') Inc(PocRad8) DlgStatic(-1,'47b)Odst.1,b)-manžel/ka ZTP',x83,y8+(PocRad8*I81),183) DlgEdit(824,D47BM,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(824,'Částka podle §15'+#13+'47b) Odst. 1. písmeno b) zákona (na manželku/manžela, který je držitelem průkazu ZTP/P)'+#13+'Počet měsíců') DlgEdit(825,D47BH,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(825,'Částka podle §15'+#13+'47b) Odst. 1. písmeno b) zákona (na manželku/manžela, který je držitelem průkazu ZTP/P) v celých Kč') Inc(PocRad8) DlgStatic(-1,'48 Odst.1,c)-část.in.důchod',x83,y8+(PocRad8*I81),183) DlgEdit(826,D48M,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(826,'Částka podle §15'+#13+'48 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu)'+#13+'Počet měsíců') DlgEdit(827,D48H,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(827,'Částka podle §15'+#13+'48 Odst. 1. písmeno c) zákona (na poživatele částečného invalidního důchodu) v celých Kč') Inc(PocRad8) DlgStatic(-1,'49 Odst.1,d)-plný in.důchod',x83,y8+(PocRad8*I81),183) DlgEdit(828,D49M,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(828,'Částka podle §15'+#13+'49 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu)'+#13+'Počet měsíců') DlgEdit(829,D49H,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(829,'Částka podle §15'+#13+'49 Odst. 1. písmeno d) zákona (na poživatele plného invalidního důchodu) v celých Kč') Inc(PocRad8) DlgStatic(-1,'50 Odst.1,e)-držitel pr. ZTP',x83,y8+(PocRad8*I81),184) DlgEdit(830,D50M,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(830,'Částka podle §15'+#13+'50 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P)'+#13+'Počet měsíců') DlgEdit(831,D50H,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(831,'Částka podle §15'+#13+'50 Odst. 1. písmeno e) zákona (na držitele průkazu ZTP/P) v celých Kč') Inc(PocRad8) DlgStatic(-1,'51 Odst.1,f)-studium',x83,y8+(PocRad8*I81),183) DlgEdit(832,D51M,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(832,'Částka podle §15'+#13+'51 Odst. 1. písmeno f) zákona (studium)'+#13+'Počet měsíců') DlgEdit(833,D51H,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(833,'Částka podle §15'+#13+'51 Odst. 1. písmeno f) zákona (studium) v celých Kč') Inc(PocRad8) DlgStatic(-1,'52 Odst.5 - hodnota darů',x83,y8+(PocRad8*I81),183) DlgEdit(835,D52,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(835,'Částka podle §15'+#13+'52 Odst. 5 zákona (hodnota daru/darů) v celých Kč') Inc(PocRad8) DlgStatic(-1,'53 Odst.7 a 8-úroky',x83,y8+(PocRad8*I81),183) DlgEdit(836,D53M,x84,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(836,'Částka podle §15'+#13+'53 Odst. 7 a 8 zákona (odečet úroků)'+#13+'Počet měsíců') DlgEdit(837,D53H,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(837,'Částka podle §15'+#13+'53 Odst. 7 a 8 zákona (odečet úroků)v celých Kč') Inc(PocRad8) DlgStatic(-1,'54 Odst.9 - pen.připoj.',x83,y8+(PocRad8*I81),183) DlgEdit(838,D54,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(838,'Částka podle §15'+#13+'54 Odst. 9. zákona (penzijní připojištění) v celých Kč') Inc(PocRad8) DlgStatic(-1,'55 Odst.10 - život. poj.',x83,y8+(PocRad8*I81),203) DlgEdit(839,D55,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(839,'Částka podle §15'+#13+'55 Odst. 10 zákona (životní pojištění) v celých Kč') Inc(PocRad8) DlgStatic(-1,'56 Odst.11 - odbor. přís.',x83,y8+(PocRad8*I81),203) DlgEdit(840,D56,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(840,'Částka podle §15'+#13+'56 Odst. 11 zákona (odborové příspěvky) v celých Kč') Inc(PocRad8) DlgStatic(-1,'57- §34odst.3 - výuka',x83,y8+(PocRad8*I81),203) DlgEdit(841,D57,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(841,'Částka podle §15'+#13+'57 - § 34 odst. 3 zákona (výuka) v celých Kč') Inc(PocRad8) DlgStatic(-1,'58- §34odst.4-výzkum a vývoj',x83,y8+(PocRad8*I81),203) DlgEdit(842,D58,x85,y8+(PocRad8*I81)-2,SirkaPolicka81,i81,9,ES_RIGHT,ValidCisloInt) DlgOnLineHelp(842,'Částka podle §15'+#13+'58 - § 34 odst. 4 zákona (výzkum a vývoj) v celých Kč') Inc(PocRad8) ; ;{==============================12. cover ================================} ;{vykresleni 12. coveru} SetCover(12,'S3') DlgDivider(303,5,0,147) x91=5 x92=207 x93=310 x94=497 x95=516 y9=2 i91=22 ;radkovani 1 i92=20 ;radkovani 2 PocRad9=0 ;pomocna promenna SirkaPolicka91=80 ;standardní šířka SirkaPolicka92=20 SirkaPolicka93=198 DlgStatic(-1,'49 Odst.12 (penzijní připoj.)',x91,y9+(PocRad9*I91),x92-2) DlgEdit(901,D60,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(901,'Částka podle §15'+#13+'49 Odst. 12 zákona (penzijní připojištění)') Inc(PocRad9) DlgStatic(-1,'50 Odst.13 (životní připoj.)',x91,y9+(PocRad9*I91),x92-2) DlgEdit(902,D61,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(902,'Částka podle §15'+#13+'50 Odst. 13 zákona (životní pojištění)') Inc(PocRad9) DlgStatic(-1,'50a Odst.14 (odborové přísp.)',x91,y9+(PocRad9*I91),x92-2) DlgEdit(9021,D62,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(9021,'Částka podle §15'+#13+'50a Odst. 14 zákona (odborové příspěvky)') Inc(PocRad9) DlgStatic(-1,'51 Odčitat.položka §34 od.3 a 7',x91,y9+(PocRad9*I91),x92-2) DlgEdit(903,D63,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(903,'Částka podle §15'+#13+'51 Odčitatelná položka §34 odst. 3 a odst. 7 zákona') Inc(PocRad9) DlgStatic(-1,'52 Další částky',x91,y9+(PocRad9*I91),x92-2-33) DlgEdit(904,D64,x92-22,y9+(PocRad9*i91)-2,20,i91,2,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(904,'Částka podle §15'+#13+'52 Další částky (v celých Kč)') DlgEdit(905,D65,x92+12,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(905,'Částka podle §15'+#13+'52 Další částky (v celých Kč)') Inc(PocRad9) DlgStatic(-1,'53 Základ daně snížený o nezd.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D66,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'54 Základ daně zaokrouhl.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D67,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'55 Daň podle §16 odst.l.',x91,y9+(PocRad9*I91),x92) DlgStatic(-1,D74,x92+10,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgDivider(16,y9+(PocRad9*i91)-4,x95+50,0) PocRad9=0 DlgStatic(-1,'56 Daň ...(ř.55 nebo ř.330)',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,Str(D75,12,0),x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'57 Daň ze sam.základu §16/2',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgEdit(908,D76,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(908,'Částka podle §15'+#13+'57 Daň ze samostatného základu daně podle § 16 odst. 2'+#13+'zákona (ř. 418 přílohy č. 4 DAP)'+#13+'Tato příloha není součástí WinDUO, nutno vyplnit ručně na formulář MFČR') ; DlgStatic(-1,Str(D57,12,0),x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'58 Daň celk.zaokr.na Kč nahoru',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,D77,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'59 Ztráta zaokr. na Kč nahoru',x93,y9+(PocRad9*I91),SirkaPolicka93) DlgStatic(-1,D78,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) Inc(PocRad9) Inc(PocRad9) Inc(PocRad9) Inc(PocRad9) DlgStatic(-1,'údaje o 1 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(854,DiteJmeno1,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(854,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(855,DiteRC1,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(855,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(856,DiteMesic1,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(856,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(857,DiteZTP1,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(857,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 2 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(864,DiteJmeno2,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(864,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(865,DiteRC2,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(865,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(866,DiteMesic2,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(866,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(867,DiteZTP2,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(867,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 3 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(874,DiteJmeno3,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(874,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(875,DiteRC3,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(875,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(876,DiteMesic3,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(876,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(877,DiteZTP3,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(877,'Počet měsíců se ZTP/P') Inc(PocRad8) DlgStatic(-1,'údaje o 4 dítěti',x81,y8+(PocRad8*I81),100) DlgEdit(884,DiteJmeno4,x81+102,y8+(PocRad8*I81)-2,SirkaPolicka81+172,i81,100,ES_LEFT) DlgOnLineHelp(884,'Příjmení a jméno dítěte') DlgStatic(-1,'RČ',x82+159,y8+(PocRad8*I81),20) DlgEdit(885,DiteRC4,x82+180,y8+(PocRad8*I81)-2,SirkaPolicka81+12,i81,11,ES_LEFT) DlgOnLineHelp(885,'Rodné číslo dítěte') DlgStatic(-1,'Měs.',x82+280,y8+(PocRad8*I81),30) DlgEdit(886,DiteMesic4,x82+312,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(886,'Počet měsíců') DlgStatic(-1,'ZTP',x82+342,y8+(PocRad8*I81),30) DlgEdit(887,DiteZTP4,x82+372,y8+(PocRad8*I81)-2,SirkaPolicka82,i81,2,ES_Right) DlgOnLineHelp(887,'Počet měsíců se ZTP/P') Inc(PocRad8) y9=y9+5 DlgStatic(-1,'66 Na zálohách daně z příjmů ze závislé činnosti sraženo všemi zaměst.',x91,y9+(PocRad9*i91),x95-10) DlgEdit(910,D79,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(910,'6. ODDÍL - Placení daně'+#13+'66 Na zálohách daně z příjmů ze závislé činnosti sraženo všemi zaměstavateli celkem') Inc(PocRad9) DlgStatic(-1,'67 Na zbývajících zálohách zaplaceno poplatníkem celkem',x91,y9+(PocRad9*i91),x95-10) DlgEdit(911,D80,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(911,'6. ODDÍL - Placení daně'+#13+'67 Na zbývajících zálohách zaplaceno poplatníkem celkem') Inc(PocRad9) DlgStatic(-1,'68 Zaplacená daň stanovená paušální částkou podle §7a zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(912,D81,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(912,'6. ODDÍL - Placení daně'+#13+'68 Zaplacená daň stanovená paušální částkou podle §7a zákona') Inc(PocRad9) ; DlgStatic(-1,'69 Zaplacená částka daně sražené plátcem dle §36 odst.6 zákona',x91,y9+(PocRad9*i91),x95-10) ; DlgEdit(913,D69,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) ; DlgOnLineHelp(913,'6. ODDÍL - Placení daně'+#13+'69 Zaplacená částka daně sražené plátcem dle §36 odst.6 zákona') ; Inc(PocRad9) DlgStatic(-1,'69 Zajištěná daň plátcem podle §38e zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(914,D82,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(914,'6. ODDÍL - Placení daně'+#13+'69 Zajištěná daň plátcem podle §38e zákona') Inc(PocRad9) DlgStatic(-1,'70 Zaplacená daňová povinnost (záloha) podle §38gb odst.5 zákona',x91,y9+(PocRad9*i91),x95-10) DlgEdit(915,D83,x95,y9+(PocRad9*i91)-2,SirkaPolicka91,i91,9,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(915,'6. ODDÍL - Placení daně'+#13+'70 Zaplacená daňová povinnost (záloha) podle §38gb odst.5 zákona') Inc(PocRad9) DlgStatic(-1,'71 Zbývá doplatit (ř.58-66-67-68-69-70). Záporná částka=zaplaceno více',x91,y9+(PocRad9*i91),x95-10) DlgStatic(-1,D84,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'71 Zbývá doplatit (ř.58-66-67-68-69-70). Záporná částka=zaplaceno více',x91,y9+(PocRad9*i91),x95-10) DlgStatic(-1,D85,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) DlgStatic(-1,'71 Zbývá doplatit (ř.58-66-67-68-69-70). Záporná částka=zaplaceno více',x91,y9+(PocRad9*i91),x95-10) DlgStatic(-1,D86,x95-2,y9+(PocRad9*i91),SirkaPolicka91,,,ES_RIGHT) Inc(PocRad9) ; ;{============================== 13. cover ================================} ;{vykresleni 13. coveru} ; begin SetCover(13,'S4') ;DlgStatic(-1,'pokud nejsou viditelné všechny údaje, restartuje WinDUO',198,258,397) ;DlgDivider(16,74,570,0) x101=5 x102=268 x103=310 x104=575 x105=516 y10=2 i101=23 ;radkovani 1 i102=20 ;radkovani 2 PocRad10=0 ;pomocna promenna SirkaPolicka101=20 ;standardní šířka SirkaPolicka102=20 DlgStatic(-1,'Příloha č.1 - Výpočet ... - z podnikání §7',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1001,Pr1,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1001,'Přílohy DAP'+#13+'Příloha č. 1 - "Výpočet dílčích základů daně z příjmů z podnikání a z jiné samostatné výděleční činnosti (§7 zákona)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.2 - Výpočet ... - ze závislé §§6,9,10',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1002,Pr2,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1002,'Přílohy DAP'+#13+'Příloha č. 2 - "Výpočet dílčích základů daně z příjmů fyzických osob ze závislé činnosti a z funkčních požitků (§6), z pronájmu (§9) a z ostatních příjmů (§10)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.3 - Výpočet ... - za více období',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1003,Pr3,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1003,'Přílohy DAP'+#13+'Příloha č. 3 - "Výpočet daně z příjmu dosažených za více zdaňovacích období (§ 14 zákona), daně z příjmů ze zahraničí a daně po slevách (§35 zákona)"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Příloha č.4 - Výpočet...- ze samostatného',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1004,Pr4,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1004,'Přílohy DAP'+#13+'Příloha č. 4 - "Výpočet daně z příjmu ze samostatného základu daně"'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Účetní závěrka poplatníka... účetnictví',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1005,Pr5,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1005,'Přílohy DAP'+#13+'Výkaz zisku a ztráty, rozvaha a příloha pro poplatníka, který je účetní jednotkou a účtuje v soustavě podvojného účetnictví'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení o zdan.příjmech za závislé č.',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1006,Pr6,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1006,'Přílohy DAP'+#13+'Potvrzení o zdanitelných příjmech za závislé činnosti a z funkčních požitků a o sražených zálohách na daň za příslušné zdaňovací období od všech zaměstnavatelů dle §38j odst.3'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení o úvěru na bytové potřeby',x101,y10+(PocRad10*i101),x102-2) DlgEdit(1007,Pr7,x102+12,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1007,'Přílohy DAP'+#13+'Potvrzení o poskytnutém úvěru na bytové potřeby a o výši úroků z tohoto úvěru'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgDivider(16,y10+(PocRad10*i101),570,0) PocRad10=0 DlgStatic(-1,'Potvrzení - penzijní připojištění',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1008,Pr8,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1008,'Přílohy DAP'+#13+'Potvrzení o zaplacených částkách na penzijní připojištění'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Potvrzení - životní pojištění',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1009,Pr9,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1009,'Přílohy DAP'+#13+'Potvrzení o zaplacených částkách na soukromé životní pojištění'+#13+'- uveďte počet listů příloh') Inc(PocRad10) ; DlgStatic(-1,'Seznam podle §38 odst.9 zákona',x103,y10+(PocRad10*i101),x102-3) ; DlgEdit(1010,Pr10,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) ; DlgOnLineHelp(1010,'Přílohy DAP'+#13+'Seznam podle § 38 odstavce 9 zákona'+#13+'- uveďte počet listů příloh') ; Inc(PocRad10) DlgStatic(-1,'"Celková částka" §24 odst.2r)',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1011,Pr10,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1011,'Přílohy DAP'+#13+'"Celková částka" k uplatnění podle §24 odst. 2 písme. r) zákona'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Další přílohy výše neuvedené',x103,y10+(PocRad10*i101),x102-3) DlgEdit(1012,Pr11,x104,y10+(PocRad10*i101)-2,SirkaPolicka101,i101,3,ES_RIGHT,ValidCisloKl) DlgOnLineHelp(1012,'Přílohy DAP'+#13+'Další přílohy výše neuvedené'+#13+'- uveďte počet listů příloh') Inc(PocRad10) DlgStatic(-1,'Počet listů příloh celkem',x103,y10+(PocRad10*i101),x102-3) DlgStatic(-1,PR12,x104+2,y10+(PocRad10*i101),SirkaPolicka101) Inc(PocRad10) Inc(PocRad10) Inc(PocRad10) y10=y10+5 DlgStatic(-1,'V',x101,y10+(PocRad10*i101),10) DlgEdit(1020,Kde4,x101+12,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1020,'Prohlášení ... místo') DlgStatic(-1,'dne',x101+268,y10+(PocRad10*i101),30) DlgEditDate(1021,Kdy4,x101+300,y10+(PocRad10*i101)-2,78,i101,ValidDatum) DlgOnLineHelp(1021,'Prohlášení ... datum') Inc(PocRad10) DlgStatic(-1,'Zástupce',x101,y10+(PocRad10*i101),63) DlgEdit(1022,Zast1,x101+64,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1022,'Údaje o zástupci ... příjmení a jméno') DlgEdit(1023,Zast2,x101+316,y10+(PocRad10*i101)-2,50,i101,12) DlgOnLineHelp(1023,'Údaje o zástupci ... titul') DlgEdit(1024,Zast3,x101+370,y10+(PocRad10*i101)-2,150,i101,30) DlgOnLineHelp(1024,'Údaje o zástupci ... telefon/mobil') Inc(PocRad10) DlgEdit(1025,Zast4,x101,y10+(PocRad10*i101)-2,250,i101,50) DlgOnLineHelp(1025,'Údaje o zástupci ... Adresa - obec') DlgEdit(1026,Zast5,x101+254,y10+(PocRad10*i101)-2,50,i101,6,,ValidBU) DlgOnLineHelp(1026,'Údaje o zástupci ... PSČ') DlgEdit(1027,Zast6,x101+307,y10+(PocRad10*i101)-2,200,i101,50) DlgOnLineHelp(1027,'Údaje o zástupci ... Ulice / část obce') DlgEdit(1028,Zast7,x101+510,y10+(PocRad10*i101)-2,80,i101,15) DlgOnLineHelp(1028,'Údaje o zástupci ... Číslo popisné / orientační') Inc(PocRad10) DlgStatic(-1,'Žádost',x101,y10+(PocRad10*i101),52) DlgEdit(1040,Prep1,x101+54,y10+(PocRad10*i101)-2,90,i101,12,ES_RIGHT,ValidBU) DlgOnLineHelp(1040,'... žádám o vrácení přeplatku ve výši .... Kč') DlgEdit(1041,Prep2,x101+150,y10+(PocRad10*i101)-2,440,i101,100) DlgOnLineHelp(1041,'Přeplatek zašlete na adresu') Inc(PocRad10) DlgStatic(-1,'Banka',x101,y10+(PocRad10*i101),50) DlgEdit(1042,Prep3,x101+74,y10+(PocRad10*i101)-2,313,i101,40) DlgOnLineHelp(1042,'Přeplatek vraťte na účet vedený u .........') DlgEdit(1043,Prep4,x101+390,y10+(PocRad10*i101)-2,200,i101,30,,ValidBU) DlgOnLineHelp(1043,'Číslo účtu pro vrácení přeplatku') Inc(PocRad10) DlgStatic(-1,'kód banky',x101,y10+(PocRad10*i101),70) DlgEdit(1044,Prep5,x101+74,y10+(PocRad10*i101)-2,100,i101,40) DlgOnLineHelp(1044,'kód banky pro vrácení přeplatku') DlgStatic(-1,'specifický symbol',x101+184,y10+(PocRad10*i101),118) DlgEdit(1045,Prep6,x101+105+200,y10+(PocRad10*i101)-2,100,i101,40) DlgOnLineHelp(1045,'specifický symbol') Inc(PocRad10) DlgStatic(-1,'V',x101,y10+(PocRad10*i101),10) DlgEdit(1046,Prep7,x101+12,y10+(PocRad10*i101)-2,250,i101,30) DlgOnLineHelp(1046,'Žádost o vrácení přeplatku podepsána kde = místo') DlgStatic(-1,'dne',x101+268,y10+(PocRad10*i101),30) DlgEditDate(1047,Prep8,x101+300,y10+(PocRad10*i101)-2,78,i101,ValidDatum) DlgOnLineHelp(1047,'Žádost o vrácení přeplatku podepsána kdy = datum') ; end ;{============================== 14. cover = protokol ==============================} ;{vykreslení 14. coveru - protokolu} SetCover(14,'Protokol') radek:INTEGER=0 ;{radek*20+5} While(Radek0) Text(150,56.5,TA_Right|TA_BASELINE,StrFinanc(P4401,0,True));nefunguje mi StrFinanc!!! else Text(150,56.5,TA_Right|TA_BASELINE,skrt) if(P4402<>0) Text(150,66.5,TA_Right|TA_BASELINE,StrFinanc(P4402,0,True)) else Text(150,66.5,TA_Right|TA_BASELINE,skrt) if(P4403<>0) Text(150,76.5,TA_Right|TA_BASELINE,StrFinanc(P4403,0)) else Text(150,76.5,TA_Right|TA_BASELINE,skrt) if(P4404<>0) Text(150,86.5,TA_Right|TA_BASELINE,StrFinanc(P4404,0)) else Text(150,86.5,TA_Right|TA_BASELINE,skrt) if(P4405<>0) Text(150,96.5,TA_Right|TA_BASELINE,StrFinanc(P4405,0)) else Text(150,96.5,TA_Right|TA_BASELINE,skrt) if(P4406<>0) Text(150,106.5,TA_Right|TA_BASELINE,StrFinanc(P4406,0)) else Text(150,106.5,TA_Right|TA_BASELINE,skrt) if(P4407<>0) Text(150,116.5,TA_Right|TA_BASELINE,StrFinanc(P4407,0)) else Text(150,116.5,TA_Right|TA_BASELINE,skrt) if(P4408<>0) Text(150,126.5,TA_Right|TA_BASELINE,StrFinanc(P4408,0)) else Text(150,126.5,TA_Right|TA_BASELINE,skrt) if(P4409<>0) Text(150,136.5,TA_Right|TA_BASELINE,StrFinanc(P4409,0)) else Text(150,136.5,TA_Right|TA_BASELINE,skrt) if(P4410<>0) Text(150,146.5,TA_Right|TA_BASELINE,StrFinanc(P4410,0)) else Text(150,146.5,TA_Right|TA_BASELINE,skrt) if(P4411<>0) Text(150,156.5,TA_Right|TA_BASELINE,StrFinanc(P4411,0)) else Text(150,156.5,TA_Right|TA_BASELINE,skrt) if(P4412<>0) Text(150,166.5,TA_Right|TA_BASELINE,StrFinanc(P4412,0)) else Text(150,166.5,TA_Right|TA_BASELINE,skrt) if(P4413<>0) Text(150,176.5,TA_Right|TA_BASELINE,StrFinanc(P4413,0)) else Text(150,176.5,TA_Right|TA_BASELINE,skrt) if(P4414<>0) Text(150,186.5,TA_Right|TA_BASELINE,StrFinanc(P4414,0)) else Text(150,186.5,TA_Right|TA_BASELINE,skrt) if(P4415<>0) Text(150,196.5,TA_Right|TA_BASELINE,StrFinanc(P4415,0)) else Text(150,196.5,TA_Right|TA_BASELINE,skrt) if(P4416<>0) Text(150,206.5,TA_Right|TA_BASELINE,StrFinanc(P4416,0)) else Text(150,206.5,TA_Right|TA_BASELINE,skrt) if(P4417<>0) Text(150,216.5,TA_Right|TA_BASELINE,StrFinanc(P4417,0)) else Text(150,216.5,TA_Right|TA_BASELINE,skrt) if(P4418<>0) Text(150,226.5,TA_Right|TA_BASELINE,StrFinanc(P4418,0)) else Text(150,226.5,TA_Right|TA_BASELINE,skrt) end if(Pril5) NextPage; end; ;{==================================== Příloha 5 ====================================} if(Pril5) begin ;{tisk Přílohy 5 / Strany 1} PEN(0,0.1) ROUNDBOXA(137,4,193,10,3.3,3.3) LINESA(142,8.5,142,10,10,0,3) LINESA(172,8.5,172,10,5,0,4) LINESA(147,8,147,10,10,0,3) FONTSIZE(5) FONTFACE(NORMAL|BOLD) Text(18,14,TA_Left|TA_BASELINE,'PŘÍLOHA č. 5') FontSize(4) XText(53,36,140,TA_LEFT|TA_BASELINE,'Výpočet společného základu daně manželů podle § 13a zákona') FontSize(3.2) Text(18,43,TA_LEFT|TA_BASELINE,'je součástí tiskopisu P Ř I Z N Á N Í k dani z příjmů fyzických osob za zdaňovací období 2005 - 25 5405 MFin 5405 vzor č. 12 (dále') Text(18,46.5,TA_LEFT|TA_BASELINE,'jen "DAP").') FONTFACE(NORMAL) Text(135,10,TA_Right|TA_BASELINE,'Rodné číslo:') FontSize(3.8) SText(169.5,8,TA_CENTER|TA_BASELINE,5,1,'/') FontSize(3.2) PEN(0,0.3) ROUNDBOXA(18,63,193,79,3.3,3.3) PEN(0,0.1) LINEA(18,71,193,71) LINEA(47,71,47,79) LINEA(127,71,127,79) LINEA(150,71,150,79) FontSize(3.2) Text(20,68,TA_LEFT|TA_BASELINE,'ÚDAJE O MANŽELCE/MANŽELOVI') Text(20,76,TA_LEFT|TA_BASELINE,'Příjmení, jméno, titul') Text(128.5,76,TA_LEFT|TA_BASELINE,'DIČ/Rodné číslo') Text(18,85,TA_LEFT|TA_BASELINE,'Částky uvádějte v celých Kč.') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,104.5,TA_LEFT|TA_BASELINE,'1. Součet dílčích základů daně podle § 6 až § 10 zákona') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,107.5,193,175.5,3.3,3.3) PEN(0,0.1) LINESA(18,115.5,193,115.5,0,10,6) LINESA(93,107.5,93,175.5,25,0,4) Text(99.5,112.5,TA_LEFT|TA_BASELINE,'poplatník') Text(122.5,112.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(145,112.5,TA_LEFT|TA_BASELINE,'manželka/manžel') Text(172.5,112.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,120,TA_LEFT|TA_BASELINE,'501') Text(26,120,TA_LEFT|TA_BASELINE,'Dílčí základ daně ze závislé činnosti a z funkčních') Text(26,123,TA_LEFT|TA_BASELINE,'požitků podle § 6 zákona (ř. 36)') Text(20,130,TA_LEFT|TA_BASELINE,'502') Text(26,130,TA_LEFT|TA_BASELINE,'Dílčí základ daně z podnikání a z jiné samostatné') Text(26,133,TA_LEFT|TA_BASELINE,'výdělečné činnosti podle § 7 zákona (kladný ř. 37)') Text(20,140,TA_LEFT|TA_BASELINE,'503') Text(26,140,TA_LEFT|TA_BASELINE,'Dílčí základ daně z kapitálového majetku podle § 8') Text(26,143,TA_LEFT|TA_BASELINE,'zákona (ř. 38)') Text(20,150,TA_LEFT|TA_BASELINE,'504') Text(26,150,TA_LEFT|TA_BASELINE,'Dílčí základ daně z pronájmu podle § 9 zákona') Text(26,153,TA_LEFT|TA_BASELINE,'(kladný ř. 39)') Text(20,160,TA_LEFT|TA_BASELINE,'505') Text(26,160,TA_LEFT|TA_BASELINE,'Dílčí základ daně z ostatních příjmů podle § 10') Text(26,163,TA_LEFT|TA_BASELINE,'zákona (ř. 40)') Text(20,170,TA_LEFT|TA_BASELINE,'506') Text(26,170,TA_LEFT|TA_BASELINE,'Součet dílčích základů daně podle § 6 až § 10') Text(26,173,TA_LEFT|TA_BASELINE,'zákona') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,194.5,TA_LEFT|TA_BASELINE,'2. Součet dílčích základů daně podle § 6 až § 10 zákona za oba manžele') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(18,197.5,193,215.5,3.3,3.3) PEN(0,0.1) LINEA(18,205.5,193,205.5) LINESA(93,197.5,93,215.5,50,0,2) Text(99.5,202.5,TA_LEFT|TA_BASELINE,'poplatník + manželka/manžel') Text(160,202.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(20,209.5,TA_LEFT|TA_BASELINE,'507') Text(26,209.5,TA_LEFT|TA_BASELINE,'Součet (ř. 506 sl. poplatník + ř. 506 sl. manželka/') Text(26,213,TA_LEFT|TA_BASELINE,'manžel)') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(18,235.5,TA_LEFT|TA_BASELINE,'3. Nezdanitelné části základu daně podle § 15 zákona') FONTFACE(NORMAL) FONTSIZE(3.2) Text(18,240.5,TA_LEFT|TA_BASELINE,'ÚDAJE KE ZJIŠTĚNÍ NÁROKŮ NA UPLATNĚNÍ NEZDANITELNÉ ČÁSTI ZÁKLADU PODLE § 15 ZÁKONA') Text(18,244,TA_LEFT|TA_BASELINE,'Údaje vyplňte pouze v případě, že uplatňujete nezdanitelné části základu daně podle § 15 zákona tzn. částky na řádku 508, 509a, 509b') PEN(0,0.3) ROUNDBOXA(18,246.5,193,270,3.3,3.3) PEN(0,0.1) LINEA(18,254.5,193,254.5) LINESA(93,246.5,93,270,40,0,2) Text(20,251.5,TA_LEFT|TA_BASELINE,'ÚDAJE O STAROBNÍM DŮCHODU') Text(107.5,251.5,TA_LEFT|TA_BASELINE,'poplatník') Text(152,251.5,TA_LEFT|TA_BASELINE,'manželka/manžel') Text(20,257.5,TA_LEFT|TA_BASELINE,'Pokud jste pobíral/a k 1.1. zdaňovacího období starobní') Text(20,260.5,TA_LEFT|TA_BASELINE,'důchod ze sociálního zabezpečení, uveďte jeho roční') Text(20,263.5,TA_LEFT|TA_BASELINE,'výši v Kč pouze v případě, uplatňujete-li nezdanitelnou') Text(20,266.5,TA_LEFT|TA_BASELINE,'část základu daně') FONTSIZE(2.3) Text(18,280,TA_Left|TA_Baseline,'25 5405/P5 MFin 5405/P5 - vzor č. 1') FONTSIZE(3) Text(105.5,284,TA_CENTER|TA_BASELINE,'1') ;{tisk hodnot Přílohy 5 / 1} If(not Prazdny) begin FontSize(3.8) FONTFACE(Italic|BOLD) SText(139,8.5,TA_LEFT|TA_BASELINE,5,11,RodneCislo) FontSize(VyskaFontuHodn) FONTFACE(Italic|BOLD) if(Length(Trim(P5Manzel))<>0) XText(87,76,82,TA_Center|TA_BASELINE,P5Manzel) else Text(87,76,TA_Center|TA_BASELINE,skrt) if(Length(Trim(P5DICManzel))<>0) XText(171.5,76,38,TA_Center|TA_BASELINE,P5DICManzel) else Text(171.5,76,TA_Center|TA_BASELINE,skrt) if(P5501P<>0) Text(115,122.5,TA_Right|TA_BASELINE,StrFinanc(P5501P,0,True));nefunguje mi StrFinanc!!! else Text(115,122.5,TA_Right|TA_BASELINE,skrt) if(P5501M<>0) Text(165,122.5,TA_Right|TA_BASELINE,StrFinanc(P5501M,0,True)) else Text(165,122.5,TA_Right|TA_BASELINE,skrt) if(P5502P<>0) Text(115,132.5,TA_Right|TA_BASELINE,StrFinanc(P5502P,0)) else Text(115,132.5,TA_Right|TA_BASELINE,skrt) if(P5502M<>0) Text(165,132.5,TA_Right|TA_BASELINE,StrFinanc(P5502M,0)) else Text(165,132.5,TA_Right|TA_BASELINE,skrt) if(P5503P<>0) Text(115,142.5,TA_Right|TA_BASELINE,StrFinanc(P5503P,0)) else Text(115,142.5,TA_Right|TA_BASELINE,skrt) if(P5503M<>0) Text(165,142.5,TA_Right|TA_BASELINE,StrFinanc(P5503M,0)) else Text(165,142.5,TA_Right|TA_BASELINE,skrt) if(P5504P<>0) Text(115,152.5,TA_Right|TA_BASELINE,StrFinanc(P5504P,0)) else Text(115,152.5,TA_Right|TA_BASELINE,skrt) if(P5504M<>0) Text(165,152.5,TA_Right|TA_BASELINE,StrFinanc(P5504M,0)) else Text(165,152.5,TA_Right|TA_BASELINE,skrt) if(P5505P<>0) Text(115,162.5,TA_Right|TA_BASELINE,StrFinanc(P5505P,0)) else Text(115,162.5,TA_Right|TA_BASELINE,skrt) if(P5505M<>0) Text(165,162.5,TA_Right|TA_BASELINE,StrFinanc(P5505M,0)) else Text(165,162.5,TA_Right|TA_BASELINE,skrt) if(P5506P<>0) Text(115,172.5,TA_Right|TA_BASELINE,StrFinanc(P5506P,0)) else Text(115,172.5,TA_Right|TA_BASELINE,skrt) if(P5506M<>0) Text(165,172.5,TA_Right|TA_BASELINE,StrFinanc(P5506M,0)) else Text(165,172.5,TA_Right|TA_BASELINE,skrt) if(P5507PM<>0) Text(138,212.5,TA_Right|TA_BASELINE,StrFinanc(P5507PM,0)) else Text(138,212.5,TA_Right|TA_BASELINE,skrt) if(P5DuchodP<>0) Text(128,263,TA_Right|TA_BASELINE,StrFinanc(P5DuchodP,0)) else Text(128,263,TA_Right|TA_BASELINE,skrt) if(P5DuchodM<>0) Text(188,263,TA_Right|TA_BASELINE,StrFinanc(P5DuchodM,0)) else Text(188,263,TA_Right|TA_BASELINE,skrt) end if(Pril5) NextPage; ;{tisk Přílohy 5 / Strany 2} PEN(0,0.3) ROUNDBOXA(0,6,175,142,3.3,3.3) LINEA(111,11,111,142) PEN(0,0.1) LINESA(47,11,175,11,0,4,2) LINESA(0,25,175,25,0,8,13) LINEA(47,6,47,142) LINESA(59,15,59,142,32,0,4) LINESA(79,11,79,142,32,0,3) FONTFACE(NORMAL) FONTSIZE(3.2) Text(2,16.5,TA_LEFT|TA_BASELINE,'Částka podle § 15') Text(108,9.5,TA_LEFT|TA_BASELINE,'Vyplní') Text(58.5,14,TA_LEFT|TA_BASELINE,'poplatník') Text(87,14,TA_LEFT|TA_BASELINE,'finanční úřad') Text(116.5,14,TA_LEFT|TA_BASELINE,'manželka/manžel') Text(151,14,TA_LEFT|TA_BASELINE,'finanční úřad') Text(49.5,19,TA_LEFT|TA_BASELINE,'Počet') Text(48.5,22,TA_LEFT|TA_BASELINE,'měsíců') Text(62.5,21,TA_LEFT|TA_BASELINE,'v celých Kč') Text(81.5,19,TA_LEFT|TA_BASELINE,'Počet') Text(80.5,22,TA_LEFT|TA_BASELINE,'měsíců') Text(94.5,21,TA_LEFT|TA_BASELINE,'v celých Kč') Text(113.5,19,TA_LEFT|TA_BASELINE,'Počet') Text(112.5,22,TA_LEFT|TA_BASELINE,'měsíců') Text(126.5,21,TA_LEFT|TA_BASELINE,'v celých Kč') Text(145.5,19,TA_LEFT|TA_BASELINE,'Počet') Text(144.5,22,TA_LEFT|TA_BASELINE,'měsíců') Text(158.5,21,TA_LEFT|TA_BASELINE,'v celých Kč') Text(2,30,TA_LEFT|TA_BASELINE,'508') Text(10,30,TA_LEFT|TA_BASELINE,'Odst. 1 písm. a) zákona') Text(2,38,TA_LEFT|TA_BASELINE,'509a') Text(10,38,TA_LEFT|TA_BASELINE,'Odst. 1 písm. b) zákona') Text(2,46,TA_LEFT|TA_BASELINE,'509b') Text(10,46,TA_LEFT|TA_BASELINE,'Odst. 1 písm. b) zákona') Text(2,54,TA_LEFT|TA_BASELINE,'510') Text(10,54,TA_LEFT|TA_BASELINE,'Odst. 1 písm. c) zákona') Text(2,62,TA_LEFT|TA_BASELINE,'511') Text(10,62,TA_LEFT|TA_BASELINE,'Odst. 1 písm. d) zákona') Text(2,70,TA_LEFT|TA_BASELINE,'512') Text(10,70,TA_LEFT|TA_BASELINE,'Odst. 1 písm. e) zákona') Text(2,78,TA_LEFT|TA_BASELINE,'513') Text(10,78,TA_LEFT|TA_BASELINE,'Odst. 1 písm. f) zákona') Text(2,86,TA_LEFT|TA_BASELINE,'514') Text(10,86,TA_LEFT|TA_BASELINE,'Odst. 5 zákona (dary)') Text(2,92.5,TA_LEFT|TA_BASELINE,'515') Text(10,92.5,TA_LEFT|TA_BASELINE,'Odst. 7 a odst. 8 zákona') Text(10,95.5,TA_LEFT|TA_BASELINE,'(úroky)') Text(2,100.5,TA_LEFT|TA_BASELINE,'516') Text(10,100.5,TA_LEFT|TA_BASELINE,'Odst. 9 zákona (penzijní') Text(10,103.5,TA_LEFT|TA_BASELINE,'připojištění)') Text(2,108.5,TA_LEFT|TA_BASELINE,'517') Text(10,108.5,TA_LEFT|TA_BASELINE,'Odst. 10 zákona (životní') Text(10,111.5,TA_LEFT|TA_BASELINE,'pojištění)') Text(2,116.5,TA_LEFT|TA_BASELINE,'518') Text(10,116.5,TA_LEFT|TA_BASELINE,'Odst. 11 zákona (odborové') Text(10,119.5,TA_LEFT|TA_BASELINE,'příspěvky)') Text(2,124.5,TA_LEFT|TA_BASELINE,'519') FONTFACE(NORMAL|BOLD) Text(10,124.5,TA_LEFT|TA_BASELINE,'Úhrn nezdanitelných částí') Text(10,127.5,TA_LEFT|TA_BASELINE,'základu daně') FONTFACE(NORMAL) Text(1.5,0,TA_RELATIVE|TA_BASELINE,'(ř. 508 +') Text(10,130.5,TA_LEFT|TA_BASELINE,'+ ř. 509a + ř. 509b + ř. 510 +') Text(10,133.5,TA_LEFT|TA_BASELINE,'+ ř. 511 + ř. 512 + ř. 513 +') Text(10,136.5,TA_LEFT|TA_BASELINE,'+ ř. 514 + ř. 515 + ř. 516 +') Text(10,139.5,TA_LEFT|TA_BASELINE,'+ ř. 517 + ř. 518)') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(0,157,TA_LEFT|TA_BASELINE,'4. Úhrn nezdanitelných částí základu daně podle § 15 zákona za oba manžele') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(0,159.5,175,176.5,3.3,3.3) PEN(0,0.1) LINEA(95,164.5,175,164.5) LINEA(0,168.5,175,168.5) LINEA(95,159.5,95,176.5) LINEA(135,164.5,135,176.5) Text(121.5,163,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(97,167.5,TA_LEFT|TA_BASELINE,'poplatník + manželka/manžel') Text(147,167.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(2,173,TA_LEFT|TA_BASELINE,'520 Úhrn (ř. 519 sl. poplatník + ř. 519 sl. manželka/manžel)') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(0,192.5,TA_LEFT|TA_BASELINE,'5. Společný základ daně manželů') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(0,195,175,212,3.3,3.3) PEN(0,0.1) LINEA(95,200,175,200) LINEA(0,204,175,204) LINEA(95,195,95,212) LINEA(135,200,135,212) Text(121.5,198.5,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(97,203,TA_LEFT|TA_BASELINE,'poplatník + manželka/manžel') Text(147,203,TA_LEFT|TA_BASELINE,'finanční úřad') Text(2,209,TA_LEFT|TA_BASELINE,'521 Společný základ daně (ř. 507 - ř. 520)') FONTFACE(NORMAL|BOLD) FONTSIZE(3.6) Text(0,228,TA_LEFT|TA_BASELINE,'6. Polovina společného základu daně manželů') FONTFACE(NORMAL) FONTSIZE(3.2) PEN(0,0.3) ROUNDBOXA(0,230.5,175,279.5,3.3,3.3) PEN(0,0.1) LINEA(95,235.5,175,235.5) LINESA(0,239.5,175,239.5,0,8,5) LINEA(26,263.5,26,271.5) LINEA(95,230.5,95,279.5) LINEA(135,235.5,135,279.5) Text(121.5,234,TA_LEFT|TA_BASELINE,'Vyplní v celých Kč') Text(109.5,238.5,TA_LEFT|TA_BASELINE,'poplatník') Text(147,238.5,TA_LEFT|TA_BASELINE,'finanční úřad') Text(2,244,TA_LEFT|TA_BASELINE,'522 (jedna polovina z ř. 521)') Text(2,252,TA_LEFT|TA_BASELINE,'523 § 34 odst. 1 zákona') Text(2,260,TA_LEFT|TA_BASELINE,'524 § 34 odst. 4 zákona (výzkum a vývoj)') Text(2,268,TA_LEFT|TA_BASELINE,'525 Další částky') Text(2,276,TA_LEFT|TA_BASELINE,'526 (ř. 522 - ř. 523 - ř. 524 - ř. 525)') FONTSIZE(3) Text(87,284,TA_CENTER|TA_BASELINE,'2') end; Procedure AddWarn(Warn:String); Inc(TotalWarn); if(TotalWarn<=16) begin Warns[TotalWarn]=Warn WarnCount=TotalWarn end else begin WarnCount=16 Warns[WarnCount]='.... a nalezeno dalších nezobrazených chyb: '+Str(TotalWarn-WarnCount+1); end; end; End