actualizar un campo de una tabla en sql desde delphi

[jachguate]

El código es SQL y mamaro sugería que usaras triggers.

Si queres hacerlo desde delphi, podrías poner un componente TQuery (o el equivalente de la capa de acceso a datos que uses, por ejemplo TADOQuery si conectas con ADO) y poner en su propiedad SQL:

Código SQL [-]
update articulo
  set existencia = existencia + :delta
 where IdArticulo = :id

Y ejecutarlo cada vez que te sea necesario con delphi así:

Código Delphi [-]
procedure TdmInventario.ActualizaExistencias(AIDArticulo: Integer; ADelta: Double);
begin
  qActualizaExistencia.ParamByName('id').AsInteger := AIDArticulo;
  qActualizaExistencia.ParamByName('delta').AsFloat := ADelta;
  qActualizaExistencia.ExecSQL;
end;

Algunas bibliotecas no publican un método ParamByName en el query directamente, sino dentro de su propiedad Params.

Hasta luego.