--子库存转移

--created by jenrry

DECLARE

  l_mtl_txn_rec              mtl_transactions_interface%ROWTYPE;

  l_mtl_txn_lot_rec          mtl_transaction_lots_interface%ROWTYPE;

  l_transaction_interface_id NUMBER;

  l_transaction_header_id    NUMBER;

  x_retval                   NUMBER;

  x_return_status            varchar2(20);

  x_msg_data                 varchar2(2000);

  x_trans_count              NUMBER;

  l_user_id                  NUMBER := 0;

  x_msg_count                number;

BEGIN

  sELECT mtl_material_transactions_s.nextval

    INTO l_transaction_header_id

    FROM dual;

  SELECT mtl_material_transactions_s.nextval

    INTO l_transaction_interface_id

    FROM dual;

  l_mtl_txn_rec.transaction_interface_id := l_transaction_interface_id;

  l_mtl_txn_rec.process_flag             := 1;

  l_mtl_txn_rec.transaction_mode         := 3;

  l_mtl_txn_rec.source_code              := 'WOW';

  l_mtl_txn_rec.source_header_id         := 987654321;

  l_mtl_txn_rec.source_line_id           := 987654321;

  l_mtl_txn_rec.transaction_date         := SYSDATE;

  l_mtl_txn_rec.transaction_type_id      := 2;

  l_mtl_txn_rec.transaction_header_id    := l_transaction_header_id;

  l_mtl_txn_rec.inventory_item_id := 623;

  l_mtl_txn_rec.organization_id   := 127;

  l_mtl_txn_rec.subinventory_code := 'Y02';

  l_mtl_txn_rec.transaction_uom   := '个';

  l_mtl_txn_rec.locator_id        := 3;

  l_mtl_txn_rec.transaction_action_id := 2;

  l_mtl_txn_rec.transfer_subinventory          := 'Y01';

  l_mtl_txn_rec.transfer_locator               := 1;

  l_mtl_txn_rec.transaction_quantity           := 1;

  l_mtl_txn_rec.secondary_uom_code             := '个';

  l_mtl_txn_rec.secondary_transaction_quantity := 1;

  l_mtl_txn_rec.last_update_date  := SYSDATE;

  l_mtl_txn_rec.last_updated_by   := l_user_id;

  l_mtl_txn_rec.creation_date     := SYSDATE;

  l_mtl_txn_rec.created_by        := l_user_id;

  l_mtl_txn_rec.last_update_login := l_user_id;

  INSERT INTO mtl_transactions_interface VALUES l_mtl_txn_rec;

  l_mtl_txn_lot_rec.transaction_interface_id := l_transaction_interface_id;

  l_mtl_txn_lot_rec.lot_number               := '201308-001';

  l_mtl_txn_lot_rec.transaction_quantity     := 1;

  l_mtl_txn_lot_rec.source_code              := 'WOW';

  l_mtl_txn_lot_rec.source_line_id           := 987654321;

  l_mtl_txn_lot_rec.last_update_date         := SYSDATE;

  l_mtl_txn_lot_rec.last_updated_by          := l_user_id;

  l_mtl_txn_lot_rec.creation_date            := SYSDATE;

  l_mtl_txn_lot_rec.created_by               := l_user_id;

  l_mtl_txn_lot_rec.last_update_login        := l_user_id;

  INSERT INTO mtl_transaction_lots_interface VALUES l_mtl_txn_lot_rec;

  x_retval := inv_txn_manager_pub.process_transactions(p_api_version      => 1.0,

                                                       p_init_msg_list    => fnd_api.g_true,

                                                       p_commit           => fnd_api.g_false, --not commit

                                                       p_validation_level => fnd_api.g_valid_level_full,

                                                       x_return_status    => x_return_status,

                                                       x_msg_count        => x_msg_count,

                                                       x_msg_data         => x_msg_data,

                                                       x_trans_count      => x_trans_count,

                                                       p_table            => 1,

                                                       p_header_id        => l_transaction_header_id);

  IF x_retval = -1 THEN

    dbms_output.put_line('Failed to process the transaction');

    dbms_output.put_line('Error code: ' || x_return_status);

    dbms_output.put_line('Error message: ' || x_msg_data);

  else

   dbms_output.put_line('x_return_status: ' || x_return_status);

  end if;

END;