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