oracle+ebs+子库转移,Oracle EBS OPM 子库存转移

--子库存转移

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