; DDT pro prilohu prispevkovych podle Sbirky zakonu Vyhlaška 505 z 5.12.2002
; verze z 20.6.2003
; 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}
;DeclareRec('Program')
; zrusit True:
;DlgFollowMouse(True)
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)
;DlgStatic(-1,'/'+Rok(),195,98,50)
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í')

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



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

  vypocet:
  ;{definice hlavniho dialogu}
  DefDialog('Příloha k závěrce pro příspěvkové organizace za období '+ObdMesic(2)+'/'+ObdRok(4),620,450)

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



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

  ;{vykresleni 1.coveru}
  SetCover(1,'&1. část')
  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',6,3,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' 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(202,R012,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(202,'položka 1 = 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(204,R022,440,52,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,78,180)
  DlgEdit(206,R032,440,76,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,102,170)
  DlgEdit(208,R042,440,100,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,126,100)
  DlgEdit(210,R052,440,124,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',65,150,270)
  DlgEdit(212,R062,440,148,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,174,400)
  DlgEdit(214,R072,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(214,'položka 7 = 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(216,R082,440,196,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 AE k účtu 348) - Stav k '+ObdMaxDay(0,1))

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

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

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

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

  DlgStatic(-1,'na informatiku',74,318,100)
  DlgEdit(226,R132,440,316,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(226,'položka 13 = 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,'položka 13 = 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')
  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',6,3,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  ;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é dotace na neinvest... ISPROFIN',16,30,400)
  DlgEdit(302,R142,440,28,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 AE k účtu 691) - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'Přijaté prostředky na výzkum a vývoj od jiných ...',6,54,400)
  DlgEdit(304,R152,440,52,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 AE 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,78,370)
  DlgEdit(306,R162,440,76,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 AE 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,102,420)
  DlgEdit(308,R172,440,100,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 AE k účtu 691) - Stav k '+ObdMaxDay(0,1))

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

  DlgStatic(-1,'Přijaté přísp. a dotace celkem na provoz z rozpočtu ÚSC',6,150,370)
  DlgEdit(312,R192,440,148,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 AE k účtu 691) - Stav k '+ObdMaxDay(0,1))

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

  ;{vykresleni 3.coveru}
  SetCover(3,'&3. část')
  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',6,3,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' 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,'Poskyt. návratné fin. výpomoci... - KÚ',6,30,268)
  DlgEdit(3401,R201,276,28,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,28,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,54,268)
  DlgEdit(3403,R211,276,52,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,52,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,78,268)
  DlgEdit(3405,R221,276,76,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,76,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,102,268)
  DlgEdit(3407,R231,276,100,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,100,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,126,269)
  DlgEdit(3409,R241,276,124,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,124,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,150,269)
  DlgEdit(3411,R251,276,148,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,148,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,174,269)
  DlgEdit(3413,R261,276,172,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,172,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,198,268)
  DlgEdit(3415,R271,276,196,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,196,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,222,268)
  DlgEdit(3417,R281,276,220,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,220,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,246,268)
  DlgEdit(3419,R291,276,244,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,244,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))

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

  ;{vykresleni 4.coveru}
  SetCover(4,'&4. část')
  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',6,3,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' 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,R301,276,28,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,28,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,54,80)
  DlgEdit(403,R311,276,52,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,52,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,'Emit. krátkodobé dluhopisy',6,78,270)
  DlgStatic(-1,'- tuzemské',187,78,100)
  DlgEdit(405,R321,276,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(405,'položka 32, sl.1 = Emitované krátkodobé dluhopisy'+#13+' - (účet 283) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(406,R322,440,76,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(406,'položka 32, 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,R331,276,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(407,'položka 33, sl.1 = Krátkodobé bankovní úvěry'+#13+' - (účet 283) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(408,R332,440,100,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(408,'položka 33, 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,R341,276,124,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,124,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,150,80)
  DlgEdit(411,R351,276,148,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,148,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,174,170)
  DlgStatic(-1,'- tuzemské',187,174,100)
  DlgEdit(413,R361,276,172,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,172,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,198,80)
  DlgEdit(415,R371,276,196,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,196,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,222,170)
  DlgStatic(-1,'- tuzemské',187,222,100)
  DlgEdit(417,R381,276,220,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,220,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,246,80)
  DlgEdit(419,R391,276,244,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,244,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))


  ;{============================== 5.cover ================================}

  ;{vykresleni 5.coveru}
  SetCover(5,'&5. část')
  if(ZpusobZaokr=0)
    DlgStatic(-1,'(v celých tisících '+Program.Mena+')',6,3,220)
  if(ZpusobZaokr=1)
    DlgStatic(-1,'(v tis. '+Program.Mena+' na dvě desetinná místa)',6,3,220)
  if(ZpusobZaokr=2)
    DlgStatic(-1,'(v '+Program.Mena+' 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,R401,276,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(501,'položka 40, sl.1 = Emitované dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k 1.1.')
  DlgEdit(502,R402,440,28,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(502,'položka 40, sl.2 = Emitované dluhopisy'+#13+' - (účet 953) - tuzemské'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'- zahraniční',187,54,80)
  DlgEdit(503,R411,276,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(503,'položka 41, sl.1 = Emitované dluhopisy'+#13+' - (účet 953) - zahraniční'+#13+' - Stav k 1.1.')
  DlgEdit(504,R412,440,52,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(504,'položka 41, 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,R421,276,76,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,76,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,102,80)
  DlgEdit(507,R431,276,100,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,100,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,126,270)
  DlgStatic(-1,'- tuzemské',187,126,100)
  DlgEdit(509,R441,276,124,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,124,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,150,80)
  DlgEdit(511,R451,276,148,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,148,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,174,370)
  DlgEdit(513,R461,276,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(513,'položka 46, sl.1 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z AE účtů 063, 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(514,R462,440,172,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(514,'položka 46, sl.2 = Nakoupené dluhopisy a směnky k inkasu celkem'+#13+' - (z AE účtů 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,R471,276,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(515,'položka 47, sl.1 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z AE účtů 253 a 312)'+#13+' - Stav k 1.1.')
  DlgEdit(516,R472,440,196,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(516,'položka 47, sl.2 = z toho: krátkodobé dluhopisy a směnky ÚSC'+#13+' - (z AE účtů 253 a 312)'+#13+' - Stav k '+ObdMaxDay(0,1))

  DlgStatic(-1,'komunální dluhopisy ÚSC',74,222,220)
  DlgEdit(517,R481,276,220,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,220,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,246,220)
  DlgEdit(519,R491,276,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(519,'položka 49, sl.1 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z AE účtů 063, 253, 312)'+#13+' - Stav k 1.1.')
  DlgEdit(520,R492,440,244,150,,15,ES_RIGHT,ValidCislo)
  DlgOnLineHelp(520,'položka 49, sl.2 = ostatní dluhopisy a směnky veřejných rozpočtů'+#13+' - (z AE účtů 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_Context,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)
  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)


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

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


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

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

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

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'
Global Opatr3:String='ze dne 5.prosince 2002'
;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')


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 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ý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 AE 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 AE k účtu 348)')
TEXT(12,131.35,TA_LEFT,'Přijaté příspěvky a dotace ze státního rozpočtu')
TEXT(110,131.35,TA_Right,'(z AE úč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 AE k účtu 691)')
TEXT(39,141.45,TA_LEFT,'z toho na: výzkum a vývoj')
TEXT(50,146.5,TA_LEFT,'vzdělávání pracovníků')
TEXT(50,151.55,TA_LEFT,'informatiku')
XTEXT(30,156.60,60,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 AE k účtu 691)')
XTEXT(12,161.65,78,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 AE 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 AE 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 AE k účtu 691)')
TEXT(12,176.8,TA_LEFT,'Přijaté prostředky na provoz ze zahraničí')
TEXT(110,176.8,TA_Right,'(z AE 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 AE k účtu 691)')
TEXT(12,186.90,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - krajskému úřadu')
TEXT(110,186.90,TA_Right,'(účet 271)')
TEXT(12,191.95,TA_LEFT,'Poskytnuté návratné finanční výpomoci mezi rozpočty - obci')
TEXT(110,191.95,TA_Right,'(účet 271)')
TEXT(12,197.00,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - ze státního rozpočtu')
TEXT(110,197.00,TA_Right,'(účet 272)')
TEXT(12,202.05,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od krajského úřadu')
TEXT(110,202.05,TA_Right,'(účet 272)')
TEXT(12,207.10,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od obce')
TEXT(110,207.10,TA_Right,'(účet 272)')
TEXT(12,212.15,TA_LEFT,'Přijaté návratné finanční výpomoci mezi rozpočty - od státních fondů')
TEXT(110,212.15,TA_Right,'(účet 272)')
TEXT(12,217.20,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,TA_Right,'(účet 272)')
TEXT(12,222.25,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - organizační složkou státu')
TEXT(110,222.25,TA_Right,'(účet 273)')
TEXT(12,227.30,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - krajským úřadem')
TEXT(110,227.30,TA_Right,'(účet 273)')
TEXT(12,232.35,TA_LEFT,'Poskytnuté přechodné výpomoci příspěvkovým organizacím - obcí')
TEXT(110,232.35,TA_Right,'(účet 273)')

TEXT(12,237.40,TA_LEFT,'Krátkodobé bankovní úvěry tuzemské')
TEXT(110,237.40,TA_Right,'(účet 281)')
TEXT(12,242.45,TA_LEFT,'Krátkodobé bankovní úvěry zahraniční')
TEXT(110,242.45,TA_Right,'(účet 281)')

TEXT(12,247.50,TA_LEFT,'Emitované krátkodobé dluhopisy v tuzemsku')
TEXT(110,247.50,TA_Right,'(účet 283)')
TEXT(12,252.55,TA_LEFT,'Emitované krátkodobé dluhopisy v zahraničí')
TEXT(110,252.55,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,'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')


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




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

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

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

LINESA(9,51,188,51,0,5,15)
;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,'Emitované dluhopisy tuzemské')
TEXT(110,77,TA_Right,'(účet 953)')
TEXT(12,82,TA_LEFT,'Emitované 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 AE úč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 AE účtů 253 a 312)')
TEXT(27,117,TA_LEFT,'komunální dluhopisy ÚSC')
TEXT(110,117,TA_Right,'(z účtu 063)')
TEXT(27,122,TA_LEFT,'ostatní dluhopisy a směnky veřejných rozpočtů')
TEXT(110,122,TA_Right,'(z AE účtů 063, 253 a 312)')


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


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


;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