Actualizar tabla buscando desde un dbgrid

[judit25]

Abundando un poco más (esto me funciona menos en el último registro)

Estoy empleando este código en el evento BeforeApplyUpdates de CDS2 (que es el clientDataSet del detalle), pero a la hora de grabar me actualiza en la tabla Inventario todos los registros menos el último.

Código Delphi [-]
CDS2.First;
while not CDS2.Eof do
  begin
        if DM.TInventario.Locate('Cod_prod', CDS2Cod_Prod.Value, []) then
           begin
              DM.TInventario.Edit;
              DM.TInventarioCant_Salida.Value := DM.TInventarioCant_Salida.Value + CDS2Cantidad.Value;
              DM.TInventarioCant_Actual.Value := DM.TInventarioCant_Actual.Value - CDS2Cantidad.Value;
              DM.TInventario.UpdateRecord;
           end;
        CDS2.Next;
  end;

Alguna idea de que me hace falta para que funcione en todos los registros?

Gracias anticipadas

Saludos

Y disculpen las molestias