procedure TfrmPrincipal.bt_FuncionarioClick(Sender: TObject);
begin
  qrExata.Close;
  qrExata.SQL.Clear;
  qrExata.SQL.Add('select * from FUNCIONARIOS');
  qrExata.SQL.Add('order by cod_funcionario');
  qrExata.Open;

  qrCadClie.Close;
  qrCadClie.SQL.Clear;
  qrCadClie.SQL.Add('delete from c000008');
  qrCadClie.ExecSQL;

  barra.Position := 0;
  barra.Max := qrExata.RecordCount;
  barra.Step := 1;

  qrExata.First;
  while not qrExata.eof do
  Begin
   try
    pn_status.Caption := 'Copiando registros nº '+inttostr(barra.Position)+' de '+inttostr(barra.Max);
    Application.ProcessMessages;

    qrCadClie.Close;
    qrCadClie.SQL.Clear;
    qrCadClie.SQL.Add('insert into');
    qrCadClie.SQL.Add('c000008');
    qrCadClie.SQL.Add('(');
    qrCadClie.SQL.Add('Codigo,');
    qrCadClie.SQL.Add('Nome');
    qrCadClie.SQL.Add(')');
    qrCadClie.SQL.Add('values');
    qrCadClie.SQL.Add('(');
    qrCadClie.SQL.Add(':Codigo,');
    qrCadClie.SQL.Add(':Nome');
    qrCadClie.SQL.Add(')');

    qrCadClie.ParamByName('Codigo').AsString := copy(CompletaZero(qrExata.fieldbyname('cod_funcionario').AsString),1,6);
    qrCadClie.ParamByName('Nome').AsString := copy(qrExata.fieldbyname('desc_funcionario').AsString,1,60);
    qrCadClie.ExecSQL;
   except
    on E: Exception do
    begin
      memo1.Lines.add('Funcionarios --> '+qrExata.fieldbyname('cod_funcionario').AsString+' - '+qrExata.fieldbyname('desc_funcionario').AsString +' - Não foi copiado!');
      memo1.Lines.Add('Erro -->'+pchar(E.Message));
    end;
   end;
    qrExata.Next;
    Application.ProcessMessages;
  End;
  ShowMessage('Operação Conluída com Sucesso!!!');
  bt_Funcionario.Enabled := False;
end;