转自huan.gu专栏：http://blog.csdn.net/gh320/article/details/17059893
01.--完全报废
02.DECLARE
03.
04. l_trans_rec fa_api_types.trans_rec_type;
05. l_dist_trans_rec fa_api_types.trans_rec_type;
06. l_asset_hdr_rec fa_api_types.asset_hdr_rec_type;
07. l_asset_retire_rec fa_api_types.asset_retire_rec_type;
08. l_asset_dist_tbl fa_api_types.asset_dist_tbl_type;
09. l_subcomp_tbl fa_api_types.subcomp_tbl_type;
10. l_inv_tbl fa_api_types.inv_tbl_type;
11.
12. l_return_status VARCHAR2(1);
13. l_mesg_count NUMBER;
14. l_mesg VARCHAR2(4000);
15.
16.BEGIN
17. --初始化
18. dbms_output.enable(1000000);
19.
20. fa_srvr_msg.init_server_message;
21.
22. -- Get standard who info
23. --资产id
24. l_asset_hdr_rec.asset_id := 418;
25. --账簿
26. l_asset_hdr_rec.book_type_code := 'FA_BOOK_01';
27. --报废成本
28. l_asset_retire_rec.cost_retired := 1;
29. l_asset_retire_rec.calculate_gain_loss := fnd_api.g_false;
30.
31. fa_retirement_pub.do_retirement(
32. -- std parameters
33. p_api_version => 1.0,
34. p_init_msg_list => fnd_api.g_false,
35. p_commit => fnd_api.g_false,
36. p_validation_level => fnd_api.g_valid_level_full,
37. p_calling_fn => NULL,
38. x_return_status => l_return_status,
39. x_msg_count => l_mesg_count,
40. x_msg_data => l_mesg,
41. -- api parameters
42. px_trans_rec => l_trans_rec,
43. px_dist_trans_rec => l_dist_trans_rec,
44. px_asset_hdr_rec => l_asset_hdr_rec,
45. px_asset_retire_rec => l_asset_retire_rec,
46. p_asset_dist_tbl => l_asset_dist_tbl,
47. p_subcomp_tbl => l_subcomp_tbl,
48. p_inv_tbl => l_inv_tbl);
49. --dump messages
50. l_mesg_count := fnd_msg_pub.count_msg;
51.
52. IF l_mesg_count > 0 THEN
53.
54. l_mesg := chr(10) ||
55. substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false),
56. 1,
57. 250);
58. dbms_output.put_line(l_mesg);
59.
60. FOR i IN 1 .. (l_mesg_count - 1) LOOP
61. l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false),
62. 1,
63. 250);
64.
65. dbms_output.put_line(l_mesg);
66. END LOOP;
67.
68. fnd_msg_pub.delete_msg();
69.
70. END IF;
71.
72. IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
73. dbms_output.put_line('FAILURE');
74. ROLLBACK;
75. ELSE
76. dbms_output.put_line('SUCCESS');
77. dbms_output.put_line('RETIREMENT_ID' ||
78. to_char(l_asset_retire_rec.retirement_id));
79. END IF;
80.
81.END;