固定资产的完全报废接口

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