固定资产的完全报废接口

原创 2013年12月01日 21:01:20
--完全报废
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      => 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_dist_trans_rec   => l_dist_trans_rec,
                                  px_asset_hdr_rec    => l_asset_hdr_rec,
                                  px_asset_retire_rec => l_asset_retire_rec,
                                  p_asset_dist_tbl    => l_asset_dist_tbl,
                                  p_subcomp_tbl       => l_subcomp_tbl,
                                  p_inv_tbl           => l_inv_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');
    ROLLBACK;
  ELSE
    dbms_output.put_line('SUCCESS');
    dbms_output.put_line('RETIREMENT_ID' ||
                         to_char(l_asset_retire_rec.retirement_id));
  END IF;

END;

版权声明:本文为博主原创文章,未经博主允许不得转载。

固定资产更新接口

--更新资产 DECLARE l_trans_rec fa_api_types.trans_rec_type; l_asset_hdr_rec fa_api_types.asse...
  • gh320
  • gh320
  • 2013年12月01日 21:03
  • 929

固定资产的调整分配接口

/*(注意点:1:只能在不同的行之间进行调整 2:调整之后的数量之和应和调整之前一样,否则报错)*/ DECLARE l_return_status VARCHAR2(1); l_msg_c...
  • gh320
  • gh320
  • 2013年12月01日 20:59
  • 976

固定资产新增接口

DECLARE l_trans_rec fa_api_types.trans_rec_type; l_dist_trans_rec fa_api_types.t...
  • gh320
  • gh320
  • 2013年12月01日 20:53
  • 1311

FA固定资产报废不可撤消重建

FA固定资产报废不可撤消重建 分类:Oracle ERP | 标签: FA   固定资产   APP-OFA-48232   2008-01-02 20:56阅读(636)评论(2) ...
  • kikiwhq
  • kikiwhq
  • 2014年11月10日 10:50
  • 1303

SAS接口互连完全指南

  • 2012年05月06日 15:10
  • 5.31MB
  • 下载

近百个免费API接口分享 调用完全不限次数

近百个无次数限制的免费API接口整理,主要是聚合数据上和API Store上的一些,还有一些其他的。...
  • ishxiao
  • ishxiao
  • 2016年12月23日 14:31
  • 5806

SAS接口完全互连指南

  • 2011年04月08日 19:29
  • 4.55MB
  • 下载

接口回调demo完全解析

  • 2016年11月05日 09:44
  • 8.37MB
  • 下载

Java 通过工厂模式和接口泛型实现完全解耦

首先我们假设: 有一个农民(farmer) 有一本菜谱(cookbook),为了方便理解菜谱只有炸鸡这一个菜 假设这是程序的两部分,分别可以被单独复用.并且农民被复用时有时需要菜谱上的函数做饭,有时忙...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:固定资产的完全报废接口
举报原因:
原因补充:

(最多只允许输入30个字)