WIP 移动事务处理API Demo

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; --pendin