;11.4.2003
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com')
Descr('Rozvaha obecně prospěšné společnosti','formulář O.P.S. Úč 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(45,24,135,41)

PEN(0,0.4)
LINEA(54,24,54,41)
LINEA(76.5,24,76.5,41)
LINEA(90,24,90,41)
LINEA(103.5,24,103.5,41)
LINEA(45,32,135,32)

PEN(0,0.1)
LINEA(96.75,32.5,96.75,38.5)
LINEA(108,32.5,108,38.5)
LINEA(111.6,32.5,111.6,38.5)
LINEA(115.2,32.5,115.2,38.5)
LINEA(118.8,32.5,118.8,38.5)
LINEA(122.4,32.5,122.4,38.5)
LINEA(126,32.5,126,38.5)
LINEA(129.6,32.5,129.6,38.5)
BOXA(148,0,188,9)


PEN(0,0.3)
BOXA(0,73,188,265)
LINESA(0,79,188,79,0,6,2)
LINESA(22,91,188,91,0,6,6)
LINEA(22,85,22,121)
LINEA(0,127,188,127)
LINEA(0,121,22,121)
LINESA(22,133,188,133,0,6,3)
LINEA(0,151,188,151)
LINEA(22,127,22,151)
LINEA(0,157,188,157)
LINESA(22,163,188,163,0,6,10)
LINEA(22,157,22,217)
LINEA(0,217,22,217)
LINEA(0,223,188,223)
LINESA(22,229,188,229,0,6,6)
LINEA(22,223,22,259)
LINEA(0,259,22,259)

LINEA(188,67,188,73)
LINEA(116,67,116,265)
LINEA(125.5,67,125.5,265)
LINEA(157,67,157,265)
LINEA(116,67,188,67)

FONTSIZE(2.9)
TEXT(0,3,TA_LEFT,'Ministerstvo financí ČR')
TEXT(0,6,TA_LEFT,'schváleno MF ČR')
TEXT(0,9,TA_LEFT,'č.j. 283/71 700/1995')
TEXT(0,12,TA_LEFT,'s účinností pro účetní jednotky')
TEXT(0,15,TA_LEFT,'účtující podle účtové osnovy pro')
TEXT(0,18,TA_LEFT,'obecně prospěšné společnosti')
FONTFACE(BOLD)
TEXT(0,30,TA_LEFT,'Účetní jednotka doručí:')
FONTFACE(NORMAL)
TEXT(0,33,TA_LEFT,'1 X Příslušnému finančnímu')
TEXT(0,36,TA_LEFT,'    orgánu')

FONTSIZE(4.6)
FONTFACE(BOLD)
TEXT(0,65,TA_LEFT,'A K T I V A')
FONTFACE(NORMAL)

FONTSIZE(3)
FONTFACE(NORMAL)

TEXT(121,69,TA_CENTER,'č.ř.')
TEXT(140.5,69,TA_CENTER,'Stav k 1. 1.')
TEXT(172.5,69,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(57,75,TA_CENTER,'a')
TEXT(120.5,75,TA_CENTER,'b')
TEXT(140.5,75,TA_CENTER,'1')
TEXT(172.5,75,TA_CENTER,'2')
TEXT(10.5,86,TA_LEFT,'1.')
TEXT(10.5,80,TA_LEFT,'A.')

TEXT(5.5,92,TA_LEFT,'Nehmotný')
TEXT(6,98,TA_LEFT,'investiční')
TEXT(6.5,104,TA_LEFT,'majetek')
TEXT(10.5,128,TA_LEFT,'2.')
TEXT(5.5,134,TA_LEFT,'Oprávky k')
TEXT(10.5,164,TA_LEFT,'3.')
TEXT(7,170,TA_LEFT,'Hmotný')
TEXT(6,176,TA_LEFT,'investiční')
TEXT(7,182,TA_LEFT,'majetek')
TEXT(10.5,230,TA_LEFT,'4.')
TEXT(5.5,236,TA_LEFT,'Oprávky k')

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

FONTSIZE(3)
FONTFACE(BOLD)
TEXT(49.5,26,TA_CENTER,'Čís.ř.')
TEXT(65.5,26,TA_CENTER,'IKF')
TEXT(83.25,26,TA_CENTER,'Rok')
TEXT(96.75,26,TA_CENTER,'Měsíc')
TEXT(119.25,26,TA_CENTER,'IČO')
FONTFACE(NORMAL)

FONTSIZE(5)
FONTFACE(BOLD)
TEXT(90,1,TA_CENTER,'ROZVAHA')
TEXT(90,13,TA_CENTER,'k '+ObdMaxDay(1,1))
FONTSIZE(3.5)
FONTFACE(NORMAL)
TEXT(90,18,TA_CENTER,'(v tis. Kč)')

FONTSIZE(4.5)
FONTFACE(NORMAL)
TEXT(49.5,34.5,TA_CENTER,'01')
TEXT(65.25,34.5,TA_CENTER,'832096')
TEXT(83.25,34.5,TA_CENTER,ObdRok)

FONTFACE(BOLD)
STEXT(132.5,34,TA_RIGHT,3.6,8,GetDataIni('Info','ICO'))

STEXT(101,34,TA_RIGHT,6.5,2,ObdMesic(2))

FONTSIZE(3.4)
TEXT(168,3,TA_CENTER,'Výkaz O.P.S. Úč 1 - 01')

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

FONTSIZE(3)
FontFace(Bold|Italic)

TEXT(148,22,TA_LEFT,Program.FIRMA)
TEXT(148,27,TA_LEFT,Program.ROZSIRENI)
TEXT(148,32,TA_LEFT,Program.ULICE)
TEXT(148,37,TA_LEFT,Program.MESTO)
TEXT(148,42,TA_LEFT,Program.PSC)


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

TabPos(80)
DefTab(3,6,24,90,TA_BOTH,121,8,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(31);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,4,1,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,11,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$6)

    SaveWnsPos(2)

    LoadWnsPos(1)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(80)
    DefTab(4,6,154,30,TA_RIGHT,185,30,TA_RIGHT)
    TabFromWns(1,4,1,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$18)
    SkipWNSLine(1,4,1)
  end;

;================================================================ str. 2

NextPage

PEN(0,0.3)
BOXA(116,18,188,264)
LINEA(0,24,188,24)
LINEA(0,24,0,264)
LINEA(0,264,116,264)
LINEA(125,18,125,264)
LINEA(157,18,157,264)

LINEA(0,30,188,30)
LINESA(22,36,188,36,0,6,3)
LINEA(0,54,188,54)
LINEA(22,30,22,48)
LINEA(0,48,22,48)
LINEA(0,60,188,60)
LINESA(22,66,188,66,0,6,6)
LINEA(22,60,22,96)
LINEA(0,96,22,96)
LINEA(0,102,188,102)
LINESA(22,108,188,108,0,6,13)
LINEA(22,102,22,180)
LINEA(0,180,22,180)
LINEA(0,186,188,186)
LINESA(22,192,188,192,0,6,5)
LINEA(22,186,22,216)
LINEA(0,216,22,216)
LINEA(0,222,188,222)
LINESA(22,228,188,228,0,6,4)
LINEA(22,222,22,246)
LINEA(0,246,22,246)
LINESA(0,252,188,252,0,6,2)

FONTSIZE(3.5)
FONTFACE(NORMAL)

TEXT(120.5,19,TA_CENTER,'č.ř.')
TEXT(140.5,19,TA_CENTER,'Stav k 1. 1.')
TEXT(172.5,19,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(120.5,25,TA_CENTER,'b')
TEXT(140.5,25,TA_CENTER,'1')
TEXT(172.5,25,TA_CENTER,'2')
TEXT(57,25,TA_CENTER,'a')
TEXT(10.5,31,TA_LEFT,'5.')
TEXT(5.5,37,TA_LEFT,'Finanční')
TEXT(6,43,TA_LEFT,'investice')
TEXT(10.5,55,TA_LEFT,'B.')
TEXT(10.5,61,TA_LEFT,'1.')
TEXT(7.5,67,TA_LEFT,'Zásoby')
TEXT(10.5,105,TA_LEFT,'2.')
TEXT(5.5,110,TA_LEFT,'Pohledávky')
TEXT(10.5,188,TA_LEFT,'3.')
TEXT(6.5,194,TA_LEFT,'Finanční')
TEXT(7,200,TA_LEFT,'majetek')
TEXT(10.5,224,TA_LEFT,'4.')
TEXT(6.5,229,TA_LEFT,'Přechodné')
TEXT(9,235,TA_LEFT,'účty')
TEXT(8,241,TA_LEFT,'aktivní')

FONTSIZE(3.5)
FONTFACE(NORMAL)

TabPos(31)
DefTab(3,6,24,90,TA_BOTH,121,8,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(38);
    PrintText(1,997);
  end else
  begin
    LoadWnsPos(2)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,14,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,6,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$6)

    SaveWnsPos(3)

    LoadWnsPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(31)
    DefTab(4,6,154,30,TA_RIGHT,185,30,TA_RIGHT)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,14,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,6,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$18)
  end;

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

PEN(0,0.3)
BOXA(116,16,188,264)
LINEA(0,24,188,24)
LINEA(0,24,0,264)
LINEA(0,264,116,264)
LINEA(125,16,125,264)
LINEA(157,16,157,264)
LINEA(0,256,22,256)

LINESA(0,32,188,32,0,8,2)
LINESA(22,48,188,48,0,8,2)
LINEA(0,56,22,56)
LINEA(22,40,22,56)
LINEA(0,64,188,64)
LINESA(22,72,188,72,0,8,3)
LINEA(0,88,22,88)
LINEA(22,64,22,88)
LINESA(0,96,188,96,0,8,3)
LINEA(22,144,22,104)
LINESA(22,120,188,120,0,8,4)
LINEA(0,144,22,144)
LINEA(0,152,188,152)
LINESA(22,160,188,160,0,8,13)
LINEA(22,152,22,256)

FONTSIZE(4.6)
FONTFACE(BOLD)
TEXT(9,17,TA_CENTER,'P A S I V A')

FONTFACE(NORMAL)
FontSize(3.5)
TEXT(120.5,18,TA_CENTER,'č. ř.')
TEXT(140.5,18,TA_CENTER,'Stav k 1. 1.')
TEXT(172.5,18,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(60,27,TA_CENTER,'a')
TEXT(120.5,27,TA_CENTER,'b')
TEXT(140.5,27,TA_CENTER,'3')
TEXT(172.5,27,TA_CENTER,'4')
TEXT(10.5,35,TA_CENTER,'A.')
TEXT(10.5,41,TA_CENTER,'1.')
TEXT(10.5,49,TA_CENTER,'Fondy')
TEXT(10.5,67,TA_CENTER,'2.')
TEXT(10.5,75,TA_CENTER,'Hospodářský')
TEXT(10.5,83,TA_CENTER,'výsledek')
TEXT(10.5,99,TA_CENTER,'B')
TEXT(10.5,107,TA_CENTER,'1.')
TEXT(10.5,115,TA_CENTER,'2.')
TEXT(10.5,123,TA_CENTER,'Dlouhodobé')
TEXT(10.5,131,TA_CENTER,'závazky')
TEXT(10.5,155,TA_CENTER,'3.')
TEXT(10.5,163,TA_CENTER,'Krátkodobé')
TEXT(10.5,171,TA_CENTER,'závazky')

TEXT(140.5,66,TA_CENTER,'X')
TEXT(172.5,74,TA_CENTER,'X')


FONTSIZE(3.5)
FONTFACE(NORMAL)

TabPos(34)
DefTab(3,8,24,90,TA_BOTH,121,8,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(29);
  end else
  begin
    LoadWnsPos(3)
    TabFromWns(1,4,1,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,3,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,1,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,14,$6)

    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(34)
    DefTab(4,8,154,30,TA_RIGHT,185,30,TA_RIGHT)
    TabFromWns(1,4,1,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,3,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,1,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,5,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,14,$18)
  end;

;================================================================= str. 4
nextpage

PEN(0,0.3)
BOXA(116,20,188,131)
LINEA(0,28,188,28)
LINEA(0,28,0,131)
LINEA(0,131,116,131)
LINEA(125,20,125,131)
LINEA(157,20,157,131)
LINEA(0,36,188,36)
LINEA(22,51,188,51)
LINESA(22,59,188,59,0,8,2)
LINEA(22,36,22,67)
LINEA(22,67,0,67)
LINEA(0,75,188,75)
LINEA(22,107,22,75)
LINESA(22,83,188,83,0,8,4)
LINESA(0,107,188,107,0,8,3)

PEN(0,0.3)
BOXA(0,248,188,270)

FONTSIZE(3.5)
FONTFACE(NORMAL)
TEXT(5.5,250.5,TA_LEFT,'Odesláno dne:')
TEXT(61.5,250.5,TA_LEFT,'Razítko:')
TEXT(95.5,250.5,TA_LEFT,'Podpis vedoucího')
TEXT(146.5,250.5,TA_LEFT,'Odpovídající')
TEXT(95.5,253.5,TA_LEFT,'účetní jedotky:')
TEXT(146.5,253.5,TA_LEFT,'za údaje:')
TEXT(146.5,264,TA_LEFT,'Telefon:')

TEXT(120.5,22,TA_CENTER,'č. ř.')
TEXT(140.5,22,TA_CENTER,'Stav k 1. 1.')
TEXT(172.5,22,TA_CENTER,'Stav k '+ObdMaxDay())
TEXT(60,30,TA_CENTER,'a')
TEXT(120.5,30,TA_CENTER,'b')
TEXT(140.5,30,TA_CENTER,'3')
TEXT(172.5,30,TA_CENTER,'4')
TEXT(10.5,38,TA_CENTER,'4.')
TEXT(10.5,45,TA_CENTER,'Bankovní')
TEXT(10.5,52,TA_CENTER,'výpomoci')
TEXT(10.5,59,TA_CENTER,'a půjčky')
TEXT(10.5,77,TA_CENTER,'5.')
TEXT(10.5,84,TA_CENTER,'Přechodné')
TEXT(10.5,91,TA_CENTER,'účty')
TEXT(10.5,98,TA_CENTER,'pasivní')


FONTSIZE(3.5)
FONTFACE(NORMAL)

TabPos(46)
DefTab(3,8,25,90,TA_BOTH,121,8,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(10);
    PrintText(1,998);
  end else
  begin
    LoadWnsPos(4)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,4,$6)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$6)

    LoadWnsPos(4)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(46)
    DefTab(4,8,154,30,TA_RIGHT,185,30,TA_RIGHT)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,4,$18)
    SkipWNSLine(1,4,1)
    TabFromWns(1,4,7,$18)
  end;

END