;DDT - Příloha č. 5 vyhlášky č. 410/2009 Sb. Name('Příloha č.5') Designed('','Winduo') Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz') Descr('Příloha č. 5 vyhlášky č. 410/2009 Sb.') FileName('Pril'+Obdobi()+'.WNS') DeclareRec('Program') ZadaneObdobi:String=Obdobi(4) ValidCisla:String='0123456789' ValidCislo:String='0123456789.,+-' FontWidthScale(0.75) ZpusobZaokr:Byte=Val(GetDataINI('INFO','ZaokrouhleniVykazu')) IF(Version()<5) Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop) ;{*******************************************************************************************************************************} ;{definice promennych} DeclareRec('UcetniRozvrh') DeclareRec('KeyUcetniRozvrh1') DeclareRec('Denik') DeclareRec('KeyDenik1') VetaD :LongInt VetaUR :LongInt INI1:String=DataPath+'\RPDisk'+ObdRok(2)+'.INI' INI2:String=DataPath+'\PRIL05.INI' ;TiskNul:Boolean=GetBoolean(GetFromIni('VYKAZY','TiskNul',INI2)) ;if(TiskNul) ; TiskNul=False ; else ; TiskNul=True cover :Integer=0 pocA1 :Integer=7 A1 :Array[1..pocA1] of String pocA2 :Integer=9 A2 :Array[1..pocA2] of String pocA3 :Integer=18 A3 :Array[1..pocA3] of String A4B1 :Array[901..999] of Real A4M1 :Array[901..999] of Real A4B1Z :Array[901..999] of Real A4M1Z :Array[901..999] of Real A4P1 :Array[0..4] of Integer = 901,902,903,904,905 A4P2 :Array[0..5] of Integer = 911,912,913,914,915,916 A4P3 :Array[0..5] of Integer = 921,922,923,924,925,926 A4P4 :Array[0..11] of Integer = 931,932,933,934,939,941,942,943,944,945,947,948 A4P5 :Array[0..5] of Integer = 951,952,953,954,955,956 A4P6 :Array[0..7] of Integer = 961,962,963,964,965,966,967,968 A4P7 :Array[0..13] of Integer = 971,972,973,974,975,976,978,979,981,982,983,984,985,986 A4P8 :Array[0..4] of Integer = 991,992,993,994,999 pocA5 :Integer=8 A5 :Array[1..pocA5] of String A6 :Array[1..pocA5] of String pocB1 :Integer=3 B1 :Array[1..pocB1] of String B2 :Array[1..pocB1] of String B3 :Array[1..pocB1] of String B3H :Real CP :Array[1..2] of String CK :Array[1..2] of String pocD1 :Integer=4 D1 :Array[1..pocD1] of String D2 :Array[1..pocD1] of String D3 :Array[1..pocD1] of String D4 :Array[1..pocD1] of String D5 :Array[1..pocD1] of String D6 :Array[1..pocD1] of String D7 :Array[1..pocD1] of String pocE1 :Integer=16 E1T :Array[1..pocE1] of String E1P :Array[1..pocE1] of String E1C :Array[1..pocE1] of String E2T :Array[1..pocE1] of String E2P :Array[1..pocE1] of String E2C :Array[1..pocE1] of String E3T :Array[1..pocE1] of String E3P :Array[1..pocE1] of String E3C :Array[1..pocE1] of String E4T :Array[1..pocE1] of String E4P :Array[1..pocE1] of String E4C :Array[1..pocE1] of String Fa1 :String Fa2 :String Fa21 :String Fa22 :String Fa23 :String Fa24 :String Fa25 :String Fa3 :String Fa31 :String Fa32 :String Fa33 :String Fa34 :String Fa35 :String Fa36 :String Fa37 :String Fa38 :String Fa39 :String Fa4 :String Fb1 :String Fb2 :String Fb21 :String Fb22 :String Fb23 :String Fb24 :String Fb25 :String Fb26 :String Fb27 :String Fb3 :String Fb31 :String Fb32 :String Fb33 :String Fb34 :String Fb35 :String Fb36 :String Fb37 :String Fb4 :String Fc1 :String Fc2 :String Fc21 :String Fc22 :String Fc23 :String Fc24 :String Fc25 :String Fc26 :String Fc27 :String Fc28 :String Fc3 :String Fc31 :String Fc32 :String Fc33 :String Fc34 :String Fc35 :String Fc36 :String Fc37 :String Fc4 :String Fd1 :String Fd2 :String Fd21 :String Fd22 :String Fd23 :String Fd24 :String Fd25 :String Fd26 :String Fd3 :String Fd31 :String Fd32 :String Fd33 :String Fd34 :String Fd35 :String Fd4 :String Fe1 :String Fe2 :String Fe21 :String Fe22 :String Fe23 :String Fe24 :String Fe25 :String Fe26 :String Fe27 :String Fe3 :String Fe31 :String Fe32 :String Fe33 :String Fe34 :String Fe4 :String Ff1 :String Ff2 :String Ff21 :String Ff22 :String Ff23 :String Ff24 :String Ff25 :String Ff26 :String Ff27 :String Ff3 :String Ff31 :String Ff32 :String Ff33 :String Ff34 :String Ff4 :String Fg1 :String Fg2 :String Fg21 :String Fg22 :String Fg23 :String Fg3 :String Fg4 :String pocG :Integer=6 GB :Array[1..pocG] of Double GK :Array[1..pocG] of Double GN :Array[1..pocG] of Double GM :Array[1..pocG] of Double pocH :Integer=5 HB :Array[1..pocH] of Double HK :Array[1..pocH] of Double HN :Array[1..pocH] of Double HM :Array[1..pocH] of Double pocI :Integer=3 IB :Array[1..pocI] of Double IM :Array[1..pocI] of Double pocJ :Integer=3 JB :Array[1..pocJ] of Double JM :Array[1..pocJ] of Double ;{procedura pro načtení z ini souboru} procedure NactiINI hlavickaini :String='DATA'+ObdMaxDay(0,1) ;{A1..A3} i=1 while(i<=pocA1) begin A1[i]=GetFromIni(hlavickaini, 'A1'+Str(i), INI2) Inc(i) end i=1 while(i<=pocA2) begin A2[i]=GetFromIni(hlavickaini, 'A2'+Str(i), INI2) Inc(i) end i=1 while(i<=pocA3) begin A3[i]=GetFromIni(hlavickaini, 'A3'+Str(i), INI2) Inc(i) end ;{A4} ClearKey(KeyDenik1) while(NextKey(KeyDenik1,VetaD)) begin ReadRec(Denik,VetaD) xObdobi:Word=Val(Obdobi(2)) if(((Denik.MDSU>=900)and(Denik.MDSU<=999))and(Denik.obdobi<=xObdobi)) begin KeyUcetniRozvrh1.Length=SizeOf(KeyUcetniRozvrh1)-1 KeyUcetniRozvrh1.SU=Swap(Denik.MDSU) KeyUcetniRozvrh1.AU=Swap(Denik.MDAU) if(FindKey(KeyUcetniRozvrh1,VetaUR)) ReadRec(UcetniRozvrh,VetaUR) else Halt('Chybí účet v rozvrhu - '+Null(Denik.MDSU,3)+'/'+Null(Denik.MDAU,3)) if(UcetniRozvrh.Typ=1) A4B1[Denik.MDSU]=A4B1[Denik.MDSU]+RoundFloat((Denik.Castka*(-1)),-2) else A4B1[Denik.MDSU]=A4B1[Denik.MDSU]+RoundFloat(Denik.Castka,-2) if(CompareStr(Copy(Denik.Doklad,1,8),'POC-STAV')) begin if(UcetniRozvrh.Typ=1) A4M1[Denik.MDSU]=A4M1[Denik.MDSU]+RoundFloat((Denik.Castka*(-1)),-2) else A4M1[Denik.MDSU]=A4M1[Denik.MDSU]+RoundFloat(Denik.Castka,-2) end end if(((Denik.DalSU>=900)and(Denik.DalSU<=999))and(Denik.obdobi<=xObdobi)) begin KeyUcetniRozvrh1.Length=SizeOf(KeyUcetniRozvrh1)-1 KeyUcetniRozvrh1.SU=Swap(Denik.DalSU) KeyUcetniRozvrh1.AU=Swap(Denik.DalAU) if(FindKey(KeyUcetniRozvrh1,VetaUR)) ReadRec(UcetniRozvrh,VetaUR) else Halt('Chybí účet v rozvrhu - '+Null(Denik.DalSU,3)+'/'+Null(Denik.DalAU,3)) if(UcetniRozvrh.Typ=1) A4B1[Denik.DalSU]=A4B1[Denik.DalSU]-RoundFloat((Denik.Castka*(-1)),-2) else A4B1[Denik.DalSU]=A4B1[Denik.DalSU]-RoundFloat(Denik.Castka,-2) if(CompareStr(Copy(Denik.Doklad,1,8),'POC-STAV')) begin if(UcetniRozvrh.Typ=1) A4M1[Denik.DalSU]=A4M1[Denik.DalSU]-RoundFloat((Denik.Castka*(-1)),-2) else A4M1[Denik.DalSU]=A4M1[Denik.DalSU]-RoundFloat(Denik.Castka,-2) end end end i=901 xpcislo:Double while(i<=999) begin if(A4B1[i]=0) A4B1[i]=RoundFloat(Double(ReplaceStr(GetFromIni(hlavickaini, 'A4B1'+Str(i), INI2),'.',',')),-2) if(A4M1[i]=0) A4M1[i]=RoundFloat(Double(ReplaceStr(GetFromIni(hlavickaini, 'A4M1'+Str(i), INI2),'.',',')),-2) Inc(i) end ;{A5..A6} i=1 while(i<=pocA5) begin A5[i]=GetFromIni(hlavickaini, 'A5'+Str(i), INI2) A6[i]=GetFromIni(hlavickaini, 'A6'+Str(i), INI2) Inc(i) end ;{B} i=1 while(i<=pocB1) begin B1[i]=GetFromIni(hlavickaini, 'B1'+Str(i), INI2) B2[i]=GetFromIni(hlavickaini, 'B2'+Str(i), INI2) B3[i]=GetFromIni(hlavickaini, 'B3'+Str(i), INI2) Inc(i) end B3H=RoundFloat(Double(ReplaceStr(GetFromIni(hlavickaini, 'B3H', INI2),'.',',')),-2) ;{C} i=1 while(i<=2) begin CP[i]=GetFromIni(hlavickaini, 'CP'+Str(i), INI2) CK[i]=GetFromIni(hlavickaini, 'CK'+Str(i), INI2) Inc(i) end ;{D} i=1 while(i<=pocD1) begin D1[i]=GetFromIni(hlavickaini, 'D1'+Str(i), INI2) D2[i]=GetFromIni(hlavickaini, 'D2'+Str(i), INI2) D3[i]=GetFromIni(hlavickaini, 'D3'+Str(i), INI2) D4[i]=GetFromIni(hlavickaini, 'D4'+Str(i), INI2) D5[i]=GetFromIni(hlavickaini, 'D5'+Str(i), INI2) D6[i]=GetFromIni(hlavickaini, 'D6'+Str(i), INI2) D7[i]=GetFromIni(hlavickaini, 'D7'+Str(i), INI2) Inc(i) end ;{E} i=1 while(i<=pocE1) begin E1T[i]=GetFromIni(hlavickaini, 'E1T'+Str(i), INI2) E1P[i]=GetFromIni(hlavickaini, 'E1P'+Str(i), INI2) E1C[i]=GetFromIni(hlavickaini, 'E1C'+Str(i), INI2) E2T[i]=GetFromIni(hlavickaini, 'E2T'+Str(i), INI2) E2P[i]=GetFromIni(hlavickaini, 'E2P'+Str(i), INI2) E2C[i]=GetFromIni(hlavickaini, 'E2C'+Str(i), INI2) E3T[i]=GetFromIni(hlavickaini, 'E3T'+Str(i), INI2) E3P[i]=GetFromIni(hlavickaini, 'E3P'+Str(i), INI2) E3C[i]=GetFromIni(hlavickaini, 'E3C'+Str(i), INI2) E4T[i]=GetFromIni(hlavickaini, 'E4T'+Str(i), INI2) E4P[i]=GetFromIni(hlavickaini, 'E4P'+Str(i), INI2) E4C[i]=GetFromIni(hlavickaini, 'E4C'+Str(i), INI2) Inc(i) end ;{F} Fa1=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa1', INI2) Fa2=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa2', INI2) Fa21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa21', INI2) Fa22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa22', INI2) Fa23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa23', INI2) Fa24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa24', INI2) Fa25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa25', INI2) Fa3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa3', INI2) Fa31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa31', INI2) Fa32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa32', INI2) Fa33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa33', INI2) Fa34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa34', INI2) Fa35=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa35', INI2) Fa36=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa36', INI2) Fa37=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa37', INI2) Fa38=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa38', INI2) Fa39=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa39', INI2) Fa4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fa4', INI2) Fb1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb1', INI2) Fb2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb2', INI2) Fb21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb21', INI2) Fb22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb22', INI2) Fb23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb23', INI2) Fb24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb24', INI2) Fb25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb25', INI2) Fb26=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb26', INI2) Fb27=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb27', INI2) Fb3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb3', INI2) Fb31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb31', INI2) Fb32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb32', INI2) Fb33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb33', INI2) Fb34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb34', INI2) Fb35=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb35', INI2) Fb36=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb36', INI2) Fb37=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb37', INI2) Fb4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fb4', INI2) Fc1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc1', INI2) Fc2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc2', INI2) Fc21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc21', INI2) Fc22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc22', INI2) Fc23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc23', INI2) Fc24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc24', INI2) Fc25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc25', INI2) Fc26=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc26', INI2) Fc27=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc27', INI2) Fc28=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc28', INI2) Fc3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc3', INI2) Fc31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc31', INI2) Fc32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc32', INI2) Fc33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc33', INI2) Fc34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc34', INI2) Fc35=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc35', INI2) Fc36=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc36', INI2) Fc37=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc37', INI2) Fc4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fc4', INI2) Fd1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd1', INI2) Fd2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd2', INI2) Fd21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd21', INI2) Fd22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd22', INI2) Fd23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd23', INI2) Fd24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd24', INI2) Fd25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd25', INI2) Fd26=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd26', INI2) Fd3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd3', INI2) Fd31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd31', INI2) Fd32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd32', INI2) Fd33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd33', INI2) Fd34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd34', INI2) Fd35=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd35', INI2) Fd4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fd4', INI2) Fe1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe1', INI2) Fe2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe2', INI2) Fe21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe21', INI2) Fe22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe22', INI2) Fe23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe23', INI2) Fe24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe24', INI2) Fe25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe25', INI2) Fe26=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe26', INI2) Fe27=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe27', INI2) Fe3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe3', INI2) Fe31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe31', INI2) Fe32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe32', INI2) Fe33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe33', INI2) Fe34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe34', INI2) Fe4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fe4', INI2) Ff1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff1', INI2) Ff2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff2', INI2) Ff21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff21', INI2) Ff22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff22', INI2) Ff23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff23', INI2) Ff24=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff24', INI2) Ff25=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff25', INI2) Ff26=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff26', INI2) Ff27=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff27', INI2) Ff3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff3', INI2) Ff31=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff31', INI2) Ff32=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff32', INI2) Ff33=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff33', INI2) Ff34=GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff34', INI2) Ff4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Ff4', INI2) Fg1 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg1', INI2) Fg2 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg2', INI2) Fg21=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg21', INI2) Fg22=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg22', INI2) Fg23=GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg23', INI2) Fg3 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg3', INI2) Fg4 =GetFromIni('DATA'+ObdMaxDay(0,1), 'Fg4', INI2) ;{G} i=1 while(i<=pocG) begin GB[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'GB'+Str(i), INI2),'.',',')) GK[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'GK'+Str(i), INI2),'.',',')) GN[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'GN'+Str(i), INI2),'.',',')) GM[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'GM'+Str(i), INI2),'.',',')) Inc(i) end ;{H} i=1 while(i<=pocH) begin HB[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'HB'+Str(i), INI2),'.',',')) HK[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'HK'+Str(i), INI2),'.',',')) HN[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'HN'+Str(i), INI2),'.',',')) HM[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'HM'+Str(i), INI2),'.',',')) Inc(i) end ;{I} i=1 while(i<=pocI) begin IB[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'IB'+Str(i), INI2),'.',',')) IM[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'IM'+Str(i), INI2),'.',',')) Inc(i) end ;{J} i=1 while(i<=pocJ) begin JB[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'JB'+Str(i), INI2),'.',',')) JM[i]=Double(ReplaceStr(GetFromIni(hlavickaini, 'JM'+Str(i), INI2),'.',',')) Inc(i) end end ;{procedura pro uložení do ini souboru} procedure UlozINI ;{A1..A3} i=1 while(i<=pocA1) begin SetToIni('DATA'+ObdMaxDay(0,1), 'A1'+i, A1[i], INI2) Inc(i) end i=1 while(i<=pocA2) begin SetToIni('DATA'+ObdMaxDay(0,1), 'A2'+i, A2[i], INI2) Inc(i) end i=1 while(i<=pocA3) begin SetToIni('DATA'+ObdMaxDay(0,1), 'A3'+i, A3[i], INI2) Inc(i) end ;{A4} i=901 while(i<=999) begin SetToIni('DATA'+ObdMaxDay(0,1), 'A4B1'+i, A4B1[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'A4M1'+i, A4M1[i], INI2) Inc(i) end ;{A5..A6} i=1 while(i<=pocA5) begin SetToIni('DATA'+ObdMaxDay(0,1), 'A5'+i, A5[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'A6'+i, A6[i], INI2) Inc(i) end ;{B} i=1 while(i<=pocB1) begin SetToIni('DATA'+ObdMaxDay(0,1), 'B1'+i, B1[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'B2'+i, B2[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'B3'+i, B3[i], INI2) Inc(i) end SetToIni('DATA'+ObdMaxDay(0,1), 'B3H', B3H, INI2) ;{C} i=1 while(i<=2) begin SetToIni('DATA'+ObdMaxDay(0,1), 'CP'+i, CP[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'CK'+i, CK[i], INI2) Inc(i) end ;{D} i=1 while(i<=pocD1) begin SetToIni('DATA'+ObdMaxDay(0,1), 'D1'+i, D1[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D2'+i, D2[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D3'+i, D3[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D4'+i, D4[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D5'+i, D5[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D6'+i, D6[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'D7'+i, D7[i], INI2) Inc(i) end ;{E} i=1 while(i<=pocE1) begin SetToIni('DATA'+ObdMaxDay(0,1), 'E1T'+i, E1T[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E1P'+i, E1P[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E1C'+i, E1C[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E2T'+i, E2T[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E2P'+i, E2P[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E2C'+i, E2C[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E3T'+i, E3T[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E3P'+i, E3P[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E3C'+i, E3C[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E4T'+i, E4T[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E4P'+i, E4P[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'E4C'+i, E4C[i], INI2) Inc(i) end ;{F} SetToIni('DATA'+ObdMaxDay(0,1), 'Fa1', Fa1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa2', Fa2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa21', Fa21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa22', Fa22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa23', Fa23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa24', Fa24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa25', Fa25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa3', Fa3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa31', Fa31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa32', Fa32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa33', Fa33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa34', Fa34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa35', Fa35, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa36', Fa36, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa37', Fa37, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa38', Fa38, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa39', Fa39, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fa4', Fa4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb1', Fb1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb2', Fb2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb21', Fb21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb22', Fb22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb23', Fb23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb24', Fb24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb25', Fb25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb26', Fb26, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb27', Fb27, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb3', Fb3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb31', Fb31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb32', Fb32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb33', Fb33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb34', Fb34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb35', Fb35, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb36', Fb36, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb37', Fb37, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fb4', Fb4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc1', Fc1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc2', Fc2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc21', Fc21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc22', Fc22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc23', Fc23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc24', Fc24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc25', Fc25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc26', Fc26, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc27', Fc27, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc28', Fc28, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc3', Fc3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc31', Fc31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc32', Fc32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc33', Fc33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc34', Fc34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc35', Fc35, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc36', Fc36, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc37', Fc37, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fc4', Fc4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd1', Fd1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd2', Fd2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd21', Fd21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd22', Fd22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd23', Fd23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd24', Fd24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd25', Fd25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd26', Fd26, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd3', Fd3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd31', Fd31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd32', Fd32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd33', Fd33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd34', Fd34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd35', Fd35, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fd4', Fd4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe1', Fe1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe2', Fe2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe21', Fe21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe22', Fe22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe23', Fe23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe24', Fe24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe25', Fe25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe26', Fe26, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe27', Fe27, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe3', Fe3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe31', Fe31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe32', Fe32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe33', Fe33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe34', Fe34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fe4', Fe4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff1', Ff1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff2', Ff2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff21', Ff21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff22', Ff22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff23', Ff23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff24', Ff24, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff25', Ff25, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff26', Ff26, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff27', Ff27, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff3', Ff3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff31', Ff31, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff32', Ff32, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff33', Ff33, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff34', Ff34, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Ff4', Ff4, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg1', Fg1, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg2', Fg2, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg21', Fg21, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg22', Fg22, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg23', Fg23, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg3', Fg3, INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'Fg4', Fg4, INI2) ;{G} i=1 while(i<=pocG) begin SetToIni('DATA'+ObdMaxDay(0,1), 'GB'+i, GB[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'GK'+i, GK[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'GN'+i, GN[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'GM'+i, GM[i], INI2) Inc(i) end ;{H} i=1 while(i<=pocH) begin SetToIni('DATA'+ObdMaxDay(0,1), 'HB'+i, HB[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'HK'+i, HK[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'HN'+i, HN[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'HM'+i, HM[i], INI2) Inc(i) end ;{I} i=1 while(i<=pocI) begin SetToIni('DATA'+ObdMaxDay(0,1), 'IB'+i, IB[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'IM'+i, IM[i], INI2) Inc(i) end ;{J} i=1 while(i<=pocJ) begin SetToIni('DATA'+ObdMaxDay(0,1), 'JB'+i, JB[i], INI2) SetToIni('DATA'+ObdMaxDay(0,1), 'JM'+i, JM[i], INI2) Inc(i) end end ;{*******************************************************************************************************************************} ;{formular} sirka :Integer=960 vyska :Integer=580 pozice:Integer i :Integer j :Integer ucet :Integer NactiINI formular: DefDialog('Příloha č. 5 (v.7.1.)',sirka-1,vyska,True) DlgCover(100,21,5,5,sirka-11,vyska-50,false) DlgButton(id_OK,'OK',sirka-140,vyska-40) DlgButton(id_Cancel,'Zpět',sirka-70,vyska-40) ;{A1-A2} Inc(cover) SetCover(cover,'A1-2') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'A.1.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 7 odst. 3 zákona (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocA1) begin Inc(pozice,25) DlgEdit(1100+i,A1[i],15,pozice,sirka-45) DlgOnLineHelp(1100+i,'Informace podle § 7 odst. 3 zákona (TEXT)') Inc(i) end Inc(pozice,30) DlgStatic(-1,'A.2.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 7 odst. 4 zákona (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocA2) begin Inc(pozice,25) DlgEdit(1200+i,A2[i],15,pozice,sirka-45) DlgOnLineHelp(1200+i,'Informace podle § 7 odst. 4 zákona (TEXT)') Inc(i) end ;{A3} Inc(cover) SetCover(cover,'A3') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'A.3.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 7 odst. 5 zákona (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocA3) begin Inc(pozice,25) DlgEdit(1300+i,A3[i],15,pozice,sirka-45) DlgOnLineHelp(1300+i,'Informace podle § 7 odst. 5 zákona (TEXT)') Inc(i) end ;{A4} begin Inc(cover) SetCover(cover,'A4') DlgShade(-1,'',5,5,sirka-25,vyska-90) DlgCover(110,8,5,15,sirka-25,vyska-90,False,,3) ;{P1} SetCover(1,'901-909') pozice=15 DlgStatic(-1,'P.1.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Majetek a závazky účetní jednotky',50,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=901 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Jiný drobný dlouhodobý nehmotný majetek',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1401,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1402,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=902 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Jiný drobný dlouhodobý hmotný majetek',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1403,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1404,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=905 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Vyřazené pohledávky',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1405,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1406,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=906 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Vyřazené závazky',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1407,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1408,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=909 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní majetek',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1409,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1410,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P2} SetCover(2,'911-916') pozice=15 DlgStatic(-1,'P.2.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Vyřazené pohledávky a závazky',50,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=911 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky z předfinancování transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1411,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1412,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=912 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné závazky z předfinancování transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1413,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1414,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=913 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze zahraničních transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1415,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1416,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=914 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné závazky ze zahraničních transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1417,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1418,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=915 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní krátkodobé podmíněné pohledávky z transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1419,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1420,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=916 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní krátkodobé podmíněné závazky z transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1421,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1422,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P3} SetCover(3,'921-926') pozice=15 DlgStatic(-1,'P.3.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Podmíněné pohledávky z důvodu užívání majetku jinou osobou',50,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=921 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... užívání majetku jinou osobou',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1431,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1432,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=922 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... užívání majetku jinou osobou',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1433,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1434,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=923 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... majetku jinou osobou na základě sml.',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1435,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1436,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=924 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... majetku jinou osobou na základě sml.',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1437,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1438,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=925 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... majetku jinou osobou z jiných důvodů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1439,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1440,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=926 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... majetku jinou osobou z jiných důvodů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(1441,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(1442,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P4} SetCover(4,'931-948') pozice=15 DlgStatic(-1,'P.4.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Další podmíněné pohledávky',50,pozice+2,400,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=931 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=932 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=933 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky z jiných smluv',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=934 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky z jiných smluv',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=939 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze sdílených daní',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=941 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze sdílených daní',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=942 DlgStatic(-1,'7.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze vztahu k jiným zdrojům',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=943 DlgStatic(-1,'8.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze vztahu k jiným zdrojům',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=944 DlgStatic(-1,'9.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné úhrady pohledávek z přijatých zajištění',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=945 DlgStatic(-1,'10.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné úhrady pohledávek z přijatých zajištění',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=947 DlgStatic(-1,'11.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze soudních sporů, správních řízení ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=948 DlgStatic(-1,'12.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze soudních sporů, správních řízení ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P5} SetCover(5,'951-956') pozice=15 DlgStatic(-1,'P.5.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky z transferů a dlouhodobé ... z transferů',50,pozice+2,400,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=951 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky z předfinancování transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=952 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné závazky z předfinancování transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=953 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze zahraničních transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=954 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné závazky ze zahraničních transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=955 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní dlouhodobé podmíněné pohledávky z transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=956 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní dlouhodobé podmíněné závazky z transferů',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P6} SetCover(6,'961-968') pozice=15 DlgStatic(-1,'P.6.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Podmíněné závazky z důvodu užívání cizího majetku',50,pozice+2,400,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=961 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné závazky z operativního leasingu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=962 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné závazky z operativního leasingu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=963 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné závazky z finančního leasingu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=964 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné závazky z finančního leasingu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=965 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... užívání cizího majetku na základě ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=966 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... užívání cizího majetku na základě ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=967 DlgStatic(-1,'7.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... užívání cizího majetku nebo jeho ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=968 DlgStatic(-1,'8.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... užívání cizího majetku nebo jeho ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P7} SetCover(7,'971-986') pozice=15 DlgStatic(-1,'P.7.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Další podmíněné závazky a ostatní podmíněná pasiva',50,pozice+2,400,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=971 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=972 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=973 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky z jiných smluv',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=974 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky z jiných smluv',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=975 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné pohledávky z přijatého kolaterálu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=976 DlgStatic(-1,'6.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné pohledávky z přijatého kolaterálu',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=978 DlgStatic(-1,'7.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... ze vztahu k jiným zdrojům',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=979 DlgStatic(-1,'8.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... ze vztahu k jiným zdrojům',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=981 DlgStatic(-1,'9.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé podmíněné úhrady ... z přijatých zajištění',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=982 DlgStatic(-1,'10.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé podmíněné úhrady ... z přijatých zajištění',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=983 DlgStatic(-1,'11.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Krátkodobé ... ze soudních sporů, správních řízení ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=984 DlgStatic(-1,'12.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Dlouhodobé ... ze soudních sporů, správních řízení ...',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=985 DlgStatic(-1,'13.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní krátkodobá podmíněná aktiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=986 DlgStatic(-1,'14.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní dlouhodobá podmíněná aktiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) ;{P8} SetCover(8,'991-999') pozice=15 DlgStatic(-1,'P.8.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Ostatní podmíněná aktiva a ostatní podmíněná pasiva a vyrovnávací účty',50,pozice+2,400,,,,$FF0000) DlgStatic(-1,'Účet',sirka-365,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-325,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-175,pozice+2,120,,,,$FF0000) Inc(pozice,25) ucet=991 DlgStatic(-1,'1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní krátkodobá podmíněná aktiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=992 DlgStatic(-1,'2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní dlouhodobá podmíněná aktiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=993 DlgStatic(-1,'3.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní krátkodobá podmíněná pasiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=994 DlgStatic(-1,'4.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Ostatní dlouhodobá podmíněná pasiva',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(pozice,25) ucet=999 DlgStatic(-1,'5.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Vyrovnávací účet k podrozvahovým účtům',50,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,ucet,sirka-365,pozice+2,50,,,,$000000) DlgEdit(,A4B1[ucet],sirka-320,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(,A4M1[ucet],sirka-175,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgCoverUp(); end ;{A5-A6} Inc(cover) SetCover(cover,'A5-6') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'A.5.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 18 odst. 3 písm. b) zákona (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocA5) begin Inc(pozice,25) DlgEdit(1600+i,A5[i],15,pozice,sirka-45) DlgOnLineHelp(1600+i,'Informace podle § 19 odst. 5 písm. a) zákona (TEXT)') Inc(i) end Inc(pozice,30) DlgStatic(-1,'A.6.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 19 odst. 6 zákona (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocA5) begin Inc(pozice,25) DlgEdit(1700+i,A6[i],15,pozice,sirka-45) DlgOnLineHelp(1700+i,'Informace podle § 19 odst. 5 písm. b) zákona (TEXT)') Inc(i) end ;{B1-B4} Inc(cover) SetCover(cover,'B1-3') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'B.1',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 66 odst. 6 (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocB1) begin Inc(pozice,25) DlgEdit(2100+i,B1[i],15,pozice,sirka-45) DlgOnLineHelp(2100+i,'Informace podle § 66 odst. 6 (TEXT)') Inc(i) end Inc(pozice,30) DlgStatic(-1,'B.2',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 66 odst. 8 (TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocB1) begin Inc(pozice,25) DlgEdit(2200+i,B2[i],15,pozice,sirka-45) DlgOnLineHelp(2200+i,'Informace podle § 66 odst. 8 (TEXT)') Inc(i) end Inc(pozice,30) DlgStatic(-1,'B.3',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Informace podle § 68 odst. 3 (ČÍSLO A TEXT)',50,pozice+2,500,,,,$FF0000) Inc(pozice,25) DlgEdit(2310+i,B3H,15,pozice,140,,15,ES_RIGHT,ValidCislo,2) i=1 while(i<=pocB1) begin Inc(pozice,25) DlgEdit(2300+i,B3[i],15,pozice,sirka-45) DlgOnLineHelp(2300+i,'Informace podle § 68 odst. 3 (ČÍSLO A TEXT)') Inc(i) end ;{C1-C2} Inc(cover) SetCover(cover,'C1-2') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Účetní období',sirka-320,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Název',50,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Bežné',sirka-320,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'C.1.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Zvýšení stavu transferů ... účetní období',50,pozice+2,sirka-360,,,,$000000) DlgEdit(3101,CP[1],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(3102,CK[1],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'C.2.',15,pozice+2,sirka-360,,,,$000000) DlgStatic(-1,'Snížení stavu transferů ... časové souvislosti',50,pozice+2,sirka-360,,,,$000000) DlgEdit(3201,CP[2],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(3202,CK[2],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{D1-D4} Inc(cover) SetCover(cover,'D1-4') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=13 DlgStatic(-1,'D.1.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Počet jednotlivých věcí a souborů majetku nebo seznam tohoto majetku (ČÍSLO A TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4100+i,D1[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4100+i,D1[i],15,pozice,sirka-45) DlgOnLineHelp(4100+i,'Informace o individuálním referenčním množství mléka (ČÍSLO A TEXT)') end Inc(i) end Inc(pozice,28) DlgStatic(-1,'D.2.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Celková výměra lesních pozemků s lesním porostem (ČÍSLO)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4200+i,D2[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4200+i,D2[i],15,pozice,sirka-45) DlgOnLineHelp(4200+i,'Informace o individuální produkční kvótě (ČÍSLO A TEXT)') end Inc(i) end Inc(pozice,28) DlgStatic(-1,'D.3.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Výše ocenění celkové výměry lesních pozemků s lesním porostem ve výši 57 Kč/m2 (ČÍSLO)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4300+i,D3[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4300+i,D3[i],15,pozice,sirka-45) DlgOnLineHelp(4300+i,'Informace o individuálním limitu prémiových práv (ČÍSLO A TEXT)') end Inc(i) end Inc(pozice,28) DlgStatic(-1,'D.4.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Výměra lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4400+i,D4[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4400+i,D4[i],15,pozice,sirka-45) DlgOnLineHelp(4400+i,'Informace o jiných obdobných kvótách a limitech (ČÍSLO A TEXT)') end Inc(i) end ;{D5-D8} Inc(cover) SetCover(cover,'D5-8') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=13 DlgStatic(-1,'D.5.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Výše ocenění lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4500+i,D5[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4500+i,D5[i],15,pozice,sirka-45) DlgOnLineHelp(4500+i,'Počet jednotlivých věcí a souborů majetku nebo seznam tohoto majetku (ČÍSLO A TEXT)') end Inc(i) end Inc(pozice,28) DlgStatic(-1,'D.6.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Průměrná výše ocenění výměry lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4600+i,D6[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4600+i,D6[i],15,pozice,sirka-45) DlgOnLineHelp(4600+i,'Celková výměra lesních pozemků s lesním porostem (ČÍSLO A TEXT)') end Inc(i) end Inc(pozice,28) DlgStatic(-1,'D.7.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Komentář k ocenění lesních pozemků jiným způsobem (ČÍSLO A TEXT)',50,pozice+2,500,,,,$FF0000) i=1 while(i<=pocD1) begin Inc(pozice,23) if(i=1) begin DlgStatic(-1,'Hodnota',55,pozice+2,60) DlgEdit(4700+i,D7[i],120,pozice,140,,15,ES_RIGHT,ValidCislo) end else begin DlgEdit(4700+i,D7[i],15,pozice,sirka-45) DlgOnLineHelp(4700+i,'Výše ocenění lesních porostů (ČÍSLO)') end Inc(i) end ;{E1} Inc(cover) SetCover(cover,'E1') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'E.1. Doplňující informace k položkám rozvahy',15,pozice+2,500,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'K položce',15,pozice+2,140,,,,$FF0000) DlgStatic(-1,'Doplňující informace k položkám rozvahy (TEXT)',140,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Částka',sirka-180,pozice+2,140,,,,$FF0000) i=1 while(i<=pocE1) begin Inc(pozice,25) DlgEdit(,E1P[i],15,pozice,120,,250,ES_LEFT) DlgEdit(,E1T[i],140,pozice,sirka-325,,250,ES_LEFT) DlgEdit(,E1C[i],sirka-180,pozice,150,,250,ES_LEFT) Inc(i) end ;{E2} Inc(cover) SetCover(cover,'E2') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'E.2. Doplňující informace k položkám výkazu zisku a ztráty',15,pozice+2,500,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'K položce',15,pozice+2,140,,,,$FF0000) DlgStatic(-1,'Doplňující informace k položkám rozvahy (TEXT)',140,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Částka',sirka-180,pozice+2,140,,,,$FF0000) i=1 while(i<=pocE1) begin Inc(pozice,25) DlgEdit(,E2P[i],15,pozice,120,,250,ES_LEFT) DlgEdit(,E2T[i],140,pozice,sirka-325,,250,ES_LEFT) DlgEdit(,E2C[i],sirka-180,pozice,150,,250,ES_LEFT) Inc(i) end ;{E3} Inc(cover) SetCover(cover,'E3') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'E.3. Doplňující informace k položkám přehledu o peněžních tocích',15,pozice+2,500,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'K položce',15,pozice+2,140,,,,$FF0000) DlgStatic(-1,'Doplňující informace k položkám rozvahy (TEXT)',140,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Částka',sirka-180,pozice+2,140,,,,$FF0000) i=1 while(i<=pocE1) begin Inc(pozice,25) DlgEdit(,E3P[i],15,pozice,120,,250,ES_LEFT) DlgEdit(,E3T[i],140,pozice,sirka-325,,250,ES_LEFT) DlgEdit(,E3C[i],sirka-180,pozice,150,,250,ES_LEFT) Inc(i) end ;{E4} Inc(cover) SetCover(cover,'E4') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'E.4. Doplňující informace k položkám přehledu o změnách vlastního kapitálu',15,pozice+2,500,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'K položce',15,pozice+2,140,,,,$FF0000) DlgStatic(-1,'Doplňující informace k položkám rozvahy (TEXT)',140,pozice+2,350,,,,$FF0000) DlgStatic(-1,'Částka',sirka-180,pozice+2,140,,,,$FF0000) i=1 while(i<=pocE1) begin Inc(pozice,25) DlgEdit(,E4P[i],15,pozice,120,,250,ES_LEFT) DlgEdit(,E4T[i],140,pozice,sirka-325,,250,ES_LEFT) DlgEdit(,E4C[i],sirka-180,pozice,150,,250,ES_LEFT) Inc(i) end ;{Fa} Inc(cover) SetCover(cover,'Fa') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Fond kulturních a sociálních potřeb',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'A.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1611,Fa1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'A.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1612,Fa2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Základní příděl',50,pozice+2,500,,,,$000000) DlgEdit(1613,Fa21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Splátky půjček na bytové účely poskytnutých do konce roku 1992',50,pozice+2,500,,,,$000000) DlgEdit(1614,Fa22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Náhrady škod a pojistná plnění od pojišťovny vztahující se k majetku pořízenému z fondu',50,pozice+2,500,,,,$000000) DlgEdit(1615,Fa23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní a jiné dary určené do fondu',50,pozice+2,500,,,,$000000) DlgEdit(1616,Fa24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1617,Fa25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'A.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Užití fondu',50,pozice+2,500,,,,$000000) DlgEdit(1618,Fa3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Půjčky na bytové účely',50,pozice+2,500,,,,$000000) DlgEdit(1619,Fa31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Stravování',50,pozice+2,500,,,,$000000) DlgEdit(1620,Fa32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Rekreace',50,pozice+2,500,,,,$000000) DlgEdit(1621,Fa33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Kultura, tělovýchova a sport',50,pozice+2,500,,,,$000000) DlgEdit(1622,Fa34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Sociální výpomoci a půjčky',50,pozice+2,500,,,,$000000) DlgEdit(1623,Fa35,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Poskytnuté peněžní dary',50,pozice+2,500,,,,$000000) DlgEdit(1624,Fa36,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada příspěvku na penzijní připojištění',50,pozice+2,500,,,,$000000) DlgEdit(1625,Fa37,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 8.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada části pojistného na soukromé životní pojištění',50,pozice+2,500,,,,$000000) DlgEdit(1626,Fa38,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 9.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní užití fondu',50,pozice+2,500,,,,$000000) DlgEdit(1627,Fa39,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'A.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1628,Fa4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Fb} Inc(cover) SetCover(cover,'Fb') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Rezervní fond',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'B.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1631,Fb1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'B.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1632,Fb2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Prostředky poskytnuté ze zahraničí - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1633,Fb21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1634,Fb22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Prostředky poskytnuté ze zahraničí - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1635,Fb23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1636,Fb24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Odvody neoprávněně použitých nebo zadržených peněžncíh prostředků',50,pozice+2,500,,,,$000000) DlgEdit(1637,Fb25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Příjmy z prodeje majetku, který organizační složka státu nabyla darem nebo děděním',50,pozice+2,500,,,,$000000) DlgEdit(1638,Fb26,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Příjmy z prodeje majetku státu, s kterým je příslušné hospodařit Ministerstvo obrany',50,pozice+2,500,,,,$000000) DlgEdit(1639,Fb27,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'B.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1640,Fb3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Prostředky poskytnuté ze zahraničí - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1641,Fb31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1642,Fb32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Prostředky poskytnuté ze zahraničí - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1643,Fb33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1644,Fb34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Výdaje na reprodukci majetku',50,pozice+2,500,,,,$000000) DlgEdit(1645,Fb35,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Výdaje na reprodukci majetku Ministerstva obrany',50,pozice+2,500,,,,$000000) DlgEdit(1646,Fb36,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní čerpání',50,pozice+2,500,,,,$000000) DlgEdit(1647,Fb37,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'B.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1648,Fb4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Fc} Inc(cover) SetCover(cover,'Fc') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Rezervní fond',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,23) DlgStatic(-1,'C.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1651,Fc1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,'C.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1652,Fc2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Zlepšený výsledek hospodaření',50,pozice+2,500,,,,$000000) DlgEdit(1653,Fc21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Nespotřebované dotace z rozpočtu Evropské unie',50,pozice+2,500,,,,$000000) DlgEdit(1654,Fc22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Nespotřebované dotace z mezinárodních smluv',50,pozice+2,500,,,,$000000) DlgEdit(1655,Fc23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní prostředky poskytnuté ze zahraničí - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1656,Fc24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní prostředky poskytnuté ze zahraničí - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1657,Fc25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1658,Fc26,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1659,Fc27,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 8.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní tvorba',50,pozice+2,500,,,,$000000) DlgEdit(1660,Fc28,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,'C.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1661,Fc3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada zhoršeného výsledku hospodaření',50,pozice+2,500,,,,$000000) DlgEdit(1662,Fc31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada sankcí',50,pozice+2,500,,,,$000000) DlgEdit(1663,Fc32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Doplnění fondu reprodukce majetku se souhlasem zřizovatele',50,pozice+2,500,,,,$000000) DlgEdit(1664,Fc33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Překlenutí časového nesouladu mezi výnosy a náklady',50,pozice+2,500,,,,$000000) DlgEdit(1665,Fc34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní prostředky poskytnuté ze zahraničí - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1666,Fc35,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1667,Fc36,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní čerpání',50,pozice+2,500,,,,$000000) DlgEdit(1668,Fc37,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,23) DlgStatic(-1,'C.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1669,Fc4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Fd} Inc(cover) SetCover(cover,'Fd') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Rezervní fond',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'D.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1671,Fd1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'D.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1672,Fd2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Zlepšený výsledek hospodaření',50,pozice+2,500,,,,$000000) DlgEdit(1673,Fd21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Nespotřebované dotace z rozpočtu Evropské unie',50,pozice+2,500,,,,$000000) DlgEdit(1674,Fd22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Nespotřebované dotace z mezinárodních smluv',50,pozice+2,500,,,,$000000) DlgEdit(1675,Fd23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - účelové',50,pozice+2,500,,,,$000000) DlgEdit(1676,Fd24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary - neúčelové',50,pozice+2,500,,,,$000000) DlgEdit(1677,Fd25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní tvorba',50,pozice+2,500,,,,$000000) DlgEdit(1678,Fd26,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'D.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1679,Fd3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada zhoršeného výsledku hospodaření',50,pozice+2,500,,,,$000000) DlgEdit(1680,Fd31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada sankcí',50,pozice+2,500,,,,$000000) DlgEdit(1681,Fd32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Posílení investičního fondu se souhlasem zřizovatele',50,pozice+2,500,,,,$000000) DlgEdit(1682,Fd33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Časové překlenutí dočasného nesouladu mezi výnosy a náklady',50,pozice+2,500,,,,$000000) DlgEdit(1683,Fd34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní čerpání',50,pozice+2,500,,,,$000000) DlgEdit(1684,Fd35,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'D.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1685,Fd4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Fe} Inc(cover) SetCover(cover,'Fe') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Fond reprodukce majetku',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'E.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1691,Fe1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'E.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1692,Fe2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Zlepšený hospodářský výsledek',50,pozice+2,500,,,,$000000) DlgEdit(1693,Fe21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši odpisů dlouhodobého nehmotného a hmotného majetku',50,pozice+2,500,,,,$000000) DlgEdit(1694,Fe22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši výnosů z prodeje dlouhodobého movitého nehmotného a hmotného majetku',50,pozice+2,500,,,,$000000) DlgEdit(1695,Fe23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary',50,pozice+2,500,,,,$000000) DlgEdit(1696,Fe24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši výnosů povolených veřejných sbírek určených na pořízení a technické zhodnocení nehmotného a hmotného dlouhodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1697,Fe25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši výnosů z prodeje nemovitého majetku, který příspěvková organizace nabyla ve prospěch státu darem nebo děděním',50,pozice+2,500,,,,$000000) DlgEdit(1698,Fe26,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Prostředky poskytnuté ze zahraničí určené účelově na pořízení a technické zhodnocení nehmotného a hmotného dlouhodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1699,Fe27,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'E.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1710,Fe3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Financování pořízení a technického zhodnocení hmotného a nehmotného dlouhodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1711,Fe31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Financování oprav a udržování hmotného a nehmotného dlouhodobého i krátkodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1712,Fe32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Pořízení hmotného a nehmotného krátkodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1713,Fe33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada přijatých úvěrů',50,pozice+2,500,,,,$000000) DlgEdit(1714,Fe34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'E.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1715,Fe4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Ff} Inc(cover) SetCover(cover,'Ff') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Investiční fond',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'F.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1731,Ff1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'F.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1732,Ff2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní prostředky ve výši odpisů hmotného ... odpisového plánu',50,pozice+2,500,,,,$000000) DlgEdit(1733,Ff21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Investiční dotace z rozpočtu zřizovatele',50,pozice+2,500,,,,$000000) DlgEdit(1734,Ff22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Investiční dotace ze státních fondů a jiných veřejných rozpočtů',50,pozice+2,500,,,,$000000) DlgEdit(1735,Ff23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši příjmů z prodeje svěřeného dlouhodobého hmotného majetku',50,pozice+2,500,,,,$000000) DlgEdit(1736,Ff24,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Peněžní dary a příspěvky od jiných subjektů',50,pozice+2,500,,,,$000000) DlgEdit(1737,Ff25,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ve výši příjmů z prodeje majetku ve vlastnictví příspěvkové organizacee',50,pozice+2,500,,,,$000000) DlgEdit(1738,Ff26,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 7.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Převody z rezervního fondu',50,pozice+2,500,,,,$000000) DlgEdit(1739,Ff27,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'F.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1740,Ff3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Pořízení a technické zhodnocení hmotného a nehmotného dlouhodobého majetku ... dlouhodobého majetku',50,pozice+2,500,,,,$000000) DlgEdit(1741,Ff31,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Úhrada investičních úvěrů nebo půjček',50,pozice+2,500,,,,$000000) DlgEdit(1742,Ff32,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Odvod do rozpočtu zřizovatele',50,pozice+2,500,,,,$000000) DlgEdit(1743,Ff33,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Navýšení peněžních prostředků určených na financování údržby a oprav majetku ... pro svou činnost',50,pozice+2,500,,,,$000000) DlgEdit(1744,Ff34,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'F.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1745,Ff4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{Fg} Inc(cover) SetCover(cover,'Fg') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Č.',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Ostatní fondy',50,pozice+2,500,,,,$FF0000) DlgStatic(-1,'BĚŽNÉ ÚČ.OBD.',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'G.I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Počáteční stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1761,Fg1,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'G.II.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Tvorba fondu',50,pozice+2,500,,,,$000000) DlgEdit(1762,Fg2,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Přebytky hospodaření z minulých let',50,pozice+2,500,,,,$000000) DlgEdit(1763,Fg21,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Příjmy běžného roku, které nejsou určeny k využití v běžném roce',50,pozice+2,500,,,,$000000) DlgEdit(1764,Fg22,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,' 3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Převody prostředků z rozpočtu během roku do účelových peněžních fondů',50,pozice+2,500,,,,$000000) DlgEdit(1765,Fg23,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'G.III.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Čerpání fondu',50,pozice+2,500,,,,$000000) DlgEdit(1766,Fg3,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'G.IV.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Konečný stav fondu',50,pozice+2,500,,,,$000000) DlgEdit(1767,Fg4,sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{G-H} Inc(cover) SetCover(cover,'G-H') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Období',sirka-605,pozice+2,60,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'Běžné',sirka-605,pozice+2,60,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-170,pozice+2,60,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'Brutto',sirka-605,pozice+2,60,,,,$FF0000) DlgStatic(-1,'Korekce',sirka-460,pozice+2,60,,,,$FF0000) DlgStatic(-1,'Netto',sirka-315,pozice+2,60,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'G.1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Bytové domy a bytové jednotky',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'G.2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Budovy pro služby obyvatelstvu',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'G.3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Jiné nebytové domy a nebytové jednotky',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'G.4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Komunikace a veřejné osvětlení',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'G.5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Jiné inženýrské sítě',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'G.6.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní stavby',50,pozice+2,300,,,,$000000) Dec(pozice,25*pocG) i=1 while(i<=pocG) begin Inc(pozice,25) DlgEdit(2110+i,GB[i],sirka-605,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2120+i,GK[i],sirka-460,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2130+i,GN[i],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2140+i,GM[i],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(i) end Inc(pozice,25) Inc(pozice,25) DlgStatic(-1,'H.1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Stavební pozemky',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'H.2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Lesní pozemky',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'H.3.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Zahrady, pastviny, louky, rybníky',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'H.4.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Zastavěná plocha',50,pozice+2,300,,,,$000000) Inc(pozice,25) DlgStatic(-1,'H.5.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní pozemky',50,pozice+2,300,,,,$000000) Dec(pozice,25*pocH) i=1 while(i<=pocH) begin Inc(pozice,25) DlgEdit(2150+i,HB[i],sirka-605,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2160+i,HK[i],sirka-460,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2170+i,HN[i],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo,2) DlgEdit(2180+i,HM[i],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo,2) Inc(i) end ;{I-J} Inc(cover) SetCover(cover,'I-J') DlgShade(-1,'',5,5,sirka-25,vyska-90) pozice=15 DlgStatic(-1,'Účetní období',sirka-320,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'Název',15,pozice+2,50,,,,$FF0000) DlgStatic(-1,'Běžné',sirka-320,pozice+2,75,,,,$FF0000) DlgStatic(-1,'Minulé',sirka-170,pozice+2,120,,,,$FF0000) Inc(pozice,25) DlgStatic(-1,'I.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Náklady z přecenění reálnou hodnotou',50,pozice+2,400,,,,$000000) DlgEdit(4001,IB[1],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4002,IM[1],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'I.1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Náklady z přecenění reálnou ... podle § 64',50,pozice+2,400,,,,$000000) DlgEdit(4003,IB[2],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4004,IM[2],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'I.2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní náklady z přecenění reálnou hodnotou',50,pozice+2,400,,,,$000000) DlgEdit(4005,IB[3],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4006,IM[3],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,45) DlgStatic(-1,'J.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Výnosy z přecenění reálnou hodnotou',50,pozice+2,400,,,,$000000) DlgEdit(4011,JB[1],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4012,JM[1],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'J.1.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Výnosy z přecenění reálnou ... podle § 64',50,pozice+2,400,,,,$000000) DlgEdit(4013,JB[2],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4014,JM[2],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) Inc(pozice,25) DlgStatic(-1,'J.2.',15,pozice+2,50,,,,$000000) DlgStatic(-1,'Ostatní výnosy z přecenění reálnou hodnotou',50,pozice+2,400,,,,$000000) DlgEdit(4015,JB[3],sirka-315,pozice,140,,15,ES_RIGHT,ValidCislo) DlgEdit(4016,JM[3],sirka-170,pozice,140,,15,ES_RIGHT,ValidCislo) ;{první záložka} SetCover(1,'A1-2') Result:Integer=DlgExecute() if(Result=ID_Cancel) Halt UlozINI if(ExistVariable('priloha5')) begin NazevSest1:String='Příloha' NazevSest2:String Opatr1:String='Příloha č. 5 k vyhlášce č. 410/2009 Sb.' Opatr2:String='' Opatr3:String='' XZacatek1:Real=0 ; x souradnice zacatku tabulky na 1. straně XKonec1:Real=188 ; x souradnice konce tabulky na 1. straně YTlusta1:Real=60 ; Y-souradnice prvni tluste cary Y1Hlav1:Real=16 end else begin Global NazevSest1:String='PŘÍLOHA č.5 k účetní závěrce' Global NazevSest2:String Global Opatr1:String='Výčet položek podle vyhlášky č. 410/2009Sb.' Global Opatr2:String='ve znění pozdějších předpisů' Global Opatr3:String='' Global XZacatek1:Real=0 ; x souradnice zacatku tabulky na 1. straně Global XKonec1:Real=188 ; x souradnice konce tabulky na 1. straně Global YTlusta1:Real=60 ; Y-souradnice prvni tluste cary Global Y1Hlav1:Real=16 end ;{*******************************************************************************************************************************} ;{procedury pro tisk} procedure Castka(xsou:Double,ysou:Double,cislo:Double) Text(xsou,ysou,TA_Right,StrFinanc(cislo,2,True)) end ;{*******************************************************************************************************************************} ;{tisk} begin pozice:Double ;{A1-A3} if(ExistVariable('priloha5')) nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') Pen(0,0.7) Box(9,60,180,(pocA1+1)*5) Line(9,65,180,0) Line(29,60,0,5) Pen(0,0.3) LineS(9,70,180,0,0,5,pocA1-1) Pen(0,0.7) Box(9,110,180,(pocA2+1)*5) Line(9,115,180,0) Line(29,110,0,5) Pen(0,0.3) LineS(9,120,180,0,0,5,pocA2-1) Pen(0,0.7) Box(9,170,180,(pocA3+1)*5) Line(9,175,180,0) Line(29,170,0,5) Pen(0,0.3) LineS(9,180,180,0,0,5,pocA3-1) FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'A.1.') Text(32,61,TA_LEFT,'Informace podle § 7 odst. 3 zákona (TEXT)') Text(12,111,TA_LEFT,'A.2.') Text(32,111,TA_LEFT,'Informace podle § 7 odst. 4 zákona (TEXT)') Text(12,171,TA_LEFT,'A.3.') Text(32,171,TA_LEFT,'Informace podle § 7 odst. 5 zákona (TEXT)') pozice=61 FontFace(Normal) i=1 while(i<=pocA1) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,A1[i]) Inc(i) end pozice=111 FontFace(Normal) i=1 while(i<=pocA2) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,A2[i]) Inc(i) end pozice=171 FontFace(Normal) i=1 while(i<=pocA3) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,A3[i]) Inc(i) end ;{A4} nextpage; NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'A.4. Informace podle § 7 odst. 5 zákona o stavu účtů v knize podrozvahových účtů') Pen(0,0.7) Box(9,65,180,71*3+7) Line(9,74,180,0) Pen(0,0.3) Line(139,70,50,0) Line(19,65,0,71*3+7) Line(129,65,0,71*3+7) Line(139,65,0,71*3+7) Line(164,70,0,71*3+2) LineS(9,74,180,0,0,3,70) FontFace(Bold) FontSize(2.5) Text(14,68.5,TA_Center,'Číslo') Text(74,68.5,TA_Center,'Název položky') Text(134,68.5,TA_Center,'Účet') Text(164,67,TA_Center,'Období') Text(151.5,71,TA_Center,'Běžné') Text(176.5,71,TA_Center,'Minulé') pozice=74.5 FontFace(Bold) Text(12,pozice,TA_Left,'P.I.') Text(22,pozice,TA_Left,'Majetek účetní jednotky') Castka(161,pozice,A4B1[901]+A4B1[902]+A4B1[905]+A4B1[906]+A4B1[909]) Castka(186,pozice,A4M1[901]+A4M1[902]+A4M1[905]+A4M1[906]+A4M1[909]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Jiný drobný dlouhodobý nehmotný majetek') Text(134,pozice,TA_Center,'901') Castka(161,pozice,A4B1[901]) Castka(186,pozice,A4M1[901]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Jiný drobný dlouhodobý hmotný majetek') Text(134,pozice,TA_Center,'902') Castka(161,pozice,A4B1[902]) Castka(186,pozice,A4M1[902]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Vyřazené pohledávky') Text(134,pozice,TA_Center,'905') Castka(161,pozice,A4B1[905]) Castka(186,pozice,A4M1[905]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Vyřazené závazky') Text(134,pozice,TA_Center,'906') Castka(161,pozice,A4B1[906]) Castka(186,pozice,A4M1[906]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Ostatní majetek') Text(134,pozice,TA_Center,'909') Castka(161,pozice,A4B1[909]) Castka(186,pozice,A4M1[909]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.II') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z transferů a krátkodobé podmíněné závazky z transferů') Castka(161,pozice,A4B1[911]+A4B1[912]+A4B1[913]+A4B1[914]+A4B1[915]+A4B1[916]) Castka(186,pozice,A4M1[911]+A4M1[912]+A4M1[913]+A4M1[914]+A4M1[915]+A4M1[916]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z předfinancování transferů') Text(134,pozice,TA_Center,'911') Castka(161,pozice,A4B1[911]) Castka(186,pozice,A4M1[911]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z předfinancování transferů') Text(134,pozice,TA_Center,'912') Castka(161,pozice,A4B1[912]) Castka(186,pozice,A4M1[912]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky ze zahraničních transferů') Text(134,pozice,TA_Center,'913') Castka(161,pozice,A4B1[913]) Castka(186,pozice,A4M1[913]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky ze zahraničních transferů') Text(134,pozice,TA_Center,'914') Castka(161,pozice,A4B1[914]) Castka(186,pozice,A4M1[914]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Ostatní krátkodobé podmíněné pohledávky z transferů') Text(134,pozice,TA_Center,'915') Castka(161,pozice,A4B1[915]) Castka(186,pozice,A4M1[915]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Ostatní krátkodobé podmíněné závazky z transferů') Text(134,pozice,TA_Center,'916') Castka(161,pozice,A4B1[916]) Castka(186,pozice,A4M1[916]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.III.') Text(22,pozice,TA_Left,'Podmíněné pohledávky z důvodu užívání majetku jinou osobou') Castka(161,pozice,A4B1[921]+A4B1[922]+A4B1[923]+A4B1[924]+A4B1[925]+A4B1[926]) Castka(186,pozice,A4M1[921]+A4M1[922]+A4M1[923]+A4M1[924]+A4M1[925]+A4M1[926]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z důvodu úplatného užívání majetku jinou osobou') Text(134,pozice,TA_Center,'921') Castka(161,pozice,A4B1[921]) Castka(186,pozice,A4M1[921]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z důvodou úplatného užívání majetku jinou osobou') Text(134,pozice,TA_Center,'922') Castka(161,pozice,A4B1[922]) Castka(186,pozice,A4M1[922]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z důvodu užívání majetku jinou osobou na základě smlouvy o výpůjčce') Text(134,pozice,TA_Center,'923') Castka(161,pozice,A4B1[923]) Castka(186,pozice,A4M1[923]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z důvodu užívání majetku jinou osobou na základě smlouvy o výpůjčce') Text(134,pozice,TA_Center,'924') Castka(161,pozice,A4B1[924]) Castka(186,pozice,A4M1[924]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z důvodu užívání majetku jinou osobou z jiných důvodů') Text(134,pozice,TA_Center,'925') Castka(161,pozice,A4B1[925]) Castka(186,pozice,A4M1[925]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z důvodu užívání majetku jinou osobou z jiných důvodů') Text(134,pozice,TA_Center,'926') Castka(161,pozice,A4B1[926]) Castka(186,pozice,A4M1[926]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.IV.') Text(22,pozice,TA_Left,'Další podmíněné') Castka(161,pozice,A4B1[931]+A4B1[932]+A4B1[933]+A4B1[934]+A4B1[939]+A4B1[941]+A4B1[942]+A4B1[943]+A4B1[944]+A4B1[945]+A4B1[947]+A4B1[948]) Castka(186,pozice,A4M1[931]+A4M1[932]+A4M1[933]+A4M1[934]+A4M1[939]+A4M1[941]+A4M1[942]+A4M1[943]+A4M1[944]+A4M1[945]+A4M1[947]+A4M1[948]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku') Text(134,pozice,TA_Center,'931') Castka(161,pozice,A4B1[931]) Castka(186,pozice,A4M1[931]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky ze smluv o prodeji dlouhodobého majetku') Text(134,pozice,TA_Center,'932') Castka(161,pozice,A4B1[932]) Castka(186,pozice,A4M1[932]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky z jiných smluv') Text(134,pozice,TA_Center,'933') Castka(161,pozice,A4B1[933]) Castka(186,pozice,A4M1[933]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z jiných smluv') Text(134,pozice,TA_Center,'934') Castka(161,pozice,A4B1[934]) Castka(186,pozice,A4M1[934]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky ze sdílených daní') Text(134,pozice,TA_Center,'939') Castka(161,pozice,A4B1[939]) Castka(186,pozice,A4M1[939]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky ze sdílených daní') Text(134,pozice,TA_Center,'941') Castka(161,pozice,A4B1[941]) Castka(186,pozice,A4M1[941]) Inc(pozice,3) Text(16,pozice,TA_Right,'7.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky ze vztahu k jiným zdrojům') Text(134,pozice,TA_Center,'942') Castka(161,pozice,A4B1[942]) Castka(186,pozice,A4M1[942]) Inc(pozice,3) Text(16,pozice,TA_Right,'8.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky ze vztahu k jiným zdrojům') Text(134,pozice,TA_Center,'943') Castka(161,pozice,A4B1[943]) Castka(186,pozice,A4M1[943]) Inc(pozice,3) Text(16,pozice,TA_Right,'9.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné úhrady pohledávek z přijatých zajištění') Text(134,pozice,TA_Center,'944') Castka(161,pozice,A4B1[944]) Castka(186,pozice,A4M1[944]) Inc(pozice,3) Text(16,pozice,TA_Right,'10.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné úhrady pohledávek z přijatých zajištění') Text(134,pozice,TA_Center,'945') Castka(161,pozice,A4B1[945]) Castka(186,pozice,A4M1[945]) Inc(pozice,3) Text(16,pozice,TA_Right,'11.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné pohledávky ze soudních sporů, správních řízení a jiných řízení') Text(134,pozice,TA_Center,'947') Castka(161,pozice,A4B1[947]) Castka(186,pozice,A4M1[947]) Inc(pozice,3) Text(16,pozice,TA_Right,'12.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky ze soudních sporů, správních řízení a jiných řízení') Text(134,pozice,TA_Center,'948') Castka(161,pozice,A4B1[948]) Castka(186,pozice,A4M1[948]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.V.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z transferů a dlouhodobé podmíněné závazky z transferů') Castka(161,pozice,A4B1[951]+A4B1[951]+A4B1[953]+A4B1[954]+A4B1[955]+A4B1[956]) Castka(186,pozice,A4M1[951]+A4M1[952]+A4M1[953]+A4M1[954]+A4M1[955]+A4M1[956]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky z předfinancování transferů') Text(134,pozice,TA_Center,'951') Castka(161,pozice,A4B1[951]) Castka(186,pozice,A4M1[951]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z předfinancování transferů') Text(134,pozice,TA_Center,'952') Castka(161,pozice,A4B1[952]) Castka(186,pozice,A4M1[952]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné pohledávky ze zahraničních transferů') Text(134,pozice,TA_Center,'953') Castka(161,pozice,A4B1[953]) Castka(186,pozice,A4M1[953]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky ze zahraničních transferů') Text(134,pozice,TA_Center,'954') Castka(161,pozice,A4B1[954]) Castka(186,pozice,A4M1[954]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Ostatní dlouhodobé podmíněné pohledávky z transferů') Text(134,pozice,TA_Center,'955') Castka(161,pozice,A4B1[955]) Castka(186,pozice,A4M1[955]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Ostatní dlouhodobé podmíněné závazky z transferů') Text(134,pozice,TA_Center,'956') Castka(161,pozice,A4B1[956]) Castka(186,pozice,A4M1[956]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.VI.') Text(22,pozice,TA_Left,'Podmíněné závazky z důvodu užívání cizího majetku') Castka(161,pozice,A4B1[961]+A4B1[962]+A4B1[963]+A4B1[964]+A4B1[965]+A4B1[966]+A4B1[967]+A4B1[968]) Castka(186,pozice,A4M1[961]+A4M1[962]+A4M1[963]+A4M1[964]+A4M1[965]+A4M1[966]+A4M1[967]+A4M1[968]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z operativního leasingu') Text(134,pozice,TA_Center,'961') Castka(161,pozice,A4B1[961]) Castka(186,pozice,A4M1[961]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z operativního leasingu') Text(134,pozice,TA_Center,'962') Castka(161,pozice,A4B1[962]) Castka(186,pozice,A4M1[962]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z finančního leasingu') Text(134,pozice,TA_Center,'963') Castka(161,pozice,A4B1[963]) Castka(186,pozice,A4M1[963]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z finančního leasingu') Text(134,pozice,TA_Center,'964') Castka(161,pozice,A4B1[964]) Castka(186,pozice,A4M1[964]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z důvodu užívání cizího majetku na základě smlouvy o výpůjčce') Text(134,pozice,TA_Center,'965') Castka(161,pozice,A4B1[965]) Castka(186,pozice,A4M1[965]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z důvodu užívání cizího majetku na základě smlouvy o výpůjčce') Text(134,pozice,TA_Center,'966') Castka(161,pozice,A4B1[966]) Castka(186,pozice,A4M1[966]) Inc(pozice,3) Text(16,pozice,TA_Right,'7.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z důvodu užívání cizího majetku nebo jeho převzetí z jiných důvodů') Text(134,pozice,TA_Center,'967') Castka(161,pozice,A4B1[967]) Castka(186,pozice,A4M1[967]) Inc(pozice,3) Text(16,pozice,TA_Right,'8.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z důvodu užívání cizího majetku nebo jeho převzetí z jiných důvodů') Text(134,pozice,TA_Center,'968') Castka(161,pozice,A4B1[968]) Castka(186,pozice,A4M1[968]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.VII.') Text(22,pozice,TA_Left,'Další podmíněné závazky a ostatní podmíněná pasiva') Castka(161,pozice,A4B1[971]+A4B1[972]+A4B1[973]+A4B1[974]+A4B1[975]+A4B1[976]+A4B1[978]+A4B1[979]+A4B1[981]+A4B1[982]+A4B1[983]+A4B1[984]+A4B1[985]+A4B1[986]) Castka(186,pozice,A4M1[971]+A4M1[972]+A4M1[973]+A4M1[974]+A4M1[975]+A4M1[976]+A4M1[978]+A4M1[979]+A4M1[981]+A4M1[982]+A4M1[983]+A4M1[984]+A4M1[985]+A4M1[986]) Inc(pozice,3) FontFace(Normal) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky ze smluv o pořízení dlouhodobého majetku') Text(134,pozice,TA_Center,'971') Castka(161,pozice,A4B1[971]) Castka(186,pozice,A4M1[971]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky ze smluv o pořízení dlouhodobého majetku') Text(134,pozice,TA_Center,'972') Castka(161,pozice,A4B1[972]) Castka(186,pozice,A4M1[972]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z jiných smluv') Text(134,pozice,TA_Center,'973') Castka(161,pozice,A4B1[973]) Castka(186,pozice,A4M1[973]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z jiných smluv') Text(134,pozice,TA_Center,'974') Castka(161,pozice,A4B1[974]) Castka(186,pozice,A4M1[974]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z přijatého kolaterálu') Text(134,pozice,TA_Center,'975') Castka(161,pozice,A4B1[975]) Castka(186,pozice,A4M1[975]) Inc(pozice,3) Text(16,pozice,TA_Right,'6.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z přijatého kolaterálu') Text(134,pozice,TA_Center,'976') Castka(161,pozice,A4B1[976]) Castka(186,pozice,A4M1[975]) Inc(pozice,3) Text(16,pozice,TA_Right,'7.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky vyplývající z právních předpisů a další činnosti moci zákonodárné, výkonné nebo soudní') Text(134,pozice,TA_Center,'978') Castka(161,pozice,A4B1[978]) Castka(186,pozice,A4M1[978]) Inc(pozice,3) Text(16,pozice,TA_Right,'8.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky vyplývající z právních předpisů a další činnosti moci zákonodárné, výkonné nebo soudní') Text(134,pozice,TA_Center,'979') Castka(161,pozice,A4B1[979]) Castka(186,pozice,A4M1[979]) Inc(pozice,3) Text(16,pozice,TA_Right,'9.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z poskytnutých garancí jednorázových') Text(134,pozice,TA_Center,'981') Castka(161,pozice,A4B1[981]) Castka(186,pozice,A4M1[981]) Inc(pozice,3) Text(16,pozice,TA_Right,'10.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z poskytnutých garancí jednorázových') Text(134,pozice,TA_Center,'982') Castka(161,pozice,A4B1[982]) Castka(186,pozice,A4M1[982]) Inc(pozice,3) Text(16,pozice,TA_Right,'11.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky z poskytnutých garancí ostatních') Text(134,pozice,TA_Center,'983') Castka(161,pozice,A4B1[983]) Castka(186,pozice,A4M1[983]) Inc(pozice,3) Text(16,pozice,TA_Right,'12.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky z poskytnutých garancí ostatních') Text(134,pozice,TA_Center,'984') Castka(161,pozice,A4B1[984]) Castka(186,pozice,A4M1[984]) Inc(pozice,3) Text(16,pozice,TA_Right,'13.') Text(22,pozice,TA_Left,'Krátkodobé podmíněné závazky ze soudních sporů, správních řízení a jiných řízení') Text(134,pozice,TA_Center,'985') Castka(161,pozice,A4B1[985]) Castka(186,pozice,A4M1[985]) Inc(pozice,3) Text(16,pozice,TA_Right,'14.') Text(22,pozice,TA_Left,'Dlouhodobé podmíněné závazky ze soudních sporů, správních řízení a jiných řízení') Text(134,pozice,TA_Center,'986') Castka(161,pozice,A4B1[986]) Castka(186,pozice,A4M1[986]) Inc(pozice,3) FontFace(Bold) Text(12,pozice,TA_Left,'P.VIII.') Text(22,pozice,TA_Left,'Ostatní podmíněná aktiva a ostatní podmíněná pasiva a vyrovnávací účty') Castka(161,pozice,A4B1[991]+A4B1[992]+A4B1[993]+A4B1[994]) Castka(186,pozice,A4M1[991]+A4M1[992]+A4M1[993]+A4M1[994]) FontFace(Normal) Inc(pozice,3) Text(16,pozice,TA_Right,'1.') Text(22,pozice,TA_Left,'Ostatní krátkodobá podmíněná aktiva') Text(134,pozice,TA_Center,'991') Castka(161,pozice,A4B1[991]) Castka(186,pozice,A4M1[991]) Inc(pozice,3) Text(16,pozice,TA_Right,'2.') Text(22,pozice,TA_Left,'Ostatní dlouhodobá podmíněná aktiva') Text(134,pozice,TA_Center,'992') Castka(161,pozice,A4B1[992]) Castka(186,pozice,A4M1[992]) Inc(pozice,3) Text(16,pozice,TA_Right,'3.') Text(22,pozice,TA_Left,'Ostatní krátkodobá podmíněná pasiva') Text(134,pozice,TA_Center,'993') Castka(161,pozice,A4B1[993]) Castka(186,pozice,A4M1[993]) Inc(pozice,3) Text(16,pozice,TA_Right,'4.') Text(22,pozice,TA_Left,'Ostatní dlouhodobá podmíněná pasiva') Text(134,pozice,TA_Center,'994') Castka(161,pozice,A4B1[994]) Castka(186,pozice,A4M1[994]) Inc(pozice,3) Text(16,pozice,TA_Right,'5.') Text(22,pozice,TA_Left,'Vyrovnávací účet k podrozvahovým účtům') Text(134,pozice,TA_Center,'999') Castka(161,pozice,A4B1[999]) Castka(186,pozice,A4M1[999]) ;{A5-A6} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') Pen(0,0.7) Box(9,60,180,(pocA5+1)*5) Line(9,65,180,0) Line(29,60,0,5) Pen(0,0.3) LineS(9,70,180,0,0,5,pocA5-1) Pen(0,0.7) Box(9,120,180,(pocA5+1)*5) Line(9,125,180,0) Line(29,120,0,5) Pen(0,0.3) LineS(9,130,180,0,0,5,pocA5-1) FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'A.5.') Text(32,61,TA_LEFT,'Informace podle § 18 odst. 3 písm. b) zákona (TEXT)') Text(12,121,TA_LEFT,'A.6.') Text(32,121,TA_LEFT,'Informace podle § 19 odst. 6 zákona (TEXT)') pozice=61 FontFace(Normal) i=1 while(i<=pocA5) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,A5[i]) Inc(i) end pozice=121 FontFace(Normal) i=1 while(i<=pocA5) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,A6[i]) Inc(i) end ;{B} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') Pen(0,0.7) Box(9,60,180,(pocB1+1)*5) Line(9,65,180,0) Line(29,60,0,5) Pen(0,0.3) LineS(9,70,180,0,0,5,pocB1-1) Pen(0,0.7) Box(9,90,180,(pocB1+1)*5) Line(9,95,180,0) Line(29,90,0,5) Pen(0,0.3) LineS(9,100,180,0,0,5,pocB1-1) Pen(0,0.7) Box(9,120,180,(pocB1+1)*5) Line(9,125,180,0) Line(29,120,0,5) Pen(0,0.3) Line(29,120,0,(pocB1+1)*5) LineS(29,130,160,0,0,5,pocB1-1) FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'B.1.') Text(32,61,TA_LEFT,'Informace podle § 66 odst. 6 (TEXT)') Text(12,91,TA_LEFT,'B.2.') Text(32,91,TA_LEFT,'Informace podle § 66 odst. 8 (TEXT)') Text(12,121,TA_LEFT,'B.3.') Text(32,121,TA_LEFT,'Informace podle § 68 odst. 3 (ČÍSLO A TEXT)') pozice=61 FontFace(Normal) i=1 while(i<=pocB1) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,B1[i]) Inc(i) end pozice=91 FontFace(Normal) i=1 while(i<=pocB1) begin Inc(pozice,5) Text(12,pozice,TA_LEFT,B2[i]) Inc(i) end Castka(27,131,B3H) pozice=121 FontFace(Normal) i=1 while(i<=pocB1) begin Inc(pozice,5) Text(32,pozice,TA_LEFT,B3[i]) Inc(i) end ;{C1-C2} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') Pen(0,0.7) Box(9,70,180,2*6+9) Line(9,79,180,0) Pen(0,0.3) Line(21,70,0,2*6+9) Line(159,74.5,0,2*6+4.5) Line(129,70,0,2*6+9) Line(129,74.5,60,0) LineS(9,85,180,0,0,6,1) FontFace(Bold) FontSize(3.0) Text(15,71.5,TA_Center,'Číslo') Text(15,74.5,TA_Center,'položky') Text(63,73.5,TA_Center,'Název položky') Text(159,71,TA_Center,'ÚČETNÍ OBDOBÍ') Text(144,75.5,TA_Center,'BĚŽNÉ') Text(174,75.5,TA_Center,'MINULÉ') FontFace(Normal) Text(14,80.5,TA_Center,'C.1.') XText(22,80.5,90,TA_Left,'Zvýšení stavu transferů na pořízení dlouhodobého majetku za běžné účetní období') Castka(155,80.5,CP[1]) Castka(185,80.5,CK[1]) Text(14,86.5,TA_Center,'C.2.') XText(22,86.5,90,TA_Left,'Snížení stavu transferů na pořízení dlouhodobého majetku ve věcné a časové souvislosti') Castka(155,86.5,CP[2]) Castka(185,86.5,CK[2]) ;{D1-D8} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') pozice=60 i=1 while(i<=8) begin Pen(0,0.7) Box(9,pozice,180,(pocD1+1)*5) Line(9,pozice+5,180,0) Line(29,pozice,0,5) Pen(0,0.3) LineS(9,pozice+10,180,0,0,5,pocD1-1) Inc(pozice,25) Inc(i) end FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'D.1.') Text(32,61,TA_LEFT,'Počet jednotlivých věcí a souborů majetku nebo seznam tohoto majetku (ČÍSLO A TEXT)') Text(12,86,TA_LEFT,'D.2') Text(32,86,TA_LEFT,'Celková výměra lesních pozemků s lesním porostem (ČÍSLO)') Text(12,111,TA_LEFT,'D.3.') Text(32,111,TA_LEFT,'Výše ocenění celkové výměry lesních pozemků s lesním porostem ve výši 57 Kč/m2 (ČÍSLO)') Text(12,136,TA_LEFT,'D.4.') Text(32,136,TA_LEFT,'Výměra lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)') Text(12,161,TA_LEFT,'D.5.') Text(32,161,TA_LEFT,'Výše ocenění lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)') Text(12,186,TA_LEFT,'D.6.') Text(32,186,TA_LEFT,'Průměrná výše ocenění výměry lesních pozemků s lesním porostem oceněných jiným způsobem (ČÍSLO)') Text(12,211,TA_LEFT,'D.7.') Text(32,211,TA_LEFT,'Komentář k ocenění lesních pozemků jiným způsobem (ČÍSLO A TEXT)') D1[1]='Hodnota: '+D1[1] D2[1]='Hodnota: '+D2[1] D3[1]='Hodnota: '+D3[1] D4[1]='Hodnota: '+D4[1] D5[1]='Hodnota: '+D5[1] D6[1]='Hodnota: '+D6[1] D7[1]='Hodnota: '+D7[1] pozice=66 FontFace(Normal) j=1 while(j<=7) begin i=1 while(i<=pocD1) begin if(j=1) Text(12,pozice,TA_LEFT,D1[i]) else if(j=2) Text(12,pozice,TA_LEFT,D2[i]) else if(j=3) Text(12,pozice,TA_LEFT,D3[i]) else if(j=4) Text(12,pozice,TA_LEFT,D4[i]) else if(j=5) Text(12,pozice,TA_LEFT,D5[i]) else if(j=6) Text(12,pozice,TA_LEFT,D6[i]) else Text(12,pozice,TA_LEFT,D7[i]) Inc(i) Inc(pozice,5) end Inc(pozice,5) Inc(j) end ;{E1-E4} j=1 while(j<=4) begin nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') Pen(0,0.7) Box(9,60,180,(pocE1+2)*5) Line(9,70,180,0) Line(29,60,0,(pocE1+2)*5)) Line(159,60,0,(pocE1+2)*5)) Pen(0,0.3) LineS(9,75,180,0,0,5,pocE1-1) FontSize(3.0) Line(9,65,180,0) FontFace(Bold) Text(12,61,TA_LEFT,'E.'+j+'.') if(j=1) Text(32,61,TA_LEFT,'Doplňující informace k položkám rozvahy (TEXT)') else if(j=2) Text(32,61,TA_LEFT,'Doplňující informace k položkám výkazu zisku a ztráty (TEXT)') else if(j=3) Text(32,61,TA_LEFT,'Doplňující informace k položkám přehledu o peněžních tocích (TEXT)') else Text(32,61,TA_LEFT,'Doplňující informace k položkám přehledu o změnách vlastního kapitálu (TEXT)') Text(19,66,TA_Center,'K položce') Text(94,66,TA_Center,'Doplňující informace') Text(174,66,TA_CENTER,'Částka') i=1 pozice=71 FontFace(Normal) while(i<=pocE1) begin if(j=1) begin Text(11,pozice,TA_LEFT,E1P[i]) Text(31,pozice,TA_LEFT,E1T[i]) Text(188,pozice,TA_RIGHT,Trim(E1C[i])) end else if(j=2) begin Text(11,pozice,TA_LEFT,E2P[i]) Text(31,pozice,TA_LEFT,E2T[i]) Text(188,pozice,TA_RIGHT,Trim(E2C[i])) end else if(j=3) begin Text(11,pozice,TA_LEFT,E3P[i]) Text(31,pozice,TA_LEFT,E3T[i]) Text(188,pozice,TA_RIGHT,Trim(E3C[i])) end else begin Text(11,pozice,TA_LEFT,E4P[i]) Text(31,pozice,TA_LEFT,E4T[i]) Text(188,pozice,TA_RIGHT,Trim(E4C[i])) end Inc(i) Inc(pozice,5) end Inc(j) end ;{Fa} nextpage NazevSest2='Fond kulturních a sociálních potřeb' CallDDT('HlavVyk.ddt') i=20 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'A.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fa1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'A.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fa2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Základní příděl') Castka(187,pozice,Fa21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Splátky půjček na bytové účely poskytnutých do konce roku 1992') Castka(187,pozice,Fa22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Náhrady škod a pojistná plnění od pojišťovny vztahující se k majetku pořízenému z fondu') Castka(187,pozice,Fa23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní a jiné dary určené do fondu') Castka(187,pozice,Fa24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Ostatní tvorba fondu') Castka(187,pozice,Fa25) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'A.III.') Text(32,pozice,TA_LEFT,'Užití fondu') Castka(187,pozice,Fa3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Půjčky na bytové účely') Castka(187,pozice,Fa31) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Stravování') Castka(187,pozice,Fa32) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Rekreace') Castka(187,pozice,Fa33) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Kultura, tělovýchova a sport') Castka(187,pozice,Fa34) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Sociální výpomoci a půjčky') Castka(187,pozice,Fa35) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Poskytnuté peněžní dary') Castka(187,pozice,Fa36) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Úhrada příspěvku na penzijní připojištění') Castka(187,pozice,Fa37) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'8.') Text(32,pozice,TA_LEFT,'Úhrada části pojistného na soukromé životní pojištění') Castka(187,pozice,Fa38) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'9.') Text(32,pozice,TA_LEFT,'Ostatní užití fondu') Castka(187,pozice,Fa39) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'A.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fa4) ;{Fb} nextpage NazevSest2='Rezervní fond' CallDDT('HlavVyk.ddt') i=20 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'B.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fb1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'B.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fb2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Prostředky poskytnuté ze zahraničí - účelové') Castka(187,pozice,Fb21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Peněžní dary - účelové') Castka(187,pozice,Fb22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Prostředky poskytnuté ze zahraničí - neúčelové') Castka(187,pozice,Fb23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní dary - neúčelové') Castka(187,pozice,Fb24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Odvody neoprávněně použitých nebo zadržených peněžncíh prostředků') Castka(187,pozice,Fb25) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Příjmy z prodeje majetku, který organizační složka státu nabyla darem nebo děděním') Castka(187,pozice,Fb26) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Příjmy z prodeje majetku státu, s kterým je příslušné hospodařit Ministerstvo obrany') Castka(187,pozice,Fb27) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'B.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Fb3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Prostředky poskytnuté ze zahraničí - účelové') Castka(187,pozice,Fb31) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Peněžní dary - účelové') Castka(187,pozice,Fb32) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Prostředky poskytnuté ze zahraničí - neúčelové') Castka(187,pozice,Fb33) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní dary - neúčelové') Castka(187,pozice,Fb34) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Výdaje na reprodukci majetku') Castka(187,pozice,Fb35) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Výdaje na reprodukci majetku Ministerstva obrany') Castka(187,pozice,Fb36) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Ostatní čerpání') Castka(187,pozice,Fb37) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'B.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fb4) ;{Fc} nextpage NazevSest2='Rezervní fond' CallDDT('HlavVyk.ddt') i=21 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'C.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fc1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'C.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fc2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Zlepšený výsledek hospodaření') Castka(187,pozice,Fc21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Nespotřebované dotace z rozpočtu Evropské unie') Castka(187,pozice,Fc22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Nespotřebované dotace z mezinárodních smluv') Castka(187,pozice,Fc23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní prostředky poskytnuté ze zahraničí - účelové') Castka(187,pozice,Fc24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Peněžní prostředky poskytnuté ze zahraničí - neúčelové') Castka(187,pozice,Fc25) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Peněžní dary - účelové') Castka(187,pozice,Fc26) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Peněžní dary - neúčelové') Castka(187,pozice,Fc27) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'8.') Text(32,pozice,TA_LEFT,'Ostatní tvorba') Castka(187,pozice,Fc28) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'C.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Fc3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Úhrada zhoršeného výsledku hospodaření') Castka(187,pozice,Fc31) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Úhrada sankcí') Castka(187,pozice,Fc32) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Doplnění fondu reprodukce majetku se souhlasem zřizovatele') Castka(187,pozice,Fc33) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Překlenutí časového nesouladu mezi výnosy a náklady') Castka(187,pozice,Fc34) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Peněžní prostředky poskytnuté ze zahraničí - účelové') Castka(187,pozice,Fc35) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Peněžní dary - účelové') Castka(187,pozice,Fc36) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Ostatní čerpání') Castka(187,pozice,Fc37) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'C.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fc4) ;{Fd} nextpage NazevSest2='Rezervní fond' CallDDT('HlavVyk.ddt') i=17 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'D.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fd1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'D.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fd2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Zlepšený výsledek hospodaření') Castka(187,pozice,Fd21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Nespotřebované dotace z rozpočtu Evropské unie') Castka(187,pozice,Fd22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Nespotřebované dotace z mezinárodních smluv') Castka(187,pozice,Fd23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní dary - účelové') Castka(187,pozice,Fd24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Peněžní dary - neúčelové') Castka(187,pozice,Fd25) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Ostatní tvorba') Castka(187,pozice,Fd26) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'D.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Fd3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Úhrada zhoršeného výsledku hospodaření') Castka(187,pozice,Fd31) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Úhrada sankcí') Castka(187,pozice,Fd32) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Posílení investičního fondu se souhlasem zřizovatele') Castka(187,pozice,Fd33) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Časové překlenutí dočasného nesouladu mezi výnosy a náklady') Castka(187,pozice,Fd34) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Ostatní čerpání') Castka(187,pozice,Fd35) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'D.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fd4) ;{Fe} nextpage NazevSest2='Fond reprodukce majetku' CallDDT('HlavVyk.ddt') i=17 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'E.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fe1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'E.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fe2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Zlepšený hospodářský výsledek') Castka(187,pozice,Fe21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Ve výši odpisů dlouhodobého nehmotného a hmotného majetku') Castka(187,pozice,Fe22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Ve výši výnosů z prodeje dlouhodobého movitého nehmotného a hmotného majetku') Castka(187,pozice,Fe23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Peněžní dary') Castka(187,pozice,Fe24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') XText(32,pozice,120,TA_LEFT,'Ve výši výnosů povolených veřejných sbírek určených na pořízení a technické zhodnocení nehmotného a hmotného dlouhodobého majetku') Castka(187,pozice,Fe25) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') XText(32,pozice,120,TA_LEFT,'Ve výši výnosů z prodeje nemovitého majetku, který příspěvková organizace nabyla ve prospěch státu darem nebo děděním') Castka(187,pozice,Fe26) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') XText(32,pozice,120,TA_LEFT,'Prostředky poskytnuté ze zahraničí určené účelově na pořízení a technické zhodnocení nehmotného a hmotného dlouhodobého majetku') Castka(187,pozice,Fe27) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'E.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Fe3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Financování pořízení a technického zhodnocení hmotného a nehmotného dlouhodobého majetku') Castka(187,pozice,Fe31) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Financování oprav a udržování hmotného a nehmotného dlouhodobého i krátkodobého majetku') Castka(187,pozice,Fe32) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Pořízení hmotného a nehmotného krátkodobého majetku') Castka(187,pozice,Fe33) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Úhrada přijatých úvěrů') Castka(187,pozice,Fe34) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'E.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fe4) ;{Ff} nextpage NazevSest2='Investiční fond' CallDDT('HlavVyk.ddt') i=17 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'F.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Ff1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'F.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Ff2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice-2,TA_LEFT,'Peněžní prostředky ve výši odpisů hmotného a nehmotného dlouhodobého majetku prováděné podle') Text(32,pozice+1,TA_LEFT,'zřizovatelem schváleného odpisového plánu') Castka(187,pozice,Ff21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Investiční dotace z rozpočtu zřizovatele') Castka(187,pozice,Ff22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Investiční dotace ze státních fondů a jiných veřejných rozpočtů') Castka(187,pozice,Ff23) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice,TA_LEFT,'Ve výši příjmů z prodeje svěřeného dlouhodobého hmotného majetku') Castka(187,pozice,Ff24) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'5.') Text(32,pozice,TA_LEFT,'Peněžní dary a příspěvky od jiných subjektů') Castka(187,pozice,Ff25) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'6.') Text(32,pozice,TA_LEFT,'Ve výši příjmů z prodeje majetku ve vlastnictví příspěvkové organizace') Castka(187,pozice,Ff26) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'7.') Text(32,pozice,TA_LEFT,'Převody z rezervního fondu') Castka(187,pozice,Ff27) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'F.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Ff3) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice-2,TA_LEFT,'Pořízení a technické zhodnocení hmotného a nehmotného dlouhodobého majetku, s výjimkou') Text(32,pozice+1,TA_LEFT,'drobného hmotného a nehmotného dlouhodobého majetku') Castka(187,pozice,Ff31) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Úhrada investičních úvěrů nebo půjček') Castka(187,pozice,Ff32) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Odvod do rozpočtu zřizovatele') Castka(187,pozice,Ff33) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'4.') Text(32,pozice-2,TA_LEFT,'Navýšení peněžních prostředků určených na financování údržby a oprav majetku,') Text(32,pozice+1,TA_LEFT,'který příspěvková organizace používá pro svou činnost') Castka(187,pozice,Ff34) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'F.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Ff4) ;{Fg} nextpage NazevSest2='Ostatní fondy' CallDDT('HlavVyk.ddt') i=9 Pen(0,0.7) Box(9,60,180,i*6) Line(9,72,180,0) Pen(0,0.3) Line(9,66,150,0) Line(29,66,0,(i-1)*6) Line(159,60,0,i*6) LineS(9,78,180,0,0,6,(i-3)) FontFace(Bold) FontSize(3.0) Text(84,62,TA_Center,'Položka') Text(19,68,TA_Center,'Číslo') Text(94,68,TA_Center,'Název') Text(174,63,TA_Center,'BĚŽNÉ ÚČETNÍ') Text(174,66,TA_Center,'OBDOBÍ') pozice=74 FontFace(Bold) Text(12,pozice,TA_LEFT,'G.I.') Text(32,pozice,TA_LEFT,'Počáteční stav fondu') Castka(187,pozice,Fg1) Inc(pozice,6) Text(12,pozice,TA_LEFT,'G.II.') Text(32,pozice,TA_LEFT,'Tvorba fondu') Castka(187,pozice,Fg2) Inc(pozice,6) FontFace(Normal) Text(27,pozice,TA_RIGHT,'1.') Text(32,pozice,TA_LEFT,'Přebytky hospodaření z minulých let') Castka(187,pozice,Fg21) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'2.') Text(32,pozice,TA_LEFT,'Příjmy běžného roku, které nejsou určeny k využití v běžném roce') Castka(187,pozice,Fg22) Inc(pozice,6) Text(27,pozice,TA_RIGHT,'3.') Text(32,pozice,TA_LEFT,'Převody prostředků z rozpočtu během roku do účelových peněžních fondů') Castka(187,pozice,Fg23) Inc(pozice,6) FontFace(Bold) Text(12,pozice,TA_LEFT,'G.III.') Text(32,pozice,TA_LEFT,'Čerpání fondu') Castka(187,pozice,Fg3) Inc(pozice,6) Text(12,pozice,TA_LEFT,'G.IV.') Text(32,pozice,TA_LEFT,'Konečný stav fondu') Castka(187,pozice,Fg4) ;{G} nextpage NazevSest2='Stavby' CallDDT('HlavVyk.ddt') i=10 Pen(0,0.7) Box(9,60,180,i*6) Line(9,60+(6*3),180,0) Pen(0,0.3) Line(19,60,0,i*6) Line(89,60,0,i*6) Line(114,60+(2*6),0,(i*6)-(2*6)) Line(139,60+(2*6),0,(i*6)-(2*6)) Line(164,60+(1*6),0,(i*6)-(1*6)) Line(89,60+(1*6),100,0) Line(89,60+(2*6),75,0) LineS(9,60+(6*4),180,0,0,6,(i-4)) FontFace(Bold) FontSize(3.0) Text(139,62,TA_Center,'Období) Text(14,68,TA_Center,'Číslo') Text(54,68,TA_Center,'Název položky') Text(176.5,71,TA_Center,'Minulé') Text(126.5,68,TA_Center,'Běžné') Text(101.5,74,TA_Center,'Brutto') Text(126.5,74,TA_Center,'Korekce') Text(151.5,74,TA_Center,'Netto') pozice=80 Text(12,pozice,TA_Left,'G.') Text(22,pozice,Left,'Stavby') Castka(111,pozice,GB[1]+GB[2]+GB[3]+GB[4]+GB[5]+GB[6]) Castka(136,pozice,GK[1]+GK[2]+GK[3]+GK[4]+GK[5]+GK[6]) Castka(161,pozice,GN[1]+GN[2]+GN[3]+GN[4]+GN[5]+GN[6]) Castka(186,pozice,GM[1]+GM[2]+GM[3]+GM[4]+GM[5]+GM[6]) FontFace(Normal) Inc(pozice,6) Text(12,pozice,TA_Left,'G.1.) Text(22,pozice,Left,'Bytové domy a bytové jednotky') Castka(111,pozice,GB[1]) Castka(136,pozice,GK[1]) Castka(161,pozice,GN[1]) Castka(186,pozice,GM[1]) Inc(pozice,6) Text(12,pozice,TA_Left,'G.2.') Text(22,pozice,Left,'Budovy pro služby obyvatelstvu') Castka(111,pozice,GB[2]) Castka(136,pozice,GK[2]) Castka(161,pozice,GN[2]) Castka(186,pozice,GM[2]) Inc(pozice,6) Text(12,pozice,TA_Left,'G.3.') Text(22,pozice,Left,'Jiné nebytové domy a nebytové jednotky') Castka(111,pozice,GB[3]) Castka(136,pozice,GK[3]) Castka(161,pozice,GN[3]) Castka(186,pozice,GM[3]) Inc(pozice,6) Text(12,pozice,TA_Left,'G.4.') Text(22,pozice,Left,'Komunikace a veřejné osvětlení') Castka(111,pozice,GB[4]) Castka(136,pozice,GK[4]) Castka(161,pozice,GN[4]) Castka(186,pozice,GM[4]) Inc(pozice,6) Text(12,pozice,TA_Left,'G.5.') Text(22,pozice,Left,'Jiné inženýrské sítě') Castka(111,pozice,GB[5]) Castka(136,pozice,GK[5]) Castka(161,pozice,GN[5]) Castka(186,pozice,GM[5]) Inc(pozice,6) Text(12,pozice,TA_Left,'G.6.') Text(22,pozice,Left,'Ostatní stavby') Castka(111,pozice,GB[6]) Castka(136,pozice,GK[6]) Castka(161,pozice,GN[6]) Castka(186,pozice,GM[6]) ;{H} nextpage NazevSest2='Pozemky' CallDDT('HlavVyk.ddt') i=9 Pen(0,0.7) Box(9,60,180,i*6) Line(9,60+(6*3),180,0) Pen(0,0.3) Line(19,60,0,i*6) Line(89,60,0,i*6) Line(114,60+(2*6),0,(i*6)-(2*6)) Line(139,60+(2*6),0,(i*6)-(2*6)) Line(164,60+(1*6),0,(i*6)-(1*6)) Line(89,60+(1*6),100,0) Line(89,60+(2*6),75,0) LineS(9,60+(6*4),180,0,0,6,(i-4)) FontFace(Bold) FontSize(3.0) Text(139,62,TA_Center,'Období) Text(14,68,TA_Center,'Číslo') Text(54,68,TA_Center,'Název položky') Text(176.5,71,TA_Center,'Minulé') Text(126.5,68,TA_Center,'Běžné') Text(101.5,74,TA_Center,'Brutto') Text(126.5,74,TA_Center,'Korekce') Text(151.5,74,TA_Center,'Netto') pozice=80 Text(12,pozice,TA_Left,'H.') Text(22,pozice,Left,'Pozemky') Castka(111,pozice,HB[1]+HB[2]+HB[3]+HB[4]+HB[5]) Castka(136,pozice,HK[1]+HK[2]+HK[3]+HK[4]+HK[5]) Castka(161,pozice,HN[1]+HN[2]+HN[3]+HN[4]+HN[5]) Castka(186,pozice,HM[1]+HM[2]+HM[3]+HM[4]+HM[5]) FontFace(Normal) Inc(pozice,6) Text(12,pozice,TA_Left,'H.1.) Text(22,pozice,Left,'Stavební pozemky') Castka(111,pozice,HB[1]) Castka(136,pozice,HK[1]) Castka(161,pozice,HN[1]) Castka(186,pozice,HM[1]) Inc(pozice,6) Text(12,pozice,TA_Left,'H.2.') Text(22,pozice,Left,'Lesní pozemky') Castka(111,pozice,HB[2]) Castka(136,pozice,HK[2]) Castka(161,pozice,HN[2]) Castka(186,pozice,HM[2]) Inc(pozice,6) Text(12,pozice,TA_Left,'H.3.') Text(22,pozice,Left,'Zahrady, pastviny, louky, rybníky') Castka(111,pozice,HB[3]) Castka(136,pozice,HK[3]) Castka(161,pozice,HN[3]) Castka(186,pozice,HM[3]) Inc(pozice,6) Text(12,pozice,TA_Left,'H.4.') Text(22,pozice,Left,'Zastavěná plocha') Castka(111,pozice,HB[4]) Castka(136,pozice,HK[4]) Castka(161,pozice,HN[4]) Castka(186,pozice,HM[4]) Inc(pozice,6) Text(12,pozice,TA_Left,'H.5.') Text(22,pozice,Left,'Ostatní pozemky') Castka(111,pozice,HB[5]) Castka(136,pozice,HK[5]) Castka(161,pozice,HN[5]) Castka(186,pozice,HM[5]) ;{I} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'I. Doplňující informace k položce „A.II.4. Náklady z přecenění reálnou hodnotou“ výkazu zisku a ztráty') Pen(0,0.7) Box(9,70,180,3*6+9) Line(9,79,180,0) Pen(0,0.3) Line(21,70,0,3*6+9) Line(159,74.5,0,3*6+4.5) Line(129,70,0,3*6+9) Line(129,74.5,60,0) LineS(9,85,180,0,0,6,2) FontFace(Bold) FontSize(3.0) Text(15,71.5,TA_Center,'Číslo') Text(15,74.5,TA_Center,'položky') Text(63,73.5,TA_Center,'Název položky') Text(159,71,TA_Center,'ÚČETNÍ OBDOBÍ') Text(144,75.5,TA_Center,'BĚŽNÉ') Text(174,75.5,TA_Center,'MINULÉ') FontFace(Normal) Text(15,80.5,TA_Center,'I.') XText(23,80.5,100,TA_Left,'Náklady z přecenění reálnou hodnotou') Castka(155,81.5,IB[1]) Castka(185,81.5,IM[1]) Text(15,86.5,TA_Center,'I.1.') XText(23,86.5,100,TA_Left,'Náklady z přecenění reálnou hodnotou majetku určeného k prodeji podle § 64') Castka(155,86.5,IB[2]) Castka(185,86.5,IM[2]) Text(15,92.5,TA_Center,'I.2.') XText(23,92.5,100,TA_Left,'Ostatní náklady z přecenění reálnou hodnotou') Castka(155,92.5,IB[3]) Castka(185,92.5,IM[3]) ;{J} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'J. Doplňující informace k položce „B.II.4. Výnosy z přecenění reálnou hodnotou“ výkazu zisku a ztráty ') Pen(0,0.7) Box(9,70,180,3*6+9) Line(9,79,180,0) Pen(0,0.3) Line(21,70,0,3*6+9) Line(159,74.5,0,3*6+4.5) Line(129,70,0,3*6+9) Line(129,74.5,60,0) LineS(9,85,180,0,0,6,2) FontFace(Bold) FontSize(3.0) Text(15,71.5,TA_Center,'Číslo') Text(15,74.5,TA_Center,'položky') Text(63,73.5,TA_Center,'Název položky') Text(159,71,TA_Center,'ÚČETNÍ OBDOBÍ') Text(144,75.5,TA_Center,'BĚŽNÉ') Text(174,75.5,TA_Center,'MINULÉ') FontFace(Normal) Text(15,80.5,TA_Center,'J.') XText(23,80.5,100,TA_Left,'Výnosy z přecenění reálnou hodnotou') Castka(155,81.5,JB[1]) Castka(185,81.5,JM[1]) Text(15,86.5,TA_Center,'J.1.') XText(23,86.5,100,TA_Left,'Výnosy z přecenění reálnou hodnotou majetku určeného k prodeji podle § 64') Castka(155,86.5,JB[2]) Castka(185,86.5,JM[2]) Text(15,92.5,TA_Center,'J.2.') XText(23,92.5,100,TA_Left,'Ostatní výnosy z přecenění reálnou hodnotou') Castka(155,92.5,JB[3]) Castka(185,92.5,JM[3]) ;{L} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'L. Doplňující informace o projektech partnerství veřejného a soukromého sektoru') end END ;{K} nextpage NazevSest2='ZÁKLADNÍ' CallDDT('HlavVyk.ddt') FontSize(3.0) FontFace(Bold) Text(12,61,TA_LEFT,'K. Doplňující informace k položce "A. Stálá aktiva" rozvahy') Pen(0,0.7) Box(9,70,180,3*6+9) Line(9,79,180,0) Pen(0,0.3) Line(21,70,0,3*6+9) Line(159,74.5,0,3*6+4.5) Line(129,70,0,3*6+9) Line(129,74.5,60,0) LineS(9,85,180,0,0,6,2) FontFace(Bold) FontSize(3.0) Text(15,71.5,TA_Center,'Číslo') Text(15,74.5,TA_Center,'položky') Text(63,73.5,TA_Center,'Název položky') Text(159,71,TA_Center,'ÚČETNÍ OBDOBÍ') Text(144,75.5,TA_Center,'BĚŽNÉ') Text(174,75.5,TA_Center,'MINULÉ') FontFace(Normal) Text(15,80.5,TA_Center,'K.') XText(23,80.5,100,TA_Left,'Ocenění dlouhodobého majetku určeného k prodeji') Castka(155,81.5,KB[1]) Castka(185,81.5,KM[1]) Text(15,86.5,TA_Center,'K.1.') XText(23,86.5,100,TA_Left,'Ocenění dlouhodobého nehmotného majetku určeného k prodeji podle § 64') Castka(155,86.5,KB[2]) Castka(185,86.5,KM[2]) Text(15,92.5,TA_Center,'K.2.') XText(23,92.5,100,TA_Left,'Ocenění dlouhodobého hmotného majetku určeného k prodeji podle § 64') Castka(155,92.5,KB[3]) Castka(185,92.5,KM[3])