Cómo actualizar stock y que me salga un mensaje que me indique que no hay stock

Tengo 2 dw

En el botón grabar:

IF dw_1.Update() = 1 AND dw_2.Update() = 1 THEN
//ls_nume = dw_2.getitemstring(1,"compra_codcompra")//se obtiene el codigo deldw2
xxtipo = dw_1.getitemstring(1,"compra_tipo")//se obtiene el tipo de venta
for i=1 to dw_2.rowcount()
ls_producto=string(dw_2.object.codproducto[i])
ls_Cantidad=integer(dw_2.object.cantidad[i])
if xxtipo="C" then
update producto set stockactual=stockactual + :ls_cantidad where codproducto=:ls_producto;
else
update producto set stockactual=stockactual - :ls_cantidad where codproducto=:ls_producto;
end if
COMMIT;
Next
messagebox('OK','SE ACTUALIZO LA BASE DE DATOS')
cb_grabar.enabled=false
dw_2.Modify("DataWindow.ReadOnly=true")
dw_1.Modify("DataWindow.ReadOnly=true")
ELSE
ROLLBACK;
messagebox('ERROR','NO SE ACTUALIZO LA BASE DE DATOS')
END IF

Hasta aquí todo ok

Mi pregunta como avisar que ha superado el stock