ok vamos a trabajar como descartes
coloca como comentario las lineas donde Actualiza y fijate si el q_Guardar1 recorre todos los registros que tiene
Código Delphi
[-]
Q_GUARDAR1.CLOSE;
Q_GUARDAR1.ParamByName('ParCOD_REMI').AsString:=DM.Q_DET_REMISION.FieldValues['COD_REMI'];
Q_GUARDAR1.ParamByName('ParCODIGO').AsString:=DM.Q_DET_REMISION.FieldValues['CODIGO'];
Q_GUARDAR1.Open;
Q_GUARDAR1.First;
while not (Q_GUARDAR1.Eof) do
begin
Q_GUARDAR1.Next;
end;
prueba y comentas