Resta de productos

Tendrías que verificar si tienes stock suficiente para vender y después actualizar el stock. Ejm:

int li_cant //cantidad vendida o comprada
long ll_prod_codigo //codigo del producto
//verificas antes si ahy stock suficiente
/*codigo para verificar
//actualizar stock por venta
UPDATE STOCK
 SET STOCK.STOCK = STOCK.STOCK - li_cant
WHERE STOCK.PROD_CODI = :ll_prod_codigo;
if sqlca.sqlcode <> 0 then
  rollback;
  messagebox('Stock','Error al actualizar stock.')
else
  commit;
end if

Espero haberte podido ayudar, si tienes dudas no dudes en consultar.