; verze z 22.3.2006
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 401/2005')

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

FontScale:Real=0.85

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
              LocStr=FromChar('#',ReadedLine)
              LocStr=ToChar(',',LocStr)
              ReadedLine=FromChar(',',FromChar(',',ReadedLine));
              ReadedLine=ReadedLine+#9+LocStr;
            end else
            begin
              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;

            end
          DynTab(ReadedLine)
          Dec(PocetRadku)
        end;
    end;
end;


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

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 ze dne 5.12.2002'
Global Opatr3:String='a 477/2003 ze dne 17.12.2003'
Global Opatr4:String='a 401/2005 ze dne 5.10.2005'
;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')

TEXT(0,43,TA_LEFT,'AKTIVA')

FONTSIZE(3)
FONTFACE(Normal)
FontWidthScale(FontScale);
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,260.5)

PEN(0,0.3)

LINEA(9,13.5,9,51.5)
LINEA(9,56.25,9,70.5)
LINE(9,75.25,0,47.5)
LINEA(9,127.5,9,255.75)
LINEA(107,4,107,260.5)
LINEA(116,4,116,260.5)
LINEA(152,4,152,260.5)

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,2)
LINESA(9,65.75,188,65.75,0,4.75,1)
LINESA(0,70.5,188,70.5,0,4.75,3)
LINES(9,89.5,179,0,0,4.75,6)
LINES(0,118,188,0,0,4.75,3)
LINES(9,137,179,0,0,4.75,25)
LINES(0,255.75,188,0,0,4.75,1)

FONTSIZE(3)
FONTFACE(Normal)
FontWidthScale(FontScale);
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(52);
  end else
  begin
    LoadWnsPos(2)
    TabFromWns(1,5,52,$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,52,$18)
  end;

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

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

PEN(0,0.3)

LINEA(9,13.5,9,85.25)
LINEA(9,90.25,9,232.75)
LINEA(9,237.5,9,261.25)
LINEA(107,4,107,270.75)
LINEA(116,4,116,270.75)
LINEA(152,4,152,270.75)

LINES(0,8.75,188,0,0,4.75,2)
LINES(9,23.5,179,0,0,4.75,13)
LINES(0,85.25,188,0,0,4.75,2)
LINES(9,99.75,179,0,0,4.75,28)
LINES(0,232.75,188,0,0,4.75,2)
LINES(9,247,179,0,0,4.75,3)
LINES(0,261.25,188,0,0,4.75,2)
;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)
FontWidthScale(FontScale);
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,4.75,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(54);
  end else
  begin
    LoadWnsPos(3)
    TabFromWns(1,5,54,$7)
    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(3.5);
    FontFace(Bold|Italic);
    TabPos(15)
    DefTab(2,4.75,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,54,$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,268.25)

PEN(0,0.3)
LINE(9,16.5,0,28.5)
LINE(9,49.75,0,9.5)
LINEA(9,64,9,97.25)
LINEA(9,102,9,121)
LINEA(9,125.75,9,173.25)
LINEA(9,178,9,216)
LINEA(9,225.5,9,263.5)

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

LINES(0,11.75,188,0,0,4.75,3)
LINES(9,30.75,179,0,0,4.75,2)
LINES(0,45,188,0,0,4.75,2)
LINES(9,54.5,179,0,0,4.75,1)
LINES(0,59.25,188,0,0,4.75,2)
LINES(9,73.5,179,0,0,4.75,5)
LINES(0,97.25,188,0,0,4.75,2)
LINES(9,111.5,179,0,0,4.75,2)
LINES(0,121,188,0,0,4.75,2)
LINES(9,135.25,179,0,0,4.75,8)
LINES(0,173.25,188,0,0,4.75,2)
LINES(9,192.25,179,0,0,4.75,5)
LINES(0,216,188,0,0,4.75,3)
LINES(0,235,188,0,0,4.75,1)
LINES(9,244.5,179,0,0,4.75,4)
LINES(0,263.5,188,0,0,4.75,1)

FONTSIZE(3)
FONTFACE(NORMAL)
FontWidthScale(FontScale);
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(17.5)
DefTab(3,4.75,2,8,TA_LEFT,12,93,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(53);
  end else
  begin
    LoadWnsPos(4)
    TabFromWns(1,5,53,$7)

    SaveWnsPos(5)

    FontSize(3.5);
    FontFace(Bold|Italic);
    LoadWnsPos(4)
    TabPos(17.5)
    DefTab(2,4.75,149,34,TA_RIGHT|TA_NoBlank,185,34,TA_RIGHT|TA_NoBlank)
    TabFromWns(1,5,53,$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)
FontWidthScale(FontScale);
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:')

FontWidthScale(FontScale);

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