// Скрипт генерирует новых контрагентов для социальной дисконтной системы

const
 FileName  = 'c:\database\bogdan\дисконтники.xls'; // файл со списком


var CDS :TClientdataset;
    table :ttable;
    maxid :integer;
begin
  if GetConfirm('Вы, наверняка, не сделали резервную копию!'+#13+'Остановимся?') = mrOk
  then exit;

  (*
  if FirstID = 0 then begin
    createhinte('Первый номер не указан, константа FirstID');
    exit;
  end;
  *)



    with TMyWait.create('Идет создание клиентов') do
    try
      cds := tclientdataset.create(nil);
      try
        table := ttable.create(cds);

        if not ReadXLS(CDS,FileName)
        then begin
          createhintw('Операция остановлена');
          exit;
        end;

        table.databasename := 'dbkassa';
        table.tablename := 'agents.db';
        table.open;
        table.last;
        maxid := table.fieldbyname('id').asinteger;

        cds.first;
        while not cds.eof do begin
          table.append;
          maxid := maxid +1;
          table.fieldbyname('id').asinteger := maxid;
          table.fieldbyname('name').asstring := cds.fields[1].asstring;
          //table.fieldbyname('iscashklient').asinteger := 0;
          table.fieldbyname('barcode').asstring := cds.fields[0].asstring;
          table.fieldbyname('comment').asstring := 'auto generated (1)';
          table.post;

          cds.next;
        end;
      finally
        cds.free;
      end;
    finally
      free
    end;

    CreateHInt('Операция завершена');
end.
