(*
  Скрипт передачи процентов накопительных скидок контрагентов
*)

const OutputDirs = 'c:\mail_xprice\out\АП1;c:\mail_xprice\out\АП2;c:\mail_xprice\out\АП3';

var
    DirList :TStringList;
    FName :string;
    i :integer;
begin
  with TMyWait.create('Идет сбор данных для прайс-листа') do
  try

    DirList := TstringLIst.create;
    try
       StringToList(OutputDirs,DirList,';,');
       FName := ExportDiscountPercentsORGs(GetTEmpDir, false);
       try
         //CreateHIntI(FName);

         for i:=0 to DirList.count-1 do
         begin
           Forcedirectories(DirList[i]);
           CopyFile(FName,includetrailingpathdelimiter(DirList[i])+extractfilename(FName),false);
         end;
       finally
         DeleteFile(FName);
       end;
    finally
      DirList.free;
    end;
    CreateHIntI('Операция передачи процентов накопительных скидок завершена');
  finally
    free
  end;
end.