// скрипт генерирует пакеты обмена планами выручек со всеми складами с указанными альтернативными кодами
// пакет имеет стандартное имя arcsklad.zip

const ExportDir = 'c:\mail_xprice\out\';

var
  cds :Tclientdataset;
  Query :TQuery;
  TMPDir :string;
  REsultFile :string;
  ExportDir1 :string;
begin

  tmpdir := '';
  cds := TClientdataset.create(Nil);
  with TMyWait.create('Идет генерация данных') do
  try

    repeat
      tmpdir := includetrailingpathdelimiter(gettempdir+inttostr(randomrange(1,100000)));
    until not directoryexists(tmpdir);

    forcedirectories(tmpdir);


    Query := TQuery.create(cds);
    Query.databasename := 'dbkassa';
    Query.sql.text := 'select code,name '+
      ' from agents '+
      ' where issklad = 1 and code>'''' ';

    Query.open;
    readdataset(CDs,Query);
    Query.close;

    cds.first;
    progressbarmax := cds.recordcount;
    progressbarpos := 0;

    ResultFile := GenCashPlanPackage(TMPdir);

    while not cds.eof do
    begin
      incprogress;
      advancedtext := cds.fieldbyname('name').asstring;

      ExportDir1 := includetrailingpathdelimiter( includetrailingpathdelimiter(ExportDir)+CDS.fieldbyname('CODE').asstring);
      ForceDirectories(ExportDir1);
      CopyFile(ResultFile, ExportDir1+extractfilename(Resultfile),    false);

      cds.next;
    end;

    deletefile(ResultFile);


    deletedir(tmpdir);

    CreateHint('Генерация планов выручек окончена');
  finally
    free;
    cds.free;

  end;
end.