; VZaZ pro polit.strany a jiné nevýdělečné... pro rok 1999
; verze z 11.4.2003
Designed('')
Author('Winduo Team','EMail: winduo@winduo.mine.nu','http://www.winduo.com','http://winduo.mine.nu')
Descr('VZaZ pro politické strany, hnutí a jiné nevýdělečné organizace','formulář SONO Úč 1 -01','z data 2.8.1999')

FileName('FIVZ'+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(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=201
  end;

PEN(0,0.3)
BOXA(0,18,188,259.8)

LINEA(116,18,116,259.8)
LINEA(125,18,125,259.8)
LINEA(125,23.6,188,23.6)
LINEA(157,23.6,157,259.8)

LINESA(0,29.2,188,29.2,0,5.6,41)

FONTSIZE(4)
FONTFACE(BOLD)
TEXT(78,10,TA_LEFT,'VÝKAZ ZISKU A ZTRÁTY')
FONTFACE(NORMAL)

FONTSIZE(3)
FONTFACE(NORMAL)
TEXT(5,22,TA_LEFT,'Název ukazatele')
TEXT(156.5,18.5,TA_CENTER,'Činnost')
TEXT(141,24.5,TA_CENTER,'nezdaňovaná')
TEXT(172.5,24.5,TA_CENTER,'zdaňovaná')
TEXT(120.5,20,TA_CENTER,'čís.')
TEXT(120.5,24,TA_CENTER,'řádku.')
TEXT(58,30.5,TA_CENTER,'a')
TEXT(120.5,30.5,TA_CENTER,'b')
TEXT(140.5,30.5,TA_CENTER,'5')
TEXT(172.5,30.5,TA_CENTER,'6')

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

TabPos(35.5)
DefTab(3,5.6,4,108,TA_BOTH,120,8,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(39);
    PrintText(1,999);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(2,2,40,$6)

    LoadWnsPos(1)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(35.5)
    DefTab(4,5.6,154,30,TA_RIGHT,185,30,TA_RIGHT)
    TabFromWns(2,2,40,$18)
  end;

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


End