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;

  

posted @   samrv  阅读(130)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
点击右上角即可分享
微信分享提示