// Скрипт импорта списка контрагентов (для замены стандартных имен на реальные,
// а также для добавления. Проценты приниматься не будут.
// Далее принимаются суммы с этого склада
// Далее запускается автоматический пересчет сумм.
// все аптеки равноправны, каждая получает только список новых контрагентов,
// также суммы выручек от других аптек,
// и сама пересчитывает нужные суммы

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

var FCount :integer;
begin
  with TMyWait.create('Идет сбор данных') do
  try

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

    FCount :=ImportDiscountPercentsSummaryFromDir(DirName,true);
    CreateHIntI('Импорт отчетов по дисконтной программе: '+ inttostr(FCount)+' файлов.','',30);

    rebuilddiscountpercents;
    CreateHint('Процедура пересчета процентов скидок окончена','',30);
  finally
    free
  end;
end.