// Скрипт импорта таблицы с текущими накопительными скидками

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

const DoCheckPercents = true; // принять и проценты скидок также. Если False, то будут приниматься наименования, без значений процентов

var FCount :integer;
begin
  FCount := IMportDiscountPercentsOrgsFromDir(dirname,true,DoCheckPercents,'Клиент дисконтной программы');
  CreateHIntI('Импорт процентов накопительных скидок, обработано : '+ inttostr(FCount)+' файлов.');
end.