Actualizar el stock de una tabla

Tengo un ddlb donde me muestra los productos que tengo en una tabla, al seleccionarlo me muestra en un statictext la cantidad de stock que tiene ese producto, en un sle pongo la cantidad que se le restara a ese stock, por ejemplo el producto es Martillo, el stock es 25, añado la cantidad de 5 en el sle, quiero que el stock se actualice a 20

En mi ddlb, evento getfocus llamo el producto de mi tabla

declare data cursor for
select c_producto
from tienda
using sqlca;

open data;
fetch data into :producto;
do while sqlca.sqlcode=0
additem(producto)
fetch data into :producto;

---

En el evento modified del ddlb, llamo el stock del producto y lo muestro en un statictext

select c_stock
into :st_stock.text
from tienda
where c_producto = :text
using sqlca;

-----

En el sle añado la cantidad que se restara, un boton hace el calculo y lo muestra en un statictext, ahora quiero que ese resultado actualice el stock del producto