; Rozvaha pro podnikatele ve zjednodusenem pro rok 2002
; 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 zjednodušeném rozsahu')

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;


Global MinRok:Boolean=False
Global VyplMO:Byte=0
ItsBlank:Boolean
FormName:String=GetTabName(3);

if(Length(ObdMesic(2))<>0)
  begin
    Name('Rozvaha - Formulář za '+ObdMesic(2)+ObdRok(2))
    CallDDT('DoplMOR.ddt')
  end else
  begin
    Name('Rozvaha - Prázdný formulář')
    ItsBlank=True
    ReadedLine:String
    FirstChar:Byte
    LineNum:Word=1
  end;

PocRad1:Byte=22   ;pocet radku tabulky na 1. strane
PocRad2:Byte=32   ;pocet radku tabulky na 2. strane
PocRad3:Byte=30   ;pocet radku tabulky na 3. strane
PocRad4:Byte=18   ;pocet radku tabulky na 4. strane
YRadkovani1:Real=8  ;posun radku v tabulce na 1.strane
YRadkovani2:Real=7.5
YRadkovani3:Real=7.5
YRadkovani4:Real=7.5
YKonec1:Real=72+19+(pocrad1*YRadkovani1)  ;72+19=Y-souradnice prvni tluste cary
YKonec2:Real=20.5+(pocrad2*YRadkovani2)
YKonec3:Real=10+(pocrad3*YRadkovani3)
YKonec4:Real=10+(pocrad4*YRadkovani4)

;hlavicka
Global NazevSest1:String='ROZVAHA'
Global NazevSest2:String='ve zjednodušeném rozsahu'

;paticka:
XZacatek4:Real=0
XKonec4:Real=188
Global X1Pata:Real=XZacatek4
Global Y1Pata:Real=YKonec4+15
Global X2Pata:Real=XKonec4
Global Y2Pata:Real=Y1Pata+30

Global Opatr1:String='Podle opatření Ministerstva financí ČR'
Global Opatr2:String='Č.j.:281/97 417/2001'
Global Opatr3:String='ze dne 14. prosince 2001'

;definice 1.strany
Global XZacatek1:Real=0  ; x souradnice zacatku tabulky na 1. straně
Global YTlusta1:Real=72   ; Y-souradnice prvni tluste cary
Global Y1Hlav1:Real=16
Global XKonec1:Real=188  ; x souradnice konce tabulky na 1. straně
CallDDT('HlavVyk.ddt')

FONTFACE(Normal)
PEN(0,0.7)
ROUNDBOXA(0,72,188,Ykonec1,3.3,3.3)
LINEA(0,91,188,91)

PEN(0,0.3)
LINEA(13,72,13,Ykonec1)
LINEA(71,72,71,Ykonec1)
LINEA(80.5,72,80.5,Ykonec1)
LINEA(107.5,79.5,107.5,Ykonec1)
LINEA(134.5,79.5,134.5,Ykonec1)
LINEA(162,72,162,Ykonec1)
LINEA(80.5,79.5,162,79.5)
LINESA(0,99,13,99,0,YRadkovani1,4)
LINESA(0,187,13,187,0,YRadkovani1,3)
LINESA(13,99,188,99,0,YRadkovani1,PocRad1-1)


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,YRadkovani1,10,10,TA_RIGHT,14,56,TA_BOTH,76,5,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad1);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,256,PocRad1,$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)
    if(MinRok)
        TabFromWns(1,256,PocRad1,$78)
      else
        TabFromWns(1,256,PocRad1,$38)
  end;

FontFace(Normal)
FONTSIZE(2.6)
TEXT(188,YKonec1+2,TA_RIGHT,'Vytištěno systémem WinDUO')


;============================== str. 2
NextPage
PEN(0,0.7)
LINEA(0,20.5,188,20.5)
ROUNDBOXA(0,1.5,188,YKonec2,3.3,3.3)

PEN(0,0.3)
LINEA(13,1.5,13,YKonec2)
LINEA(71,1.5,71,YKonec2)
LINEA(80.5,1.5,80.5,YKonec2)
LINEA(107.5,9,107.5,YKonec2)
LINEA(134.5,9,134.5,YKonec2)
LINEA(162,1.5,162,YKonec2)
LINEA(80.5,9,162,9)
LINEA(0,27.25,13,27.25)
LINEA(0,27.25+(YRadkovani2*7),13,27.25+(YRadkovani2*7))
LINEA(0,27.25+(YRadkovani2*13),13,27.25+(YRadkovani2*13))
LINEA(0,27.25+(YRadkovani2*21),13,27.25+(YRadkovani2*21))
LINESA(0,27.25+(YRadkovani2*26),13,27.25+(YRadkovani2*26),0,YRadkovani2,2)
LINEA(0,Double(27.25+(YRadkovani2*30)),13,Double(27.25+(YRadkovani2*30)))
LINESA(13,27.25,188,27.25,0,YRadkovani2,PocRad2-1)

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(22.5)
DefTab(3,YRadkovani2,2,10,TA_LEFT,14,56,TA_BOTH,75.75,5,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad2);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(1,256,PocRad2,$7)
    SaveWnsPos(3); ulozim aktualni pozici ve WNS souboru do bunky 3

    LoadWnsPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(22)
    DefTab(4,YRadkovani2,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
    if(MinRok)
        TabFromWns(1,256,PocRad2,$78)
      else
        TabFromWns(1,256,PocRad2,$38)
  end;


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

PEN(0,0.3)
LINEA(13,0,13,YKonec3)
LINEA(103,0,103,YKonec3)
LINEA(112,0,112,YKonec3)
LINEA(150,0,150,YKonec3)
LINESA(0,17.5,13,17.5,0,YRadkovani3,2)
LINEA(0,47.5,13,47.5)
LINEA(0,85,13,85)
LINEA(0,115,13,115)
LINESA(0,137.5,13,137.5,0,YRadkovani3,3)
LINEA(0,182.5,13,182.5)
LINESA(13,17.5,188,17.5,0,YRadkovani3,PocRad3-1)

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,YRadkovani3,2,10,TA_LEFT,14,87,TA_BOTH,107.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad3);
  end else
  begin
    LoadWNSPos(3)
    TabFromWns(1,256,PocRad3,$7)
    SaveWnsPos(4)

    LoadWnsPos(3)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(12)
    DefTab(2,YRadkovani3,148,35,TA_RIGHT,186,35,TA_RIGHT)
    if(MinRok)
        TabFromWns(1,256,PocRad3,$18)
      else
        TabFromWns(1,256,PocRad3,$8)
  end;

;========================================================== str. 4
NextPage
PEN(0,0.7)
LINEA(0,10,188,10)
ROUNDBOXA(0,0,188,YKonec4,3.3,3.3)

PEN(0,0.3)
LINEA(13,0,13,YKonec4)
LINEA(103,0,103,YKonec4)
LINEA(112,0,112,YKonec4)
LINEA(150,0,150,YKonec4)
LINEA(0,77.5,13,77.5)
LINESA(0,107.5,13,107.5,0,YRadkovani4,2)
LINEA(0,137.5,13,137.5)
LINESA(13,17.5,188,17.5,0,YRadkovani4,PocRad4-1)
;ROUNDBOXA(0,220,188,265,3.3,3.3)

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,'Okamžik sestavení účetní závěrky:');
;TEXT(138,223,TA_LEFT,'Podpis statutárního orgánu účetní jednotky');
;TEXT(138,226,TA_LEFT,'nebo fyzické osoby, která');
;TEXT(138,229,TA_LEFT,'je účetní jednotkou:');

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

    LoadWnsPos(4)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(12)
    DefTab(2,YRadkovani4,148,35,TA_RIGHT,186,35,TA_RIGHT)
    if(MinRok)
        TabFromWns(1,256,PocRad4,$18)
      else
        TabFromWns(1,256,PocRad4,$8)
  end;

CallDDT('PataVyk.ddt')

END