API-Oracle EBS INV 创建物料搬运单头

摘自：Oracle EBS INV 创建物料搬运单头 (bbsmax.com)

Oracle EBS INV 创建物料搬运单头

Jenrry 2018-11-26 原文

1. CREATE OR REPLACE
2. PROCEDURE XX_CreateMoveOrderHeader AS
3. -- Common Declarations
4. l_api_version NUMBER := 1.0;
5. l_init_msg_list VARCHAR2(2) := FND_API.G_TRUE;
6. l_return_values VARCHAR2(2) := FND_API.G_FALSE;
7. l_commit VARCHAR2(2) := FND_API.G_FALSE;
8. x_return_status VARCHAR2(2);
9. x_msg_count NUMBER := 0;
10. x_msg_data VARCHAR2(255);
12. -- WHO columns
13. l_user_id NUMBER := -1;
14. l_resp_id NUMBER := -1;
15. l_application_id NUMBER := -1;
16. l_user_name VARCHAR2(30) := 'MFG';
17. l_resp_name VARCHAR2(50) := 'Manufacturing and Distribution Manager';
19. -- API specific declarations
20. l_trohdr_rec INV_MOVE_ORDER_PUB.TROHDR_REC_TYPE;
21. l_trohdr_val_rec INV_MOVE_ORDER_PUB.TROHDR_VAL_REC_TYPE;
22. x_trohdr_rec INV_MOVE_ORDER_PUB.TROHDR_REC_TYPE;
23. x_trohdr_val_rec INV_MOVE_ORDER_PUB.TROHDR_VAL_REC_TYPE;
24. l_validation_flag VARCHAR2(2) := INV_MOVE_ORDER_PUB.G_VALIDATION_YES;
26. BEGIN
28. -- Get the user_id
29. SELECT user_id
30. INTO l_user_id
31. FROM fnd_user
32. WHERE user_name = l_user_name;
34. -- Get the application_id and responsibility_id
35. SELECT application_id, responsibility_id
36. INTO l_application_id, l_resp_id
37. FROM fnd_responsibility_vl
38. WHERE responsibility_name = l_resp_name;
40. FND_GLOBAL.APPS_INITIALIZE(l_user_id, l_resp_id, l_application_id);
41. dbms_output.put_line('Initialized applications context: '|| l_user_id || ' '|| l_resp_id ||' '|| l_application_id );
43. -- Initialize the variables
44. l_trohdr_rec.date_required := sysdate+2;
45. l_trohdr_rec.organization_id := 207;
46. l_trohdr_rec.from_subinventory_code := 'Stores';
47. l_trohdr_rec.to_subinventory_code := 'FGI';
48. l_trohdr_rec.status_date := sysdate;
49. l_trohdr_rec.request_number := 'TEST_TRO1';
50. l_trohdr_rec.header_status := INV_Globals.G_TO_STATUS_PREAPPROVED; -- preApproved
51. l_trohdr_rec.transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR; -- INV_GLOBALS.G_TYPE_TRANSFER_ORDER_STGXFR;
52. l_trohdr_rec.move_order_type := INV_GLOBALS.G_MOVE_ORDER_REQUISITION; -- G_MOVE_ORDER_PICK_WAVE;
53. l_trohdr_rec.db_flag := FND_API.G_TRUE;
54. l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
56. -- Who columns
57. l_trohdr_rec.created_by := l_user_id;
58. l_trohdr_rec.creation_date := sysdate;
59. l_trohdr_rec.last_updated_by := l_user_id;
60. l_trohdr_rec.last_update_date := sysdate;
62. -- call API to create move order header
63. DBMS_OUTPUT.PUT_LINE('=======================================================');
64. DBMS_OUTPUT.PUT_LINE('Calling INV_MOVE_ORDER_PUB.Create_Move_Order_Header API');
66. INV_MOVE_ORDER_PUB.Create_Move_Order_Header(
67. P_API_VERSION_NUMBER => l_api_version
68. , P_INIT_MSG_LIST => l_init_msg_list
69. , P_RETURN_VALUES => l_return_values
70. , P_COMMIT => l_commit
71. , X_RETURN_STATUS => x_return_status
72. , X_MSG_COUNT => x_msg_count
73. , X_MSG_DATA => x_msg_data
74. , P_TROHDR_REC => l_trohdr_rec
75. , P_TROHDR_VAL_REC => l_trohdr_val_rec
76. , X_TROHDR_REC => x_trohdr_rec
77. , X_TROHDR_VAL_REC => x_trohdr_val_rec
78. , P_VALIDATION_FLAG => l_validation_flag
79. );
81. DBMS_OUTPUT.PUT_LINE('=======================================================');
82. DBMS_OUTPUT.PUT_LINE('Return Status: '||x_return_status);
84. IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
85. DBMS_OUTPUT.PUT_LINE('Error Message :'||x_msg_data);
86. END IF;
88. IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
89. DBMS_OUTPUT.PUT_LINE('Move Order Created Successfully');
90. DBMS_OUTPUT.PUT_LINE('Move Order Header ID : '||x_trohdr_rec.header_id);
91. END IF;
93. DBMS_OUTPUT.PUT_LINE('=======================================================');
95. EXCEPTION
96. WHEN OTHERS THEN
97. DBMS_OUTPUT.PUT_LINE('Exception Occured :');
98. DBMS_OUTPUT.PUT_LINE(SQLCODE ||':'||SQLERRM);
99. DBMS_OUTPUT.PUT_LINE('=======================================================');
100. END XX_CreateMoveOrderHeader;