EBS开发_删除物料ITEM脚本

--以下脚本于20180117在Tony环境成功实现
DECLARE


  x_errbuf  VARCHAR2(240);
  x_retcode VARCHAR2(240);


  l_iface_rec         bom.bom_delete_entities%ROWTYPE;
  l_cur_mfg_org_id    NUMBER := 81; --Current Inv Organization，注意不是82，因为是当前职责所在的组织
  l_user_id           NUMBER := 0; --User ID, Sysadmin here
  l_delete_group_name VARCHAR2(10) := 'DEL_ITEM_G'; --Item Delete group
  l_item_number       VARCHAR2(240) := '2010230033'; --Item Number
  
 -- select * from mtl_system_items_b 


BEGIN


  l_iface_rec.last_update_date  := SYSDATE;
  l_iface_rec.last_updated_by   := l_user_id;
  l_iface_rec.creation_date     := SYSDATE;
  l_iface_rec.created_by        := l_user_id;
  l_iface_rec.last_update_login := -1;


  l_iface_rec.delete_status_type := 1;
  l_iface_rec.prior_process_