WIP 移动事务处理API Demo

最新推荐文章于 2025-11-08 21:42:24 发布

原创

最新推荐文章于 2025-11-08 21:42:24 发布 · 3.1k 阅读

标签

#oracle #ebs #api #测试demo

收录于

这个示例展示了如何在Oracle E-Business Suite (EBS) 中使用API进行移动事务处理。通过示例代码，创建并初始化移动事务，然后调用wip_movproc_pub.processinterface API进行处理。同时，定义了一个辅助函数get_available_to_move_qty来获取可移动数量。

DECLARE
  l_rec_move_txn wip_move_txn_interface%ROWTYPE;
  l_group_id     NUMBER;
  l_txn_id       NUMBER;
  l_available    NUMBER;
  --
  p_wip_entity_id   NUMBER := 178160;
  p_organization_id NUMBER := 683;
  x_error_status    VARCHAR2(1);
  x_error_message   VARCHAR2(2000);
  p_move_qty        NUMBER := 1;
  x_over_qty        NUMBER;

BEGIN
  fnd_global.APPS_INITIALIZE(user_id => 2411,resp_id => 50647,resp_appl_id => 20003);
  --
  SELECT wip_transactions_s.nextval INTO l_group_id FROM dual;
  --使用API一条一条的处理
  l_txn_id       := NULL;
  l_rec_move_txn := NULL;
  --
  SELECT wip_transactions_s.nextval INTO l_txn_id FROM dual;
  --
  l_rec_move_txn.entity_type := 1;--Discrete job
  l_rec_move_txn.transaction_id       := l_txn_id;
  l_rec_move_txn.group_id             := l_group_id;
  l_rec_move_txn.process_phase        := 1;--Move validation
  l_rec_move_txn.process_status       := 2; --pending
  l_rec_move_txn.created_by           := fnd_globa