Foros Club Delphi - Disminuir cantidades en una tabla

Cita:

Empezado por Nicolas_2011 (Mensaje 439071)

Bien.. un form. en el cual tengo dbgrid el cual funcionara como un detalle de venta(por detras esta dicha tabla) en el se reflejaran los productos que seleccionare. un vez que haya puesto la cantidad del producto que se quiere luego se presionara un boton 'agregar producto' el cual abrira el formulario en donde esta el listado de productos. se seleccionara un producto y se presionara boton "seleccionar" esto enviara todos los datos de este producto al dbgrid (detalle de venta) ademas de tambien postearlo en la BD. Lo que quiero que tambien haga este boton es que modifique el stock de el / los productos seleccionados.

A ver, tienes un dbgrid con los detalles de la venta que, imagino, está conectado a una tabla detallesVenta ( o de nombre similar) en la base de datos. La tabla detallesVenta tendrá, como mínimo estos tres campos:

Código:

ventaId, productoId, cantidad

es decir, el ID de la venta a la que pertenece, el ID del producto que se agrega y la cantidad de este producto.

Me parece que lo que yo haría es usar el evento AfterPost del dataset conectado a este DBGrid de detalles. En este evento, dispones entonces del ID del producto en cuestión y de la cantidad. Así, en este evento puedes hacer una actualización del stock:

Código Delphi [-]procedure TablaDetallesVentaAfterPost(Dataset: TDtaSet);
begin
  // Aquí buscas el artículo en l tabla de productos
  TablaProductos.Locate('ID', DataSet['articuloId'], []);

  // Disminuyes la cantidad vendida
  TablaProcuctos['stock'] := TablaProductos['stock'] - DataSet['cantidad'];

  // Grabas el cambio en la base
  TablaProductos.Post;
end;

Para una compra haces lo mismo en el AfterPost de TablaDetallesCompra, aumentando en lugar de disminuir, la cantidad del stock.

// Saludos