// Скрипт импорта печатных форм

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

var
  FList :TSTringList;
  i :integer;
  path :string;

begin
  //CreateHint(dirname);

  path := includetrailingpathdelimiter(Getaliaspath('dbkassa'))+'RepoEdit\';

  FList := TStringlist.create;
  try
    GetFileList(DirName,FList,'*.qrsa;*.fr3;*.frf',true,true);

    //CreateHint('Найдено файлов: '+inttostr(FList.Count));


    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.


