; zajistí odeslání souboru Aris (vety 45 46 47) mailem
; verze z 20.6.2003
; Autor: WinDUO Team
Name('Mail 45 46 47')
Designed('WinDUO')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Zajistí přiložení souboru pro Aris do mailu')

WNSType(-1);                      ; definuje že DDT nedefinuje žádný standartní výstup
DeclareRec('Program')
LocStr:String
ObdobiMail:String[7]
MailKomu:String
ZpusobOdeslani:Byte;
ValidCisloLom:String='0123456789/'

ZpusobOdeslani:String
ZpusobOdeslani=GetINI('DUO','DiskRP')
ZpusobZaokr:Byte=Val(GetDataINI('INFO','ZaokrouhleniVykazu'))


INI:String=DataPath+'VYKAZY.INI'
ObdobiMail:String=GetFromIni('VYKAZY','ObdobiMail',INI)
MailKomu=GetFromIni('VYKAZY','MailKomu',INI)
if(Length(Trim(MailKomu))=0)
  MailKomu='komu@nadřízený_orgán.cz'

if(CompareStr(UpCase(ZpusobOdeslani),'MAIL'))
  begin
    DataTXT:String=WorkPath+Ico+'.TXT'
    SoubHlavicka:String=WorkPath+'AUTOMAT.SUB'
  end else
  begin
    DataTXT:String=ZpusobOdeslani+':\'+Ico+'.TXT'
    SoubHlavicka:String=ZpusobOdeslani+':\AUTOMAT.SUB'
  end
TXTHlavicka:TextFile                     ; definuje proměnnou textového souboru
Rewrite(TXTHlavicka,SoubHlavicka,True)        ; otevře textový soubor



;{tvorba AUTOMAT.SUB}

if(ZpusobZaokr=2)
    LocStr='WinVYK26 '
if(ZpusobZaokr=1)
    LocStr='WinVYK25 '
if(ZpusobZaokr=0)
    Error('Zvoleno nevhodné zaokrouhlování, proveďte výpočet závěrky znovu.'+#13+'Povoleno TISÍCIKORUNY + 2 DESETINNÁ MÍSTA'+#13+'nebo NEZAOKROUHLOVAT')

LocStr=LocStr+ObdobiMail+' '+StrDate(GetDate())+' '+StrTime(GetTime(),True)+' '+Null(ico(),8)+'   '+Firma+' '+Rozsireni
Writeln(TXTHlavicka,LocStr);
if(CompareStr(UpCase(ZpusobOdeslani),'MAIL'))
  begin
   Mail:EMLFile;
   SetEMLItem(Mail,eml_To,MailKomu);
   SetEMLItem(Mail,eml_Subject,LocStr);
   AttachFile(Mail,DataTXT);
   Create(Mail,'mail4567.EML',True);
   Open(Mail);
  end

Close(TXTHlavicka)


END