(*
  Скрипт передачи процентов накопительных скидок контрагентов
*)

//const OutputDirs = 'c:\mail_xprice\out\АП1;c:\mail_xprice\out\АП2;c:\mail_xprice\out\АП3';
const OutputDir = 'c:\temp\out1\';

const DatabaseName = 'dbkassa';

var
    //DirList :TStringList;
    FName :string;
    i :integer;

    CDS1 :TClientDataset;
    Query :TQuery;
    Dir1 :string;
    Code :string;
begin
  with TMyWait.create('Идет сбор данных для прайс-листа') do
  try

    //DirList := TstringLIst.create;
    Query := TQuery.create(nil);
    CDS1 := TClientDAtaset.create(nil);
    try
       //StringToList(OutputDirs,DirList,';,');
       FName := ExportDiscountPercentsORGs(GetTEmpDir, true);
       try
         //CreateHIntI(FName);

          Query.databasename := Databasename;
          Query.sql.text := 'select id,name,code,CODE1 from agents where issklad =1 and (code >"" or CODE1>"")';
          REadDataset(CDS1,Query);




         cds1.first;
         while not cds1.eof do
         {for i:=0 to DirList.count-1 do}
         begin

           CODE := cds1.fieldbyname('code1').asstring;
           if code = '' then code := cds1.fieldbyname('code').asstring;

           Dir1 := includetrailingpathdelimiter(includetrailingpathdelimiter(outputdir)+CODE);
           Forcedirectories({DirList[i])} Dir1);
           CopyFile(FName,Dir1+extractfilename(FName),false);

           cds1.next;
         end;
       finally
         DeleteFile(FName);
       end;
    finally
      //DirList.free;
      Query.free;
      cds1.free;
    end;
    CreateHIntI('Операция передачи списка клиентов дисконтной программы ');
  finally
    free
  end;
end.