; Rozvaha pro podnikatele ve zkracenem rozsahu pro rok 1999-2001
; verze z 11.4.2003
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Rozvaha pro podnikatele ve zkáceném rozsahu','formulář Úč PODZ 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,91,188,91)

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,72,188,251)
LINEA(13,72,13,251)
LINEA(71,72,71,251)
LINEA(80.5,72,80.5,251)
LINEA(107.5,79.5,107.5,251)
LINEA(134.5,79.5,134.5,251)
LINEA(162,72,162,251)
LINEA(80.5,79.5,162,79.5)
LINESA(0,99,188,99,0,8,4)
LINESA(13,131,188,131,0,8,7)
LINESA(0,187,188,187,0,8,3)
LINESA(13,211,188,211,0,8,5)

FONTSIZE(2.5)
TEXT(0,4,TA_LEFT,'Schváleno MF ČR')
TEXT(0,6.5,TA_LEFT,'č.j. 281/71 701/1995')
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')
TEXT(0,31.5,TA_LEFT,'1 x')
TEXT(5,31.5,TA_LEFT,'okresní statistické správě')
TEXT(5,34,TA_LEFT,'(příslušnému útvaru ČSÚ,')
TEXT(5,36.5,TA_LEFT,'(resp. krajské statistické')
TEXT(5,39,TA_LEFT,'správě)')

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,18,TA_CENTER,'(v celých tisících Kč)')

FONTSIZE(4.5)
FONTFACE(BOLD)
TEXT(90,1,TA_CENTER,'ROZVAHA')
TEXT(90,6,TA_CENTER,'ve zkráceném rozsahu')
TEXT(90,13,TA_CENTER,'k '+ObdMaxDay(1,1))

FONTSIZE(4)
FONTFACE(NORMAL)
TEXT(49.5,34.5,TA_CENTER,'01')
TEXT(65.25,34.5,TA_CENTER,'802095')
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 Úč PODZ 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,75,TA_CENTER,'označ.')
TEXT(6.5,86.5,TA_CENTER,'a')
TEXT(42,75,TA_CENTER,'A K T I V A')
TEXT(42,86.5,TA_CENTER,'b')
TEXT(75.75,75,TA_CENTER,'řád.')
TEXT(75.75,86.5,TA_CENTER,'c')
TEXT(121,75,TA_CENTER,'Běžné účetní období')
TEXT(93.5,82,TA_CENTER,'Brutto')
TEXT(93.5,86.5,TA_CENTER,'1');
TEXT(121,82,TA_CENTER,'Korekce')
TEXT(121,86.5,TA_CENTER,'2');
TEXT(147.5,82,TA_CENTER,'Netto')
TEXT(147.5,86.5,TA_CENTER,'3');
TEXT(175,75,TA_CENTER,'Minulé úč. období')
TEXT(175,82,TA_CENTER,'Netto')
TEXT(175,86.5,TA_CENTER,'4');

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

TabPos(93.5)
DefTab(3,8,2,10,TA_LEFT,14,56,TA_LEFT,76,5,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(20);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,256,20,$7)
    SaveWnsPos(2)
    LoadWnsPos(1)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(93)
    DefTab(4,8,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
    TabFromWns(1,256,20,$78)
  end;

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


;============================== str. 2
NextPage
PEN(0,0.7)
LINEA(0,20.5,188,20.5)
LINEA(0,243.25,188,243.25)

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,27.25,188,27.25)
LINESA(13,34,188,34,0,6.75,6)
LINEA(0,74.5,188,74.5)
LINESA(13,81.25,188,81.25,0,6.75,5)
LINEA(0,115,188,115)
LINESA(13,121.75,188,121.75,0,6.75,8)
LINEA(0,175.75,188,175.75)
LINESA(13,182.5,188,182.5,0,6.75,3)
LINESA(0,202.75,188,202.75,0,6.75,2)
LINESA(13,216.25,188,216.25,0,6.75,3)
LINEA(0,236.5,188,236.5)

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

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

    LoadWnsPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(22)
    DefTab(4,6.75,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
    TabFromWns(1,256,34,$78)
  end;



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

PEN(0,0.3)
BOXA(0,0,188,235)
LINEA(13,0,13,235)
LINEA(103,0,103,235)
LINEA(112,0,112,235)
LINEA(150,0,150,235)
LINESA(0,17.5,188,17.5,0,7.5,2)
LINESA(13,32.5,188,32.5,0,7.5,2)
LINEA(0,47.5,188,47.5)
LINESA(13,55,188,55,0,7.5,4)
LINEA(0,85,188,85)
LINESA(13,92.5,188,92.5,0,7.5,3)
LINEA(0,115,188,115)
LINESA(13,122.5,188,122.5,0,7.5,2)
LINESA(0,137.5,188,137.5,0,7.5,3)
LINESA(13,160,188,160,0,7.5,3)
LINEA(0,182.5,188,182.5)
LINESA(13,190,188,190,0,7.5,6)

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,3,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')

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

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

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

PEN(0,0.3)
BOXA(0,0,188,167.5)
LINEA(13,0,13,167.5)
LINEA(103,0,103,167.5)
LINEA(112,0,112,167.5)
LINEA(150,0,150,167.5)
LINESA(13,17.5,188,17.5,0,7.5,9)
LINEA(0,85,188,85)
LINESA(13,92.5,188,92.5,0,7.5,3)
LINESA(0,115,188,115,0,7.5,2)
LINESA(13,130,188,130,0,7.5,3)
LINEA(0,152.5,188,152.5)
LINEA(40,220,40,265);
LINESA(90,220,90,265,50,0,2);

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(13)
DefTab(3,7.5,2,10,TA_LEFT,14,87,TA_LEFT,107.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(20);
    PrintText(1,999);
  end else
  begin
    LoadWNSPos(4)
    TabFromWns(1,256,21,$7)

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

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