;11.4.2003
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Rozvaha Nevýdělečných organizací','formulář Úč NO 1-01')

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

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(79,29,106,40)
LINEA(79,34.5,106,34.5)
PEN(0,0.1)
BOXA(148,3,188,10)

PEN(0,0.3)
BOXA(0,55,188,217)
BOXA(0,230,188,256)

LINEA(116,46,188,46)
LINEA(22,67,22,109)
LINEA(22,115,22,154)
LINEA(22,151,22,211)
LINEA(116,46,116,217)
LINEA(125,46,125,217)
LINEA(157,46,157,217)
LINEA(188,46,188,55)

LINESA(0,61,188,61,0,6,2)
LINESA(22,73,188,73,0,6,6)
LINESA(0,109,188,109,0,6,2)
LINESA(22,121,188,121,0,6,4)
LINESA(0,145,188,145,0,6,2)
LINESA(22,157,188,157,0,6,9)
LINEA(0,211,188,211)

FONTSIZE(2.5)
TEXT(0,4,TA_LEFT,'Ministerstvo financí')
TEXT(0,6.5,TA_LEFT,'schváleno MF')
TEXT(0,9,TA_LEFT,'č.j. 283/76 102/2000')
TEXT(0,11.5,TA_LEFT,'s účinností pro účetní jednotky')
TEXT(0,14,TA_LEFT,'účtující podle účtové osnovy pro')
TEXT(0,16.5,TA_LEFT,'nevýdělečné organizace')

FONTFACE(Bold);
TEXT(0,31,TA_LEFT,'Účetní jednotka doručí:')
FONTFACE(Normal);
TEXT(0,33.5,TA_LEFT,'1x příslušnému finančnímu')
TEXT(3,36,TA_LEFT,'orgánu')

FONTSIZE(3.75)
TEXT(92.5,22,TA_CENTER|TA_BASELINE,'(v celých tis. Kč)')
TEXT(92.5,30,TA_CENTER,'IČO')

FONTSIZE(6)
FONTFACE(BOLD)
TEXT(92.5,8,TA_CENTER|TA_BASELINE,'ROZVAHA')
FONTSIZE(4.5)
TEXT(92,17,TA_CENTER|TA_BASELINE,'k '+ObdMaxDay(1,1))

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

FONTSIZE(4)
FONTFACE(NORMAL)
FONTFACE(BOLD)
TEXT(92.5,35,TA_CENTER,GetDataIni('Info','ICO'))

FONTSIZE(4)
TEXT(168,5,TA_CENTER,'Úč NO 1 - 01')

FONTSIZE(2.75)
FONTFACE(NORMAL);
TEXT(148,14-2,TA_LEFT,'Název a sídlo účetní jednotky')
TEXT(148,19-2,TA_LEFT,'...........................................................')
TEXT(148,24-2,TA_LEFT,'...........................................................')
TEXT(148,29-2,TA_LEFT,'...........................................................')
TEXT(148,34-2,TA_LEFT,'...........................................................')
TEXT(148,39-2,TA_LEFT,'...........................................................')

FONTSIZE(3)
FontFace(Bold|Italic);
ClearFontIndex()
GetFontIndex(48,Program.Firma)
GetFontIndex(48,Program.Rozsireni)
GetFontIndex(48,Program.Ulice)
GetFontIndex(48,Program.Mesto)
FontIndex()
TEXT(148,16,TA_LEFT,Program.FIRMA)
TEXT(148,21,TA_LEFT,Program.ROZSIRENI)
TEXT(148,26,TA_LEFT,Program.ULICE)
TEXT(148,31,TA_LEFT,Program.MESTO)
TEXT(148,36,TA_LEFT,Program.PSC)

FONTSIZE(3)
FONTFACE(Normal)

TEXT(120.5,47.2,TA_CENTER,'číslo')
TEXT(120.5,50.5,TA_CENTER,'řádku')

TEXT(141,47.2,TA_CENTER,'Stav k prvnímu dni')
TEXT(141,50.5,TA_CENTER,'účetního období')

TEXT(172.5,47.2,TA_CENTER,'Stav k poslednímu dni')
TEXT(172.5,50.5,TA_CENTER,'účetního období')

TEXT(58,56,TA_CENTER,'a')
TEXT(120.5,56,TA_CENTER,'b')
TEXT(141,56,TA_CENTER,'1')
TEXT(172.5,56,TA_CENTER,'2')

TEXT(11,69,TA_Center,'1.')
TEXT(11,75,TA_Center,'Dlouhodobý')
TEXT(11,81,TA_Center,'nehmotný')
TEXT(11,87,TA_Center,'majetek')
TEXT(11,117,TA_Center,'2.')
TEXT(11,123,TA_Center,'Oprávky k')
TEXT(11,153,TA_Center,'3.')
TEXT(11,159,TA_Center,'Dlouhodobý')
TEXT(11,165,TA_Center,'hmotný')
TEXT(11,171,TA_Center,'majetek')

TEXT(5.5,234.5,TA_LEFT,'Odesláno dne:')
TEXT(61.5,234.5,TA_LEFT,'Razítko:')
TEXT(95.5,234.5,TA_LEFT,'Podpis odpovědné')
TEXT(146.5,234.5,TA_LEFT,'Podpis osoby odpovědné')
TEXT(95.5,237.5,TA_LEFT,'osoby:')
TEXT(146.5,237.5,TA_LEFT,'za zaúčtování:')
TEXT(146.5,245.5,TA_LEFT,'Telefon:')

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

FontSize(4);

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

TabPos(62.5)
DefTab(3,6,11,18,TA_Center,25,87,TA_BOTH,120.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(1);
    TabPos(68.5)
    PrintText(8);
    TabPos(116.5)
    PrintText(6);
    TabPos(152.5)
    PrintText(11);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,6,1,$7)
    SkipWNSLine(1,6,1)
    TabPos(68.5)
    TabFromWns(1,6,8,$7)
    SkipWNSLine(1,6,1)
    TabPos(116.5)
    TabFromWns(1,6,6,$7)
    SkipWNSLine(1,6,1)
    TabPos(152.5)
    TabFromWns(1,6,11,$7)

    SaveWnsPos(2)
    LoadWnsPos(1)
    FontSize(4)
    FontFace(Bold|Italic)
    TabPos(62)
    DefTab(2,6,154,32,TA_RIGHT,185,32,TA_RIGHT)
    TabFromWns(1,6,1,$18)
    SkipWNSLine(1,6,1)
    TabPos(68)
    TabFromWns(1,6,8,$18)
    SkipWNSLine(1,6,1)
    TabPos(116)
    TabFromWns(1,6,6,$18)
    SkipWNSLine(1,6,1)
    TabPos(152)
    TabFromWns(1,6,11,$18)
  end;

;================================= str. 2
NextPage;
PEN(0,0.3)

LINEA(116,4,188,4)
BOXA(0,13,188,268.2)

LINEA(188,4,188,13)
LINEA(116,4,116,268.2)
LINEA(125,4,125,268.2)
LINEA(157,4,157,268.2)
LINEA(22,18.8,22,53.6)
LINEA(22,59.4,22,94.2)
LINEA(22,105.8,22,158)
LINEA(22,163.8,22,262.4)
LINEA(0,18.8,188,18.8)
LINESA(22,24.6,188,24.6,0,5.8,5)
LINESA(0,53.6,188,53.6,0,5.8,2)
LINESA(22,65.2,188,65.2,0,5.8,5)
LINESA(0,94.2,188,94.2,0,5.8,3)
LINESA(22,111.6,188,111.6,0,5.8,8)
LINESA(0,158,188,158,0,5.8,2)
LINESA(22,169.6,188,169.6,0,5.8,16)
LINEA(0,262.4,188,262.4)

FONTSIZE(3)
FONTFACE(Normal)
TEXT(120.5,5,TA_CENTER,'číslo')
TEXT(120.5,8.6,TA_CENTER,'řádku')
TEXT(141,5,TA_CENTER,'Stav k prvnímu dni')
TEXT(141,8.6,TA_CENTER,'účetního období')
TEXT(172.5,5,TA_CENTER,'Stav k poslednímu dni')
TEXT(172.5,8.6,TA_CENTER,'účetního období')
TEXT(58,14,TA_CENTER,'a')
TEXT(120.5,14,TA_CENTER,'b')
TEXT(141,14,TA_CENTER,'1')
TEXT(172.5,14,TA_CENTER,'2')

TEXT(11,20,TA_Center,'4.')
TEXT(11,26,TA_Center,'Oprávky k')
TEXT(11,60.6,TA_Center,'5.')
TEXT(11,66.4,TA_Center,'Dlouhodobý')
TEXT(11,72.2,TA_Center,'finanční')
TEXT(11,78,TA_Center,'majetek')
TEXT(11,107,TA_Center,'1.')
TEXT(11,112.8,TA_Center,'Zásoby')
TEXT(11,165,TA_Center,'2.')
TEXT(11,170.8,TA_Center,'Pohledávky')


TabPos(20)
DefTab(3,5.8,11,18,TA_Center,25,87,TA_BOTH,120.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(7);
    TabPos(60.6)
    PrintText(8);
    TabPos(107)
    PrintText(10);
    TabPos(165)
    PrintText(18);
  end else
  begin
    LoadWnsPos(2)
    SkipWNSLine(1,6,1)
    TabFromWns(1,6,7,$7)
    SkipWNSLine(1,6,1)
    TabPos(60.6)
    TabFromWns(1,6,8,$7)
    SkipWNSLine(1,6,1)
    TabPos(107)
    TabFromWns(1,6,10,$7)
    SkipWNSLine(1,6,1)
    TabPos(165)
    TabFromWns(1,6,18,$7)
    SaveWnsPos(3)

    LoadWnsPos(2)
    FontSize(4);
    FontFace(Bold|Italic);
    SkipWNSLine(1,6,1)
    TabPos(19.5)
    DefTab(2,5.8,154,32,TA_RIGHT,185,32,TA_RIGHT)
    TabFromWns(1,6,7,$18)
    SkipWNSLine(1,6,1)
    TabPos(60.1)
    TabFromWns(1,6,8,$18)
    SkipWNSLine(1,6,1)
    TabPos(106.5)
    TabFromWns(1,6,10,$18)
    SkipWNSLine(1,6,1)
    TabPos(164.5)
    TabFromWns(1,6,18,$18)
  end;

;================================= str. 3
NextPage;
PEN(0,0.3)

LINEA(116,4,188,4)
BOXA(0,13,188,109)

LINEA(188,4,188,13)
LINEA(22,19,22,61)
LINEA(22,67,22,91)
LINEA(116,4,116,109)
LINEA(125,4,125,109)
LINEA(157,4,157,109)

LINEA(0,19,188,19)
LINESA(22,25,188,25,0,6,6)
LINESA(0,61,188,61,0,6,2)
LINESA(22,73,188,73,0,6,3)
LINESA(0,91,188,91,0,6,3)

FONTSIZE(3)
FONTFACE(Normal)
TEXT(120.5,5,TA_CENTER,'číslo')
TEXT(120.5,8.6,TA_CENTER,'řádku')
TEXT(141,5,TA_CENTER,'Stav k prvnímu dni')
TEXT(141,8.6,TA_CENTER,'účetního období')
TEXT(172.5,5,TA_CENTER,'Stav k poslednímu dni')
TEXT(172.5,8.6,TA_CENTER,'účetního období')
TEXT(58,14,TA_CENTER,'a')
TEXT(120.5,14,TA_CENTER,'b')
TEXT(141,14,TA_CENTER,'1')
TEXT(172.5,14,TA_CENTER,'2')

TEXT(11,20,TA_Center,'3.')
TEXT(11,26,TA_Center,'Krátkodobý')
TEXT(11,32,TA_Center,'finanční')
TEXT(11,38,TA_Center,'majetek')

TEXT(11,68,TA_Center,'4.')
TEXT(11,74,TA_Center,'Přechodné')
TEXT(11,80,TA_Center,'účty')
TEXT(11,86,TA_Center,'aktivní')

TabPos(20.5)
DefTab(3,6,11,18,TA_Center,25,87,TA_BOTH,120.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(8);
    TabPos(68.5)
    PrintText(6);
    PrintText(1,997);
  end else
  begin
    LoadWnsPos(3)
    SkipWNSLine(1,6,1)
    TabFromWns(1,6,8,$7)
    SkipWNSLine(1,6,1)
    TabPos(68.5)
    TabFromWns(1,6,7,$7)
    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(4);
    FontFace(Bold|Italic);
    SkipWNSLine(1,6,1)
    TabPos(20)
    DefTab(2,6,154,32,TA_RIGHT,185,32,TA_RIGHT)
    TabFromWns(1,6,8,$18)
    SkipWNSLine(1,6,1)
    TabPos(68)
    TabFromWns(1,6,7,$18)
  end;


;================================= str. 4
NextPage;
PEN(0,0.3)

LINEA(116,4,188,4)
BOXA(0,13,188,272.2)

LINEA(188,4,188,13)
LINEA(22,23.8,22,56.2)
LINEA(22,67,22,99.4)
LINEA(22,104.8,22,191.2)
LINEA(22,196.6,22,229)
LINEA(22,234.4,22,256)
LINEA(116,4,116,272.2)
LINEA(125,4,125,272.2)
LINEA(157,4,157,272.2)

LINESA(0,18.4,188,18.4,0,5.4,2)
LINEA(22,29.2,188,29.2)
LINESA(0,34.6,188,34.6,0,5.4,2)
LINESA(22,45.4,188,45.4,0,5.4,2)
LINESA(0,56.2,188,56.2,0,5.4,4)
LINESA(22,77.8,188,77.8,0,5.4,4)
LINESA(0,99.4,188,99.4,0,5.4,2)
LINESA(22,110.2,188,110.2,0,5.4,15)
LINESA(0,191.2,188,191.2,0,5.4,2)
LINESA(22,202,188,202,0,5.4,5)
LINESA(0,229,188,229,0,5.4,2)
LINESA(22,239.8,188,239.8,0,5.4,3)
LINESA(0,256,188,256,0,5.4,3)

FONTSIZE(4.5)
FONTFACE(BOLD)
TEXT(0,10,TA_LEFT|TA_BASELINE,'PASIVA')
FONTSIZE(3)
FONTFACE(Normal)
TEXT(120.5,5,TA_CENTER,'číslo')
TEXT(120.5,8.6,TA_CENTER,'řádku')
TEXT(141,5,TA_CENTER,'Stav k prvnímu dni')
TEXT(141,8.6,TA_CENTER,'účetního období')
TEXT(172.5,5,TA_CENTER,'Stav k poslednímu dni')
TEXT(172.5,8.6,TA_CENTER,'účetního období')
TEXT(58,14,TA_CENTER,'a')
TEXT(120.5,14,TA_CENTER,'b')
TEXT(141,14,TA_CENTER,'3')
TEXT(172.5,14,TA_CENTER,'4')

TEXT(11,24.5,TA_Center,'1.')
TEXT(11,29.9,TA_Center,'Jmění')
TEXT(11,40.7,TA_Center,'2.')
TEXT(11,46.1,TA_Center,'Hospodářský')
TEXT(11,51.5,TA_Center,'výsledek')
TEXT(11,67.7,TA_Center,'1.')
TEXT(11,73.1,TA_Center,'2.')
TEXT(11,78.5,TA_Center,'Dlouhodobé')
TEXT(11,83.9,TA_Center,'závazky')
TEXT(11,105.5,TA_Center,'3.')
TEXT(11,110.9,TA_Center,'Krátkodobé')
TEXT(11,116.3,TA_Center,'závazky')
TEXT(11,197.3,TA_Center,'4.')
TEXT(11,202.7,TA_Center,'Bankovní')
TEXT(11,208.1,TA_Center,'výpomoci')
TEXT(11,213.5,TA_Center,'a půjčky')
TEXT(11,235.1,TA_Center,'5.')
TEXT(11,240.5,TA_Center,'Přechodné')
TEXT(11,245.9,TA_Center,'účty')
TEXT(11,251.5,TA_Center,'pasivní')

TEXT(141,40.7,TA_CENTER,'x')
TEXT(172.5,46.1,TA_CENTER,'x')


TabPos(19.6)
DefTab(3,5.4,11,18,TA_Center,25,87,TA_BOTH,120.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(1);
    TabPos(25)
    PrintText(3);
    TabPos(41.2)
    PrintText(6);
    TabPos(73.6)
    PrintText(6);
    TabPos(106)
    PrintText(17);
    TabPos(197.8)
    PrintText(7);
    TabPos(235.6)
    PrintText(6);
    PrintText(1,998);
  end else
  begin
    LoadWnsPos(4)
    TabFromWns(1,6,1,$7)
    SkipWNSLine(1,6,1)
    TabPos(25)
    TabFromWns(1,6,3,$7)
    SkipWNSLine(1,6,1)
    TabPos(41.2)
    TabFromWns(1,6,6,$7)
    SkipWNSLine(1,6,1)
    TabPos(73.6)
    TabFromWns(1,6,6,$7)
    SkipWNSLine(1,6,1)
    TabPos(106)
    TabFromWns(1,6,17,$7)
    SkipWNSLine(1,6,1)
    TabPos(197.8)
    TabFromWns(1,6,7,$7)
    SkipWNSLine(1,6,1)
    TabPos(235.6)
    TabFromWns(1,6,7,$7)
    SaveWnsPos(5)

    LoadWnsPos(4)
    FontSize(4);
    FontFace(Bold|Italic);

    TabPos(19.1)
    DefTab(2,5.4,154,32,TA_RIGHT,185,32,TA_RIGHT)
    TabFromWns(1,6,1,$18)
    SkipWNSLine(1,6,1)
    TabPos(24.5)
    TabFromWns(1,6,3,$18)
    SkipWNSLine(1,6,1)
    TabPos(40.7)
    TabFromWns(1,6,6,$18)
    SkipWNSLine(1,6,1)
    TabPos(73.1)
    TabFromWns(1,6,6,$18)
    SkipWNSLine(1,6,1)
    TabPos(105.5)
    TabFromWns(1,6,17,$18)
    SkipWNSLine(1,6,1)
    TabPos(197.3)
    TabFromWns(1,6,7,$18)
    SkipWNSLine(1,6,1)
    TabPos(235.1)
    TabFromWns(1,6,7,$18)
  end;

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

END