// Скрипт импорта заявок, переданных через стандартные  файлы заявок

// DirName должно быть определено одним из следующих способов
const DirName = 'd:\temp\preqs\'; // на случай жесткого запуска по таймеру
//var DirName :string; // Имя базового каталога, в котором происходит поиск, если настроено через сканирование каталогов

procedure import_preqs;
var
  FList :TSTringList;
  i :integer;


  SRV :variant;
begin
  FList := TStringlist.create;
  try
    GetFileList(DirName,FList,'exportpreq*.zip',true,true);

    for i := 0 to FList.count-1 do
    begin
      try
        ImportPreqs(FList[i]);
        deletefile(fList[i]);
      except
        try
          createhinte(ExceptMessage,'Ошибка импорта');

          //SRV := CreateOleObject('XPRICERT.XPRSRV');
          //SRV.Connectwp('Пользователь','1');
          //SRV.CreateNotify(ExceptMessage);

        except
          //createhinte(ExceptMessage,'Сохранение уведомления в x-price');
        end;

      end;
    end;

    CreateHint('Обработано файлов: '+inttostr(FList.Count));
  finally
    FList.free
  end;
end;

begin
  import_preqs;
end.