; Rozvaha pro spořitelní družstva
; verze z 11.4.2003
; Autor: WinDUO Team

Designed('')
Author('Winduo Team','EMail: winduo@winduo.mine.nu','http://www.winduo.com','http://winduo.mine.nu')
Descr('Rozvaha pro spořitelní družstva','formulář Úč DZ 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)
LINEA(0,72,188,72)

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,56,188,248)
LINEA(13,56,13,248)
LINEA(71,56,71,248)
LINEA(80.5,56,80.5,248)
LINEA(107.5,63,107.5,248)
LINEA(134.5,63,134.5,248)
LINEA(162,56,162,248)
LINEA(80.5,63,162,63)

LINESA(0,80,188,80,0,8,3)
LINESA(13,104,188,104,0,8,5)
LINEA(0,144,188,144)
LINESA(13,152,188,152,0,8,7)
LINEA(0,208,188,208)
LINESA(13,216,188,216,0,8,4)

FONTSIZE(2.5)
TEXT(0,4,TA_LEFT,'Schváleno MF ČR')
TEXT(0,6.5,TA_LEFT,'č.j. 282/44 645/1996')
TEXT(0,11.5,TA_LEFT,'Účetní jednotka doručí')
TEXT(0,14,TA_LEFT,'účetní závěrku současně')
TEXT(0,16.5,TA_LEFT,'s doručením daňového přiznání')
TEXT(0,19,TA_LEFT,'za daň z příjmů')
TEXT(0,24,TA_LEFT,'1 x')
TEXT(5,24,TA_LEFT,'příslušnému finančnímu')
TEXT(5,26.5,TA_LEFT,'úřadu')

FONTSIZE(3.75)
TEXT(49.5,26,TA_CENTER,'Čís.ř.')
TEXT(65.25,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')
TEXT(90,15,TA_CENTER,'(v celých tisících Kč)')

FONTSIZE(4.5)
FONTFACE(BOLD)
TEXT(90,3,TA_CENTER,'ROZVAHA')
TEXT(90,10,TA_CENTER,'ke dni '+ObdMaxDay(1,1))

FONTSIZE(4)
FONTFACE(NORMAL)
TEXT(49.5,34.5,TA_CENTER,'01')
TEXT(65.25,34.5,TA_CENTER,'805096')
TEXT(83.25,34.5,TA_CENTER,ObdRok)

FONTFACE(BOLD)
STEXT(132.5,34,TA_RIGHT,3.6,8,GetDataIni('Info','ICO'))
STEXT(100,34,TA_RIGHT,4.5,2,ObdMesic(2))

FONTSIZE(3)
TEXT(168,3,TA_CENTER,'Rozvaha Úč DZ 1 - 01')

FONTSIZE(2.75)
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)
FONTFACE(Normal)

TEXT(6.5,58,TA_CENTER,'označ.')
TEXT(6.5,67.5,TA_CENTER,'a')
TEXT(42,58,TA_CENTER,'A K T I V A')
TEXT(42,67.5,TA_CENTER,'b')
TEXT(75.75,58,TA_CENTER,'řád.')
TEXT(75.75,67.5,TA_CENTER,'c')
TEXT(121,58,TA_CENTER,'Běžné účetní období')
TEXT(93.5,64,TA_CENTER,'Brutto')
TEXT(93.5,67.5,TA_CENTER,'1');
TEXT(121,64,TA_CENTER,'Korekce')
TEXT(121,67.5,TA_CENTER,'2');
TEXT(147.5,64,TA_CENTER,'Netto')
TEXT(147.5,67.5,TA_CENTER,'3');
TEXT(175,58,TA_CENTER,'Minulé úč. období')
TEXT(175,64,TA_CENTER,'Netto')
TEXT(175,67.5,TA_CENTER,'4');

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

TabPos(74)
DefTab(3,8,2,10,TA_LEFT,14,56,TA_LEFT,76,5,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(22);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,3,22,$7)
    SaveWnsPos(2)

    LoadWnsPos(1)
    FontSize(4)
    FontFace(Bold|Italic)
    TabPos(73.5)
    DefTab(4,8,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
    TabFromWns(1,3,22,$78)
  end;

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

;======================================= str. 2
NextPage
PEN(0,0.7)
LINEA(0,18,188,18)
LINEA(0,242,188,242)

PEN(0,0.3)
BOXA(0,1.5,188,250)
LINEA(13,1.5,13,250)
LINEA(71,1.5,71,250)
LINEA(80.5,1.5,80.5,250)
LINEA(107.5,9,107.5,250)
LINEA(134.5,9,134.5,250)
LINEA(162,1.5,162,250)
LINEA(80.5,9,162,9)

LINEA(0,26,188,26)
LINESA(13,34,188,34,0,8,2)
LINEA(0,50,188,50)
LINESA(13,58,188,58,0,8,2)
LINEA(0,74,188,74)
LINESA(13,82,188,82,0,8,9)
LINEA(0,154,188,154)
LINESA(13,162,188,162,0,8,4)
LINESA(0,194,188,194,0,8,2)
LINESA(13,210,188,210,0,8,3)
LINEA(0,234,188,234)

FONTSIZE(3)
TEXT(6.5,4.5,TA_CENTER,'označ.')
TEXT(6.5,14,TA_CENTER,'a')
TEXT(42,4.5,TA_CENTER,'A K T I V A')
TEXT(42,14,TA_CENTER,'b')
TEXT(75.75,4.5,TA_CENTER,'řád.')
TEXT(75.75,14,TA_CENTER,'c')
TEXT(121,4.5,TA_CENTER,'Běžné účetní období')
TEXT(93.5,11,TA_CENTER,'Brutto')
TEXT(93.5,14,TA_CENTER,'1');
TEXT(121,11,TA_CENTER,'Korekce')
TEXT(121,14,TA_CENTER,'2');
TEXT(147.5,11,TA_CENTER,'Netto')
TEXT(147.5,14,TA_CENTER,'3');
TEXT(175,4.5,TA_CENTER,'Minulé úč. období')
TEXT(175,11,TA_CENTER,'Netto')
TEXT(175,14,TA_CENTER,'4');

TabPos(21)
DefTab(3,8,2,10,TA_LEFT,14,56,TA_LEFT,75.75,5,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(28);
    PrintText(1,999);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(1,3,29,$7)
    SaveWnsPos(3); ulozim aktualni pozici ve WNS souboru do bunky 3

    LoadWnsPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(20)
    DefTab(4,8,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
    TabFromWns(1,3,29,$78)
  end;

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

FONTFACE(NORMAL)
PEN(0,0.7)
LINEA(0,18,188,18)

PEN(0,0.3)
BOXA(0,0,188,258)
LINEA(13,0,13,258)
LINEA(103,0,103,258)
LINEA(112,0,112,258)
LINEA(150,0,150,258)

LINESA(0,28,188,28,0,10,3)
LINESA(13,58,188,58,0,10,2)
LINEA(0,78,188,78)
LINESA(13,88,188,88,0,10,2)
LINEA(0,108,188,108)
LINESA(13,118,188,118,0,10,2)
LINESA(0,138,188,138,0,10,3)
LINESA(13,168,188,168,0,10,3)
LINEA(0,198,188,198)
LINESA(13,208,188,208,0,10,5)

FONTSIZE(3)
TEXT(6.5,2,TA_CENTER,'označ.')
TEXT(6.5,12,TA_CENTER,'a')
TEXT(58,2,TA_CENTER,'P A S I V A')
TEXT(58,12,TA_CENTER,'b')
TEXT(107.5,3,TA_CENTER,'řád.')
TEXT(107.5,12,TA_CENTER,'c')
TEXT(131,2,TA_CENTER,'Stav v běžném účet. období')
TEXT(131,12,TA_CENTER,'5')
TEXT(169,2,TA_CENTER,'Stav v minulém účet. období')
TEXT(169,12,TA_CENTER,'6')

TabPos(22)
DefTab(3,10,2,10,TA_LEFT,14,87,TA_LEFT,107.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(24);
  end else
  begin
    LoadWNSPos(3)
    TabFromWns(1,3,24,$7)
    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(21)
    DefTab(2,10,148,35,TA_RIGHT,186,35,TA_RIGHT)
    TabFromWns(1,3,24,$18)
  end;

;==================================== str. 4
NextPage
PEN(0,0.7)
LINEA(0,10,188,10)
LINEA(0,197.5,188,197.5)

PEN(0,0.3)
BOXA(0,0,188,205)
LINEA(13,0,13,205)
LINEA(103,0,103,205)
LINEA(112,0,112,205)
LINEA(150,0,150,205)
LINESA(13,17.5,188,17.5,0,7.5,12)
LINEA(0,107.5,188,107.5)
LINESA(13,115,188,115,0,7.5,5)
LINEA(0,107.5,188,107.5)
LINESA(0,152.5,188,152.5,0,7.5,2)
LINESA(13,167.5,188,167.5,0,7.5,3)
LINEA(0,190,188,190)

PEN(0,0.4);
BOXA(0,220,188,265)

FONTSIZE(3)
FONTFACE(NORMAL)

TEXT(6.5,2,TA_CENTER,'označ.')
TEXT(6.5,6,TA_CENTER,'a')
TEXT(58,2,TA_CENTER,'P A S I V A')
TEXT(58,6,TA_CENTER,'b')
TEXT(107.5,2,TA_CENTER,'řád.')
TEXT(107.5,6,TA_CENTER,'c')
TEXT(131,2,TA_CENTER,'Stav v běžném účet. období')
TEXT(131,6,TA_CENTER,'5')
TEXT(169,2,TA_CENTER,'Stav v minulém účet. období')
TEXT(169,6,TA_CENTER,'6')

TEXT(3,223,TA_LEFT,'Odesláno dne:');
TEXT(43,223,TA_LEFT,'Podpis statutárního orgánu');
TEXT(43,226,TA_LEFT,'nebo fyzické osoby, která');
TEXT(43,229,TA_LEFT,'je účetní jednotkou');
TEXT(93,223,TA_LEFT,'Osoba odpovědná za účetnictví');
TEXT(93,226,TA_LEFT,'(jméno a podpis)');
TEXT(143,223,TA_LEFT,'Osoba odpovědná za účetní');
TEXT(143,226,TA_LEFT,'závěrku (jméno a podpis)');
TEXT(143,256,TA_LEFT,'tel.:');
TEXT(171,256,TA_LEFT,'linka:');

TabPos(12.5)
DefTab(3,7.5,2,10,TA_LEFT,14,87,TA_LEFT,107.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(25);
    PrintText(1,999);
  end else
  begin
    LoadWNSPos(4)
    TabFromWns(1,3,26,$7)

    LoadWnsPos(4)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(11.5)
    DefTab(2,7.5,148,35,TA_RIGHT,186,35,TA_RIGHT)
    TabFromWns(1,3,26,$18)
  end;

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