Código Delphi
[-]
while not CdsOrigenCabecera.Eof do begin
CdsDestinoCabecera.Insert;
CdsDestinoCabeceraCOD_EMPRESA.AsString := CdsOrigenCabeceraCODIGOEMPRESA.AsString;
CdsDestinoCabecera.POST;
CdsOrigenCabecera.Next;
end;
Esta mal la lógica, aparte, al origen destino no tienes que hacerle Next.
Saludos