EBS开发_物料杂收

DECLARE


  l_iface_rec      inv.mtl_transactions_interface%ROWTYPE;
  l_cur_mfg_org_id NUMBER := 81; --Current Inv Organization
  l_user_id        NUMBER := 1110; --User ID, Sysadmin here


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;


  SELECT mtl_material_transactions_s.NEXTVAL INTO l_iface_rec.transaction_interface_id FROM dual;
  l_iface_rec.transaction_header_id := l_iface_rec.transaction_interface_id;
  l_iface_rec.transaction_mode      := 3;
  l_iface_rec.process_flag          := 1;
  l_iface_rec.transaction_type_id   := 42; --mtl_transaction_types：Miscellaneous receipt（42） ，如果是41账户杂收的话需要在弹性域预先制定账户
  l_iface_rec.transaction_source_id := 2; 
  l_iface_rec.organization_id       := l_cur_mfg_org_id;
  l_iface_rec.inventory_item_id     := 78;
  l_iface_rec.subinventory_code     := 'XIU01';
  l_iface_rec.transaction_quantity  := 12345;
  l_iface_rec.transaction_uom       := 'PCS';
  l_iface_rec.transaction_date      := SYSDATE;
  l_iface_rec.source_code           := 'Test Only';
  l_iface_rec.source_header_id      := 987654321;
  l_iface_rec.source_line_id        := 987654321;
  l_iface_rec.distribution_account_id  := cux_gl_utl.get_ccid(p_seg1 => '01'
                                         ,p_seg2 => '0'
                                         ,p_seg3 => '1002010101'); --分配账户


  INSERT INTO inv.mtl_transactions_interface VALUES l_iface_rec;

 

END;

--提交请求：处理事务处理接口

/*select cux_gl_utl.get_ccid(p_seg1 => '01',
                           p_seg2 => '0',
                           p_seg3 => '1002010101')
  from dual;*/