EBS FORM 全选功能样例

全选功能建立ITEM及其触发器如下程序包CODE：ELSIFPv_Owner = 'CONTROL.CHECK_ALL2'AND Pv_Event = 'WHEN-CHECKBOX-CHANGED' THENIF :CONTROL.Check_All2 = 'Y'THENgo_block('Scux_Mrp_Batch_Modify');first_record;LOOP:Scux_Mrp_Bat

七秒钟记忆的码农

372人浏览 · 2021-02-19 09:56:57

七秒钟记忆的码农 · 2021-02-19 09:56:57 发布

全选功能

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

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 .......