; DDT pro prilohu prispevkovych podle Fin.zpravodaje 9-10/2001 - č.j. 283/54 991/2001
; verze z 16.8.2002
; 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í','formulář Úč OÚPO 5-02','z data 6.12.2001')


FileName('Pril'+Obdobi()+'.WNS')
DeclareRec('Program')
ZadaneObdobi:String=Obdobi(4)
ValidCisla:String='0123456789'
ValidCislo:String='0123456789.,+-'
FontWidthScale(0.75)



IF(Version()<5)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)


;{definice promennych}
;DeclareRec('Program')
; zrusit True:
;DlgFollowMouse(True)
INI:String=DataPath+'RPDisk'+ObdRok(2)+'.INI'


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

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

DefDialog('Příloha Úč OÚPO 5 - 02 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 ... (č.j. 283/76 104/2000 z listopadu 2000)',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())<=2000)
  begin
    DlgStatic(-1,'Nelze počítat za období 2000 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)
;DlgStatic(-1,'/'+Rok(),195,98,50)
DlgOnLineHelp(101,'Období (MMRR), pro které chceš počítat přílohu. Např. za 1.pololetí 2001 to je 0601')

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

;DlgButton(id_Help,'Help',33,334);
;DlgOnLineHelp(id_Help,'Help')
;DlgSetHelp(help_Context,1040)


IF(DlgExecute()<>ID_OK)
  Halt

IF(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


;{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))


  vypocet:
  ;{definice hlavniho dialogu}
  DefDialog('Příloha Úč OÚPO 5-02 pro příspěvkové organizace za období '+ObdMesic(2)+'/'+ObdRok(4),620,450)

  ;{vykreslení uvodu}
  DlgShade(-1,'',4,4,610,420)
  DlgCover(199,4,8,8,604,370,FALSE,AktualCover)



  ;{============================== 1.cover ================================}

  ;{vykresleni 1.coveru}
  SetCover(1,'&1. část')
  DlgStatic(-1,'(v tis. Kč na dvě desetinná místa)',6,3,220)
  DlgDivider(4,21,221,0)
;  DlgStatic(-1,'Přijato',380,8,46)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),455,8,125)

  DlgStatic(-1,'Dotace celkem na dl. majetek ze SR',6,30,260)
;  DlgEdit(201,R011,276,28,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(201,'č.ř. 1, sl.1 = Dotace celkem na dlouhodobý majetek ze státního rozpočtu - Přijato')
  DlgEdit(202,R012,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(202,'č.ř. 1, sl.2 = Dotace celkem na dlouhodobý majetek ze státního rozpočtu'+#13+' - (z AE k účtu 346) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: systémové dotace na DM',16,54,220)
;  DlgEdit(203,R021,276,52,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(203,'č.ř. 2, sl.1 = z toho: systémové dotace na dlouhodobý majetek - Přijato')
  DlgEdit(204,R022,440,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(204,'č.ř. 2, sl.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,78,180)
;  DlgEdit(205,R031,276,76,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(205,'č.ř. 3, sl.1 = z toho: na vědu a výzkum - Přijato')
  DlgEdit(206,R032,440,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(206,'č.ř. 3, sl.2 = z toho: na vědu a výzkum'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na vzdělávání pracovníků',74,102,170)
;  DlgEdit(207,R041,276,100,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(207,'č.ř. 4, sl.1 = na vzdělávání pracovníků - Přijato')
  DlgEdit(208,R042,440,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(208,'č.ř. 4, sl.2 = na vzdělávání pracovníků'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na informatiku',74,126,100)
;  DlgEdit(209,R051,276,124,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(209,'č.ř. 5, sl.1 = na informatiku - Přijato')
  DlgEdit(210,R052,440,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(210,'č.ř. 5, sl.2 = na informatiku'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'individuální dotace na jmenovité akce',26,150,270)
;  DlgEdit(211,R061,276,148,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(211,'č.ř. 6, sl.1 = individuální dotace na jmenovité akce - Přijato')
  DlgEdit(212,R062,440,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(212,'č.ř. 6, sl.2 = individuální dotace na jmenovité akce'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky ze zahraničí na dlouhodobý majetek',6,174,400)
;  DlgEdit(213,R071,276,172,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(213,'č.ř. 7, sl.1 = Přijaté prostředky ze zahraničí na dlouhodobý majetek - Přijato')
  DlgEdit(214,R072,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(214,'č.ř. 7, sl.2 = Přijaté prostředky ze zahraničí na dlouhodobý majetek'+#13+' - (z AE k účtu 916) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté dotace celkem na dlouhod. majetek z rozpočtu ÚSC',6,198,400)
;  DlgEdit(215,R081,276,196,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(215,'č.ř. 8, sl.1 = Dotace celkem na dlouhodobý majetek z rozpočtu územních samosprávných celků - Přijato')
  DlgEdit(216,R082,440,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(216,'č.ř. 8, sl.2 = Přijaté dotace celkem na dlouhodobý majetek z rozpočtu územních samosprávných celků'+#13+' - (z AE k účtu 348) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté dotace na provoz celkem ze státního rozpočtu',6,222,380)
;  DlgEdit(217,R091,276,28,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(217,'č.ř. 9, sl.1 = Dotace na provoz celkem ze státního rozpočtu - Přijato')
  DlgEdit(218,R092,440,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(218,'č.ř. 9, sl.2 = Přijaté dotace na provoz celkem ze státního rozpočtu'+#13+' - (z účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: na vědu a výzkum',26,246,180)
;  DlgEdit(219,R101,276,52,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(219,'č.ř. 10, sl.1 = z toho: na vědu a výzkum - Přijato')
  DlgEdit(220,R102,440,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(220,'č.ř. 10, sl.2 = z toho: na vědu a výzkum'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na vzdělávání pracovníků',74,270,170)
;  DlgEdit(221,R111,276,76,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(221,'č.ř. 11, sl.1 = na vzdělávání pracovníků - Přijato')
  DlgEdit(222,R112,440,268,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(222,'č.ř. 11, sl.2 = na vzdělávání pracovníků'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'na informatiku',74,294,100)
;  DlgEdit(223,R121,276,100,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(223,'č.ř. 12, sl.1 = na informatiku - Přijato')
  DlgEdit(224,R122,440,292,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(224,'č.ř. 12, sl.2 = na informatiku'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté dotace na provoz celkem z rozpočtu ÚSC',6,318,380)
;  DlgEdit(225,R131,276,124,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(225,'č.ř. 13, sl.1 = Dotace na provoz celkem z rozpočtu územních samosprávných celků - Přijato')
  DlgEdit(226,R132,440,316,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(226,'č.ř. 13, sl.2 = Přijaté dotace na provoz celkem z rozpočtu územních samosprávných celků'+#13+' - (z účtu 691) - Stav k '+ObdMaxDay(0,1))


  ;{============================== 2.cover ================================}

  ;{vykresleni 2.coveru}
  SetCover(2,'&2. část')
  DlgStatic(-1,'(v tis. Kč na dvě desetinná místa)',6,3,220)
  DlgDivider(4,21,221,0)
  DlgStatic(-1,'Stav k 1.1.',350,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),455,8,125)


   DlgStatic(-1,'Přijaté prostředky na provoz ze zahraničí',6,30,270)
;  DlgEdit(301,R141,276,28,150,,15,ES_RIGHT,ValidCislo)
;  DlgOnLineHelp(301,'č.ř. 14, sl.1 = Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu (účet 271) - Stav k 1.1.')
  DlgEdit(302,R142,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(302,'č.ř. 14, sl.2 = Přijaté prostředky na provoz ze zahraničí'+#13+' - (z AE k účtu 691) - Stav k '+ObdMaxDay(0,1))


  DlgStatic(-1,'Poskyt. návratné fin. výpomoci... - KÚ',6,54,370)
  DlgEdit(303,R151,276,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(303,'č.ř. 15, sl.1 = Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu'+#13+' - (účet 271) - Stav k 1.1.')
  DlgEdit(304,R152,440,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(304,'č.ř. 15, sl.2 = Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu'+#13+' - (účet 271) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. návratné fin. výpomoci... - obci',6,78,370)
  DlgEdit(305,R161,276,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(305,'č.ř. 16, sl.1 = Poskytnuté návratné finanční výpomoci mezi rozpočty - obci'+#13+' - (účet 271) - Stav k 1.1.')
  DlgEdit(306,R162,440,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(306,'č.ř. 16, sl.2 = Poskytnuté návratné finanční výpomoci mezi rozpočty - obci'+#13+' - (účet 271) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin. výpomoci... - ze SR',6,102,370)
  DlgEdit(307,R171,276,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(307,'č.ř. 17, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty - ze státního rozpočtu'+#13+' - (účet 272) - Stav k 1.1.')
  DlgEdit(308,R172,440,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(308,'č.ř. 17, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty - ze státního rozpočtu'+#13+' - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin. výpomoci... - od KÚ',6,126,370)
  DlgEdit(309,R181,276,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(309,'č.ř. 18, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty - od krajského úřadu'+#13+' - (účet 272) - Stav k 1.1.')
  DlgEdit(310,R182,440,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(310,'č.ř. 18, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty - od krajského úřadu'+#13+' - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin. výpomoci... - od obce',6,150,370)
  DlgEdit(311,R191,276,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(311,'č.ř. 19, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty - od obce'+#13+' - (účet 272) - Stav k 1.1.')
  DlgEdit(312,R192,440,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(312,'č.ř. 19, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty - od obce'+#13+' - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin. výpomoci... - od SF',6,174,370)
  DlgEdit(313,R201,276,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(313,'č.ř. 20, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty - od státních fondů'+#13+' - (účet 272) - Stav k 1.1.')
  DlgEdit(314,R202,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(314,'č.ř. 20, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty - od státních fondů'+#13+' - (účet 272) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté návratné fin. výpomoci... - od OVR',6,198,370)
  DlgEdit(315,R211,276,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(315,'č.ř. 21, sl.1 = Přijaté návratné finanční výpomoci mezi rozpočty - od ostatních veřejných rozpočtů'+#13+' - (účet 272) - Stav k 1.1.')
  DlgEdit(316,R212,440,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(316,'č.ř. 21, sl.2 = Přijaté návratné finanční výpomoci mezi rozpočty - od ostatních veřejných rozpočtů'+#13+' - (účet 272) - Stav '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přechodné výpomoci... - OSS',6,222,370)
  DlgEdit(317,R221,276,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(317,'č.ř. 22, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - organizační složkou státu'+#13+' - (účet 273) - Stav k 1.1.')
  DlgEdit(318,R222,440,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(318,'č.ř. 22, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - organizační složkou státu'+#13+' - (účet 273) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přechodné výpomoci... - KÚ',6,246,370)
  DlgEdit(319,R231,276,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(319,'č.ř. 23, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - krajským úřadem'+#13+' - (účet 273) - Stav k 1.1.')
  DlgEdit(320,R232,440,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(320,'č.ř. 23, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - krajským úřadem'+#13+' - (účet 273) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Poskyt. přechodné výpomoci... - obcí',6,270,370)
  DlgEdit(321,R241,276,268,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(321,'č.ř. 24, sl.1 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - obcí'+#13+' - (účet 273) - Stav k 1.1.')
  DlgEdit(322,R242,440,268,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(322,'č.ř. 24, sl.2 = Poskytnuté přechodné výpomoci příspěvkovým organizacím - obcí'+#13+' - (účet 273) - Stav k '+ObdMaxDay(0,1))


  ;{============================== 3.cover ================================}

  ;{vykresleni 3.coveru}
  SetCover(3,'&3. část')
  DlgStatic(-1,'(v tis. Kč na dvě desetinná místa)',6,3,220)
  DlgDivider(4,21,221,0)
  DlgStatic(-1,'Stav k 1.1.',350,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),455,8,125)

  DlgStatic(-1,'Krátkodobé bankovní úvěry',6,30,270)
  DlgStatic(-1,'- tuzemské',187,30,100)
  DlgEdit(401,R251,276,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(401,'č.ř. 25, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(402,R252,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(402,'č.ř. 25, sl.2 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,54,80)
  DlgEdit(403,R261,276,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(403,'č.ř. 26, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(404,R262,440,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(404,'č.ř. 26, sl.2 = Krátkodobé bankovní úvěry'+#13+' - (účet 281) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Emit. krátkodobé dluhopisy',6,78,270)
  DlgStatic(-1,'- tuzemské',187,78,100)
  DlgEdit(405,R271,276,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(405,'č.ř. 27, sl.1 = Emitované krátkodobé dluhopisy'+#13+' - (účet 283) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(406,R272,440,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(406,'č.ř. 27, sl.2 = Emitované krátkodobé dluhopisy'+#13+' - (účet 283) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,102,80)
  DlgEdit(407,R281,276,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(407,'č.ř. 28, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 283) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(408,R282,440,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(408,'č.ř. 28, sl.2 = Krátkodobé bankovní úvěry'+#13+' - (účet 283) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Ostat. krátkod. fin. výpomoci',6,126,300)
  DlgStatic(-1,'- tuzemské',187,126,100)
  DlgEdit(409,R291,276,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(409,'č.ř. 29, sl.1 = Ostatní krátkodobé finanční výpomoci'+#13+' - (účet 289) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(410,R292,440,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(410,'č.ř. 29, sl.2 = Ostatní krátkodobé finanční výpomoci'+#13+' - (účet 289) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,150,80)
  DlgEdit(411,R301,276,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(411,'č.ř. 30, sl.1 = Ostatní krátkodobé finanční výpomoci'+#13+' - (účet 289) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(412,R302,440,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(412,'č.ř. 30, sl.2 = Ostatní krátkodobé finanční výpomoci'+#13+' - (účet 289) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Směnky k úhradě',6,174,170)
  DlgStatic(-1,'- tuzemské',187,174,100)
  DlgEdit(413,R311,276,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(413,'č.ř. 31, sl.1 = Směnky k úhradě'+#13+' - (účet 322) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(414,R312,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(414,'č.ř. 31, sl.2 = Směnky k úhradě'+#13+' - (účet 322) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,198,80)
  DlgEdit(415,R321,276,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(415,'č.ř. 32, sl.1 = Směnky k úhradě'+#13+' - (účet 322) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(416,R322,440,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(416,'č.ř. 32, sl.2 = Směnky k úhradě'+#13+' - (účet 322) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Dlouhod.bank.úvěry',6,222,170)
  DlgStatic(-1,'- tuzemské',187,222,100)
  DlgEdit(417,R331,276,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(417,'č.ř. 33, sl.1 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(418,R332,440,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(418,'č.ř. 33, sl.2 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,246,80)
  DlgEdit(419,R341,276,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(419,'č.ř. 34, sl.1 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(420,R342,440,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(420,'č.ř. 34, sl.2 = Dlouhodobé bankovní úvěry'+#13+' - (účet 951) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))


  ;{============================== 4.cover ================================}

  ;{vykresleni 4.coveru}
  SetCover(4,'&4. část')
  DlgStatic(-1,'(v tis. Kč na dvě desetinná místa)',6,3,220)
  DlgDivider(4,21,221,0)
  DlgStatic(-1,'Stav k 1.1.',350,8,76)
  DlgStatic(-1,'Stav k '+ObdMaxDay(0,1),455,8,125)

  DlgStatic(-1,'Emitované dluhopisy',6,30,270)
  DlgStatic(-1,'- tuzemské',187,30,100)
  DlgEdit(501,R351,276,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(501,'č.ř. 35, sl.1 = Emitované dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(502,R352,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(502,'č.ř. 35, sl.2 = Emitované dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,54,80)
  DlgEdit(503,R361,276,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(503,'č.ř. 36, sl.1 = Emitované dluhopisy'+#13+' - (účet 953) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(504,R362,440,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(504,'č.ř. 36, sl.2 = Emitované dluhopisy'+#13+' - (účet 953) - zahraniční'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Dlouhod.směnky k úhradě',6,78,270)
  DlgStatic(-1,'- tuzemské',187,78,100)
  DlgEdit(505,R371,276,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(505,'č.ř. 37, sl.1 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(506,R372,440,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(506,'č.ř. 37, sl.2 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,102,80)
  DlgEdit(507,R381,276,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(507,'č.ř. 38, sl.1 = Dlouhodobé směnky k úhradě'+#13+' - (účet 958) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(508,R382,440,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(508,'č.ř. 38, 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,126,270)
  DlgStatic(-1,'- tuzemské',187,126,100)
  DlgEdit(509,R391,276,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(509,'č.ř. 39, sl.1 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(510,R392,440,124,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(510,'č.ř. 39, sl.2 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,150,80)
  DlgEdit(511,R401,276,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(511,'č.ř. 40, sl.1 = Ostatní dlouhodobé závazky'+#13+' - (účet 959) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(512,R402,440,148,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(512,'č.ř. 40, 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,174,370)
  DlgEdit(513,R411,276,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(513,'č.ř. 41, sl.1 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z účtu 063, 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(514,R412,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(514,'č.ř. 41, sl.2 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z účtu 063, 253 a 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'z toho: krátk.dluhopisy a směnky ÚSC',26,198,280)
  DlgEdit(515,R421,276,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(515,'č.ř. 42, sl.1 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z účtu 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(516,R422,440,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(516,'č.ř. 42, sl.2 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z účtu 253 a 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'komunální dluhopisy ÚSC',74,222,220)
  DlgEdit(517,R431,276,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(517,'č.ř. 43, sl.1 = komunální dluhopisy ÚSC'+#13+' - (z účtu 063)'+#13+' - Stav k 1.1.')
  DlgEdit(518,R432,440,220,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(518,'č.ř. 43, 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,246,220)
  DlgEdit(519,R441,276,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(519,'č.ř. 44, sl.1 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z účtu 063, 253, 312)'+#13+' - Stav k 1.1.')
  DlgEdit(520,R442,440,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(520,'č.ř. 44, sl.2 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z účtu 063, 253, 312)'+#13+' - Stav k '+ObdMaxDay(0,1))



  ;{zpet na obecny cover:}
  SetCover(0)

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

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

  DlgButton(id_Help,'Help',10,380);
  DlgOnLineHelp(id_Help,'Help')
  DlgSetHelp(Help_ContextPopUp,525)

  ;{zpracovani dialogu (read):}
  ;{===========================================================================}

  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)

    ; :id_Abort=Integer,3
    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:


  ;{ulozeni hodnot 1. coveru}

  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)


;{------------------- tisk ---------------------}
FONTFACE(Normal);

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

PEN(0,0.4)
BOXA(88,52.5,114.5,63.5)
LINEA(88,58.25,114.25,58.25)

PEN(0,0.1)
BOXA(166,26,188.5,33)

PEN(0,0.3)
LINEA(111.5,77,111.5,261.65)
LINEA(125.5,77,125.5,261.65)
LINEA(156.75,77,156.75,261.65)
LINEA(90,211.15,90,261.65)
LINEA(125.5,85,188,85)

LINESA(9,95,188,95,0,5.05,24)
LINESA(90,216.2,188,216.2,0,10.1,5)
LINESA(9,221.25,188,221.25,0,10.1,4)

FONTSIZE(2.5)
TEXT(9,25.5,TA_LEFT,'Ministerstvo financí')
TEXT(9,28,TA_LEFT,'schváleno')
TEXT(9,30.5,TA_LEFT,'č.j. 283/76 104/2000')
TEXT(9,33,TA_LEFT,'s účinností pro')
TEXT(9,35.5,TA_LEFT,'organizační složky státu,')
TEXT(9,38,TA_LEFT,'státní fondy,')
TEXT(9,40.5,TA_LEFT,'územní samosprávné celky')
TEXT(9,43,TA_LEFT,'a příspěvkové organizace')
TEXT(9,48,TA_LEFT,'Účetní jednotka doručí výkaz')
TEXT(9,51.5,TA_LEFT,'podle pokynů MF')

FONTSIZE(3.85)
FONTFACE(NORMAL)
TEXT(101,42,TA_CENTER|TA_BASELINE,'(v tis. Kč na dvě desetinná místa)')
TEXT(101,53.75,TA_CENTER,'IČO')

FONTSIZE(5)
FONTFACE(BOLD)
TEXT(101,25.25,TA_CENTER|TA_BASELINE,'PŘÍLOHA organizačních složek státu,')
TEXT(101,31,TA_CENTER|TA_BASELINE,'územních samosprávných celků')
TEXT(101,36.25,TA_CENTER|TA_BASELINE,'a příspěvkových organizací')

TEXT(101,48.5,TA_CENTER|TA_BASELINE,'sestavená k '+ObdMaxDay(1,1))

FONTSIZE(3.75)
FONTFACE(NORMAL)
TEXT(9,67.5,TA_LEFT,'1. Účetní jednotka uvede (v dodatku k této příloze) údaje, které vyplývají z ustanovení části třetí zákona o účetnictví;')
TEXT(9,71,TA_LEFT,'2. Doplňující údaje: ')

FONTSIZE(4)
FONTFACE(BOLD)
TEXT(101,58.85,TA_CENTER,GetDataIni('Info','ICO'))

FONTSIZE(3.25)
TEXT(177.35,28.05,TA_CENTER,'Úč OÚPO 5 - 02')

FONTSIZE(3.4)
TEXT(59,82,TA_CENTER,'Název údaje')
TEXT(118.5,82,TA_CENTER,'č.ř.')
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 AE 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ědu a výzkum')
TEXT(48,106.10,TA_LEFT,'na vzdělání pracovníků')
TEXT(48,111.15,TA_LEFT,'na informatiku')
TEXT(48,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 AE k účtu 916)')
TEXT(12,126.30,TA_LEFT,'Přijaté dotace celkem na dlouhod. majetek z rozpočtu ÚSC')
TEXT(110,126.30,TA_Right,'(z AE k účtu 348)')
TEXT(12,131.35,TA_LEFT,'Přijaté dotace na provoz celkem ze státního rozpočtu')
TEXT(110,131.35,TA_Right,'(z účtu 691)')
TEXT(39,136.40,TA_LEFT,'z toho: na vědu a výzkum')
TEXT(48,141.45,TA_LEFT,'na vzdělávání pracovníků')
TEXT(48,146.50,TA_LEFT,'na informatiku')
TEXT(12,151.55,TA_LEFT,'Přijaté dotace na provoz celkem z rozpočtu ÚSC')
TEXT(110,151.55,TA_Right,'(z účtu 691)')
TEXT(12,156.60,TA_LEFT,'Přijaté prostředky na provoz ze zahraničí')
TEXT(110,156.60,TA_Right,'(z AE k účtu 691)')
TEXT(12,161.65,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu')
TEXT(110,161.65,TA_Right,'(účet 271)')
TEXT(12,166.70,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - obci')
TEXT(110,166.70,TA_Right,'(účet 271)')
TEXT(12,171.75,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - ze státního rozpočtu')
TEXT(110,171.75,TA_Right,'(účet 272)')
TEXT(12,176.80,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od krajského úřadu')
TEXT(110,176.80,TA_Right,'(účet 272)')
TEXT(12,181.85,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od obce')
TEXT(110,181.85,TA_Right,'(účet 272)')
TEXT(12,186.90,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od státních fondů')
TEXT(110,186.90,TA_Right,'(účet 272)')
TEXT(12,191.95,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od ostatních veřejných rozpočtů')
TEXT(110,191.95,TA_Right,'(účet 272)')
TEXT(12,197.00,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - organizační složkou státu')
TEXT(110,197.95,TA_Right,'(účet 273)')
TEXT(12,202.05,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - krajským úřadem')
TEXT(110,202.05,TA_Right,'(účet 273)')
TEXT(12,207.10,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - obcí')
TEXT(110,207.10,TA_Right,'(účet 273)')
TEXT(12,212.15,TA_LEFT,'Krátkodobé bankovní úvěry')
TEXT(88,212.15,TA_Right,'(účet 281)')
TEXT(92,212.15,TA_Left,'tuzemské')
TEXT(92,217.20,TA_Left,'zahraniční')
TEXT(12,222.25,TA_LEFT,'Emitované krátkodobé dluhopisy')
TEXT(88,222.25,TA_Right,'(účet 283)')
TEXT(92,222.25,TA_Left,'tuzemské')
TEXT(92,227.30,TA_Left,'zahraniční')
TEXT(12,232.35,TA_LEFT,'Ostatní krátkodobé finanční výpomoci')
TEXT(88,232.35,TA_Right,'(účet 289)')
TEXT(92,232.35,TA_Left,'tuzemské')
TEXT(92,237.40,TA_Left,'zahraniční')
TEXT(12,242.45,TA_LEFT,'Směnky k úhradě')
TEXT(88,242.45,TA_Right,'(účet 322)')
TEXT(92,242.45,TA_Left,'tuzemské')
TEXT(92,247.50,TA_Left,'zahraniční')
TEXT(12,252.55,TA_LEFT,'Dlouhodobé bankovní úvěry')
TEXT(88,252.55,TA_Right,'(účet 951)')
TEXT(92,252.55,TA_Left,'tuzemské')
TEXT(92,257.60,TA_Left,'zahraniční')


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,'20')
TEXT(118.5,191.95,TA_CENTER,'21')
TEXT(118.5,197.00,TA_CENTER,'22')
TEXT(118.5,202.05,TA_CENTER,'23')
TEXT(118.5,207.10,TA_CENTER,'24')
TEXT(118.5,212.15,TA_CENTER,'25')
TEXT(118.5,217.20,TA_CENTER,'26')
TEXT(118.5,222.25,TA_CENTER,'27')
TEXT(118.5,227.30,TA_CENTER,'28')
TEXT(118.5,232.35,TA_CENTER,'29')
TEXT(118.5,237.40,TA_CENTER,'30')
TEXT(118.5,242.45,TA_CENTER,'31')
TEXT(118.5,247.50,TA_CENTER,'32')
TEXT(118.5,252.55,TA_CENTER,'33')
TEXT(118.5,257.60,TA_CENTER,'34')


FontFace(Bold|Italic);
FONTSIZE(3.95)
PosunX:Real=4
;TEXT(146.75+PosunX,90.95,TA_RIGHT,StrFinanc(R011,2))
TEXT(141,90.95,TA_center,'x')
TEXT(178+PosunX,90.95,TA_RIGHT,StrFinanc(R012,2))
;TEXT(146.75+PosunX,96.00,TA_RIGHT,StrFinanc(R021,2))
TEXT(141,96.00,TA_center,'x')
TEXT(178+PosunX,96.00,TA_RIGHT,StrFinanc(R022,2))
;TEXT(146.75+PosunX,101.05,TA_RIGHT,StrFinanc(R031,2))
TEXT(141,101.05,TA_center,'x')
TEXT(178+PosunX,101.05,TA_RIGHT,StrFinanc(R032,2))
;TEXT(146.75+PosunX,106.10,TA_RIGHT,StrFinanc(R041,2))
TEXT(141,106.10,TA_center,'x')
TEXT(178+PosunX,106.10,TA_RIGHT,StrFinanc(R042,2))
;TEXT(146.75+PosunX,111.15,TA_RIGHT,StrFinanc(R051,2))
TEXT(141,111.15,TA_center,'x')
TEXT(178+PosunX,111.15,TA_RIGHT,StrFinanc(R052,2))
;TEXT(146.75+PosunX,116.20,TA_RIGHT,StrFinanc(R061,2))
TEXT(141,116.20,TA_center,'x')
TEXT(178+PosunX,116.20,TA_RIGHT,StrFinanc(R062,2))
;TEXT(146.75+PosunX,121.25,TA_RIGHT,StrFinanc(R071,2))
TEXT(141,121.25,TA_center,'x')
TEXT(178+PosunX,121.25,TA_RIGHT,StrFinanc(R072,2))
;TEXT(146.75+PosunX,126.30,TA_RIGHT,StrFinanc(R081,2))
TEXT(141,126.30,TA_center,'x')
TEXT(178+PosunX,126.30,TA_RIGHT,StrFinanc(R082,2))
;TEXT(146.75+PosunX,131.35,TA_RIGHT,StrFinanc(R091,2))
TEXT(141,131.35,TA_center,'x')
TEXT(178+PosunX,131.35,TA_RIGHT,StrFinanc(R092,2))
;TEXT(146.75+PosunX,136.40,TA_RIGHT,StrFinanc(R101,2))
TEXT(141,136.40,TA_center,'x')
TEXT(178+PosunX,136.40,TA_RIGHT,StrFinanc(R102,2))
;TEXT(146.75+PosunX,141.45,TA_RIGHT,StrFinanc(R111,2))
TEXT(141,141.45,TA_center,'x')
TEXT(178+PosunX,141.45,TA_RIGHT,StrFinanc(R112,2))
;TEXT(146.75+PosunX,146.50,TA_RIGHT,StrFinanc(R121,2))
TEXT(141,146.50,TA_center,'x')
TEXT(178+PosunX,146.50,TA_RIGHT,StrFinanc(R122,2))
;TEXT(146.75+PosunX,151.55,TA_RIGHT,StrFinanc(R131,2))
TEXT(141,151.55,TA_center,'x')
TEXT(178+PosunX,151.55,TA_RIGHT,StrFinanc(R132,2))
;TEXT(146.75+PosunX,156.60,TA_RIGHT,StrFinanc(R141,2))
TEXT(141,156.60,TA_center,'x')
TEXT(178+PosunX,156.60,TA_RIGHT,StrFinanc(R142,2))
TEXT(146.75+PosunX,161.65,TA_RIGHT,StrFinanc(R151,2))
TEXT(178+PosunX,161.65,TA_RIGHT,StrFinanc(R152,2))
TEXT(146.75+PosunX,166.70,TA_RIGHT,StrFinanc(R161,2))
TEXT(178+PosunX,166.70,TA_RIGHT,StrFinanc(R162,2))
TEXT(146.75+PosunX,171.75,TA_RIGHT,StrFinanc(R171,2))
TEXT(178+PosunX,171.75,TA_RIGHT,StrFinanc(R172,2))
TEXT(146.75+PosunX,176.80,TA_RIGHT,StrFinanc(R181,2))
TEXT(178+PosunX,176.80,TA_RIGHT,StrFinanc(R182,2))
TEXT(146.75+PosunX,181.85,TA_RIGHT,StrFinanc(R191,2))
TEXT(178+PosunX,181.85,TA_RIGHT,StrFinanc(R192,2))
TEXT(146.75+PosunX,186.90,TA_RIGHT,StrFinanc(R201,2))
TEXT(178+PosunX,186.90,TA_RIGHT,StrFinanc(R202,2))
TEXT(146.75+PosunX,191.95,TA_RIGHT,StrFinanc(R211,2))
TEXT(178+PosunX,191.95,TA_RIGHT,StrFinanc(R212,2))
TEXT(146.75+PosunX,197.00,TA_RIGHT,StrFinanc(R221,2))
TEXT(178+PosunX,197.00,TA_RIGHT,StrFinanc(R222,2))
TEXT(146.75+PosunX,202.05,TA_RIGHT,StrFinanc(R231,2))
TEXT(178+PosunX,202.05,TA_RIGHT,StrFinanc(R232,2))
TEXT(146.75+PosunX,207.10,TA_RIGHT,StrFinanc(R241,2))
TEXT(178+PosunX,207.10,TA_RIGHT,StrFinanc(R242,2))
TEXT(146.75+PosunX,212.15,TA_RIGHT,StrFinanc(R251,2))
TEXT(178+PosunX,212.15,TA_RIGHT,StrFinanc(R252,2))
TEXT(146.75+PosunX,217.20,TA_RIGHT,StrFinanc(R261,2))
TEXT(178+PosunX,217.20,TA_RIGHT,StrFinanc(R262,2))
TEXT(146.75+PosunX,222.25,TA_RIGHT,StrFinanc(R271,2))
TEXT(178+PosunX,222.25,TA_RIGHT,StrFinanc(R272,2))
TEXT(146.75+PosunX,227.30,TA_RIGHT,StrFinanc(R281,2))
TEXT(178+PosunX,227.30,TA_RIGHT,StrFinanc(R282,2))
TEXT(146.75+PosunX,232.35,TA_RIGHT,StrFinanc(R291,2))
TEXT(178+PosunX,232.35,TA_RIGHT,StrFinanc(R292,2))
TEXT(146.75+PosunX,237.40,TA_RIGHT,StrFinanc(R301,2))
TEXT(178+PosunX,237.40,TA_RIGHT,StrFinanc(R302,2))
TEXT(146.75+PosunX,242.45,TA_RIGHT,StrFinanc(R311,2))
TEXT(178+PosunX,242.45,TA_RIGHT,StrFinanc(R312,2))
TEXT(146.75+PosunX,247.50,TA_RIGHT,StrFinanc(R321,2))
TEXT(178+PosunX,247.50,TA_RIGHT,StrFinanc(R322,2))
TEXT(146.75+PosunX,252.55,TA_RIGHT,StrFinanc(R331,2))
TEXT(178+PosunX,252.55,TA_RIGHT,StrFinanc(R332,2))
TEXT(146.75+PosunX,257.60,TA_RIGHT,StrFinanc(R341,2))
TEXT(178+PosunX,257.60,TA_RIGHT,StrFinanc(R342,2))


FONTSIZE(2.75)
FONTFACE(NORMAL);
PosunY:Real=20
TEXT(148,14+PosunY,TA_LEFT,'Název nadřízeného orgánu')
TEXT(148,19+PosunY,TA_LEFT,'...........................................................')
TEXT(148,24+PosunY,TA_LEFT,'...........................................................')
TEXT(148,29+PosunY,TA_LEFT,'...........................................................')
TEXT(148,34+PosunY,TA_LEFT,'Název a sídlo účetní jednotky')
TEXT(148,39+PosunY,TA_LEFT,'...........................................................')
TEXT(148,44+PosunY,TA_LEFT,'...........................................................')

FONTSIZE(3)
FontFace(Bold|Italic);
TEXT(186,18+PosunY,TA_RIGHT,GetDataIni('Info','NadrizenyOrgan[1]'))
TEXT(186,23+PosunY,TA_RIGHT,GetDataIni('Info','NadrizenyOrgan[2]'))
TEXT(186,28+PosunY,TA_RIGHT,GetDataIni('Info','NadrizenyOrgan[3]'))

TEXT(186,37+PosunY,TA_RIGHT,Program.FIRMA)
if(Length(Program.ROZSIRENI)<>0)
  begin
    TEXT(186,42+PosunY,TA_RIGHT,Program.ROZSIRENI)
    TEXT(186,47+PosunY,TA_RIGHT,Program.ULICE+' '+Program.MESTO)
  end else
  begin
    TEXT(186,42+PosunY,TA_RIGHT,Program.ULICE+' '+Program.MESTO)
  end



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

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

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

LINESA(9,56,188,56,0,10,2)
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,38.5,TA_CENTER,'č.ř.')
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,'Emitované dluhopisy')
TEXT(88,47,TA_Right,'(účet 953)')
TEXT(92,47,TA_Left,'tuzemské')
TEXT(92,52,TA_Left,'zahraniční')
TEXT(12,57,TA_LEFT,'Dlouhodobé směnky k úhradě')
TEXT(88,57,TA_Right,'(účet 958)')
TEXT(92,57,TA_Left,'tuzemské')
TEXT(92,62,TA_Left,'zahraniční')
TEXT(12,67,TA_LEFT,'Ostatní dlouhodobé závazky')
TEXT(88,67,TA_Right,'(účet 959)')
TEXT(92,67,TA_Left,'tuzemské')
TEXT(92,72,TA_Left,'zahraniční')
TEXT(12,77,TA_LEFT,'Nakoupené dluhopisy a směnky k inkasu celkem')
TEXT(110,77,TA_Right,'(z účtů 063, 253 a 312)')
TEXT(19,82,TA_LEFT,'z toho: krátkodobé dluhopisy a směnky ÚSC')
TEXT(110,82,TA_Right,'(z účtů 253 a 312)')
TEXT(25,87,TA_LEFT,'komunální dluhopisy ÚSC')
TEXT(110,87,TA_Right,'(z účtu 063)')
TEXT(25,92,TA_LEFT,'ostatní dluhopisy a směnky veřejných rozpočtů')
TEXT(110,92,TA_Right,'(z účtů 063, 253 a 312)')


FONTSIZE(3.5)
FONTFACE(BOLD)
TEXT(118.5,47,TA_CENTER,'35')
TEXT(118.5,52,TA_CENTER,'36')
TEXT(118.5,57,TA_CENTER,'37')
TEXT(118.5,62,TA_CENTER,'38')
TEXT(118.5,67,TA_CENTER,'39')
TEXT(118.5,72,TA_CENTER,'40')
TEXT(118.5,77,TA_CENTER,'41')
TEXT(118.5,82,TA_CENTER,'42')
TEXT(118.5,87,TA_CENTER,'43')
TEXT(118.5,92,TA_CENTER,'44')


FontFace(Bold|Italic);
FONTSIZE(3.95)
PosunX:Real=4
TEXT(146.75+PosunX,47,TA_RIGHT,StrFinanc(R351,2))
TEXT(178+PosunX,47,TA_RIGHT,StrFinanc(R352,2))
TEXT(146.75+PosunX,52,TA_RIGHT,StrFinanc(R361,2))
TEXT(178+PosunX,52,TA_RIGHT,StrFinanc(R362,2))
TEXT(146.75+PosunX,57,TA_RIGHT,StrFinanc(R371,2))
TEXT(178+PosunX,57,TA_RIGHT,StrFinanc(R372,2))
TEXT(146.75+PosunX,62,TA_RIGHT,StrFinanc(R381,2))
TEXT(178+PosunX,62,TA_RIGHT,StrFinanc(R382,2))
TEXT(146.75+PosunX,67,TA_RIGHT,StrFinanc(R391,2))
TEXT(178+PosunX,67,TA_RIGHT,StrFinanc(R392,2))
TEXT(146.75+PosunX,72,TA_RIGHT,StrFinanc(R401,2))
TEXT(178+PosunX,72,TA_RIGHT,StrFinanc(R402,2))
TEXT(146.75+PosunX,77,TA_RIGHT,StrFinanc(R411,2))
TEXT(178+PosunX,77,TA_RIGHT,StrFinanc(R412,2))
TEXT(146.75+PosunX,82,TA_RIGHT,StrFinanc(R421,2))
TEXT(178+PosunX,82,TA_RIGHT,StrFinanc(R422,2))
TEXT(146.75+PosunX,87,TA_RIGHT,StrFinanc(R431,2))
TEXT(178+PosunX,87,TA_RIGHT,StrFinanc(R432,2))
TEXT(146.75+PosunX,92,TA_RIGHT,StrFinanc(R441,2))
TEXT(178+PosunX,92,TA_RIGHT,StrFinanc(R442,2))


FONTSIZE(3.75)
FONTFACE(NORMAL)
FontWidthScale(0.8)

TEXT(9,102,TA_LEFT,'3. Účetní jednotka uvede další údaje, které nejsou obsaženy v bodu 1 a 2, jejichž znalost je podstatná pro posouzení majetkoprávní situace')
TEXT(9,107,TA_LEFT,'a které jsou rozhodující pro hospodaření účetní jednotky nebo které stanoví prováděcí právní předpis nebo zřizovatel (jako další část přílohy):')


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:')

end