Oracle EBS循环操作样例

Oracle EBS循环

选择触发器后：

~~

// CODE
IF Pv_Owner = 'CONTROL.COMFIRM_BTN2' AND Pv_Event = 'WHEN-BUTTON-PRESSED' THEN	
	:System.Message_Level := 25; --去掉消息提示
DECLARE
  l_Query_Hits2 number;
 begin
  l_Query_Hits2 := To_Number(Get_Block_Property('SCUX_MRP_BATCH_MODIFY',Query_Hits));
  Go_Block('SCUX_MRP_BATCH_MODIFY');
  First_Record;
  FOR i IN 1 .. l_Query_Hits2 LOOP   
  	--Fnd_Message.Debug(:Scux_Mrp_Batch_Modify.LINE_ID); 
  	--Fnd_Message.Debug(l_Query_Hits2); 
  	IF :Scux_Mrp_Batch_Modify.Choose2 = 'Y' THEN
	UPDATE "PO"."PO_LINES_ALL" T
		SET T.ATTRIBUTE12 = :Scux_Mrp_Batch_Modify.LINE_ATTR12,
		    T.ATTRIBUTE14 = :Scux_Mrp_Batch_Modify.LINE_ATTR14,
		    T.ATTRIBUTE15 = :Scux_Mrp_Batch_Modify.LINE_ATTR15
		where T.PO_LINE_ID = :Scux_Mrp_Batch_Modify.LINE_ID;  	
     END IF;
     EXIT when  i = l_Query_Hits2;
     Next_Record;
    END LOOP;
    commit;
    First_Record;
  end;