; DDT pro prilohu prispevkovych podle Sbirky zakonu Vyhlaška 505 včetně 477/2003 Sb.
; verze z 2.1.2004
; Autor: WinDUO Team

Name('Příloha - Formulář za '+Obdobi(4))
Designed('','Winduo')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Příloha příspěvkových organizací')

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}
INI:String=DataPath+'RPDisk'+ObdRok(2)+'.INI'
INI2:String=DataPath+'VYKAZY.INI'
TiskNul:Boolean=GetBoolean(GetFromIni('VYKAZY','TiskNul',INI2))
if(TiskNul)
    TiskNul=False
  else
    TiskNul=True

GoTo(definice)    ; přeskok přes zbytečný dialog

;{definice uvodniho dialogu, zadání období}

DefDialog('Příloha účetní závěrky podle Vyhlášky 505 Sb. pro příspěvkové organizace',600,400)
DlgShade(-1,'',4,27,590,302)

DlgStatic(-1,'Dialog pro zadání údajů do přílohy, které nelze získat z účetnictví',16,4,430)
DlgStatic(-1,'Údaje budou promítnuty do Přílohy k účetní závěrce podle vyhl.505/2002 Sb.',16,50,555)
IF((Program.TypFirmy<>5)and(Program.TypFirmy<>1))              ; není příspěvková
  begin
    DlgStatic(-1,'Tato část je určena jen pro organizační složky státu... a příspěvkové organizace',16,98,555)
    DlgStatic(-1,'Výpočet bude ukončen ...',350,270,180)
    DlgButton(id_Cancel,'Zpět',497,334);
    DlgOnLineHelp(id_Cancel,'Ukončení')
    IF(DlgExecute()<>ID_OK)
      Halt
  end

IF(VAL(Rok())<=2002)
  begin
    DlgStatic(-1,'Nelze počítat za období 2002 a starší',16,98,490)
    DlgStatic(-1,'Výpočet bude ukončen ...',350,270,180)
    DlgButton(id_Cancel,'Zpět',497,334);
    DlgOnLineHelp(id_Cancel,'Ukončení')
    IF(DlgExecute()<>ID_OK)
      Halt
  end

DlgStatic(-1,'Zadej období (MMRR)',16,98,143)
DlgEdit(101,ZadaneObdobi,170,96,44,,4,,ValidCisla)
DlgOnLineHelp(101,'Období (MMRR), pro které chceš počítat přílohu. Např. za 1.pololetí 2003 to je 0603')

DlgButton(id_OK,'OK',414,334);
DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
DlgButton(id_Cancel,'Zpět',497,334);
DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')

IF(DlgExecute()<>ID_OK)
  Halt

IF(Val(ZadaneObdobi)=0)
  begin
    Halt('Nevyplnili jste období'+#13+'Zpracování bylo ukončeno')
  end

definice:
;{definice promennych}
AktualCover:Integer=0
R011:Real=0
R012:Real=0
R021:Real=0
R022:Real=0
R031:Real=0
R032:Real=0
R041:Real=0
R042:Real=0
R051:Real=0
R052:Real=0
R061:Real=0
R062:Real=0
R071:Real=0
R072:Real=0
R081:Real=0
R082:Real=0
R091:Real=0
R092:Real=0
R101:Real=0
R102:Real=0
R111:Real=0
R112:Real=0
R121:Real=0
R122:Real=0
R131:Real=0
R132:Real=0
R141:Real=0
R142:Real=0
R151:Real=0
R152:Real=0
R161:Real=0
R162:Real=0
R171:Real=0
R172:Real=0
R181:Real=0
R182:Real=0
R191:Real=0
R192:Real=0
R201:Real=0
R202:Real=0
R211:Real=0
R212:Real=0
R221:Real=0
R222:Real=0
R231:Real=0
R232:Real=0
R241:Real=0
R242:Real=0
R251:Real=0
R252:Real=0
R261:Real=0
R262:Real=0
R271:Real=0
R272:Real=0
R281:Real=0
R282:Real=0
R291:Real=0
R292:Real=0
R301:Real=0
R302:Real=0
R311:Real=0
R312:Real=0
R321:Real=0
R322:Real=0
R331:Real=0
R332:Real=0
R341:Real=0
R342:Real=0
R351:Real=0
R352:Real=0
R361:Real=0
R362:Real=0
R371:Real=0
R372:Real=0
R381:Real=0
R382:Real=0
R391:Real=0
R392:Real=0
R401:Real=0
R402:Real=0
R411:Real=0
R412:Real=0
R421:Real=0
R422:Real=0
R431:Real=0
R432:Real=0
R441:Real=0
R442:Real=0
R451:Real=0
R452:Real=0
R461:Real=0
R462:Real=0
R471:Real=0
R472:Real=0
R481:Real=0
R482:Real=0
R491:Real=0
R492:Real=0
R501:Real=0
R502:Real=0
R511:Real=0
R512:Real=0
R521:Real=0
R522:Real=0
R531:Real=0
R532:Real=0
R541:Real=0
R542:Real=0

;{*******************************************************************************************************************************}
;{deklarace a nalezeni prodrozvahovych uctu}

DeclareRec('UcetniRozvrh')
DeclareRec('KeyUcetniRozvrh1')

Pocet  :Integer = 18;
VetaUR :LongInt;
Stav   :LongInt;
i      :Integer;

PU97U  :Array[1..Pocet] of String
PU97N  :Array[1..Pocet] of String
PU97P  :Array[1..Pocet] of Real
PU97C  :Array[1..Pocet] of Real
xPU97  :Integer=0

PU98U  :Array[1..Pocet] of String
PU98N  :Array[1..Pocet] of String
PU98P  :Array[1..Pocet] of Real
PU98C  :Array[1..Pocet] of Real
xPU98  :Integer=0

PU99U  :Array[1..Pocet] of String
PU99N  :Array[1..Pocet] of String
PU99P  :Array[1..Pocet] of Real
PU99C  :Array[1..Pocet] of Real
xPU99  :Integer=0

ClearKey(KeyUcetniRozvrh1)
InitStatus(UsedKeys(KeyUcetniRozvrh1), 'Načtení podrozvahových účtů')
while(NextKey(KeyUcetniRozvrh1,VetaUR))
  begin
    ReadRec(UcetniRozvrh,VetaUR)

    if((UcetniRozvrh.SU>=970)and(UcetniRozvrh.SU<=980)) ;and(UcetniRozvrh.AU>0))
      begin
        Inc(xPU97)
        if(xPU97>(Pocet+50))
          halt('Kontaktujte autory programu WinDUO a nahlaste jim:'+#13+#13+'V souboru pril0104.ddt je omezení na '+Pocet+' podrozvahových účtů.');
        PU97U[xPU97]=NULL(UcetniRozvrh.SU,3)+'/'+NULL(UcetniRozvrh.AU,3)
        PU97N[xPU97]=UcetniRozvrh.Nazev
        PU97P[xPU97]=Val(GetFromIni(ObdRok(2),'PU_'+PU97U[xPU97]+'_P',INI))
        PU97C[xPU97]=Val(GetFromIni(ZadaneObdobi,'PU_'+PU97U[xPU97]+'_C',INI))
      end

    if((UcetniRozvrh.SU>=980)and(UcetniRozvrh.SU<=990)) ;and(UcetniRozvrh.AU>0))
      begin
        Inc(xPU98)
        if(xPU98>(Pocet+50))
          halt('Kontaktujte autory programu WinDUO a nahlaste jim:'+#13+#13+'V souboru pril0104.ddt je omezení na '+Pocet+' podrozvahových účtů.');
        PU98U[xPU98]=NULL(UcetniRozvrh.SU,3)+'/'+NULL(UcetniRozvrh.AU,3)
        PU98N[xPU98]=UcetniRozvrh.Nazev
        PU98P[xPU98]=Val(GetFromIni(ObdRok(2),'PU_'+PU98U[xPU98]+'_P',INI))
        PU98C[xPU98]=Val(GetFromIni(ZadaneObdobi,'PU_'+PU98U[xPU98]+'_C',INI))
      end

    if((UcetniRozvrh.SU>=990)) ;and(UcetniRozvrh.AU>0))
      begin
        Inc(xPU99)
        if(xPU99>(Pocet+50))
          halt('Kontaktujte autory programu WinDUO a nahlaste jim:'+#13+#13+'V souboru pril0104.ddt je omezení na '+Pocet+' podrozvahových účtů.');
        PU99U[xPU99]=NULL(UcetniRozvrh.SU,3)+'/'+NULL(UcetniRozvrh.AU,3)
        PU99N[xPU99]=UcetniRozvrh.Nazev
        PU99P[xPU99]=Val(GetFromIni(ObdRok(2),'PU_'+PU99U[xPU99]+'_P',INI))
        PU99C[xPU99]=Val(GetFromIni(ZadaneObdobi,'PU_'+PU99U[xPU99]+'_C',INI))
      end

    Inc(Stav)
    SetStatus(Stav)
  end

;{*******************************************************************************************************************************}
;{nacteni promennych z INI}

  NadrOrgan1:String[30]=GetDataIni('Info','NadrizenyOrgan[1]')
  NadrOrgan2:String[30]=GetDataIni('Info','NadrizenyOrgan[2]')
  NadrOrgan3:String[30]=GetDataIni('Info','NadrizenyOrgan[3]')

  R011=Val(GetFromIni(ZadaneObdobi,'R01,1',INI))
  R012=Val(GetFromIni(ZadaneObdobi,'R01,2',INI))
  R021=Val(GetFromIni(ZadaneObdobi,'R02,1',INI))
  R022=Val(GetFromIni(ZadaneObdobi,'R02,2',INI))
  R031=Val(GetFromIni(ZadaneObdobi,'R03,1',INI))
  R032=Val(GetFromIni(ZadaneObdobi,'R03,2',INI))
  R041=Val(GetFromIni(ZadaneObdobi,'R04,1',INI))
  R042=Val(GetFromIni(ZadaneObdobi,'R04,2',INI))
  R051=Val(GetFromIni(ZadaneObdobi,'R05,1',INI))
  R052=Val(GetFromIni(ZadaneObdobi,'R05,2',INI))
  R061=Val(GetFromIni(ZadaneObdobi,'R06,1',INI))
  R062=Val(GetFromIni(ZadaneObdobi,'R06,2',INI))
  R071=Val(GetFromIni(ZadaneObdobi,'R07,1',INI))
  R072=Val(GetFromIni(ZadaneObdobi,'R07,2',INI))
  R081=Val(GetFromIni(ZadaneObdobi,'R08,1',INI))
  R082=Val(GetFromIni(ZadaneObdobi,'R08,2',INI))
  R091=Val(GetFromIni(ZadaneObdobi,'R09,1',INI))
  R092=Val(GetFromIni(ZadaneObdobi,'R09,2',INI))
  R101=Val(GetFromIni(ZadaneObdobi,'R10,1',INI))
  R102=Val(GetFromIni(ZadaneObdobi,'R10,2',INI))
  R111=Val(GetFromIni(ZadaneObdobi,'R11,1',INI))
  R112=Val(GetFromIni(ZadaneObdobi,'R11,2',INI))
  R121=Val(GetFromIni(ZadaneObdobi,'R12,1',INI))
  R122=Val(GetFromIni(ZadaneObdobi,'R12,2',INI))
  R131=Val(GetFromIni(ZadaneObdobi,'R13,1',INI))
  R132=Val(GetFromIni(ZadaneObdobi,'R13,2',INI))
  R141=Val(GetFromIni(ZadaneObdobi,'R14,1',INI))
  R142=Val(GetFromIni(ZadaneObdobi,'R14,2',INI))
  R151=Val(GetFromIni(ZadaneObdobi,'R15,1',INI))
  R152=Val(GetFromIni(ZadaneObdobi,'R15,2',INI))
  R161=Val(GetFromIni(ZadaneObdobi,'R16,1',INI))
  R162=Val(GetFromIni(ZadaneObdobi,'R16,2',INI))
  R171=Val(GetFromIni(ZadaneObdobi,'R17,1',INI))
  R172=Val(GetFromIni(ZadaneObdobi,'R17,2',INI))
  R181=Val(GetFromIni(ZadaneObdobi,'R18,1',INI))
  R182=Val(GetFromIni(ZadaneObdobi,'R18,2',INI))
  R191=Val(GetFromIni(ZadaneObdobi,'R19,1',INI))
  R192=Val(GetFromIni(ZadaneObdobi,'R19,2',INI))
  R201=Val(GetFromIni(ZadaneObdobi,'R20,1',INI))
  R202=Val(GetFromIni(ZadaneObdobi,'R20,2',INI))
  R211=Val(GetFromIni(ZadaneObdobi,'R21,1',INI))
  R212=Val(GetFromIni(ZadaneObdobi,'R21,2',INI))
  R221=Val(GetFromIni(ZadaneObdobi,'R22,1',INI))
  R222=Val(GetFromIni(ZadaneObdobi,'R22,2',INI))
  R231=Val(GetFromIni(ZadaneObdobi,'R23,1',INI))
  R232=Val(GetFromIni(ZadaneObdobi,'R23,2',INI))
  R241=Val(GetFromIni(ZadaneObdobi,'R24,1',INI))
  R242=Val(GetFromIni(ZadaneObdobi,'R24,2',INI))
  R251=Val(GetFromIni(ZadaneObdobi,'R25,1',INI))
  R252=Val(GetFromIni(ZadaneObdobi,'R25,2',INI))
  R261=Val(GetFromIni(ZadaneObdobi,'R26,1',INI))
  R262=Val(GetFromIni(ZadaneObdobi,'R26,2',INI))
  R271=Val(GetFromIni(ZadaneObdobi,'R27,1',INI))
  R272=Val(GetFromIni(ZadaneObdobi,'R27,2',INI))
  R281=Val(GetFromIni(ZadaneObdobi,'R28,1',INI))
  R282=Val(GetFromIni(ZadaneObdobi,'R28,2',INI))
  R291=Val(GetFromIni(ZadaneObdobi,'R29,1',INI))
  R292=Val(GetFromIni(ZadaneObdobi,'R29,2',INI))
  R301=Val(GetFromIni(ZadaneObdobi,'R30,1',INI))
  R302=Val(GetFromIni(ZadaneObdobi,'R30,2',INI))
  R311=Val(GetFromIni(ZadaneObdobi,'R31,1',INI))
  R312=Val(GetFromIni(ZadaneObdobi,'R31,2',INI))
  R321=Val(GetFromIni(ZadaneObdobi,'R32,1',INI))
  R322=Val(GetFromIni(ZadaneObdobi,'R32,2',INI))
  R331=Val(GetFromIni(ZadaneObdobi,'R33,1',INI))
  R332=Val(GetFromIni(ZadaneObdobi,'R33,2',INI))
  R341=Val(GetFromIni(ZadaneObdobi,'R34,1',INI))
  R342=Val(GetFromIni(ZadaneObdobi,'R34,2',INI))
  R351=Val(GetFromIni(ZadaneObdobi,'R35,1',INI))
  R352=Val(GetFromIni(ZadaneObdobi,'R35,2',INI))
  R361=Val(GetFromIni(ZadaneObdobi,'R36,1',INI))
  R362=Val(GetFromIni(ZadaneObdobi,'R36,2',INI))
  R371=Val(GetFromIni(ZadaneObdobi,'R37,1',INI))
  R372=Val(GetFromIni(ZadaneObdobi,'R37,2',INI))
  R381=Val(GetFromIni(ZadaneObdobi,'R38,1',INI))
  R382=Val(GetFromIni(ZadaneObdobi,'R38,2',INI))
  R391=Val(GetFromIni(ZadaneObdobi,'R39,1',INI))
  R392=Val(GetFromIni(ZadaneObdobi,'R39,2',INI))
  R401=Val(GetFromIni(ZadaneObdobi,'R40,1',INI))
  R402=Val(GetFromIni(ZadaneObdobi,'R40,2',INI))
  R411=Val(GetFromIni(ZadaneObdobi,'R41,1',INI))
  R412=Val(GetFromIni(ZadaneObdobi,'R41,2',INI))
  R421=Val(GetFromIni(ZadaneObdobi,'R42,1',INI))
  R422=Val(GetFromIni(ZadaneObdobi,'R42,2',INI))
  R431=Val(GetFromIni(ZadaneObdobi,'R43,1',INI))
  R432=Val(GetFromIni(ZadaneObdobi,'R43,2',INI))
  R441=Val(GetFromIni(ZadaneObdobi,'R44,1',INI))
  R442=Val(GetFromIni(ZadaneObdobi,'R44,2',INI))
  R451=Val(GetFromIni(ZadaneObdobi,'R45,1',INI))
  R452=Val(GetFromIni(ZadaneObdobi,'R45,2',INI))
  R461=Val(GetFromIni(ZadaneObdobi,'R46,1',INI))
  R462=Val(GetFromIni(ZadaneObdobi,'R46,2',INI))
  R471=Val(GetFromIni(ZadaneObdobi,'R47,1',INI))
  R472=Val(GetFromIni(ZadaneObdobi,'R47,2',INI))
  R481=Val(GetFromIni(ZadaneObdobi,'R48,1',INI))
  R482=Val(GetFromIni(ZadaneObdobi,'R48,2',INI))
  R491=Val(GetFromIni(ZadaneObdobi,'R49,1',INI))
  R492=Val(GetFromIni(ZadaneObdobi,'R49,2',INI))
  R501=Val(GetFromIni(ZadaneObdobi,'R50,1',INI))
  R502=Val(GetFromIni(ZadaneObdobi,'R50,2',INI))
  R511=Val(GetFromIni(ZadaneObdobi,'R51,1',INI))
  R512=Val(GetFromIni(ZadaneObdobi,'R51,2',INI))
  R521=Val(GetFromIni(ZadaneObdobi,'R52,1',INI))
  R522=Val(GetFromIni(ZadaneObdobi,'R52,2',INI))
  R531=Val(GetFromIni(ZadaneObdobi,'R53,1',INI))
  R532=Val(GetFromIni(ZadaneObdobi,'R53,2',INI))
  R541=Val(GetFromIni(ZadaneObdobi,'R54,1',INI))
  R542=Val(GetFromIni(ZadaneObdobi,'R54,2',INI))

;{*******************************************************************************************************************************}
;{formular}

  vypocet:

  DefDialog('Příloha k závěrce pro příspěvkové organizace za období '+ObdMesic(2)+'/'+ObdRok(4),620,(pocet*25)+140,False)
  DlgCover(199,8,5,5,610,(pocet*25)+65,False,AktualCover)

;{*******************************************************************************************************************************}
;{vykresleni 1.coveru}

  SetCover(1,'&1. část')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,225)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,225)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,225)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  DlgStatic(-1,'Dotace celkem na dl. majetek ze SR',6,32,260)
  DlgEdit(202,R012,440,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(202,'položka 1 = Dotace celkem na dlouhodobý majetek ze státního rozpočtu'+#13+' - (z AÚ k účtu 346) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: systémové dotace na DM',16,57,220)
  DlgEdit(204,R022,440,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(204,'položka 2 = z toho: systémové dotace na dlouhodobý majetek'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: na vědu a výzkum',26,82,180)
  DlgEdit(206,R032,440,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(206,'položka 3 = z toho: na vědu a výzkum'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na vzdělávání pracovníků',74,107,170)
  DlgEdit(208,R042,440,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(208,'položka 4 = na vzdělávání pracovníků'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na informatiku',74,132,100)
  DlgEdit(210,R052,440,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(210,'položka 5 = na informatiku'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'individuální dotace na jmenovité akce',74,157,270)
  DlgEdit(212,R062,440,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(212,'položka 6 = individuální dotace na jmenovité akce'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky ze zahraničí na dlouhodobý majetek',6,182,400)
  DlgEdit(214,R072,440,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(214,'položka 7 = Přijaté prostředky ze zahraničí na dlouhodobý majetek'+#13+' - (z AÚ k účtu 916) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté dotace celkem na dlouhod. majetek z rozpočtu ÚSC',6,207,400)
  DlgEdit(216,R082,440,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(216,'položka 8 = Přijaté dotace celkem na dlouhodobý majetek z rozpočtu územních samosprávných celků'+#13+' - (z AÚ k účtu 348) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté přísp. a dotace na provoz ze státního rozpočtu',6,232,380)
  DlgEdit(218,R092,440,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(218,'položka 9 = Přijaté příspěvky a dotace na provoz ze státního rozpočtu'+#13+' - (z AÚ účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: přijaté příspěvky na provoz od zřizovatele',16,257,420)
  DlgEdit(220,R102,440,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(220,'položka 10 = z toho: přijaté příspěvky na provoz od zřizovatele'+#13+' - (z AÚ k účtu 691)  - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: výzkum a vývoj',26,282,180)
  DlgEdit(222,R112,440,280,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(222,'položka 11 = z toho: výzkum a vývoj'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'vzdělávání pracovníků',74,307,170)
  DlgEdit(224,R122,440,305,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(224,'položka 12 = vzdělávání pracovníků'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'informatiku',74,332,100)
  DlgEdit(226,R132,440,330,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(226,'položka 13 = informatiku'+#13+' - Stav k '+ObdMaxDay(0,1))

;{*******************************************************************************************************************************}
;{vykresleni 2.coveru}

  SetCover(2,'&2. část')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  DlgStatic(-1,'přijaté dotace na neinvest... ISPROFIN',65,32,340)
  DlgEdit(302,R142,440,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(302,'položka 14 = přijaté dotace na neinvestiční náklady související'+#13+'s financováním programů evidovaných v ISPROFIN'+#13+'od zřizovatele - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'přijaté prostředky na výzkum a vývoj od jiných ...',65,57,340)
  DlgEdit(304,R152,440,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(304,'položka 15 = Přijaté prostředky na výzkum a vývoj od poskytovatelů jiných než od '+#13+'zřizovatele - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky na výzkum a vývoj z rozpočtu ÚSC',6,82,370)
  DlgEdit(306,R162,440,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(306,'položka 16 = Přijaté prostředky na výzkum a vývoj z rozpočtu územních'+#13+'samosprávných celků - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky na výzkum a vývoj od příjemců úč.podpory',6,107,420)
  DlgEdit(308,R172,440,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(308,'položka 17 = Přijaté prostředky na výzkum a vývoj od příjemců účelové'+#13+'podpory - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky na provoz ze zahraničí',6,132,370)
  DlgEdit(310,R182,440,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(310,'položka 18 = Přijaté prostředky na provoz ze zahraničí'+#13+' - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté přísp. a dotace celkem na provoz z rozpočtu ÚSC',6,152,370)
  DlgEdit(312,R192,440,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(312,'položka 19 = Přijaté příspěvky a dotace celkem na provoz z rozpočtu'+#13+'územních samosprávných celků - (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté přísp. a dotace na provoz z rozpočtu státních fondů',6,182,380)
  DlgEdit(313,R502,440,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(313,'položka 50 = Přijaté příspěvky a dotace na provoz z rozpočtu'+#13+'státních fondů (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté dotace celkem na dlouh. majetek z rozpočtu státních fondů',6,207,430)
  DlgEdit(314,R512,440,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(314,'položka 51 = Přijaté dotace celkem na dlouhodobý majetek z rozpočtu'+#13+'státních fondů (z AÚ k účtu 691) - Stav k '+ObdMaxDay(0,1))

;{*******************************************************************************************************************************}
;{vykresleni 3.coveru}

  SetCover(3,'&3. část')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  DlgStatic(-1,'Poskyt. návratné fin. výpomoci... - KÚ',6,32,268)
  DlgEdit(3401,R201,280,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3401,'položka 20, sl.1 = Poskytnuté návratné finanční výpomoci mezi rozpočty'+#13+'- krajskému úřadu - (účet 271) - Stav k 1.1.')
  DlgEdit(3402,R202,440,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3402,'položka 20, sl.2 = Poskytnuté návratné finanční výpomoci mezi rozpočty'+#13+'- krajskému úřadu - (účet 271) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. návratné fin. výpomoci... - obci',6,57,268)
  DlgEdit(3403,R211,280,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3403,'položka 21, sl.1 = Poskytnuté návratné finanční výpomoci mezi rozpočty'+#13+'- obci - (účet 271) - Stav k 1.1.')
  DlgEdit(3404,R212,440,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3404,'položka 21, sl.2 = Poskytnuté návratné finanční výpomoci mezi rozpočty'+#13+'- obci - (účet 271) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin.výpomoci... - ze SR',6,82,268)
  DlgEdit(3405,R221,280,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3405,'položka 22, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- ze státního rozpočtu - (účet 272) - Stav k 1.1.')
  DlgEdit(3406,R222,440,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3406,'položka 22, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- ze státního rozpočtu - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin.výpomoci... - od KÚ',6,107,268)
  DlgEdit(3407,R231,280,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3407,'položka 23, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od krajského úřadu - (účet 272) - Stav k 1.1.')
  DlgEdit(3408,R232,440,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3408,'položka 23, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od krajského úřadu - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin.výpomoci... - od obce',6,132,269)
  DlgEdit(3409,R241,280,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3409,'položka 24, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od obce - (účet 272) - Stav k 1.1.')
  DlgEdit(3410,R242,440,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3410,'položka 24, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od obce - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin.výpomoci... - od StF.',6,157,269)
  DlgEdit(3411,R251,280,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3411,'položka 25, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od státních fondů - (účet 272) - Stav k 1.1.')
  DlgEdit(3412,R252,440,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3412,'položka 25, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od státních fondů - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin.výpomoci... - od ost.',6,182,269)
  DlgEdit(3413,R261,280,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3413,'položka 26, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od ostatních veřejných rozpočtů - (účet 272) - Stav k 1.1.')
  DlgEdit(3414,R262,440,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3414,'položka 26, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty'+#13+'- od ostatních veřejných rozpočtů - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přech. výpomoci přísp. org.- OSS',6,207,268)
  DlgEdit(3415,R271,280,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3415,'položka 27, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- organizační složkou státu - (účet 273) - Stav k 1.1.')
  DlgEdit(3416,R272,440,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3416,'položka 27, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- organizační složkou státu - (účet 273) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přech. výpomoci přísp. org.- KÚ',6,232,268)
  DlgEdit(3417,R281,280,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3417,'položka 28, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- krajským úřadem - (účet 273) - Stav k 1.1.')
  DlgEdit(3418,R282,440,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3418,'položka 28, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- krajským úřadem - (účet 273) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přech. výpomoci přísp. org.- obcí',6,257,268)
  DlgEdit(3419,R291,280,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3419,'položka 29, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- obcí - (účet 273) - Stav k 1.1.')
  DlgEdit(3420,R292,440,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(3420,'položka 29, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím'+#13+'- obcí - (účet 273) - Stav k '+ObdMaxDay(0,1))

;{*******************************************************************************************************************************}
;{vykresleni 4.coveru}

  SetCover(4,'&4. část')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  DlgStatic(-1,'Krátkodobé bankovní úvěry',6,32,270)
  DlgStatic(-1,'- tuzemské',187,32,100)
  DlgEdit(401,R301,280,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(401,'položka 30, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(402,R302,440,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(402,'položka 30, sl.2 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,57,80)
  DlgEdit(403,R311,280,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(403,'položka 31, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(404,R312,440,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(404,'položka 31 sl.2 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Vyd. krátkodobé dluhopisy',6,82,270)
  DlgStatic(-1,'- tuzemské',187,82,100)
  DlgEdit(405,R321,280,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(405,'položka 32, sl.1 = Vydané krátkodobé dluhopisy'+#13+' - (účet 283) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(406,R322,440,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(406,'položka 32, sl.2 = Vydané krátkodobé dluhopisy'+#13+' - (účet 283) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,107,80)
  DlgEdit(407,R331,280,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(407,'položka 33, sl.1 = Vydané krátkodobé dluhopisy'+#13+' - (účet 283) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(408,R332,440,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(408,'položka 33, sl.2 = Vydané krátkodobé dluhopisy'+#13+' - (účet 283) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Ostat. krátkod. fin. výpomoci',6,132,300)
  DlgStatic(-1,'- tuzemské',187,132,100)
  DlgEdit(409,R341,280,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(409,'položka 34, sl.1 = Ostatní krátkodobé závazky (finanční výpomoci)'+#13+' - (účet 289) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(410,R342,440,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(410,'položka 34, sl.2 = Ostatní krátkodobé závazky (finanční výpomoci)'+#13+' - (účet 289) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,157,80)
  DlgEdit(411,R351,280,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(411,'položka 35, sl.1 = Ostatní krátkodobé závazky (finanční výpomoci)'+#13+' - (účet 289) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(412,R352,440,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(412,'položka 35, sl.2 = Ostatní krátkodobé závazky (finanční výpomoci)'+#13+' - (účet 289) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Směnky k úhradě',6,182,170)
  DlgStatic(-1,'- tuzemské',187,182,100)
  DlgEdit(413,R361,280,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(413,'položka 36, sl.1 = Směnky k úhradě'+#13+' - (účet 322) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(414,R362,440,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(414,'položka 36, sl.2 = Směnky k úhradě'+#13+' - (účet 322) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,207,80)
  DlgEdit(415,R371,280,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(415,'položka 37, sl.1 = Směnky k úhradě'+#13+' - (účet 322) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(416,R372,440,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(416,'položka 37, sl.2 = Směnky k úhradě'+#13+' - (účet 322) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Dlouhod.bank.úvěry',6,232,170)
  DlgStatic(-1,'- tuzemské',187,232,100)
  DlgEdit(417,R381,280,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(417,'položka 38, sl.1 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(418,R382,440,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(418,'položka 38, sl.2 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,257,80)
  DlgEdit(419,R391,280,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(419,'položka 39, sl.1 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(420,R392,440,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(420,'položka 39, sl.2 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

;{*******************************************************************************************************************************}
;{vykresleni 5.coveru}

  SetCover(5,'&5. část')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  DlgStatic(-1,'Vydané dluhopisy',6,32,270)
  DlgStatic(-1,'- tuzemské',187,32,100)
  DlgEdit(501,R401,280,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(501,'položka 40, sl.1 = Vydané dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(502,R402,440,30,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(502,'položka 40, sl.2 = Vydané dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,57,80)
  DlgEdit(503,R411,280,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(503,'položka 41, sl.1 = Vydané dluhopisy'+#13+' - (účet 953) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(504,R412,440,55,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(504,'položka 41, sl.2 = Vydané dluhopisy'+#13+' - (účet 953) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Dlouhod.směnky k úhradě',6,82,270)
  DlgStatic(-1,'- tuzemské',187,82,100)
  DlgEdit(505,R421,280,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(505,'položka 42, sl.1 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(506,R422,440,80,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(506,'položka 42, sl.2 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,107,80)
  DlgEdit(507,R431,280,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(507,'položka 43, sl.1 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(508,R432,440,105,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(508,'položka 43, sl.2 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Ostatní dlouh. závazky',6,132,270)
  DlgStatic(-1,'- tuzemské',187,132,100)
  DlgEdit(509,R441,280,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(509,'položka 44, sl.1 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(510,R442,440,130,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(510,'položka 44, sl.2 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,157,80)
  DlgEdit(511,R451,280,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(511,'položka 45, sl.1 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(512,R452,440,155,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(512,'položka 45, sl.2 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Nakoup.dluhopisy a směnky k inkasu',6,182,268)
  DlgEdit(513,R461,280,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(513,'položka 46, sl.1 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z AÚ účtů 063, 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(514,R462,440,180,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(514,'položka 46, sl.2 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z AÚ účtů 063, 253 a 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: krátk.dluhopisy a směnky ÚSC',26,207,280)
  DlgEdit(515,R471,280,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(515,'položka 47, sl.1 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z AÚ účtů 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(516,R472,440,205,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(516,'položka 47, sl.2 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z AÚ účtů 253 a 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'komunální dluhopisy ÚSC',74,232,220)
  DlgEdit(517,R481,280,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(517,'položka 48, sl.1 = komunální dluhopisy ÚSC'+#13+' - (z účtu 063)'+#13+' - Stav k 1.1.')
  DlgEdit(518,R482,440,230,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(518,'položka 48, sl.2 = komunální dluhopisy ÚSC'+#13+' - (z účtu 063)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'ostatní dluhopisy a směnky VR',74,257,220)
  DlgEdit(519,R491,280,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(519,'položka 49, sl.1 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z AÚ účtů 063, 253, 312)'+#13+' - Stav k 1.1.')
  DlgEdit(520,R492,440,255,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(520,'položka 49, sl.2 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z AÚ účtů 063, 253, 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Splatné záv.pojistného na soc.zab.',6,282,268)
  DlgEdit(521,R521,280,280,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(521,'položka 52, sl.1 = Splatné závazky pojistného na sociálním zabezpečení'+#13+'a příspěvku na státní politiku zaměstnanosti'+#13+' - Stav k 1.1.')
  DlgEdit(522,R522,440,280,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(522,'položka 52, sl.2 = Splatné závazky pojistného na sociálním zabezpečení'+#13+'a příspěvku na státní politiku zaměstnanosti'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Splatné záv.veřejného zdrav.pojištění',6,307,268)
  DlgEdit(531,R531,280,305,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(531,'položka 53, sl.1 = Splatné závazky veřejného zdravotního pojištění'+#13+' - Stav k 1.1.')
  DlgEdit(532,R532,440,305,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(532,'položka 53, sl.2 = Splatné závazky veřejného zdravotního pojištění'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Evid.daňové nedoplatky u finanč.orgánů',6,332,268)
  DlgEdit(541,R541,280,330,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(541,'položka 54, sl.1 = Evidované daňové nedoplatky u místně příslušných finančních orgánů'+#13+' - Stav k 1.1.')
  DlgEdit(542,R542,440,330,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(542,'položka 54, sl.2 = Evidované daňové nedoplatky u místně příslušných finančních orgánů'+#13+' - Stav k '+ObdMaxDay(0,1))

;{*******************************************************************************************************************************}
;{vykresleni 6.coveru}

  SetCover(6,'PU 97x')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  i=0
  while(i<xPU97)
    begin
      Inc(i)
      DlgStatic(-1,PU97U[i]+' - '+PU97N[i],5,((i-1)*25)+32,268)
      DlgEdit(9700+i,PU97P[i],280,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9700+i,'Podrozvahový účet '+PU97U[i]+' a jeho stav k 1.1.'+#13+PU97N[i])
      DlgEdit(9750+i,PU97C[i],440,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9750+i,'Podrozvahový účet '+PU97U[i]+' a jeho stav k '+ObdMaxDay(0,1)+#13+PU97N[i])
    end

;{*******************************************************************************************************************************}
;{vykresleni 7.coveru}

  SetCover(7,'PU 98x')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  i=0
  while(i<xPU98)
    begin
      Inc(i)
      DlgStatic(-1,PU98U[i]+' - '+PU98N[i],5,((i-1)*25)+32,268)
      DlgEdit(9800+i,PU98P[i],280,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9800+i,'Podrozvahový účet '+PU98U[i]+' a jeho stav k 1.1.'+#13+PU98N[i])
      DlgEdit(9850+i,PU98C[i],440,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9850+i,'Podrozvahový účet '+PU98U[i]+' a jeho stav k '+ObdMaxDay(0,1)+#13+PU98N[i])
    end

;{*******************************************************************************************************************************}
;{vykresleni 8.coveru}

  SetCover(8,'PU 99x')

  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',5,5,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',5,5,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',5,5,220)

  DlgDivider(3,25,600,0)

  DlgStatic(-1,'Stav k 1.1.',280,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),440,8,125)

  i=0
  while(i<xPU99)
    begin
      Inc(i)
      DlgStatic(-1,PU99U[i]+' - '+PU99N[i],5,((i-1)*25)+32,268)
      DlgEdit(9900+i,PU99P[i],280,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9900+i,'Podrozvahový účet '+PU99U[i]+' a jeho stav k 1.1.'+#13+PU99N[i])
      DlgEdit(9950+i,PU99C[i],440,((i-1)*25)+30,150,,15,ES_RIGHT,ValidCislo)
      DlgOnLineHelp(9950+i,'Podrozvahový účet '+PU99U[i]+' a jeho stav k '+ObdMaxDay(0,1)+#13+PU99N[i])
    end

;{*******************************************************************************************************************************}
;{zpet na obecny cover:}

  SetCover(0)

  DlgButton(id_OK,'OK',480,(pocet*25)+75);
  DlgOnLineHelp(id_OK,'Uloží hodnoty a pokračuje ve výpočtu sestavy příloha (+ disketa)')

  DlgButton(id_Cancel,'Zpět',550,(pocet*25)+75);
  DlgOnLineHelp(id_Cancel,'Ukončí práci bez výpočtu sestavy, Vaše poslední změny ve formulářích NEBUDOU uloženy')

  DlgButton(id_Help,'Help',5,(pocet*25)+75);
  DlgOnLineHelp(id_Help,'Help')
  DlgSetHelp(Help_Context,525)

  Result:Integer=DlgExecute()

  if(Result=287)
    goto(Vypocet)

  if(Result=ID_Cancel)
    begin
      DefDialog('Přerušení výpočtu',286,197)
      DlgShade(-1,'',4,4,278,117)
      DlgBitmap(902,20,18)

      DlgStatic(-1,'Opravdu nechcete',80,46,140)
      DlgStatic(-1,'uložit Vaše zadání?',80,70,140)

      DlgButton(id_Yes,'Ano',33,128);
      DlgOnLineHelp(id_Yes,'Uloží Vaše údaje a skončí')

      DlgButton(id_No,'Ne',110,128);
      DlgOnLineHelp(id_No,'Ukončí práci bez uložení Vašich údajů...'+#13+'To, co jste naťukali, NEBUDE uloženo !!!')

      DlgButton(id_Cancel,'Zpět',187,128);
      DlgOnLineHelp(id_Cancel,'Návrat zpět do výpočtu')

      Result2:Integer=DlgExecute()

      if(Result2=ID_Cancel)
        goto(Vypocet)

      if(Result2=ID_No)
        Halt

      if(Result2=ID_Yes)
        goto(Ulozeni)
    end

;{*******************************************************************************************************************************}
;{ulozeni hodnot do ini souboru}

  Ulozeni:

  SetToIni(ZadaneObdobi,'R01,1',R011,INI)
  SetToIni(ZadaneObdobi,'R01,2',R012,INI)
  SetToIni(ZadaneObdobi,'R02,1',R021,INI)
  SetToIni(ZadaneObdobi,'R02,2',R022,INI)
  SetToIni(ZadaneObdobi,'R03,1',R031,INI)
  SetToIni(ZadaneObdobi,'R03,2',R032,INI)
  SetToIni(ZadaneObdobi,'R04,1',R041,INI)
  SetToIni(ZadaneObdobi,'R04,2',R042,INI)
  SetToIni(ZadaneObdobi,'R05,1',R051,INI)
  SetToIni(ZadaneObdobi,'R05,2',R052,INI)
  SetToIni(ZadaneObdobi,'R06,1',R061,INI)
  SetToIni(ZadaneObdobi,'R06,2',R062,INI)
  SetToIni(ZadaneObdobi,'R07,1',R071,INI)
  SetToIni(ZadaneObdobi,'R07,2',R072,INI)
  SetToIni(ZadaneObdobi,'R08,1',R081,INI)
  SetToIni(ZadaneObdobi,'R08,2',R082,INI)
  SetToIni(ZadaneObdobi,'R09,1',R091,INI)
  SetToIni(ZadaneObdobi,'R09,2',R092,INI)
  SetToIni(ZadaneObdobi,'R10,1',R101,INI)
  SetToIni(ZadaneObdobi,'R10,2',R102,INI)
  SetToIni(ZadaneObdobi,'R11,1',R111,INI)
  SetToIni(ZadaneObdobi,'R11,2',R112,INI)
  SetToIni(ZadaneObdobi,'R12,1',R121,INI)
  SetToIni(ZadaneObdobi,'R12,2',R122,INI)
  SetToIni(ZadaneObdobi,'R13,1',R131,INI)
  SetToIni(ZadaneObdobi,'R13,2',R132,INI)
  SetToIni(ZadaneObdobi,'R14,1',R141,INI)
  SetToIni(ZadaneObdobi,'R14,2',R142,INI)
  SetToIni(ZadaneObdobi,'R15,1',R151,INI)
  SetToIni(ZadaneObdobi,'R15,2',R152,INI)
  SetToIni(ZadaneObdobi,'R16,1',R161,INI)
  SetToIni(ZadaneObdobi,'R16,2',R162,INI)
  SetToIni(ZadaneObdobi,'R17,1',R171,INI)
  SetToIni(ZadaneObdobi,'R17,2',R172,INI)
  SetToIni(ZadaneObdobi,'R18,1',R181,INI)
  SetToIni(ZadaneObdobi,'R18,2',R182,INI)
  SetToIni(ZadaneObdobi,'R19,1',R191,INI)
  SetToIni(ZadaneObdobi,'R19,2',R192,INI)
  SetToIni(ZadaneObdobi,'R20,1',R201,INI)
  SetToIni(ZadaneObdobi,'R20,2',R202,INI)
  SetToIni(ZadaneObdobi,'R21,1',R211,INI)
  SetToIni(ZadaneObdobi,'R21,2',R212,INI)
  SetToIni(ZadaneObdobi,'R22,1',R221,INI)
  SetToIni(ZadaneObdobi,'R22,2',R222,INI)
  SetToIni(ZadaneObdobi,'R23,1',R231,INI)
  SetToIni(ZadaneObdobi,'R23,2',R232,INI)
  SetToIni(ZadaneObdobi,'R24,1',R241,INI)
  SetToIni(ZadaneObdobi,'R24,2',R242,INI)
  SetToIni(ZadaneObdobi,'R25,1',R251,INI)
  SetToIni(ZadaneObdobi,'R25,2',R252,INI)
  SetToIni(ZadaneObdobi,'R26,1',R261,INI)
  SetToIni(ZadaneObdobi,'R26,2',R262,INI)
  SetToIni(ZadaneObdobi,'R27,1',R271,INI)
  SetToIni(ZadaneObdobi,'R27,2',R272,INI)
  SetToIni(ZadaneObdobi,'R28,1',R281,INI)
  SetToIni(ZadaneObdobi,'R28,2',R282,INI)
  SetToIni(ZadaneObdobi,'R29,1',R291,INI)
  SetToIni(ZadaneObdobi,'R29,2',R292,INI)
  SetToIni(ZadaneObdobi,'R30,1',R301,INI)
  SetToIni(ZadaneObdobi,'R30,2',R302,INI)
  SetToIni(ZadaneObdobi,'R31,1',R311,INI)
  SetToIni(ZadaneObdobi,'R31,2',R312,INI)
  SetToIni(ZadaneObdobi,'R32,1',R321,INI)
  SetToIni(ZadaneObdobi,'R32,2',R322,INI)
  SetToIni(ZadaneObdobi,'R33,1',R331,INI)
  SetToIni(ZadaneObdobi,'R33,2',R332,INI)
  SetToIni(ZadaneObdobi,'R34,1',R341,INI)
  SetToIni(ZadaneObdobi,'R34,2',R342,INI)
  SetToIni(ZadaneObdobi,'R35,1',R351,INI)
  SetToIni(ZadaneObdobi,'R35,2',R352,INI)
  SetToIni(ZadaneObdobi,'R36,1',R361,INI)
  SetToIni(ZadaneObdobi,'R36,2',R362,INI)
  SetToIni(ZadaneObdobi,'R37,1',R371,INI)
  SetToIni(ZadaneObdobi,'R37,2',R372,INI)
  SetToIni(ZadaneObdobi,'R38,1',R381,INI)
  SetToIni(ZadaneObdobi,'R38,2',R382,INI)
  SetToIni(ZadaneObdobi,'R39,1',R391,INI)
  SetToIni(ZadaneObdobi,'R39,2',R392,INI)
  SetToIni(ZadaneObdobi,'R40,1',R401,INI)
  SetToIni(ZadaneObdobi,'R40,2',R402,INI)
  SetToIni(ZadaneObdobi,'R41,1',R411,INI)
  SetToIni(ZadaneObdobi,'R41,2',R412,INI)
  SetToIni(ZadaneObdobi,'R42,1',R421,INI)
  SetToIni(ZadaneObdobi,'R42,2',R422,INI)
  SetToIni(ZadaneObdobi,'R43,1',R431,INI)
  SetToIni(ZadaneObdobi,'R43,2',R432,INI)
  SetToIni(ZadaneObdobi,'R44,1',R441,INI)
  SetToIni(ZadaneObdobi,'R44,2',R442,INI)
  SetToIni(ZadaneObdobi,'R45,1',R451,INI)
  SetToIni(ZadaneObdobi,'R45,2',R452,INI)
  SetToIni(ZadaneObdobi,'R46,1',R461,INI)
  SetToIni(ZadaneObdobi,'R46,2',R462,INI)
  SetToIni(ZadaneObdobi,'R47,1',R471,INI)
  SetToIni(ZadaneObdobi,'R47,2',R472,INI)
  SetToIni(ZadaneObdobi,'R48,1',R481,INI)
  SetToIni(ZadaneObdobi,'R48,2',R482,INI)
  SetToIni(ZadaneObdobi,'R49,1',R491,INI)
  SetToIni(ZadaneObdobi,'R49,2',R492,INI)
  SetToIni(ZadaneObdobi,'R50,1',R501,INI)
  SetToIni(ZadaneObdobi,'R50,2',R502,INI)
  SetToIni(ZadaneObdobi,'R51,1',R511,INI)
  SetToIni(ZadaneObdobi,'R51,2',R512,INI)
  SetToIni(ZadaneObdobi,'R52,1',R521,INI)
  SetToIni(ZadaneObdobi,'R52,2',R522,INI)
  SetToIni(ZadaneObdobi,'R53,1',R531,INI)
  SetToIni(ZadaneObdobi,'R53,2',R532,INI)
  SetToIni(ZadaneObdobi,'R54,1',R541,INI)
  SetToIni(ZadaneObdobi,'R54,2',R542,INI)

  if(xPU97>0)
    begin
      i=0
      while(i<xPU97)
        begin
          Inc(i)
          SetToIni(ObdRok(2),'PU_'+PU97U[i]+'_P',PU97P[i],INI)
          SetToIni(ZadaneObdobi,'PU_'+PU97U[i]+'_C',PU97C[i],INI)
        end
    end

  if(xPU98>0)
    begin
      i=0
      while(i<xPU98)
        begin
          Inc(i)
          SetToIni(ObdRok(2),'PU_'+PU98U[i]+'_P',PU98P[i],INI)
          SetToIni(ZadaneObdobi,'PU_'+PU98U[i]+'_C',PU98C[i],INI)
        end
    end

  if(xPU99>0)
    begin
      i=0
      while(i<xPU99)
        begin
          Inc(i)
          SetToIni(ObdRok(2),'PU_'+PU99U[i]+'_P',PU99P[i],INI)
          SetToIni(ZadaneObdobi,'PU_'+PU99U[i]+'_C',PU99C[i],INI)
        end
    end

;{*******************************************************************************************************************************}
;{tisk prilohy 1-2}

FONTFACE(Normal);

PEN(0,0.7)
BOXA(9,76.95,188.5,266.7)
LINEA(9,89.95,188,89.95)

PEN(0,0.3)
LINEA(111.5,77,111.5,266.7)
LINEA(125.5,77,125.5,266.7)
LINEA(156.75,77,156.75,266.7)
LINEA(125.5,85,188,85)
LINESA(9,95,188,95,0,5.05,34)

Global NazevSest1:String='PŘÍLOHA k účetní závěrce'
Global NazevSest2:String
Global Opatr1:String='Podle Sbírky zákonů'
Global Opatr2:String='vyhlášky č. 505/2002 ze dne 5.12.2002'
Global Opatr3:String='a 477/2003 ze dne 17.12.2003'
;potrebuje, aby byly Globalni (priklad hodnot):
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
CallDDT('HlavVyk.ddt')

FONTFACE(BOLD)
FONTSIZE(3.4)

TEXT(59,82,TA_CENTER,'Název údaje')
TEXT(118.5,80.5,TA_CENTER,'položka')
TEXT(118.5,83.5,TA_CENTER,'číslo')
TEXT(141,79.5,TA_CENTER,'Stav k 1.1.')
TEXT(172.7,79.5,TA_CENTER,'Stav k '+ObdMaxDay(1,1))
TEXT(141,85.75,TA_CENTER,'1')
TEXT(172.7,85.75,TA_CENTER,'2')

FONTSIZE(3.0)
FONTFACE(NORMAL)
FontWidthScale(0.8)
TEXT(12,90.95,TA_LEFT,'Dotace celkem na dlouhodobý majetek ze státního rozpočtu')
TEXT(110,90.95,TA_Right,'(z AÚ k účtu 346)')
TEXT(30,96.00,TA_LEFT,'z toho: systémové dotace na dlouhodobý majetek')
TEXT(39,101.05,TA_LEFT,'z toho na: výzkum a vývoj')
TEXT(50,106.10,TA_LEFT,'vzdělávání pracovníků')
TEXT(50,111.15,TA_LEFT,'informatiku')
TEXT(38,116.20,TA_LEFT,'individuální dotace na jmenovité akce')
TEXT(12,121.25,TA_LEFT,'Přijaté prostředky ze zahraničí na dlouhodobý majetek')
TEXT(110,121.25,TA_Right,'(z AÚ k účtu 916)')
TEXT(12,126.30,TA_LEFT,'Přijaté dotace celkem na dlouhodobý majetek z rozpočtu ÚSC')
TEXT(110,126.30,TA_Right,'(z AÚ k účtu 348)')
TEXT(12,131.35,TA_LEFT,'Přijaté příspěvky a dotace na provoz ze státního rozpočtu')
TEXT(110,131.35,TA_Right,'(z AÚ účtu 691)')
TEXT(30,136.40,TA_LEFT,'z toho: přijaté příspěvky na provoz od zřizovatele')
TEXT(110,136.40,TA_Right,'(z AÚ k účtu 691)')
TEXT(37.5,141.45,TA_LEFT,'z toho: výzkum a vývoj')
TEXT(44.5,146.5,TA_LEFT,'vzdělávání pracovníků')
TEXT(44.5,151.55,TA_LEFT,'informatiku')
XTEXT(37.5,156.60,55,TA_LEFT,'přijaté dotace na neinvest.náklady související s fin.programů v ISPROFIN od zřizovatele')
TEXT(110,156.60,TA_Right,'(z AÚ k účtu 691)')
XTEXT(37.5,161.65,55,TA_LEFT,'přijaté prostředky na výzkum a vývoj od poskytovatelů jiných než od zřizovatele')
TEXT(110,161.65,TA_Right,'(z AÚ k účtu 691)')
TEXT(12,166.70,TA_LEFT,'Přijaté prostředky na výzkum a vývoj z rozpočtu ÚSC')
TEXT(110,166.70,TA_Right,'(z AÚ k účtu 691)')
XTEXT(12,171.75,78,TA_LEFT,'Přijaté prostředky na výzkum a vývoj od příjemců účelové podpory')
TEXT(110,171.75,TA_Right,'(z AÚ k účtu 691)')
TEXT(12,176.8,TA_LEFT,'Přijaté prostředky na provoz ze zahraničí')
TEXT(110,176.8,TA_Right,'(z AÚ k účtu 691)')
XTEXT(12,181.85,78,TA_LEFT,'Přijaté příspěvky a dotace celkem na provoz z rozpočtu ÚSC')
TEXT(110,181.85,TA_Right,'(z AÚ k účtu 691)')
TEXT(12,186.90,TA_LEFT,'Přijaté příspěvky a dotace na provoz z rozpočtu státních fondů')
TEXT(110,186.90,TA_Right,'(z AÚ k účtu 691)')
TEXT(12,191.95,TA_LEFT,'Přijaté dotace celkem na dlouhodobý majetek z rozpočtu státních fondů')

TEXT(12,186.90+10.1,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu')
TEXT(110,186.90+10.1,TA_Right,'(účet 271)')
TEXT(12,191.95+10.1,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - obci')
TEXT(110,191.95+10.1,TA_Right,'(účet 271)')
TEXT(12,197.00+10.1,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - ze státního rozpočtu')
TEXT(110,197.00+10.1,TA_Right,'(účet 272)')
TEXT(12,202.05+10.1,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od krajského úřadu')
TEXT(110,202.05+10.1,TA_Right,'(účet 272)')
TEXT(12,207.10+10.1,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od obce')
TEXT(110,207.10+10.1,TA_Right,'(účet 272)')
TEXT(12,212.15+10.1,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od státních fondů')
TEXT(110,212.15+10.1,TA_Right,'(účet 272)')
TEXT(12,217.20+10.1,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od ostatních veřejných rozpočtů')
TEXT(110,217.20+10.1,TA_Right,'(účet 272)')
TEXT(12,222.25+10.1,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - organizační složkou státu')
TEXT(110,222.25+10.1,TA_Right,'(účet 273)')
TEXT(12,227.30+10.1,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - krajským úřadem')
TEXT(110,227.30+10.1,TA_Right,'(účet 273)')
TEXT(12,232.35+10.1,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - obcí')
TEXT(110,232.35+10.1,TA_Right,'(účet 273)')
TEXT(12,237.40+10.1,TA_LEFT,'Krátkodobé bankovní úvěry tuzemské')
TEXT(110,237.40+10.1,TA_Right,'(účet 281)')
TEXT(12,242.45+10.1,TA_LEFT,'Krátkodobé bankovní úvěry zahraniční')
TEXT(110,242.45+10.1,TA_Right,'(účet 281)')
TEXT(12,247.50+10.1,TA_LEFT,'Vydané krátkodobé dluhopisy v tuzemsku')
TEXT(110,247.50+10.1,TA_Right,'(účet 283)')
TEXT(12,252.55+10.1,TA_LEFT,'Vydané krátkodobé dluhopisy v zahraničí')
TEXT(110,252.55+10.1,TA_Right,'(účet 283)')


FONTSIZE(3.5)
FONTFACE(BOLD)
TEXT(118.5,90.95,TA_CENTER,'1')
TEXT(118.5,96.00,TA_CENTER,'2')
TEXT(118.5,101.05,TA_CENTER,'3')
TEXT(118.5,106.10,TA_CENTER,'4')
TEXT(118.5,111.15,TA_CENTER,'5')
TEXT(118.5,116.20,TA_CENTER,'6')
TEXT(118.5,121.25,TA_CENTER,'7')
TEXT(118.5,126.30,TA_CENTER,'8')
TEXT(118.5,131.35,TA_CENTER,'9')
TEXT(118.5,136.40,TA_CENTER,'10')
TEXT(118.5,141.45,TA_CENTER,'11')
TEXT(118.5,146.50,TA_CENTER,'12')
TEXT(118.5,151.55,TA_CENTER,'13')
TEXT(118.5,156.60,TA_CENTER,'14')
TEXT(118.5,161.65,TA_CENTER,'15')
TEXT(118.5,166.70,TA_CENTER,'16')
TEXT(118.5,171.75,TA_CENTER,'17')
TEXT(118.5,176.80,TA_CENTER,'18')
TEXT(118.5,181.85,TA_CENTER,'19')
TEXT(118.5,186.90,TA_CENTER,'50')
TEXT(118.5,191.95,TA_CENTER,'51')

TEXT(118.5,186.90+10.1,TA_CENTER,'20')
TEXT(118.5,191.95+10.1,TA_CENTER,'21')
TEXT(118.5,197.00+10.1,TA_CENTER,'22')
TEXT(118.5,202.05+10.1,TA_CENTER,'23')
TEXT(118.5,207.10+10.1,TA_CENTER,'24')
TEXT(118.5,212.15+10.1,TA_CENTER,'25')
TEXT(118.5,217.20+10.1,TA_CENTER,'26')
TEXT(118.5,222.25+10.1,TA_CENTER,'27')
TEXT(118.5,227.30+10.1,TA_CENTER,'28')
TEXT(118.5,232.35+10.1,TA_CENTER,'29')
TEXT(118.5,237.40+10.1,TA_CENTER,'30')
TEXT(118.5,242.45+10.1,TA_CENTER,'31')
TEXT(118.5,247.50+10.1,TA_CENTER,'32')
TEXT(118.5,252.55+10.1,TA_CENTER,'33')


FontFace(Bold|Italic);
FONTSIZE(3.95)
PosunX:Real=4
;TEXT(146.75+PosunX,90.95,TA_RIGHT,StrFinanc(R011,2,,TiskNul))
TEXT(141,90.95,TA_center,'x')
TEXT(178+PosunX,90.95,TA_RIGHT,StrFinanc(R012,2,,TiskNul))
;TEXT(146.75+PosunX,96.00,TA_RIGHT,StrFinanc(R021,2,,TiskNul))
TEXT(141,96.00,TA_center,'x')
TEXT(178+PosunX,96.00,TA_RIGHT,StrFinanc(R022,2,,TiskNul))
;TEXT(146.75+PosunX,101.05,TA_RIGHT,StrFinanc(R031,2,,TiskNul))
TEXT(141,101.05,TA_center,'x')
TEXT(178+PosunX,101.05,TA_RIGHT,StrFinanc(R032,2,,TiskNul))
;TEXT(146.75+PosunX,106.10,TA_RIGHT,StrFinanc(R041,2,,TiskNul))
TEXT(141,106.10,TA_center,'x')
TEXT(178+PosunX,106.10,TA_RIGHT,StrFinanc(R042,2,,TiskNul))
;TEXT(146.75+PosunX,111.15,TA_RIGHT,StrFinanc(R051,2,,TiskNul))
TEXT(141,111.15,TA_center,'x')
TEXT(178+PosunX,111.15,TA_RIGHT,StrFinanc(R052,2,,TiskNul))
;TEXT(146.75+PosunX,116.20,TA_RIGHT,StrFinanc(R061,2,,TiskNul))
TEXT(141,116.20,TA_center,'x')
TEXT(178+PosunX,116.20,TA_RIGHT,StrFinanc(R062,2,,TiskNul))
;TEXT(146.75+PosunX,121.25,TA_RIGHT,StrFinanc(R071,2,,TiskNul))
TEXT(141,121.25,TA_center,'x')
TEXT(178+PosunX,121.25,TA_RIGHT,StrFinanc(R072,2,,TiskNul))
;TEXT(146.75+PosunX,126.30,TA_RIGHT,StrFinanc(R081,2,,TiskNul))
TEXT(141,126.30,TA_center,'x')
TEXT(178+PosunX,126.30,TA_RIGHT,StrFinanc(R082,2,,TiskNul))
;TEXT(146.75+PosunX,131.35,TA_RIGHT,StrFinanc(R091,2,,TiskNul))
TEXT(141,131.35,TA_center,'x')
TEXT(178+PosunX,131.35,TA_RIGHT,StrFinanc(R092,2,,TiskNul))
;TEXT(146.75+PosunX,136.40,TA_RIGHT,StrFinanc(R101,2,,TiskNul))
TEXT(141,136.40,TA_center,'x')
TEXT(178+PosunX,136.40,TA_RIGHT,StrFinanc(R102,2,,TiskNul))
;TEXT(146.75+PosunX,141.45,TA_RIGHT,StrFinanc(R111,2,,TiskNul))
TEXT(141,141.45,TA_center,'x')
TEXT(178+PosunX,141.45,TA_RIGHT,StrFinanc(R112,2,,TiskNul))
;TEXT(146.75+PosunX,146.50,TA_RIGHT,StrFinanc(R121,2,,TiskNul))
TEXT(141,146.50,TA_center,'x')
TEXT(178+PosunX,146.50,TA_RIGHT,StrFinanc(R122,2,,TiskNul))
;TEXT(146.75+PosunX,151.55,TA_RIGHT,StrFinanc(R131,2,,TiskNul))
TEXT(141,151.55,TA_center,'x')
TEXT(178+PosunX,151.55,TA_RIGHT,StrFinanc(R132,2,,TiskNul))
;TEXT(146.75+PosunX,156.60,TA_RIGHT,StrFinanc(R141,2,,TiskNul))
TEXT(141,156.60,TA_center,'x')
TEXT(178+PosunX,156.60,TA_RIGHT,StrFinanc(R142,2,,TiskNul))
TEXT(141,161.65,TA_center,'x')
TEXT(178+PosunX,161.65,TA_RIGHT,StrFinanc(R152,2,,TiskNul))
TEXT(141,166.70,TA_center,'x')
TEXT(178+PosunX,166.70,TA_RIGHT,StrFinanc(R162,2,,TiskNul))
TEXT(141,171.75,TA_center,'x')
TEXT(178+PosunX,171.75,TA_RIGHT,StrFinanc(R172,2,,TiskNul))
TEXT(141,176.80,TA_center,'x')
TEXT(178+PosunX,176.80,TA_RIGHT,StrFinanc(R182,2,,TiskNul))
TEXT(141,181.85,TA_center,'x')
TEXT(178+PosunX,181.85,TA_RIGHT,StrFinanc(R192,2,,TiskNul))
TEXT(141,186.90,TA_center,'x')
TEXT(178+PosunX,186.90,TA_RIGHT,StrFinanc(R502,2,,TiskNul))
TEXT(141,191.95,TA_center,'x')
TEXT(178+PosunX,191.95,TA_RIGHT,StrFinanc(R502,2,,TiskNul))


TEXT(146.75+PosunX,186.90+10.1,TA_RIGHT,StrFinanc(R201,2,,TiskNul))
TEXT(178+PosunX,186.90+10.1,TA_RIGHT,StrFinanc(R202,2,,TiskNul))
TEXT(146.75+PosunX,191.95+10.1,TA_RIGHT,StrFinanc(R211,2,,TiskNul))
TEXT(178+PosunX,191.95+10.1,TA_RIGHT,StrFinanc(R212,2,,TiskNul))
TEXT(146.75+PosunX,197.00+10.1,TA_RIGHT,StrFinanc(R221,2,,TiskNul))
TEXT(178+PosunX,197.00+10.1,TA_RIGHT,StrFinanc(R222,2,,TiskNul))
TEXT(146.75+PosunX,202.05+10.1,TA_RIGHT,StrFinanc(R231,2,,TiskNul))
TEXT(178+PosunX,202.05+10.1,TA_RIGHT,StrFinanc(R232,2,,TiskNul))
TEXT(146.75+PosunX,207.10+10.1,TA_RIGHT,StrFinanc(R241,2,,TiskNul))
TEXT(178+PosunX,207.10+10.1,TA_RIGHT,StrFinanc(R242,2,,TiskNul))
TEXT(146.75+PosunX,212.15+10.1,TA_RIGHT,StrFinanc(R251,2,,TiskNul))
TEXT(178+PosunX,212.15+10.1,TA_RIGHT,StrFinanc(R252,2,,TiskNul))
TEXT(146.75+PosunX,217.20+10.1,TA_RIGHT,StrFinanc(R261,2,,TiskNul))
TEXT(178+PosunX,217.20+10.1,TA_RIGHT,StrFinanc(R262,2,,TiskNul))
TEXT(146.75+PosunX,222.25+10.1,TA_RIGHT,StrFinanc(R271,2,,TiskNul))
TEXT(178+PosunX,222.25+10.1,TA_RIGHT,StrFinanc(R272,2,,TiskNul))
TEXT(146.75+PosunX,227.30+10.1,TA_RIGHT,StrFinanc(R281,2,,TiskNul))
TEXT(178+PosunX,227.30+10.1,TA_RIGHT,StrFinanc(R282,2,,TiskNul))
TEXT(146.75+PosunX,232.35+10.1,TA_RIGHT,StrFinanc(R291,2,,TiskNul))
TEXT(178+PosunX,232.35+10.1,TA_RIGHT,StrFinanc(R292,2,,TiskNul))
TEXT(146.75+PosunX,237.40+10.1,TA_RIGHT,StrFinanc(R301,2,,TiskNul))
TEXT(178+PosunX,237.40+10.1,TA_RIGHT,StrFinanc(R302,2,,TiskNul))
TEXT(146.75+PosunX,242.45+10.1,TA_RIGHT,StrFinanc(R311,2,,TiskNul))
TEXT(178+PosunX,242.45+10.1,TA_RIGHT,StrFinanc(R312,2,,TiskNul))
TEXT(146.75+PosunX,247.50+10.1,TA_RIGHT,StrFinanc(R321,2,,TiskNul))
TEXT(178+PosunX,247.50+10.1,TA_RIGHT,StrFinanc(R322,2,,TiskNul))
TEXT(146.75+PosunX,252.55+10.1,TA_RIGHT,StrFinanc(R331,2,,TiskNul))
TEXT(178+PosunX,252.55+10.1,TA_RIGHT,StrFinanc(R332,2,,TiskNul))
;TEXT(146.75+PosunX,257.60+10.1,TA_RIGHT,StrFinanc(R341,2,,TiskNul))
;TEXT(178+PosunX,257.60+10.1,TA_RIGHT,StrFinanc(R342,2,,TiskNul))

;{-------------- 2. strana tisk ------------------------}
NextPage

PEN(0,0.7)
BOXA(9,36,188.5,141)
LINEA(9,46,188,46)

PEN(0,0.3)
LINEA(111.5,36,111.5,141)
LINEA(125.5,36,125.5,141)
LINEA(156.75,36,156.75,141)
;LINEA(90,46,90,76)
LINEA(125.5,41,188,41)

LINESA(9,51,188,51,0,5,18)
;LINESA(90,51,188,51,0,10,3)
;LINESA(9,76,188,76,0,5,4)

FONTFACE(BOLD)
FONTSIZE(3.4)

TEXT(59,38.5,TA_CENTER,'Název údaje')
TEXT(118.5,37.5,TA_CENTER,'položka')
TEXT(118.5,40.5,TA_CENTER,'číslo')
TEXT(141,37,TA_CENTER,'Stav k 1.1.')
TEXT(172.7,37,TA_CENTER,'Stav k '+ObdMaxDay(1,1))
TEXT(141,42,TA_CENTER,'1')
TEXT(172.7,42,TA_CENTER,'2')

FONTSIZE(3.0)
FONTFACE(NORMAL)
FontWidthScale(0.8)

TEXT(12,47,TA_LEFT,'Ostatní krátkodobé závazky (finanční výpomoci) tuzemské')
TEXT(110,47,TA_Right,'(účet 289)')
TEXT(12,52,TA_LEFT,'Ostatní krátkodobé závazky (finanční výpomoci) zahraniční')
TEXT(110,52,TA_Right,'(účet 289)')
TEXT(12,57,TA_LEFT,'Směnky k úhradě tuzemské')
TEXT(110,57,TA_Right,'(účet 322)')
TEXT(12,62,TA_LEFT,'Směnky k úhradě zahraniční')
TEXT(110,62,TA_Right,'(účet 322)')
TEXT(12,67,TA_LEFT,'Dlouhodobé bankovní úvěry tuzemské')
TEXT(110,67,TA_Right,'(účet 951)')
TEXT(12,72,TA_LEFT,'Dlouhodobé bankovní úvěry zahraniční')
TEXT(110,72,TA_Right,'(účet 951)')
TEXT(12,77,TA_LEFT,'Vydané dluhopisy tuzemské')
TEXT(110,77,TA_Right,'(účet 953)')
TEXT(12,82,TA_LEFT,'Vydané dluhopisy zahraniční')
TEXT(110,82,TA_Right,'(účet 953)')
TEXT(12,87,TA_LEFT,'Dlouhodobé směnky k úhradě tuzemské')
TEXT(110,87,TA_Right,'(účet 958)')
TEXT(12,92,TA_LEFT,'Dlouhodobé směnky k úhradě zahraniční')
TEXT(110,92,TA_Right,'(účet 958)')
TEXT(12,97,TA_LEFT,'Ostatní dlouhodobé závazky tuzemské')
TEXT(110,97,TA_Right,'(účet 959)')
TEXT(12,102,TA_LEFT,'Ostatní dlouhodobé závazky zahraniční')
TEXT(110,102,TA_Right,'(účet 959)')
TEXT(12,107,TA_LEFT,'Nakoupené dluhopisy a směnky k inkasu celkem')
TEXT(110,107,TA_Right,'(z AÚ účtů 063, 253 a 312)')
TEXT(19,112,TA_LEFT,'z toho: krátkodobé dluhopisy a směnky ÚSC')
TEXT(110,112,TA_Right,'(z AÚ účtů 253 a 312)')
TEXT(26,117,TA_LEFT,'komunální dluhopisy ÚSC')
TEXT(110,117,TA_Right,'(z účtu 063)')
TEXT(26,122,TA_LEFT,'ostatní dluhopisy a směnky veřejných rozpočtů')
TEXT(110,122,TA_Right,'(z AÚ účtů 063, 253 a 312)')
TEXT(12,127,TA_LEFT,'Splatné závazky pojistného na sociálním zabezpečení a příspěvku na státní politiku zaměstnanosti')
TEXT(12,132,TA_LEFT,'Splatné závazky veřejného zdravotního pojištění')
TEXT(12,137,TA_LEFT,'Evidované daňové nedoplatky u místně příslušných finančních orgánů')

FONTSIZE(3.5)
FONTFACE(BOLD)
TEXT(118.5,47,TA_CENTER,'34')
TEXT(118.5,52,TA_CENTER,'35')
TEXT(118.5,57,TA_CENTER,'36')
TEXT(118.5,62,TA_CENTER,'37')
TEXT(118.5,67,TA_CENTER,'38')
TEXT(118.5,72,TA_CENTER,'39')
TEXT(118.5,77,TA_CENTER,'40')
TEXT(118.5,82,TA_CENTER,'41')
TEXT(118.5,87,TA_CENTER,'42')
TEXT(118.5,92,TA_CENTER,'43')
TEXT(118.5,97,TA_CENTER,'44')
TEXT(118.5,102,TA_CENTER,'45')
TEXT(118.5,107,TA_CENTER,'46')
TEXT(118.5,112,TA_CENTER,'47')
TEXT(118.5,117,TA_CENTER,'48')
TEXT(118.5,122,TA_CENTER,'49')
TEXT(118.5,127,TA_CENTER,'52')
TEXT(118.5,132,TA_CENTER,'53')
TEXT(118.5,137,TA_CENTER,'54')

FontFace(Bold|Italic);
FONTSIZE(3.95)
PosunX:Real=4
TEXT(146.75+PosunX,47,TA_RIGHT,StrFinanc(R341,2,,TiskNul))
TEXT(178+PosunX,47,TA_RIGHT,StrFinanc(R342,2,,TiskNul))
TEXT(146.75+PosunX,52,TA_RIGHT,StrFinanc(R351,2,,TiskNul))
TEXT(178+PosunX,52,TA_RIGHT,StrFinanc(R352,2,,TiskNul))
TEXT(146.75+PosunX,57,TA_RIGHT,StrFinanc(R361,2,,TiskNul))
TEXT(178+PosunX,57,TA_RIGHT,StrFinanc(R362,2,,TiskNul))
TEXT(146.75+PosunX,62,TA_RIGHT,StrFinanc(R371,2,,TiskNul))
TEXT(178+PosunX,62,TA_RIGHT,StrFinanc(R372,2,,TiskNul))
TEXT(146.75+PosunX,67,TA_RIGHT,StrFinanc(R381,2,,TiskNul))
TEXT(178+PosunX,67,TA_RIGHT,StrFinanc(R382,2,,TiskNul))
TEXT(146.75+PosunX,72,TA_RIGHT,StrFinanc(R391,2,,TiskNul))
TEXT(178+PosunX,72,TA_RIGHT,StrFinanc(R392,2,,TiskNul))
TEXT(146.75+PosunX,77,TA_RIGHT,StrFinanc(R401,2,,TiskNul))
TEXT(178+PosunX,77,TA_RIGHT,StrFinanc(R402,2,,TiskNul))
TEXT(146.75+PosunX,82,TA_RIGHT,StrFinanc(R411,2,,TiskNul))
TEXT(178+PosunX,82,TA_RIGHT,StrFinanc(R412,2,,TiskNul))
TEXT(146.75+PosunX,87,TA_RIGHT,StrFinanc(R421,2,,TiskNul))
TEXT(178+PosunX,87,TA_RIGHT,StrFinanc(R422,2,,TiskNul))
TEXT(146.75+PosunX,92,TA_RIGHT,StrFinanc(R431,2,,TiskNul))
TEXT(178+PosunX,92,TA_RIGHT,StrFinanc(R432,2,,TiskNul))
TEXT(146.75+PosunX,97,TA_RIGHT,StrFinanc(R441,2,,TiskNul))
TEXT(178+PosunX,97,TA_RIGHT,StrFinanc(R442,2,,TiskNul))
TEXT(146.75+PosunX,102,TA_RIGHT,StrFinanc(R451,2,,TiskNul))
TEXT(178+PosunX,102,TA_RIGHT,StrFinanc(R452,2,,TiskNul))
TEXT(146.75+PosunX,107,TA_RIGHT,StrFinanc(R461,2,,TiskNul))
TEXT(178+PosunX,107,TA_RIGHT,StrFinanc(R462,2,,TiskNul))
TEXT(146.75+PosunX,112,TA_RIGHT,StrFinanc(R471,2,,TiskNul))
TEXT(178+PosunX,112,TA_RIGHT,StrFinanc(R472,2,,TiskNul))
TEXT(146.75+PosunX,117,TA_RIGHT,StrFinanc(R481,2,,TiskNul))
TEXT(178+PosunX,117,TA_RIGHT,StrFinanc(R482,2,,TiskNul))
TEXT(146.75+PosunX,122,TA_RIGHT,StrFinanc(R491,2,,TiskNul))
TEXT(178+PosunX,122,TA_RIGHT,StrFinanc(R492,2,,TiskNul))

TEXT(146.75+PosunX,127,TA_RIGHT,StrFinanc(R521,2,,TiskNul))
TEXT(178+PosunX,127,TA_RIGHT,StrFinanc(R522,2,,TiskNul))
TEXT(146.75+PosunX,132,TA_RIGHT,StrFinanc(R531,2,,TiskNul))
TEXT(178+PosunX,132,TA_RIGHT,StrFinanc(R532,2,,TiskNul))
TEXT(146.75+PosunX,137,TA_RIGHT,StrFinanc(R541,2,,TiskNul))
TEXT(178+PosunX,137,TA_RIGHT,StrFinanc(R542,2,,TiskNul))

FONTSIZE(3)
FONTFACE(NORMAL)
FontWidthScale(0.8)

;TEXT(9,132,TA_LEFT,'III. Organizační složky státu vykazují stavy údajů položek č. 20, 21 a 27 přílohy účetní závěrky. Ministerstva jako organizační složky státu vykazují též stavy údajů položky č. 46 až')
;TEXT(9,135,TA_LEFT,'49 přílohy účetní závěrky. Územní samosprávné celky vykazují stavy údajů položek č. 20 až 49 přílohy účetní závěrky. Příspěvkové organizace vykazují údaje položek')
;TEXT(9,138,TA_LEFT,'č. 1 až 19, 30 a 31, 34 a 35, 38 a 39 přílohy účetní závěrky.')
;TEXT(9,141,TA_LEFT,'')
;TEXT(9,144,TA_LEFT,'')


;FONTFACE(NORMAL|UNDERLINE)
;FontWidthScale(1.1)
;TEXT(9,120,TA_LEFT,'Poznámka:')
;TEXT(25,120,TA_LEFT,'Organizační složky státu')
;FONTFACE(NORMAL)
;Text(1,0,TA_Left|TA_Relative,'vykazují údaje na řádcích 15, 16 a 22');
;FONTFACE(NORMAL|UNDERLINE)
;TEXT(25,124,TA_LEFT,'Ministerstva')
;FONTFACE(NORMAL)
;Text(1,0,TA_Left|TA_Relative,'jako organizační složky státu vykazují údaje též na řádcích 41 až 44 (viz § 12 bod 7 zákona č. 219/2000 Sb.,');
;TEXT(25,128,TA_LEFT,'o majetku České republiky a jejím vystupování v právních vztazích)')
;FONTFACE(NORMAL|UNDERLINE)
;TEXT(25,132,TA_LEFT,'Územní samosprávné celky')
;FONTFACE(NORMAL)
;Text(1,0,TA_Left|TA_Relative,'vykazují údaje na řádcích 15 až 44')
;FONTFACE(NORMAL|UNDERLINE)
;TEXT(25,136,TA_LEFT,'Příspěvkové organizace')
;FONTFACE(NORMAL)
;Text(1,0,TA_Left|TA_Relative,'vykazují údaje na řádcích 1 až 14, 25 a 26, 29 a 30, 33 a 34')
;TEXT(25,140,TA_LEFT,'(viz § 62 zákona č. 218/2000 Sb., a § 34 zákona č. 250/2000 Sb.)')

PEN(0,0.3)
PosunY:Real=-114
BOXA(9,262.5+PosunY,188.5,282+PosunY)

FONTSIZE(3)
FontFace(Normal);
TEXT(22,263.75+PosunY,TA_CENTER,'Odesláno dne: ')
TEXT(80,263.75+PosunY,TA_CENTER,'Razítko: ')
TEXT(127,263.75+PosunY,TA_CENTER,'Podpis vedoucího')
TEXT(126,266.5+PosunY,TA_CENTER,'účetní jednotky:')
TEXT(165,263.75+PosunY,TA_CENTER,'Odpovídá')
TEXT(164.97,266.5+PosunY,TA_CENTER,'za údaje:')
TEXT(164.25,276.25+PosunY,TA_CENTER,'Telefon:')

;{*******************************************************************************************************************************}
;{tisk prilohy 3}
NextPage;
PocetRadku: Integer=0;
SumU: String[3]='';
SumP: Double=0;
SumC: Double=0;

Opatr1='Další údaje, které nejsou obsaženy v části 1. nebo 2. přílohy účetní závěrky,
Opatr2='které jsou podstatné pro posouzení majetkoprávní situace a které jsou rozhodující
Opatr3='pro hospodaření účetní jednotky nebo které stanoví prováděcí předpis nebo zřizovatel.'
CallDDT('HlavVyk.ddt')

FontFace(BOLD)
FontSize(3.4)

Text(16,68,TA_CENTER,'SU')
Text(30,68,TA_CENTER,'AU')
Text(42,68,TA_LEFT,'Název účtu')
Text(141,66,TA_CENTER,'Stav k 1.1.')
Text(173,66,TA_CENTER,'Stav k '+ObdMaxDay(1,1))
Text(141,71,TA_CENTER,'1')
Text(173,71,TA_CENTER,'2')


SumU = '';
SumP = 0;
SumC = 0;
if(xPU97>0)
  begin
    i=0
    while(i<xPU97)
      begin
        Inc(i)
        Inc(PocetRadku)
        if(not(CompareStr(SumU,Copy(PU97U[i],1,3))))
          begin
            if(Length(SumU)>0)
              begin
                FontFace(Bold)
                Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
                Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
                Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
                Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
                Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
                Pen(0,0.1)
                Line(9,75+(PocetRadku*4.5),180,0)
                Inc(PocetRadku)
              end
            SumU = Copy(PU97U[i],1,3);
            SumP = PU97P[i];
            SumC = PU97C[i];
          end
        else
          begin
            SumP = SumP + PU97P[i];
            SumC = SumC + PU97C[i];
          end
        FontFace(Normal)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,Copy(PU97U[i],1,3))
        Text(30,71+(PocetRadku*4.5),TA_CENTER,Copy(PU97U[i],5,3))
        Text(42,71+(PocetRadku*4.5),TA_LEFT,PU97N[i])
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU97P[i],2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU97C[i],2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end

    if(Length(SumU)>0)
      begin
        Inc(PocetRadku)
        FontFace(Bold)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
        Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
        Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end
  end

SumU = '';
SumP = 0;
SumC = 0;
if(xPU98>0)
  begin
    i=0
    while(i<xPU98)
      begin
        Inc(i)
        Inc(PocetRadku)
        if(not(CompareStr(SumU,Copy(PU98U[i],1,3))))
          begin
            if(Length(SumU)>0)
              begin
                FontFace(Bold)
                Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
                Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
                Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
                Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
                Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
                Pen(0,0.1)
                Line(9,75+(PocetRadku*4.5),180,0)
                Inc(PocetRadku)
              end
            SumU = Copy(PU98U[i],1,3);
            SumP = PU98P[i];
            SumC = PU98C[i];
          end
        else
          begin
            SumP = SumP + PU98P[i];
            SumC = SumC + PU98C[i];
          end
        FontFace(Normal)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,Copy(PU98U[i],1,3))
        Text(30,71+(PocetRadku*4.5),TA_CENTER,Copy(PU98U[i],5,3))
        Text(42,71+(PocetRadku*4.5),TA_LEFT,PU98N[i])
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU98P[i],2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU98C[i],2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end

    if(Length(SumU)>0)
      begin
        Inc(PocetRadku)
        FontFace(Bold)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
        Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
        Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end
  end

SumU = '';
SumP = 0;
SumC = 0;
if(xPU99>0)
  begin
    i=0
    while(i<xPU99)
      begin
        Inc(i)
        Inc(PocetRadku)
        if(not(CompareStr(SumU,Copy(PU99U[i],1,3))))
          begin
            if(Length(SumU)>0)
              begin
                FontFace(Bold)
                Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
                Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
                Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
                Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
                Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
                Pen(0,0.1)
                Line(9,75+(PocetRadku*4.5),180,0)
                Inc(PocetRadku)
              end
            SumU = Copy(PU99U[i],1,3);
            SumP = PU99P[i];
            SumC = PU99C[i];
          end
        else
          begin
            SumP = SumP + PU99P[i];
            SumC = SumC + PU99C[i];
          end
        FontFace(Normal)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,Copy(PU99U[i],1,3))
        Text(30,71+(PocetRadku*4.5),TA_CENTER,Copy(PU99U[i],5,3))
        Text(42,71+(PocetRadku*4.5),TA_LEFT,PU99N[i])
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU99P[i],2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(PU99C[i],2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end

    if(Length(SumU)>0)
      begin
        Inc(PocetRadku)
        FontFace(Bold)
        Text(16,71+(PocetRadku*4.5),TA_CENTER,SumU)
        Text(30,71+(PocetRadku*4.5),TA_CENTER,'')
        Text(42,71+(PocetRadku*4.5),TA_LEFT,'')
        Text(153,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumP,2,,TiskNul))
        Text(185,71+(PocetRadku*4.5),TA_RIGHT,StrFinanc(SumC,2,,TiskNul))
        Pen(0,0.1)
        Line(9,75+(PocetRadku*4.5),180,0)
      end
  end

Pen(0,0.7)
Box(9,65,180,(PocetRadku*4.5)+10)
Pen(0,0.3)
Line(9,75,180,0)
Line(125,70,64,0)
Pen(0,0.1)
Line(23,65,0,(PocetRadku*4.5)+10)
Line(37,65,0,(PocetRadku*4.5)+10)
Line(125,65,0,(PocetRadku*4.5)+10)
Line(157,65,0,(PocetRadku*4.5)+10)

end