//********************************
// Скрипт импорта накладных от Надежда-фарм
// корректируется имя файла (добавляется i, чтобы попадать под шаблон i%.dbf
// также имя склада  из темы письма добавляется в поле codpp
//********************************


const
    DoLogFile = false; // вести лог экспорта по контрагентам
    
    InvoiceTag='Order N';
    
    CreateNewFileNameIfExists = true;

procedure AddStringToLog(Value :string);
var Fname :string ;
    List :TStringList;
begin
  Fname := GetAppLocaldataFolder + 'ExtractFilesLog.log';
  List := tstringlist.create;
  try
    if fileexists(FName) then List.loadfromfile(FName);
    List.add(datetimetostr(now)+' : '+Value);
    List.SaveToFile(FName);
  finally
    list.free;
  end;

end;



var
    Result :integer;
      //возврат - result 0,1,... 0 - ничего не делать, предполагается. что скрипт все сам сделал.
      //1 - стандартно, скрипт или ничего не сказал или не отработал.


    VARID :int64; // предопределенная переменная. ID письма.
    VARExport_dir :string; // каталог экспорта
    VARUSE_Date_As_Subdir :string;
    VARADDRESSBOOK_ID :int64;
    VARADDRESSBOOK_NAME :string;
    VARADDRESSBOOK_ENABLED :boolean;
    VARADDRESSBOOK_MAIL :string;
    VARADDRESSBOOK_EXTERNAL_CODES :string;
    VARADDRESSBOOK_AUTOMAIL_SCRIPT :string;


var
    Message :TMailMessage;
    
    SenderName :string;
    s :string;

    InvoiceTagPos :integer;
    Table :TDBF;// Ttable;
    strVal :string;
    i :integer;
    
    List3 :TStringList;
    //Session :tSession;
    tmpdir :string;
    Dir :string;
    s1 :string;
    s2 :string;
begin
  Message := TMailMessage.create; // CreateOleObject('MailProcessor.MPMailMessage');
  try

     Message.ID := asfloat(VARID);

     strval := Message.Subject; 
     InvoiceTagPos := pos(InvoiceTag,strval);
     if  (InvoiceTagPos<>1) then exit;
     
     
     Delete(strval,1,length(invoiceTag)+1);
     if strval='' then exit;
     i := pos(' ',strval);
     if i=0 then exit;
     delete(strval,1,i);
     strval := trim(strval);
     if strval='' then exit;

     SenderName := VARADDRESSBOOK_EXTERNAL_CODES;
     repeat // возьмем последний из кодов для этой процедуры
       i := pos(',',sendername);
       if i=0 then i:= pos(';',sendername);
       if i>0 then sendername := copy(sendername,i+1,length(sendername));
     until i=0;

     //createhint(sendername);
     if (SenderName='') then exit;

     //if Message.AttachmentCount<>1 then exit;
     s := Message.AttachmentNames;

       //createhint(S);

     list3 := tstringlist.create;
     try
       StringToList(S,List3,';,');

       if list3.count>0
       then begin
         S := '';
         for i := 0 to list3.count-1 do
         begin
           if ansiuppercase(extractfileext(list3[i]))='.DBF'
           then begin
             S := list3[i];
             break;
           end;
         end;
       end;
     finally
       List3.free;
     end;
     
     if S='' then begin
       createhintw('Не найдено файлов необходимого формата DBF в письме от '+Message.SenderName);
       exit;
     end;

     tmpdir := includetrailingpathdelimiter(createuniquedir);
     Message.SaveAttachment(S,tmpdir);
     
     CheckDBFCP(tmpdir+s,38);
     table := tDBF.create(selfscript); //ttable.create(selfscript);
     //CheckUniqueSessionName;
     //session.active := false;
     //session.sessionname := 'sess'+inttostr(randomrange(0,65000));
     //session.active := true;
     //table.sessionname := session.sessionname;

     //List1 := tstringlist.create;
     //list2 := tstringlist.create;
     try
       //List1.loadfromfile(tmpdir+s);

       //table.tabletype := ttFoxpro;
       table.tablename := tmpdir+s;
       table.open;
       if table.isempty
       then begin
         createhintw('Файл DBF в письме от '+Message.SenderName+' пуст.');
         exit;
       end;
       table.first;
       table.edit;
       table.fieldbyname('codpp').asstring := strval;
       table.post;
       table.close;

       Dir := Includetrailingpathdelimiter(VARExport_Dir);
                    
       if SenderName >'' then Dir := Dir + SenderName
       else if Message.SenderName>'' then Dir := Dir + Message.SenderName
       else Dir := Dir + Message.SenderAddress;

       Dir := IncludeTrailingpathdelimiter(Dir);

       {
       S2 := '';
       S1 := table.fieldbyname('CLIENT').asstring;
       Num:= table.fieldbyname('ORDERID').asstring;


       if not UseStoreAsSubDir or (S2='')
       then
         Dir := includetrailingpathdelimiter(dir + trim(correctfilename( S1+' '+S2)))
       else begin
         Dir := includetrailingpathdelimiter(
                     dir +
                     includetrailingpathdelimiter(trim(correctfilename( S1))) +
                     trim(correctfilename( S2)) +

                  );
       end;
       }

       if VARUse_Date_As_SubDir
       then
          Dir := includetrailingpathdelimiter(Dir + formatdatetime('yyyy-mm-dd',date));

         //createhint(dir);

       ForceDirectories(Dir);

       s2 := 'i'+S;
       
       if CreateNewFileNameIfExists and fileexists(Dir+S2)
       then begin
         S1 := extractfilename(GetUniqueFileName(Dir,S2));
       end
       else begin
         s1:= S2;
       end;

       if not CreateNewFileNameIfExists and fileexists(Dir+S2)
       then begin
         DeleteFile(Dir+S1); //movefile - не затрет сам
       end;

       MoveFile(TmpDir + S,Dir+S1);
       
       {
       List1.loadfromfile(dir+s1);
       if list1.count>10
       then
       begin
         for i := 3 to list1.count-1 do
         begin
           stringtolist(list1[i],list2,#9);
           if list2.count>=6
           then begin
             list2.delete(4);
             strval := '';
             for k := 0 to list2.count-1 do
             begin
                if strval > '' then strval := strval + #9;
               strval := strval + list2[k];
             end;
             list1[i] := strval;
           end;
         end;
       end;
       }

       if DoLogFile then AddStringToLog(Dir+S1+ ' ,exists: '+asstring(fileexists(Dir+S1)));

     finally
       //list2.free;
       //list1.free;
     end;

     CreateHintI('Поступила заявка от '+Message.Sender+'. Вложения сохранены в '+dir);
     Message.IsProcessed := true;

     result := 0; // письмо обработано, дальне обслуживатьь скриптами его не нужно


  finally
    //AddressBook := nil;
    //Message := nil;
    if tmpdir >'' then deletedir(tmpdir);
    Message.free;
  end;
end.