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