asset transfer api测试范例

经过测试ok的sample

--测试代码开始

declare

l_trans_rec fa_api_types.trans_rec_type;

l_asset_hdr_rec fa_api_types.asset_hdr_rec_type;

l_asset_dist_tbl fa_api_types.asset_dist_tbl_type;

l_return_status VARCHAR2(1);

l_mesg_count number;

l_mesg varchar2(512);

begin

dbms_output.enable(1000000);

fa_srvr_msg.init_server_message;

-- fill in asset information

l_asset_hdr_rec.asset_id :=
12138;--要移转的资产id

-- fill in distribution data for existing distribution lines

-- affected by this transfer txn. Note: You need to fill in

-- only affected distribution lines.

--

-- For source distribution, you must fill in either existing

-- distribution id or 2 columns(expense_ccid,location_ccid) or

-- 3-tuple columns(assigned_to,expense_ccid, and location_ccid)

-- depending on the makeup of the particular distribution

-- of the asset.

l_asset_dist_tbl(1).transaction_units
:= -0.1;-- assignment当前行unit要变化的数量

-- Source

-- Option A - known dist id

l_asset_dist_tbl(1).distribution_id
:= 2165368;-- assignment当前行id


-- or

-- Option B - known dist attributes

l_asset_dist_tbl(1).assigned_to
:= 1527; -- assignment当前行assigned_to
人员id

l_asset_dist_tbl(1).expense_ccid
:= 1009142; -- assignment当前行expense
account

l_asset_dist_tbl(1).location_ccid
:= 1037635 ; -- assignment当前行location

-- Destination

l_asset_dist_tbl(2).distribution_id
:= 2165369;

-- fill in dist info for one or more destination distribution (start with 2..(3,4,..))

l_asset_dist_tbl(2).transaction_units
:= 0.1;

l_asset_dist_tbl(2).assigned_to
:= 1527;

l_asset_dist_tbl(2).expense_ccid
:= 1005158;

l_asset_dist_tbl(2).location_ccid
:= 1037635;

FA_TRANSFER_PUB.do_transfer(

-- 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_dist_tbl => l_asset_dist_tbl);

--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('THID' || to_char(l_trans_rec.transaction_header_id));

end if;

end;

--测试代码结束

辅助sql：

根据asset_id查询asset assignment信息

Select Units_Assigned, Rowid, Asset_Id, Book_Type_Code, Distribution_Id, Assigned_To, Transaction_Units,

Code_Combination_Id, Location_Id, Date_Effective, Date_Ineffective, Transaction_Header_Id_In,

Transaction_Header_Id_Out, Retirement_Id, Last_Update_Login, Last_Update_Date, Last_Updated_By

From Fa_Distribution_History

Where ('' Is Null And Date_Ineffective Is Null And Book_Type_Code = 'AP ASSET BOOK' And Asset_Id = 12138 And

'TRANSFER' != 'TRANSFER IN') Or

('' Is Not Null And

(Transaction_Header_Id_Out = '' And 'TRANSFER' In ('TRANSFER', 'TRANSFER OUT', 'UNIT ADJUSTMENT')) Or

(Transaction_Header_Id_In = '' And 'TRANSFER' In ('TRANSFER IN', 'TRANSFER', 'UNIT ADJUSTMENT') And

(Code_Combination_Id, Location_Id, Nvl(Assigned_To, -99)) Not In

(Select Dh.Code_Combination_Id, Dh.Location_Id, Nvl(Dh.Assigned_To, -99)

From Fa_Distribution_History Dh

Where Dh.Asset_Id = 12138 And Dh.Book_Type_Code = 'AP ASSET BOOK' And Dh.Transaction_Header_Id_Out = '' And

'TRANSFER' In ('TRANSFER', 'TRANSFER OUT', 'UNIT ADJUSTMENT'))))

Order By Distribution_Id;