Fórum Copiando os dados de uma tabela para outra de uma só vez #558546

Bom dia, a ideia é copiar os dados contidos em uma tabela A para uma tabela B de uma só vez. O que ocorre é que que os dados estão sendo copiados ou tentando ser copiados um a um isso, sem falar que ele só copia o primeiro índice.

o while realiza a primeira iteração e copia na tabela B o primeiro índice mas a partir da segunda iteração do while o sistema lança uma exceção do firedac de erro na chave primaria

segue o código

try
lblStatus.Caption := 'Iniciando processo de sincronia... Aguarde....' ;
Application.ProcessMessages;

pbStatus.Position:=pbStatus.Position+1;

Sleep(0);
lblStatus.Caption := 'Sincronizando tabela Grupos...';
Application.ProcessMessages;

DtMdl.FDGruposVelho.Active := False; //BD ANTIGO QUE ENVIARÁ OS DADOS PARA O NOVO
DtMdl.FDGruposVelho.Active := True;
DtMdl.FDGruposVelho.First;
DtMdl.FDGruposNovo.Active := False;
DtMdl.FDGruposNovo.Active := True;
while not DtMdl.FDGruposVelho.Eof do
begin
DtMdl.FDGruposNovo.Insert;
DtMdl.FDGruposNovoGR_NUMERO.Value := DtMdl.FDGruposVelhoCODIGO.Value;
DtMdl.FDGruposNovoGR_GRUPO.Value := DtMdl.FDGruposVelhoNOME_GRUPO.Value;
DtMdl.FDGruposNovo.Post;
end;
except
on E : Exception do
begin
application.MessageBox(pchar('Problemas durante a migração dos dados' +#13+#13+ 'Descrição do erro: '+#13+#13+E.Message+#13+#13+'Tentativa de sincronização cancelada'), 'AVISO', mb_OK + MB_ICONERROR);
if DtMdl.FDGruposNovo.State = dsInsert then
DtMdl.FDGruposNovo.Cancel;
//abort;
end;
end;
DtMdl.FDGruposVelho.Next;

Sleep(0);
lblStatus.Caption := 'Sincronização tabela Grupos concluída.';
Application.ProcessMessages;