固定资产的完全报废接口

--完全报废
DECLARE

  l_trans_rec        fa_api_types.trans_rec_type;
  l_dist_trans_rec   fa_api_types.trans_rec_type;
  l_asset_hdr_rec    fa_api_types.asset_hdr_rec_type;
  l_asset_retire_rec fa_api_types.asset_retire_rec_type;
  l_asset_dist_tbl   fa_api_types.asset_dist_tbl_type;
  l_subcomp_tbl      fa_api_types.subcomp_tbl_type;
  l_inv_tbl          fa_api_types.inv_tbl_type;

  l_return_status VARCHAR2(1);
  l_mesg_count    NUMBER;
  l_mesg          VARCHAR2(4000);

BEGIN
  --初始化
  dbms_output.enable(1000000);

  fa_srvr_msg.init_server_message;

  -- Get standard who info
  --资产id
  l_asset_hdr_rec.asset_id := 418;
  --账簿
  l_asset_hdr_rec.book_type_code := 'FA_BOOK_01';
  --报废成本
  l_asset_retire_rec.cost_retired        := 1;
  l_asset_retire_rec.calculate_gain_loss := fnd_api.g_false;

  fa_retirement_pub.do_retirement(
                                  -- std parameters
                                  p_api_version      &