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

 

在数据块(命名为 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;