Пример настройки для передачи настроек печатных форм из центральной базы в аптечные пункты

Предлагаемая система передачи настроек печатных форм строится на системе обмена файлами Solex. Оператор выкладывает в каталог передачи Solex нужную печатную форму, а в аптечном пункта срабатывает скрипт для этих типов файлов, который размещает эту форму в соответствующем каталоге своей базы данных.

Алгоритм работы:

• Разместить файл отчета (*.qrsa или *.fr3 или *.ака) в каталоге c:\mail\out\подкаталог_аптечного_пункта или другом, на сканирование которого настроена система Solex..
  
  
• Аптечный пункт принимает файл печатной формы почтой Solex и выкладывает в каталог c:\mail\out (к примеру), указанный в параметрах автопочты.


• Скрипт импорта принимает данный файл в систему, обновляя тем печатные формы.
  
  
  файл import_repo_forms.pas
  
  // Скрипт импорта печатных форм
  
  // DirName должно быть определено одним из следующих способов
  //const DirName = 'c:\temp\22'; // на случай жесткого запуска по таймеру
  var DirName :string; // Имя базового каталога, в котором происходит поиск, если настроено через сканирование каталогов
  
  var
    FList :TSTringList;
    i :integer;
    path :string;
  
  begin
    
    path := includetrailingpathdelimiter(Getaliaspath('dbkassa'))+'RepoEdit\';
  
    FList := TStringlist.create;
    try
      GetFileList(DirName,FList,'*.qrsa;*.fr3;*.frf',true,true);
  
      for i := 0 to FList.count-1 do //for i := 0 to FList.count-1 do
      begin
        CopyFile(FList[i],path+extractfilename(flist[i]));
        deletefile(fList[i]);
        CreateHint('Печатная форма '+FList[i]+' скопирована в '+path);
  
      end;
  
      CreateHint('Обработано файлов: '+inttostr(FList.Count));
  
    finally
      FList.free
    end;
  end.