固定资产新增接口

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

01.DECLARE  
02.  
03.  l_trans_rec           fa_api_types.trans_rec_type;  
04.  l_dist_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.  l_asset_type_rec      fa_api_types.asset_type_rec_type;  
09.  l_asset_hierarchy_rec fa_api_types.asset_hierarchy_rec_type;  
10.  l_asset_fin_rec       fa_api_types.asset_fin_rec_type;  
11.  l_asset_deprn_rec     fa_api_types.asset_deprn_rec_type;  
12.  l_asset_dist_rec      fa_api_types.asset_dist_rec_type;  
13.  l_asset_dist_tbl      fa_api_types.asset_dist_tbl_type;  
14.  l_inv_tbl             fa_api_types.inv_tbl_type;  
15.  l_inv_rate_tbl        fa_api_types.inv_rate_tbl_type;  
16.  
17.  l_return_status VARCHAR2(1);  
18.  l_mesg_count    NUMBER;  
19.  l_mesg          VARCHAR2(4000);  
20.  
21.BEGIN  
22.  --初始化  
23.  dbms_output.enable(10000000);  
24.  
25.  fa_srvr_msg.init_server_message;  
26.  
27.  --资产基础信息  
28.  -- desc info  
29.  --资产编号（不传值系统会自动将asset_id赋过来）  
30.  l_asset_desc_rec.asset_number := 'GH_TEST004';  
31.  --资产说明  
32.  l_asset_desc_rec.description := 'TEST';  
33.  --资产关键字组合代码标识  
34.  l_asset_desc_rec.asset_key_ccid := 1;  
35.  
36.  --资产类别信息  
37.  -- cat info  
38.  --资产类别代码组合标识  
39.  l_asset_cat_rec.category_id := 1;  
40.  
41.  --资产类型信息  
42.  --type info  
43.  --资产类型  
44.  l_asset_type_rec.asset_type := 'CAPITALIZED';  
45.  
46.  --财务信息  
47.  -- fin info  
48.  --资产成本  
49.  l_asset_fin_rec.cost := 1;  
50.  --资产新增日期  
51.  l_asset_fin_rec.date_placed_in_service := to_date('2013-03-13',  
52.                                                    'YYYY/MM/DD');  
53.  
54.  l_asset_fin_rec.depreciate_flag := 'YES';  
55.  
56.  --折旧信息  
57.  -- deprn info  
58.  --折旧信息  
59.  l_asset_deprn_rec.ytd_deprn           := 0;  
60.  l_asset_deprn_rec.deprn_reserve       := 0;  
61.  l_asset_deprn_rec.bonus_ytd_deprn     := 0;  
62.  l_asset_deprn_rec.bonus_deprn_reserve := 0;  
63.  
64.  --账簿及分配信息  
65.  -- book / trans info  
66.  --账簿  
67.  l_asset_hdr_rec.book_type_code := 'FA_BOOK_01';  
68.  --分配日期  
69.  l_trans_rec.transaction_date_entered := l_asset_fin_rec.date_placed_in_service;  
70.  -- distribution info  
71.  --分配数量  
72.  l_asset_dist_rec.units_assigned := 1;  
73.  --费用账户id  
74.  l_asset_dist_rec.expense_ccid := 14001;  
75.  --地点组合代码标识id  
76.  l_asset_dist_rec.location_ccid := 1;  
77.  --员工id  
78.  l_asset_dist_rec.assigned_to := 61;  
79.  --调整数量  
80.  l_asset_dist_rec.transaction_units := l_asset_dist_rec.units_assigned;  
81.  l_asset_dist_tbl(1) := l_asset_dist_rec;  
82.  
83.  -- call the api  
84.  fa_addition_pub.do_addition(  
85.                              -- std parameters  
86.                              p_api_version      => 1.0,  
87.                              p_init_msg_list    => fnd_api.g_false,  
88.                              p_commit           => fnd_api.g_false,  
89.                              p_validation_level => fnd_api.g_valid_level_full,  
90.                              p_calling_fn       => NULL,  
91.                              x_return_status    => l_return_status,  
92.                              x_msg_count        => l_mesg_count,  
93.                              x_msg_data         => l_mesg,  
94.                              -- api parameters  
95.                              px_trans_rec           => l_trans_rec,  
96.                              px_dist_trans_rec      => l_dist_trans_rec,  
97.                              px_asset_hdr_rec       => l_asset_hdr_rec,  
98.                              px_asset_desc_rec      => l_asset_desc_rec,  
99.                              px_asset_type_rec      => l_asset_type_rec,  
100.                              px_asset_cat_rec       => l_asset_cat_rec,  
101.                              px_asset_hierarchy_rec => l_asset_hierarchy_rec,  
102.                              px_asset_fin_rec       => l_asset_fin_rec,  
103.                              px_asset_deprn_rec     => l_asset_deprn_rec,  
104.                              px_asset_dist_tbl      => l_asset_dist_tbl,  
105.                              px_inv_tbl             => l_inv_tbl);  
106.  --dump messages  
107.  l_mesg_count := fnd_msg_pub.count_msg;  
108.  
109.  IF l_mesg_count > 0 THEN  
110.    
111.    l_mesg := chr(10) ||  
112.              substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false),  
113.                     1,  
114.                     250);  
115.    dbms_output.put_line(l_mesg);  
116.    
117.    FOR i IN 1 .. (l_mesg_count - 1) LOOP  
118.      l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false),  
119.                       1,  
120.                       250);  
121.      
122.      dbms_output.put_line(l_mesg);  
123.    END LOOP;  
124.    
125.    fnd_msg_pub.delete_msg();  
126.    
127.  END IF;  
128.  
129.  IF (l_return_status <> fnd_api.g_ret_sts_success) THEN  
130.    dbms_output.put_line('FAILURE');  
131.  ELSE  
132.    dbms_output.put_line('SUCCESS');  
133.    dbms_output.put_line('THID:' ||  
134.                         to_char(l_trans_rec.transaction_header_id));  
135.    dbms_output.put_line('ASSET_ID:' || to_char(l_asset_hdr_rec.asset_id));  
136.    dbms_output.put_line('ASSET_NUMBER:' || l_asset_desc_rec.asset_number);  
137.  END IF;  
138.  
139.END;