EBS FORM 全选功能样例全选功能

107 阅读 0 评论 71 点赞

我是靠谱客的博主危机宝马，这篇文章主要介绍EBS FORM 全选功能样例全选功能，现在分享给大家，希望可以做个参考。

全选功能

建立ITEM及其触发器如下
在这里插入图片描述
程序包CODE：

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
ELSIF  Pv_Owner = 'CONTROL.CHECK_ALL2'
  AND Pv_Event = 'WHEN-CHECKBOX-CHANGED' THEN
    IF :CONTROL.Check_All2 = 'Y'  THEN
    	go_block('Scux_Mrp_Batch_Modify');
    	first_record;
    	LOOP
		:Scux_Mrp_Batch_Modify.CHOOSE2 := 'Y'; 
		EXIT WHEN :system.last_record = 'TRUE';
        next_record;
       END LOOP;		
       first_record;
  END IF;  
  IF :CONTROL.Check_All2 = 'N'  THEN
    go_block('Scux_Mrp_Batch_Modify');
    first_record;
    LOOP
    :Scux_Mrp_Batch_Modify.CHOOSE2 := 'N';
    EXIT WHEN :system.last_record = 'TRUE';
    next_record;
    END LOOP;
    first_record;
  END IF;
--ELSIF .......