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