OracleAssetsAssetDescriptionAPI
2026-01-23 16:51阅读：
Oracle Assets Asset Description API
资产描述API
示例脚本：使用资产描述API
以下示例脚本展示了如何使用资产描述API。
set serveroutput on;
declare
l_trans_rec
FA_API_TYPES.trans_rec_type;
l_asset_hdr_rec
FA_API_TYPES.asset_hdr_rec_type;
l_asset_desc_rec
FA_API_TYPES.asset_desc_rec_type;
l_asset_cat_rec
FA_API_TYPES.asset_cat_rec_type;
l_return_status
VARCHAR2(1);
l_mesg_count
number;
l_mesg
varchar2(512);
begin
dbms_output.enable(10000000);
FA_SRVR_MSG.Init_Server_Message;
l_asset_hdr_rec.asset_id
:= &asset_id
l_asset_desc_rec.description :=
'&description';
l_asset_desc_rec.serial_number :=
'&serial_number';
FA_ASSET_DESC_PUB.update_desc(
-- std
parameters
p_api_version
=>
1.0,
p_init_msg_list
=>
FND_API.G_FALSE,
p_commit
=> FND_API.G_FALSE,
p_validation_level
=>
FND_API.G_VALID_LEVEL_FULL,
p_calling_fn
=> null,
x_return_status
=>
l_return_status,
x_msg_count
=>
l_mesg_count,
x_msg_data
=>
l_mesg,
-- api
parameters
px_trans_rec
=>
l_trans_rec,
px_asset_hdr_rec
=>
l_asset_hdr_rec,
px_asset_desc_rec_new =>
l_asset_desc_rec,
px_asset_cat_rec_new
=> l_asset_cat_rec);
--dump messages
l_mesg_count := fnd_msg_pub.count_msg;
if l_mesg_count > 0 then
l_mesg := chr(10) ||
substr(fnd_msg_pub.get
(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE),
1, 250);
dbms_output.put_line(l_mesg);
for i in 1..(l_mesg_count - 1) loop
l_mesg :=
substr(fnd_msg_pub.get
(fnd_msg_pub.G_NEXT,
fnd_api.G_FALSE), 1, 250);
dbms_output.put_line(l_mesg);
end loop;
fnd_msg_pub.delete_msg();
end if;
if (l_return_status <>
FND_API.G_RET_STS_SUCCESS) then
dbms_output.put_line('FAILURE');
else
dbms_output.put_line('SUCCESS');
dbms_output.put_line('ASSET_ID' ||
to_char(l_asset_hdr_rec.asset_id));
end if;
end;
/
-- 刘轶鹤
