; Výkaz ZaZ 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('VZaZ pro podnikatele ve zkáceném rozsahu','formulář Úč PODZ 2-01')

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;

MinRok:Boolean
MinRokName:String

MinRok=False

MinRokName=WorkPath+Copy(WNSName(),1,4)+'13'+PredObdRok(2)+'.'+FromChar('.',WnsName)
if((ExistFile(MinRokName)) and (not ItsBlank))
  begin
    if(FirstInBatch())
      begin
        MinRok=Question('Přejete si vyplnit i sloupec pro minulé období?')
        SetIni('TEMP','MinRok',MinRok)
      end else
      begin
        MinRok=GetBoolean(GetIni('TEMP','MinRok'),True)
      end
  end

FONTFACE(Normal);
PEN(0,0.7)
BOXA(45,24,135,41)
LINEA(0,79,188,79);
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,61,188,263)
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,188,87,0,8,3);
LINESA(18,111,188,111,0,8,3);
LINEA(0,135,188,135);
LINESA(18,143,188,143,0,8,2);
LINESA(0,159,188,159,0,8,13);

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,'VÝKAZ ZISKŮ A ZTRÁT')
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,'804095')
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,'Výsledovka Úč PODZ 2 -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(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');
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_LEFT,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(2,8,149,31,TA_RIGHT,185,31,TA_RIGHT)
    ;TabFromWns(2,256,23,$18)
    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;


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,18,188,18)
PEN(0,0.3)
BOXA(0,0,188,210)
LINEA(18,0,18,210)
LINEA(107,0,107,210)
LINEA(116,0,116,210)
LINEA(152,8,152,210)
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,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)
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');
TEXT(170,10,TA_CENTER,'minulém')
TEXT(170,13,TA_CENTER,'2')

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(21)
DefTab(3,8,2,14,TA_LEFT,20,85,TA_LEFT,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(23);
    PrintText(1,999);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(2,256,24,$7)

    LoadWNSPos(2);
    FontSize(4.5);
    FontFace(Bold|Italic);
    TabPos(20)
    DefTab(1,8,149,31,TA_RIGHT)
    TabFromWns(2,256,24,$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);
    TabPos(20)
    DefTab(1,8,185,31,TA_RIGHT)
    TabFromWns(2,256,24,$8)
;    OpenWNS(WNSName)  ; otevreni zase toho aktualniho roku
  end

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