EBS: Form Builder 10G CHECKBOX点击触发器

 

在数据块(命名为 REQ_QTY ）添加一个 CHECKBOX控件（命名为 SELECT_FLAG）,复选时的值=Y, 未复选时的值=N ; 

需求复选框选中时，

?

1	判断库存量是否大于等于需求量，是就允许被选中，否则不能选中，<br>项层的触发器为“WHEN-CHECKED-CHANGED” .

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;