; verze z 6.6.2003
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Rozvaha OSS, ÚSC a příspěvkových organizací','formulář podle 505/2002')

FileName('FIRO'+ObdMesic(2)+ObdRok(2)+'.WNS')
DeclareRec('Program')

Procedure PrintText(PocetRadku:Word,PrintLine:Word);
  While((EOF(Soubor)=False) and (PocetRadku>0))
    begin
      ReadedLine=ReadLn(Soubor);
      FirstChar=Asc(ReadedLine)
      if(FirstChar=Asc('$'))
        begin
        end else
        begin
          if(FirstChar=Asc('@'))
            begin
              ReadedLine=FromChar('@',ReadedLine);
            end else
          if(FirstChar=Asc('#'))
            begin
              ReadedLine=FromChar(',',FromChar(',',ReadedLine));
            end
          ReadedLine=ReadedLine+#9;
          if(PrintLine=0)
            begin
              if(FirstChar=Asc('@'))
                begin
                  ReadedLine=ReadedLine
                end else
                begin
                  ReadedLine=ReadedLine+Str(LineNum)
                  Inc(LineNum);
                end
            end else
            begin
              ReadedLine=ReadedLine+Str(PrintLine)
            end;
          DynTab(ReadedLine)
          Dec(PocetRadku)
        end;
    end;
end;


ItsBlank:Boolean
FormName:String=GetTabName(3);

INI:String=DataPath+'VYKAZY.INI'
TiskNul:Boolean=GetBoolean(GetFromIni('VYKAZY','TiskNul',INI))
if(TiskNul)
    SetFillToBlank('0.00')
  else
    SetFillToBlank('')

if(Length(ObdMesic(2))<>0)
  begin
    Name('Rozvaha - Formulář za '+ObdMesic(2)+ObdRok(2))
  end else
  begin
    Name('Rozvaha - Prázdný formulář')
    ItsBlank=True
    ReadedLine:String
    FirstChar:Byte
    LineNum:Word=1
  end;

FONTFACE(Normal);

PEN(0,0.7)
BOXA(0,49,188,269)


;PEN(0,0.1)
;BOXA(157,6,188,10)

PEN(0,0.3)
LINEA(9,61.5,9,107.4)
LINEA(9,112.8,9,147)
LINEA(9,153,9,216.8)
LINEA(9,223,9,263)
LINEA(107,49,107,269)
LINEA(116,49,116,269)
LINEA(152,49,152,269)

LINESA(0,56,188,56,0,5.5,3)
LINESA(9,75,188,75,0,5.4,6)
LINESA(0,107.4,188,107.4,0,5.4,2)
LINESA(9,123,188,123,0,6,4)
LINESA(0,147,188,147,0,6,2)
LINESA(9,161,188,161,0,6.2,9)
LINESA(0,216.8,188,216.8,0,6.2,2)
LINESA(9,233,188,233,0,6,5)
LINEA(0,263,188,263)


Global NazevSest1:String='Rozvaha (bilance)'
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')

;PEN(0,0.4)
;BOXA(79,29,106,40)
;LINEA(79,34.5,106,34.5)
;
;
;FONTSIZE(2.5)
;TEXT(0,9,TA_LEFT,'Podle Sbírky zákonů')
;TEXT(0,11.5,TA_LEFT,'vyhlášky č. 505/2002')
;TEXT(0,14,TA_LEFT,'příloha č. 1')
;TEXT(0,29,TA_LEFT,'Účetní jednotka doručí výkaz')
;TEXT(0,31.5,TA_LEFT,'podle pokynů MF')
;
;FONTSIZE(3.75)
;TEXT(92.5,20,TA_CENTER|TA_BASELINE,'(v tis. Kč na dvě desetinná místa)')
;TEXT(92.5,30,TA_CENTER,'IČ')
;
;FONTSIZE(5)
;FONTFACE(BOLD)
;TEXT(92.5,12,TA_CENTER|TA_BASELINE,'ROZVAHA (Bilance)')
;;TEXT(92.5,10,TA_CENTER|TA_BASELINE,'územních samosprávných celků')
;;TEXT(92.5,15,TA_CENTER|TA_BASELINE,'a příspěvkových organizací')
;
;
;TEXT(92,26,TA_CENTER|TA_BASELINE,'sestavená k '+ObdMaxDay(1,1))
;
;
TEXT(0,43,TA_LEFT,'AKTIVA')
;
;
;FONTSIZE(4)
;FONTFACE(NORMAL)
;FONTFACE(BOLD)
;TEXT(92.5,35,TA_CENTER,GetDataIni('Info','ICO'))
;
;;FONTSIZE(3)
;;TEXT(172.5,6.5,TA_CENTER,'Úč OÚPO 3 - 02')
;
;FONTSIZE(2.75)
;FONTFACE(NORMAL);
;TEXT(148,14-2,TA_LEFT,'Název nadřízeného orgánu')
;TEXT(148,19-2,TA_LEFT,'...........................................................')
;TEXT(148,24-2,TA_LEFT,'...........................................................')
;TEXT(148,29-2,TA_LEFT,'...........................................................')
;TEXT(148,34-2,TA_LEFT,'Název a sídlo účetní jednotky')
;TEXT(148,39-2,TA_LEFT,'...........................................................')
;TEXT(148,44-2,TA_LEFT,'...........................................................')
;
;FONTSIZE(3)
;FontFace(Bold|Italic);
;TEXT(148,16,TA_LEFT,GetDataIni('Info','NadrizenyOrgan[1]'))
;TEXT(148,21,TA_LEFT,GetDataIni('Info','NadrizenyOrgan[2]'))
;TEXT(148,26,TA_LEFT,GetDataIni('Info','NadrizenyOrgan[3]'))
;ClearFontIndex()
;GetFontIndex(48,Program.Firma)
;GetFontIndex(48,Program.Rozsireni)
;FontIndex()
;TEXT(148,35,TA_LEFT,Program.FIRMA)
;TEXT(148,40,TA_LEFT,Program.ROZSIRENI)
;if(Length(Program.ULICE+' '+Program.MESTO)>30)
;  TEXT(182,45,TA_RIGHT,Program.ULICE+' '+Program.MESTO)
;  else
;  TEXT(148,45,TA_LEFT,Program.ULICE+' '+Program.MESTO)
;
FONTSIZE(3)
FONTFACE(Normal)
TEXT(111.5,51,TA_CENTER,'pol.')
TEXT(134,51,TA_CENTER,'Stav k 1.1.'+ObdRok)
TEXT(170,51,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(58.5,57,TA_CENTER,'a')
TEXT(111.5,57,TA_CENTER,'b')
TEXT(134,57,TA_CENTER,'1')
TEXT(170,57,TA_CENTER,'2')


if(ItsBlank)
  begin
    Soubor:TextFile;
    Open(Soubor,FormName);
  end else
  begin
    OpenWNS(WNSName)
  end;

if(ItsBlank)
  begin
    TabPos(63)
    DefTab(3,4.5,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    PrintText(2);
    TabPos(71)
    DefTab(3,5.4,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    PrintText(9);
    TabPos(118)
    DefTab(3,6,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    PrintText(7);
    TabPos(156.5)
    DefTab(3,6.2,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    PrintText(12);
    TabPos(228)
    DefTab(3,6,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    PrintText(7);
  end else
  begin
    SaveWnsPos(1)
    TabPos(63)
    DefTab(3,4.5,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    TabFromWns(1,5,2,$7)
    TabPos(71)
    DefTab(3,5.4,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    TabFromWns(1,5,9,$7)
    TabPos(118)
    DefTab(3,6,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    TabFromWns(1,5,7,$7)
    TabPos(156.5)
    DefTab(3,6.2,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    TabFromWns(1,5,12,$7)
    TabPos(228)
    DefTab(3,6,2,8,TA_LEFT,11,94,TA_BOTH,111.5,7,TA_CENTER)
    TabFromWns(1,5,7,$7)

    SaveWnsPos(2)
    LoadWnsPos(1)
    FontSize(3.5);
    FontFace(Bold|Italic);
    TabPos(62.5)
    DefTab(2,4.5,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,2,$18)
    TabPos(70.5)
    DefTab(2,5.4,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,9,$18)
    TabPos(117.5)
    DefTab(2,6,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,7,$18)
    TabPos(156)
    DefTab(2,6.2,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,12,$18)
    TabPos(227.5)
    DefTab(2,6,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,7,$18)
  end;

FONTSIZE(2.5)
FontFace(Normal)
TEXT(188,271,TA_RIGHT,'Vytištěno systémem WinDUO')

;================================= str. 2
NextPage;
PEN(0,0.7)
BOXA(0,4,188,270)

PEN(0,0.3)

LINEA(9,13.5,9,51.5)
LINEA(9,56.25,9,103.75)
LINEA(9,108.5,9,222.5)
LINEA(9,227.5,9,270)
LINEA(107,4,107,270)
LINEA(116,4,116,270)
LINEA(152,4,152,270)

LINESA(0,8.75,188,8.75,0,4.75,2)
LINESA(9,23,188,23,0,4.75,6)
LINESA(0,51.5,188,51.5,0,4.75,3)
LINESA(9,70.5,188,70.5,0,4.75,7)
LINESA(0,103.75,188,103.75,0,4.75,2)
LINESA(9,118,188,118,0,4.75,22)
LINESA(0,222.5,188,222.5,0,4.75,2)
LINESA(9,236.75,188,236.75,0,4.75,6)
LINEA(0,265.25,188,265.25)

FONTSIZE(3)
FONTFACE(Normal)
TEXT(111.5,5,TA_CENTER,'pol.')
TEXT(134,5,TA_CENTER,'Stav k 1.1.'+ObdRok)
TEXT(170,5,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(58.5,10,TA_CENTER,'a')
TEXT(111.5,10,TA_CENTER,'b')
TEXT(134,10,TA_CENTER,'1')
TEXT(170,10,TA_CENTER,'2')

TabPos(14.5)
DefTab(3,4.75,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(54);
  end else
  begin
    LoadWnsPos(2)
    TabFromWns(1,5,54,$7)
    SaveWnsPos(3)
    FontSize(3.5);
    FontFace(Bold|Italic);
    LoadWnsPos(2)
    TabPos(14.5)
    DefTab(2,4.75,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,54,$18)
  end;

;================================= str. 3
NextPage;

PEN(0,0.7)
BOXA(0,4,188,234)

PEN(0,0.3)

LINEA(9,14,9,39)
LINEA(9,44,9,194)
LINEA(9,199,9,224)
LINEA(107,4,107,234)
LINEA(116,4,116,234)
LINEA(152,4,152,234)

LINESA(0,9,188,9,0,5,2)
LINESA(9,19,188,19,0,5,4)
LINESA(0,39,188,39,0,5,2)
LINESA(9,54,188,54,0,5,28)
LINESA(0,194,188,194,0,5,2)
LINESA(9,209,188,209,0,5,3)
LINESA(0,224,188,224,0,5,2)

FONTSIZE(3)
FONTFACE(Normal)
TEXT(111.5,5,TA_CENTER,'pol.')
TEXT(134,5,TA_CENTER,'Stav k 1.1.'+ObdRok)
TEXT(170,5,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(58.5,10,TA_CENTER,'a')
TEXT(111.5,10,TA_CENTER,'b')
TEXT(134,10,TA_CENTER,'1')
TEXT(170,10,TA_CENTER,'2')


;TEXT(134,55,TA_CENTER,'x')
;TEXT(134,60,TA_CENTER,'x')
;
;TEXT(134,85,TA_CENTER,'x')
;TEXT(134,90,TA_CENTER,'x')
;TEXT(134,95,TA_CENTER,'x')
;TEXT(134,100,TA_CENTER,'x')
;TEXT(134,105,TA_CENTER,'x')
;TEXT(134,110,TA_CENTER,'x')
;TEXT(134,115,TA_CENTER,'x')
;
;TEXT(134,150,TA_CENTER,'x')
;TEXT(134,155,TA_CENTER,'x')
;TEXT(134,160,TA_CENTER,'x')
;TEXT(134,165,TA_CENTER,'x')
;TEXT(134,170,TA_CENTER,'x')
;TEXT(134,175,TA_CENTER,'x')
;TEXT(134,180,TA_CENTER,'x')
;TEXT(134,185,TA_CENTER,'x')
;TEXT(134,190,TA_CENTER,'x')

TabPos(15)
DefTab(3,5,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(44);
  end else
  begin
    LoadWnsPos(3)
    TabFromWns(1,5,44,$7)
    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(3.5);
    FontFace(Bold|Italic);
    TabPos(15)
    DefTab(2,5,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,44,$18)
  end;


;================================= str. 4
NextPage;

FONTSIZE(4.5)
FONTFACE(BOLD)
TEXT(0,5,TA_LEFT|TA_BASELINE,'PASIVA')

PEN(0,0.7)
BOXA(0,7,188,262)

PEN(0,0.3)
LINEA(9,17,9,47)
LINEA(9,52,9,87)
LINEA(9,92,9,107)
LINEA(9,112,9,162)
LINEA(9,167,9,207)
LINEA(9,217,9,257)

LINEA(107,7,107,262)
LINEA(116,7,116,262)
LINEA(152,7,152,262)

LINESA(0,12,188,12,0,5,3)
LINESA(9,32,188,32,0,5,3)
LINESA(0,47,188,47,0,5,2)
LINESA(9,62,188,62,0,5,5)
LINESA(0,87,188,87,0,5,2)
LINEA(9,102,188,102)
LINESA(0,107,188,107,0,5,2)
LINESA(9,122,188,122,0,5,8)
LINESA(0,162,188,162,0,5,2)
LINESA(9,182,188,182,0,5,5)
LINESA(0,207,188,207,0,5,3)
LINEA(0,227,188,227)
LINESA(9,237,188,237,0,5,4)
LINEA(0,257,188,257)

FONTSIZE(3)
FONTFACE(NORMAL)
TEXT(111.5,8.5,TA_CENTER,'pol.')
TEXT(134,8.5,TA_CENTER,'Stav k 1.1.'+ObdRok)
TEXT(170,8.5,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(58.5,13.6,TA_CENTER,'c')
TEXT(111.5,13.6,TA_CENTER,'d')
TEXT(134,13.6,TA_CENTER,'3')
TEXT(170,13.6,TA_CENTER,'4')

;TEXT(134,118,TA_CENTER,'x')
;TEXT(134,123,TA_CENTER,'x')
;TEXT(134,128,TA_CENTER,'x')
;TEXT(134,133,TA_CENTER,'x')
;TEXT(134,138,TA_CENTER,'x')
;TEXT(134,143,TA_CENTER,'x')
;TEXT(134,148,TA_CENTER,'x')
;TEXT(134,153,TA_CENTER,'x')

;TEXT(134,178,TA_CENTER,'x')
;TEXT(170,188,TA_CENTER,'x')

TabPos(18)
DefTab(3,5,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(49);
  end else
  begin
    LoadWnsPos(4)
    TabFromWns(1,5,49,$7)

    SaveWnsPos(5)

    FontSize(3.5);
    FontFace(Bold|Italic);
    LoadWnsPos(4)
    TabPos(18)
    DefTab(2,5,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,49,$18)
  end;

;================================= str. 5
NextPage;
PEN(0,0.7)
BOXA(0,4,188,209)

PEN(0,0.3)
BOXA(0,237,188,263)

LINEA(9,14,9,129)
LINEA(9,134,9,169)
LINEA(9,174,9,199)
LINEA(107,4,107,209)
LINEA(116,4,116,209)
LINEA(152,4,152,209)

LINESA(0,9,188,9,0,5,2)
LINESA(9,24,188,24,0,5,21)
LINESA(0,129,188,129,0,5,2)
LINESA(9,144,188,144,0,5,5)
LINESA(0,169,188,169,0,5,2)
LINESA(9,184,188,184,0,5,3)
LINESA(0,199,188,199,0,5,2)

FONTSIZE(3)
FONTFACE(Normal)
TEXT(111.5,5,TA_CENTER,'pol.')
TEXT(134,5,TA_CENTER,'Stav k 1.1.'+ObdRok)
TEXT(170,5,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(58.5,10,TA_CENTER,'c')
TEXT(111.5,10,TA_CENTER,'d')
TEXT(134,10,TA_CENTER,'3')
TEXT(170,10,TA_CENTER,'4')

FONTSIZE(3)
FontFace(Normal)
TEXT(3,240,TA_LEFT,'Odesláno dne:')
TEXT(29,240,TA_LEFT,'Razítko:')
TEXT(55,240,TA_LEFT,'Podpis odpovědné')
TEXT(55,243.5,TA_LEFT,'osoby:')
TEXT(89,240,TA_LEFT,'Podpis osoby odpovědné')
TEXT(89,243.5,TA_LEFT,'za sestavení:')
TEXT(145,240,TA_LEFT,'Okamžik sestavení:')
TEXT(89,257,TA_LEFT,'Telefon:')

FONTSIZE(3)

TabPos(15)
DefTab(3,5,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(39);
  end else
  begin
    LoadWnsPos(5)
    TabFromWns(1,1,39,$7)

    FontSize(3.5);
    FontFace(Bold|Italic);
    LoadWnsPos(5)
    TabPos(15)
    DefTab(2,5,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,1,39,$18)
  end;

FONTSIZE(2.5)
FontFace(Normal)
TEXT(188,265,TA_RIGHT,'Vytištěno systémem WinDUO')

END