EBS FORM 全选功能样例全选功能
全选功能建立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 :