固定资产的调整分配接口
转自huan.gu专栏；http://blog.csdn.net/gh320/article/details/17059863
01./*（注意点：1：只能在不同的行之间进行调整
02.2：调整之后的数量之和应和调整之前一样，否则报错）*/
03.DECLARE
04. l_return_status VARCHAR2(1);
05. l_msg_count NUMBER := 0;
06. l_msg_data VARCHAR2(4000);
07. l_trans_rec fa_api_types.trans_rec_type;
08. l_asset_hdr_rec fa_api_types.asset_hdr_rec_type;
09. l_asset_dist_tbl fa_api_types.asset_dist_tbl_type;
10. temp_str VARCHAR2(512);
11.BEGIN
12. --初始化
13. fnd_profile.put('PRINT_DEBUG', 'Y');
14. dbms_output.enable(1000000);
15. fa_srvr_msg.init_server_message;
16. fa_debug_pkg.initialize;
17. -- fill in asset information
18. --资产id
19. l_asset_hdr_rec.asset_id := 418;
20. --资产账簿
21. l_asset_hdr_rec.book_type_code := 'FA_BOOK_01';
22.
23. -- transaction date must be filled in if performing
24. -- prior period transfer
25. --l_trans_rec.transaction_date_entered := to_date('01-JAN-1999 10:54:22', 'dd-mon-yyyy hh24:mi:ss');
26.
27. --清空资产分配记录中的数据
28. l_asset_dist_tbl.delete;
29. /*
30. fill in distribution data for existing distribution lines
31. affected by this transfer txn. Note: You need to fill in
32. only affected distribution lines.
33. For source distribution, you must fill in either existing
34. distribution id or 2 columns(expense_ccid,location_ccid) or
35. 3-tuple columns(assigned_to,expense_ccid,and location_ccid)
36. depending on the makeup of the particular distribution
37. of the asset.
38. */
39. l_asset_dist_tbl(1).distribution_id := 22001; -----存在的调整之前的行ID
40. l_asset_dist_tbl(1).transaction_units := -1; ----调整数量
41. /*
42. either above 2 lines or below 4 lines must be provided
43. for source distribution:
44. --调整的数量
45. l_asset_dist_tbl(1).transaction_units := -2;
46. --员工id
47. l_asset_dist_tbl(1).assigned_to := 11;
48. --费用账户id
49. l_asset_dist_tbl(1).expense_ccid :=15338;
50. --地点组合id
51. l_asset_dist_tbl(1).location_ccid := 3; */
52. -- fill in dist info for destination distribution
53. l_asset_dist_tbl(2).transaction_units := 2; ----调整之后新建的行数量
54. l_asset_dist_tbl(2).assigned_to := 61; ---调整给谁
55. l_asset_dist_tbl(2).expense_ccid := 14001; --CODE_COMBINATION_ID; ----费用账户
56. l_asset_dist_tbl(2).location_ccid := 1; --LOCATION_ID; -----地点
57.
58. l_trans_rec.who_info.last_updated_by := 1330; --FND_GLOBAL.USER_ID;
59. l_trans_rec.who_info.last_update_login := 14001; --FND_GLOBAL.LOGIN_ID;
60.
61. fa_transfer_pub.do_transfer(1.0,
62. fnd_api.g_false,
63. fnd_api.g_false,
64. fnd_api.g_valid_level_full,
65. NULL,
66. l_return_status,
67. l_msg_count,
68. l_msg_data,
69. l_trans_rec,
70. l_asset_hdr_rec,
71. l_asset_dist_tbl);
72. IF (l_return_status != fnd_api.g_ret_sts_success) THEN
73.
74. dbms_output.put_line('TRANSFER failed!.');
75. l_msg_count := fnd_msg_pub.count_msg;
76.
77. IF (l_msg_count > 0) THEN
78. temp_str := substr(fnd_msg_pub.get(fnd_msg_pub.g_first,
79. fnd_api.g_false),
80. 1,
81. 512);
82. dbms_output.put_line('Error: ' || temp_str);
83. FOR i IN 1 .. (l_msg_count - 1) LOOP
84. temp_str := substr(fnd_msg_pub.get(fnd_msg_pub.g_next,
85. fnd_api.g_false),
86. 1,
87. 512);
88. dbms_output.put_line('Error: ' || temp_str);
89. END LOOP;
90. END IF;
91. ELSE
92. dbms_output.put_line('TRANSFER completed successfully!');
93. dbms_output.put_line('THID = ' ||
94. to_char(l_trans_rec.transaction_header_id));
95. END IF;
96. fnd_msg_pub.delete_msg();
97.
98.END;
