; Vystup faktury do HTML souboru
; verze z 11.8.2004
; Autor: WinDUO Team

Name('Odeslání faktury emailem')
Designed('Faktura')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Odešle fakturu ve formátu HTML emailem.')
WNSType(-1);

;****************************************************************************
; Deklarace, popřípadě i inicializace proměnných
;****************************************************************************

Global HTMLFileName:String=WorkPath()+'FaktMail.htm';
Mail:EMLFile;
MailText:TextFile;
DeclareRec('Program');
DeclareRec('Adresar');
DeclareRec('KeyAdresar1');
DeclareRec('Pohledavka');
Global NazevDokladu:String='Faktura'
LocL:LongInt
LocStr:String

  GetBindRec('Pohledavka');

  CallDDT('FaktHTML.ddt');

  if(Length(Program.EMail)<>0)
    SetEMLItem(Mail,eml_From,Program.EMail);
  KeyAdresar1.Length=4
  KeyAdresar1.ICO=SwapL(Pohledavka.ICO)
  if(FindKey(KeyAdresar1,LocL))
    begin
      ReadRec(Adresar,LocL);
      if(Length(Adresar.EMail)<>0)
        begin
          SetEMLItem(Mail,eml_To,Adresar.EMail);
        end;
    end;
  NazevDokladu=NoCS(NazevDokladu+' '+Pohledavka.Doklad+' od '+Program.Firma);
  SetEMLItem(Mail,eml_Subject,NazevDokladu);
  if(ExistFile(DataPath()+'FaktMail.txt'))
    begin
      Open(MailText,DataPath()+'FaktMail.txt')
      While(not EOF(MailText))
        begin
          LocStr=ReadLn(MailText);
          WriteLn(Mail,LocStr);
        end;
    end;
  AttachFile(Mail,HTMLFileName);
  Create(Mail,'FaktMail.EML',True);
  Open(Mail);
END