; Výkaz ZaZ pro podnikatele ve zjednodusenem rozsahu 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('VZaZ pro podnikatele ve zjednodušeném rozsahu','bývalý Úč PODZ 2-01','verze z data 1.3.2002')

DeclareRec('Program')
FileName('FIVZ'+ObdMesic(2)+ObdRok(2)+'.WNS')

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

if(Length(ObdMesic(2))<>0)
  begin
    Name('Výkaz zisků a ztrát - Formulář za '+ObdMesic(2)+ObdRok(2))
  end else
  begin
    Name('Výkaz zisků a ztrát - Prázdný')
    ItsBlank=True
    ReadedLine:String
    FirstChar:Byte
    LineNum:Word=1
  end;

Global MinRok:Boolean=False
Global MinRokName:String
StatusWindowInCall(False)

Global VyplMO:Byte=0
if(not ItsBlank)
  CallDDT('DoplMO.ddt')

PravniForma:String[32]=GetDataINI('INFO','PravniForma')
Bydliste1:String[37]=GetDataINI('INFO','Bydliste1')
Bydliste2:String[37]=GetDataINI('INFO','Bydliste2')
HlCinnost1:String[37]=GetDataINI('INFO','HlCinnost1')
HlCinnost2:String[37]=GetDataINI('INFO','HlCinnost2')

;hlavicka
Global NazevSest1:String='VÝKAZ ZISKU A ZTRÁTY'
Global NazevSest2:String='ve zjednodušeném rozsahu'

;paticka
XZacatek2:Real=0
XKonec2:Real=188
YKonec2:Real=194
Global X1Pata:Real=XZacatek2
Global Y1Pata:Real=YKonec2+15
Global X2Pata:Real=XKonec2
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
Global YTlusta1:Real=79
Global Y1Hlav1:Real=16
Global XKonec1:Real=188
CallDDT('HlavVyk.ddt')

FONTFACE(Normal);
PEN(0,0.7)
ROUNDBOXA(0,61,188,263,3.3,3.3)
LINEA(0,YTlusta1,XKonec1,YTlusta1);
PEN(0,0.3)
LINEA(18,61,18,263)
LINEA(107,61,107,263)
LINEA(116,61,116,263)
LINEA(152,69,152,263)
LINEA(116,69,188,69)

LINESA(0,87,XKonec1,87,0,8,3);
LINESA(18,111,XKonec1,111,0,8,3);
LINEA(0,135,XKonec1,135);
LINESA(18,143,XKonec1,143,0,8,2);
LINESA(0,159,XKonec1,159,0,8,13);



FONTSIZE(3)
FontFace(Normal)
TEXT(9,63,TA_CENTER,'Označení')
TEXT(9,74,TA_CENTER,'a')
TEXT(62.5,63,TA_CENTER,'T E X T')
TEXT(62.5,74,TA_CENTER,'b')
TEXT(111.5,63,TA_CENTER,'Číslo')
TEXT(111.5,65.75,TA_CENTER,'řádku')
TEXT(111.5,74,TA_CENTER,'c')
TEXT(152,63,TA_CENTER,'Skutečnost v účetním období')
TEXT(134,71,TA_CENTER,'sledovaném')
TEXT(134,74,TA_CENTER,'1');
if(VyplMo=3)
  TEXT(170,71,TA_CENTER,'minulém - srovnatelném')
else
  TEXT(170,71,TA_CENTER,'minulém')
TEXT(170,74,TA_CENTER,'2')

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

TabPos(82)
DefTab(3,8,2,14,TA_LEFT,20,85,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(23);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(2,256,23,$7)
    SaveWnsPos(2);

    LoadWnsPos(1);
    FontSize(4.5);
    FontFace(Bold|Italic)
    TabPos(81)
    DefTab(1,8,149,31,TA_RIGHT)
    TabFromWns(2,256,23,$8)
  end;

if(MinRok)
  begin
;    OpenWNSIfExist(Copy(WNSName,'1','4')+'13'+PredObdRok(2)+'.'+FromChar('.',WnsName))     ;VZaZ z minuleho roku
    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
    TabPos(81)
    DefTab(1,8,185,31,TA_RIGHT)
    TabFromWns(2,256,23,$8)
    SaveWnsPos(12) ;znacka v souboru z minuleho roku
    OpenWNS(WNSName)  ; otevreni zase toho aktualniho roku
  end;

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


;========================================== str. 2
NextPage
PEN(0,0.7)
LINEA(0,18,188,18)
ROUNDBOXA(0,0,188,194,3.3,3.3)
PEN(0,0.3)
LINEA(18,0,18,200-6)
LINEA(107,0,107,200-6)
LINEA(116,0,116,200-6)
LINEA(152,8,152,200-6)
LINEA(116,8,188,8)
LINESA(0,26,188,26,0,8,9)
LINESA(18,98,188,98,0,8,2)
LINESA(0,114,188,114,0,8,5)
LINESA(18,154,188,154,0,8,2)
LINESA(0,170,188,170,0,8,3)

;PEN(0,0.4)
;ROUNDBOXA(0,220,188,265,3.3,3.3)

FONTSIZE(3)
TEXT(9,2,TA_CENTER,'Označení')
TEXT(9,13,TA_CENTER,'a')
TEXT(9,2,TA_CENTER,'Označení')
TEXT(9,13,TA_CENTER,'a')
TEXT(62.5,2,TA_CENTER,'T E X T')
TEXT(62.5,13,TA_CENTER,'b')
TEXT(111.5,2,TA_CENTER,'Číslo')
TEXT(111.5,4.75,TA_CENTER,'řádku')
TEXT(111.5,13,TA_CENTER,'c')
TEXT(152,2,TA_CENTER,'Skutečnost v účetním období')
TEXT(134,10,TA_CENTER,'sledovaném')
TEXT(134,13,TA_CENTER,'1');
if(VyplMo=3)
  TEXT(170,10,TA_CENTER,'minulém - srovnatelném')
else
  TEXT(170,10,TA_CENTER,'minulém')
TEXT(170,13,TA_CENTER,'2')

TabPos(21)
DefTab(3,8,2,14,TA_LEFT,20,85,TA_BOTH,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(22);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(2,256,22,$7)

    LoadWNSPos(2);
    FontSize(4.5);
    FontFace(Bold|Italic);
    TabPos(20)
    DefTab(1,8,149,31,TA_RIGHT)
    TabFromWns(2,256,22,$8)
  end;

if(MinRok)
  begin
    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
;    OpenWNSIfExist(Copy(WNSName,'1','4')+'13'+PredObdRok(2)+'.'+FromChar('.',WnsName))     ;VZaZ z minuleho roku
    LoadWNSPos(12);
    IF(Val(Rok(4))>2002)   ;je-li pocitano za rok 2003, vykazy na sebe navazuji (stav v unoru 2002)
      begin
        TabPos(20)
        DefTab(1,8,185,31,TA_RIGHT)
        TabFromWns(2,256,22,$8)
      end else           ;pocita se za rok 2002, je treba nacist z jineho VZaZ z roku 2001
        begin
          TabPos(20)
          DefTab(1,8,185,31,TA_RIGHT)
          TabFromWns(2,256,12,$8)
          SkipWNSLine(2,256,1)       ; 36ř   Úč PODZ 2-01
          ;LoadWNSLine(2,256)
          TabFromWns(2,256,10,$8)
        end
;    OpenWNS(WNSName)  ; otevreni zase toho aktualniho roku
  end

CallDDT('PataVyk.DDT')

END