;{ DDS SESTAVA - STANDARD } ;{ identifikace pro DPPO - vzor č. 17,18 } ;{ Verze: 29.12.2008 } ;{ Autor: WinDUO Team } Name('První strana DPPO vzor č. 17,18') Designed('') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://wwww.winduo.cz') Descr('Identifikační údaje pro DPPO') WNSType(-1) DeclareRec('Program') ;{*******************************************************************************************************************************} ;{proměnné} AktualCover :Integer=0 INI :String=DataPath+'DPPO.INI' IniRok :String=Rok() ValidDatum :String='0123456789.' ValidCislo :String='0123456789' ValidBU :String='0123456789-/' ysou :Double=5 ;{*******************************************************************************************************************************} ;{načtení ini} FinancniUrad :String[32] = GetFromIni('TITULNI'+IniRok,'FinancniUrad',INI) TypPriz1 :Integer = Val(GetFromIni('TITULNI'+IniRok,'TypPriz1',INI)) DatumDodat :Word =ValDate(GetFromIni('TITULNI'+IniRok,'DatumDodat',INI)) KodRozlis :String[2] = GetFromIni('TITULNI'+IniRok,'KodRozlis',INI) PismObd :String[1] = GetFromIni('TITULNI'+IniRok,'PismObd',INI) PocetPodilFondu :Integer = Val(GetFromIni('TITULNI'+IniRok,'PocetPodilFondu',INI)) PoradCisloFondu :Integer = Val(GetFromIni('TITULNI'+IniRok,'PoradCisloFondu',INI)) PocetPrilII :Integer = Val(GetFromIni('TITULNI'+IniRok,'PocetPrilII',INI)) PocetZvlPril :Integer = Val(GetFromIni('TITULNI'+IniRok,'PocetZvlPril',INI)) PocetSamPril :Integer = Val(GetFromIni('TITULNI'+IniRok,'PocetSamPril',INI)) ObchodniJmeno :String[35] = GetFromIni('TITULNI'+IniRok,'ObchodniJmeno',INI) DodatekJmena :String[35] = GetFromIni('TITULNI'+IniRok,'DodatekJmena',INI) UliceDppo :String[35] = GetFromIni('TITULNI'+IniRok,'Ulice',INI) Obec :String[29] = GetFromIni('TITULNI'+IniRok,'Obec',INI) PSCdppo :String[5] = GetFromIni('TITULNI'+IniRok,'PSC',INI) Stat :String[12] = GetFromIni('TITULNI'+IniRok,'Stat',INI) KodStat :String[2] = GetFromIni('TITULNI'+IniRok,'KodStat',INI) Telefon :String[9] = GetFromIni('TITULNI'+IniRok,'Telefon',INI) Fax :String[9] = GetFromIni('TITULNI'+IniRok,'Fax',INI) BankovniUcet :String[30] = GetFromIni('TITULNI'+IniRok,'BankovniUcet',INI) HlavCinn1 :String[140] = GetFromIni('TITULNI'+IniRok,'HlavCinn1',INI) CZNACE11 :String[2] = GetFromIni('TITULNI'+IniRok,'CZNACE11',INI) CZNACE12 :String[2] = GetFromIni('TITULNI'+IniRok,'CZNACE12',INI) CZNACE13 :String[1] = GetFromIni('TITULNI'+IniRok,'CZNACE13',INI) HlavCinn2 :String[140] = GetFromIni('TITULNI'+IniRok,'HlavCinn2',INI) CZNACE21 :String[2] = GetFromIni('TITULNI'+IniRok,'CZNACE21',INI) CZNACE22 :String[2] = GetFromIni('TITULNI'+IniRok,'CZNACE22',INI) CZNACE23 :String[1] = GetFromIni('TITULNI'+IniRok,'CZNACE23',INI) if(Length(KodRozlis)=0) KodRozlis='1A' ;{*******************************************************************************************************************************} ;{formulář} DefDialog('Identifikační údaje pro přiznání k DPPO',635,520) DlgShade(-1,'',5,5,625,490) DlgCover(1000,1,10,10,615,430,False,AktualCover) ;{*******************************************************************************************************************************} ;{cover 1} SetCover(1,'&Titulní strana DPPO') DlgStatic(-1,'&Finančnímu úřadu',15,ysou+4,143) DlgEdit(101,FinancniUrad,160,ysou,440,,32) DlgOnLineHelp(101,'Název finančního úřadu - v příslušném tvaru, např. v Písku, Ostrava I apod.') Inc(ysou,25) DlgStatic(-1,'&Daňové přiznání',15,ysou+4,143) DlgCombo(102,TypPriz1,160,ysou,100,128,9,CBS_DropDownList,'řádné','opravné','dodatečné') DlgOnLineHelp(102,'Typ daňového přiznání') Inc(ysou,25) DlgStatic(-1,'Dů&vody..zjištěny dne',15,ysou+4,143) DlgEditDate(103,DatumDodat,160,ysou,78,,10,,ValidDatum) DlgOnLineHelp(103,'Důvody pro podání dodatečného daňového přiznání zjištěny dne') Inc(ysou,25) DlgStatic(-1,'Kód roz&lišení typu ...',15,ysou+4,143) DlgEdit(104,KodRozlis,160,ysou,26,,2) DlgOnLineHelp(104,'Kód rozlišení typu přiznání - viz POKYNY k vyplnění ...') DlgStatic(-1,'obd.§17a',190,ysou+4,60) DlgEdit(1041,PismObd,255,ysou,16,,1) DlgOnLineHelp(1041,'Zdaňovací období podle § 17a písmeno ... zákona.'+#13+'U daňových přiznání typu B až L se proškrtne') Inc(ysou,30) DlgStatic(-1,'&Počet PF...',15,ysou+4,75) DlgEdit(105,PocetPodilFondu,90,ysou,30,,3) DlgOnLineHelp(105,'Počet podílových fondů,'+#13+'jejichž majetek je obhospodařován') DlgStatic(-1,'Po&řad č. ...',135,ysou+4,75) DlgEdit(106,PoradCisloFondu,210,ysou,30,,3) DlgOnLineHelp(106,'Pořadové číslo podílového fondu') DlgStatic(-1,'Počet pII...',255,ysou+4,75) DlgEdit(107,PocetPrilII,330,ysou,30,,3) DlgOnLineHelp(107,'Počet příloh II. oddílu') DlgStatic(-1,'Poč&et ZP...',375,ysou+4,75) DlgEdit(108,PocetZvlPril,450,ysou,30,,3) DlgOnLineHelp(108,'Počet zvláštních příloh') DlgStatic(-1,'Počet SP...',495,ysou+4,75) DlgEdit(1018,PocetSamPril,570,ysou,30,,3) DlgOnLineHelp(1018,'Počet samostatných příloh') Inc(ysou,30) DlgStatic(-1,'Obchodní &firma',15,ysou+4,140) DlgEdit(109,ObchodniJmeno,160,ysou,440,,35) DlgOnLineHelp(109,'Obchodní firma') Inc(ysou,25) DlgStatic(-1,'Dodate&k jména',15,ysou+4,140) DlgEdit(110,DodatekJmena,160,ysou,440,,35) DlgOnLineHelp(110,'Obchodní jméno - druhý řádek') Inc(ysou,25) DlgStatic(-1,'&Ulice',15,ysou+4,35) DlgEdit(111,UliceDppo,160,ysou,440,,35) DlgOnLineHelp(113,'Sídlo právnické osoby - ulice') Inc(ysou,25) DlgStatic(-1,'&Obec',15,ysou+4,40) DlgEdit(112,Obec,160,ysou,344,,29) DlgOnLineHelp(111,'Sídlo právnické osoby - obec') DlgStatic(-1,'P&SČ',515,ysou+4,30) DlgEdit(113,PSCdppo,550,ysou,50,,5) DlgOnLineHelp(112,'Sídlo právnické osoby - PSČ') Inc(ysou,25) DlgStatic(-1,'St&át/Kód',15,ysou+4,60) DlgEdit(115,Stat,160,ysou,120,,12) DlgOnLineHelp(115,'Sídlo právnické osoby - stát') DlgEdit(1151,KodStat,281,ysou,32,,2) DlgOnLineHelp(1151,'Kód státu se vyplňuje dle přílohy 18 nařízení Komise (ES) č. 2081/2003'+#13+'např. ve tvaru FR pro Francii'+#13+'... viz též http://cds.mfcr.cz položka Daně, podpoložka Daně, složka Daně z příjmů, nabídka Seznam kódů států') DlgStatic(-1,'Tel.',325,ysou+4,30) DlgEdit(116,Telefon,355,ysou,100,,9) DlgOnLineHelp(116,'Číslo telefonu') DlgStatic(-1,'Fax',470,ysou+4,30) DlgEdit(117,Fax,500,ysou,100,,9) DlgOnLineHelp(117,'Číslo faxu') Inc(ysou,25) DlgStatic(-1,'Bankovn&í spojení',15,ysou+4,136) DlgEdit(118,BankovniUcet,160,ysou,440,,30,,ValidBU) DlgOnLineHelp(118,'číslo bankovního účtu') Inc(ysou,25) DlgStatic(-1,'&Hlavní činnost',15,ysou+4,143) DlgEdit(160,HlavCinn1,160,ysou,440,,140) DlgOnLineHelp(160,'Hlavní (převažující) činnost') Inc(ysou,25) DlgStatic(-1,'CZ-NACE',15,ysou+4,143) DlgEdit(161,CZNACE11,160,ysou,25,,2,,ValidCislo) DlgOnLineHelp(161,'Klasifikace CZ-NACE') DlgStatic(-1,'.',190,ysou+4,5) DlgEdit(162,CZNACE12,200,ysou,25,,2,,ValidCislo) DlgOnLineHelp(162,'Klasifikace CZ-NACE') DlgStatic(-1,'.',230,ysou+4,5) DlgEdit(163,CZNACE13,240,ysou,15,,1,,ValidCislo) DlgOnLineHelp(163,'Klasifikace CZ-NACE') Inc(ysou,25) DlgStatic(-1,'H&Č - pokračování',15,ysou+4,143) DlgEdit(164,HlavCinn2,160,ysou,440,,140) DlgOnLineHelp(164,'Hlavní (převažující) činnost') Inc(ysou,25) DlgStatic(-1,'CZ-NACE',15,ysou+4,143) DlgEdit(165,CZNACE21,160,ysou,25,,2,,ValidCislo) DlgOnLineHelp(165,'Klasifikace CZ-NACE') DlgStatic(-1,'.',190,ysou+4,5) DlgEdit(166,CZNACE22,200,ysou,25,,2,,ValidCislo) DlgOnLineHelp(166,'Klasifikace CZ-NACE') DlgStatic(-1,'.',230,ysou+4,5) DlgEdit(167,CZNACE23,240,ysou,15,,1,,ValidCislo) DlgOnLineHelp(167,'Klasifikace CZ-NACE') Inc(ysou,25) ;{*******************************************************************************************************************************} ;{tlačítka} SetCover(0) DlgButton(id_Help,'Help',10,445); DlgOnLineHelp(id_Help,'Help') DlgSetHelp(help_Context,1040) DlgButton(id_OK,'OK',490,445); DlgOnLineHelp(id_OK,'Hodnoty budou uloženy pro zpracování DPPO') DlgButton(id_Cancel,'Zpět',560,445); DlgOnLineHelp(id_Cancel,'Ukončí práci, Vaše poslední změny ve formuláři NEBUDOU uloženy') Result:Integer=DlgExecute() if(Result<>id_OK) Halt ;{*******************************************************************************************************************************} ;{ulozeni} Ulozeni: ;{*******************************************************************************************************************************} ;{ulozeni hodnot 1. coveru} SetToIni('TITULNI'+IniRok,'FinancniUrad',FinancniUrad,INI) SetToIni('TITULNI'+IniRok,'TypPriz1',TypPriz1,INI) SetToIni('TITULNI'+IniRok,'DatumDodat',StrDate(DatumDodat),INI) SetToIni('TITULNI'+IniRok,'KodRozlis',KodRozlis,INI) SetToIni('TITULNI'+IniRok,'PismObd',PismObd,INI) SetToIni('TITULNI'+IniRok,'PocetPodilFondu',PocetPodilFondu,INI) SetToIni('TITULNI'+IniRok,'PoradCisloFondu',PoradCisloFondu,INI) SetToIni('TITULNI'+IniRok,'PocetPrilII',PocetPrilII,INI) SetToIni('TITULNI'+IniRok,'PocetZvlPril',PocetZvlPril,INI) SetToIni('TITULNI'+IniRok,'PocetSamPril',PocetSamPril,INI) SetToIni('TITULNI'+IniRok,'ObchodniJmeno',ObchodniJmeno,INI) SetToIni('TITULNI'+IniRok,'DodatekJmena',DodatekJmena,INI) SetToIni('TITULNI'+IniRok,'Ulice',UliceDppo,INI) SetToIni('TITULNI'+IniRok,'Obec',Obec,INI) SetToIni('TITULNI'+IniRok,'PSC',PSCdppo,INI) SetToIni('TITULNI'+IniRok,'Stat',Stat,INI) SetToIni('TITULNI'+IniRok,'KodStat',KodStat,INI) SetToIni('TITULNI'+IniRok,'Telefon',telefon,INI) SetToIni('TITULNI'+IniRok,'Fax',fax,INI) SetToIni('TITULNI'+IniRok,'BankovniUcet',BankovniUcet,INI) SetToIni('TITULNI'+IniRok,'HlavCinn1',HlavCinn1,INI) SetToIni('TITULNI'+IniRok,'CZNACE11',CZNACE11,INI) SetToIni('TITULNI'+IniRok,'CZNACE12',CZNACE12,INI) SetToIni('TITULNI'+IniRok,'CZNACE13',CZNACE13,INI) SetToIni('TITULNI'+IniRok,'HlavCinn2',HlavCinn2,INI) SetToIni('TITULNI'+IniRok,'CZNACE21',CZNACE21,INI) SetToIni('TITULNI'+IniRok,'CZNACE22',CZNACE22,INI) SetToIni('TITULNI'+IniRok,'CZNACE23',CZNACE23,INI) END