; Výkaz ZaZ pro podnikatele v plném rozsahu pro rok 1999-2001
; verze z 11.4.2003
FileName('FIVZ'+ObdMesic(2)+ObdRok(2)+'.WNS')
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('VZaZ pro podnikatele v plném rozsahu','formulář Úč POD 2-01')

MinRok:Boolean
MinRokName:String
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(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=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,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,260.5)
LINEA(18,56,18,260.5)
LINEA(107,56,107,260.5)
LINEA(116,56,116,260.5)
LINEA(152,62.5,152,260.5)
LINEA(116,62.5,188,62.5)

LINESA(0,78.5,188,78.5,0,6.5,3)
LINESA(18,98,188,98,0,6.5,3)
LINEA(0,117.5,188,117.5)
LINESA(18,124,188,124,0,6.5,2)
LINESA(0,137,188,137,0,6.5,2)
LINESA(18,150,188,150,0,6.5,4)
LINESA(0,176,188,176,0,6.5,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')
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,'v plném rozsahu')
TEXT(90,13,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,'803095')
TEXT(83.25,34.5,TA_CENTER,ObdRok)

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

FONTSIZE(3)
TEXT(168,3,TA_CENTER,'Výsledovka Úč POD 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,58,TA_CENTER,'Označení')
TEXT(9,67,TA_CENTER,'a')
TEXT(62.5,58,TA_CENTER,'T E X T')
TEXT(62.5,67,TA_CENTER,'b')
TEXT(111.5,57,TA_CENTER,'Číslo')
TEXT(111.5,61.5,TA_CENTER,'řádku')
TEXT(111.5,67,TA_CENTER,'c')
TEXT(152,58,TA_CENTER,'Skutečnost v účetním období')
TEXT(134,64,TA_CENTER,'sledovaném')
TEXT(134,67,TA_CENTER,'1');
TEXT(170,64,TA_CENTER,'minulém')
TEXT(170,67,TA_CENTER,'2')

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

TabPos(74.5)
DefTab(3,6.5,2,14,TA_LEFT,20,85,TA_LEFT,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(29);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(2,0,29,$7)
    SaveWnsPos(2)

    LoadWnsPos(1)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(73.5)
    DefTab(1,6.5,149,31,TA_RIGHT)
    TabFromWns(2,0,29,$8)
  end;

if(MinRok)
  begin
    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
    TabPos(73.5)
    DefTab(1,6.5,185,31,TA_RIGHT)
    TabFromWns(2,0,29,$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,16,188,16)

PEN(0,0.3)
BOXA(0,0,188,230.5)

LINEA(18,0,18,230.5)
LINEA(107,0,107,230.5)
LINEA(116,0,116,230.5)
LINEA(152,6,152,230.5)
LINEA(116,6,188,6)

LINESA(0,22.5,188,22.5,0,6.5,2)
LINESA(18,35.5,188,35.5,0,6.5,3)
LINESA(0,55,188,55,0,6.5,13)
LINESA(18,139.5,188,139.5,0,6.5,2)
LINESA(0,152.5,188,152.5,0,6.5,5)
LINESA(18,185,188,185,0,6.5,2)
LINESA(0,198,188,198,0,6.5,5)

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

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

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

TabPos(18)
DefTab(3,6.5,2,14,TA_LEFT,20,85,TA_LEFT,111.5,7,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(32);
    PrintText(1,999);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(2,0,33,$7)

    LoadWNSPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(17)
    DefTab(1,6.5,149,31,TA_RIGHT)
    ;DefTab(2,6.5,149,31,TA_RIGHT,185,31,TA_RIGHT)
    TabFromWns(2,0,33,$8)
  end;

if(MinRok)
  begin
    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
    LoadWNSPos(12);
    TabPos(17)
    DefTab(1,6.5,185,31,TA_RIGHT)
    TabFromWns(2,0,33,$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