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.