oracle搬运单分配,Oracle EBS INV 挑库发放物料搬运单

create or replace PROCEDURE XX_TRANSACT_MO_LINE

AS

-- Common Declarations

l_api_version NUMBER := 1.0;

l_init_msg_list VARCHAR2(2) := FND_API.G_TRUE;

l_commit VARCHAR2(2) := FND_API.G_FALSE;

x_return_status VARCHAR2(2);

x_msg_count NUMBER := 0;

x_msg_data VARCHAR2(255);

-- API specific declarations

l_move_order_type NUMBER := 1;

l_transaction_mode NUMBER := 1;

l_trolin_tbl INV_MOVE_ORDER_PUB.trolin_tbl_type;

l_mold_tbl INV_MO_LINE_DETAIL_UTIL.g_mmtt_tbl_type;

x_mmtt_tbl INV_MO_LINE_DETAIL_UTIL.g_mmtt_tbl_type;

x_trolin_tbl INV_MOVE_ORDER_PUB.trolin_tbl_type;

l_transaction_date DATE := SYSDATE;

-- WHO columns

l_user_id NUMBER := -1;

l_resp_id NUMBER := -1;

l_application_id NUMBER := -1;

l_row_cnt NUMBER := 1;

l_user_name VARCHAR2(30) := 'MFG';

l_resp_name VARCHAR2(80) := 'Manufacturing and Distribution Manager';

l_mo_line_id NUMBER := 0;

BEGIN

-- Get the user_id

SELECT user_id

INTO l_user_id

FROM fnd_user

WHERE user_name = l_user_name;

-- Get the application_id and responsibility_id

SELECT application_id, responsibility_id

INTO l_application_id, l_resp_id

FROM fnd_responsibility_vl

WHERE responsibility_name = l_resp_name;

FND_GLOBAL.APPS_INITIALIZE(l_user_id, l_resp_id, l_application_id); -- Mfg / Mfg Dist Mgr / INV

dbms_output.put_line('Initialized applications context: '|| l_user_id || ' '|| l_resp_id ||' '|| l_application_id );

l_trolin_tbl(1).line_id := l_mo_line_id;

-- call API to create move order header

DBMS_OUTPUT.PUT_LINE('=======================================================');

DBMS_OUTPUT.PUT_LINE('Calling INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm API');

INV_PICK_WAVE_PICK_CONFIRM_PUB.Pick_Confirm

(

p_api_version_number => l_api_version

, p_init_msg_list => l_init_msg_list

, p_commit => l_commit

, x_return_status => x_return_status

, x_msg_count => x_msg_count

, x_msg_data => x_msg_data

, p_move_order_type => l_move_order_type

, p_transaction_mode => l_transaction_mode

, p_trolin_tbl => l_trolin_tbl

, p_mold_tbl => l_mold_tbl

, x_mmtt_tbl => x_mmtt_tbl

, x_trolin_tbl => x_trolin_tbl

, p_transaction_date => l_transaction_date

);

DBMS_OUTPUT.PUT_LINE('=======================================================');

DBMS_OUTPUT.PUT_LINE('Return Status: '||x_return_status);

IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

DBMS_OUTPUT.PUT_LINE('Message count: '||x_msg_count||' Error Message :'||x_msg_data);

IF ( x_msg_count > 1 ) THEN

FOR i IN 1 .. x_msg_count LOOP

x_msg_data := fnd_msg_pub.get ( p_msg_index => i , p_encoded =>FND_API.G_FALSE ) ;

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

END LOOP;

END IF;

END IF;

DBMS_OUTPUT.PUT_LINE('=======================================================');

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE('Exception Occured :');

DBMS_OUTPUT.PUT_LINE(SQLCODE ||':'||SQLERRM);

DBMS_OUTPUT.PUT_LINE('=======================================================');

END XX_TRANSACT_MO_LINE;