固定资产更新接口

转自huan.gu专栏：http://blog.csdn.net/gh320/article/details/17059927

01.--更新资产  
02.DECLARE  
03.  
04.  l_trans_rec      fa_api_types.trans_rec_type;  
05.  l_asset_hdr_rec  fa_api_types.asset_hdr_rec_type;  
06.  l_asset_desc_rec fa_api_types.asset_desc_rec_type;  
07.  l_asset_cat_rec  fa_api_types.asset_cat_rec_type;  
08.  
09.  l_return_status VARCHAR2(1);  
10.  l_mesg_count    NUMBER;  
11.  l_mesg          VARCHAR2(512);  
12.  
13.BEGIN  
14.  --初始化  
15.  dbms_output.enable(10000000);  
16.  
17.  fa_srvr_msg.init_server_message;  
18.  --资产id  
19.  l_asset_hdr_rec.asset_id := 418;  
20.  --新的资产描述  
21.  --l_asset_desc_rec.description   := '更新';  
22.  --需要更新的新的标签号  
23.  l_asset_desc_rec.tag_number := 'test_001';  
24.  
25.  fa_asset_desc_pub.update_desc(  
26.                                -- std parameters  
27.                                p_api_version      => 1.0,  
28.                                p_init_msg_list    => fnd_api.g_false,  
29.                                p_commit           => fnd_api.g_false,  
30.                                p_validation_level => fnd_api.g_valid_level_full,  
31.                                p_calling_fn       => NULL,  
32.                                x_return_status    => l_return_status,  
33.                                x_msg_count        => l_mesg_count,  
34.                                x_msg_data         => l_mesg,  
35.                                -- api parameters  
36.                                px_trans_rec          => l_trans_rec,  
37.                                px_asset_hdr_rec      => l_asset_hdr_rec,  
38.                                px_asset_desc_rec_new => l_asset_desc_rec,  
39.                                px_asset_cat_rec_new  => l_asset_cat_rec);  
40.  --dump messages  
41.  l_mesg_count := fnd_msg_pub.count_msg;  
42.  
43.  IF l_mesg_count > 0 THEN  
44.    
45.    l_mesg := chr(10) ||  
46.              substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false),  
47.                     1,  
48.                     250);  
49.    dbms_output.put_line(l_mesg);  
50.    
51.    FOR i IN 1 .. (l_mesg_count - 1) LOOP  
52.      l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false),  
53.                       1,  
54.                       250);  
55.      
56.      dbms_output.put_line(l_mesg);  
57.    END LOOP;  
58.    
59.    fnd_msg_pub.delete_msg();  
60.    
61.  END IF;  
62.  
63.  IF (l_return_status <> fnd_api.g_ret_sts_success) THEN  
64.    dbms_output.put_line('FAILURE');  
65.  ELSE  
66.    dbms_output.put_line('SUCCESS');  
67.    dbms_output.put_line('ASSET_ID' || to_char(l_asset_hdr_rec.asset_id));  
68.  END IF;  
69.  
70.END;