restar existencias de mysql

[ecfisa]

Hola Edgar.

Si no entendí mal la situación, podrías actualizar la existencia en la tabla productos luego de guardar el registro en la tabla ventas, por ejemplo:

Código Delphi [-]
procedure TForm1.DataSetVentasAfterPost(DataSet: TDataSet);
begin
  with DataSetProductos do
  begin
    Edit;
    FieldByName('EXISTENCIAS').Value := FieldByName('EXISTENCIAS').Value-
      DataSetVentas.FieldByName('CANTIDAD').Value;
    Post;
  end;
end;

Saludos.