在数据块(命名为 REQ_QTY )添加一个 CHECKBOX控件(命名为 SELECT_FLAG),复选时的值=Y, 未复选时的值=N ;
需求复选框选中时,
判断库存量是否大于等于需求量,是就允许被选中,否则不能选中,
项层的触发器为“WHEN-CHECKED-CHANGED” .
PROCEDURE SELECT_FLAG(EVENT VARCHAR2) IS BEGIN IF EVENT IN ('WHEN-CHECKBOX-CHANGED') THEN IF checkbox_checked('REQ_QTY.SELECT_FLAG') THEN -- 判断库存量是否大于等于需求量,是就允许被选中。 IF :REQ_QTY.ONHAND_QTY < :REQ_QTY.REQ_QUANTITY THEN FND_MESSAGE.SET_STRING(:REQ_QTY.ITEM_CODE||' 因库存不足,不能被选中。'); FND_MESSAGE.SHOW; :REQ_QTY.SELECT_FLAG := 'N'; END IF; END IF; END IF; END SELECT_FLAG;