固定资产的完全报废接口

原创 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
  • 879

固定资产的调整分配接口

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

固定资产新增接口

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
  • 1223

接口回调demo完全解析

  • 2016-11-05 09:44
  • 8.37MB
  • 下载

JavaSE--学习实战完全笔记--增强版的线程创建方式--实现Callable接口

JDK1.5提供的Callable的call()方法,可以有泛型、抛出异常、有返回值。实现Runnable接口,Thread类可以把run方法包装成线程执行体,但不能把其他方法包装成线程执行体。 ...

接口自动化测试,返回值深层完全断言大法

今日写了一个对http接口测试中的返回值,json格式 进行深层断言的方法。话不多说,直接上码,觉得好的可以留言支持我一下。在此感谢selenium_python群的第一个高手大师兄蜗牛哥 和 众多高...

SAS接口互连完全指南

  • 2012-05-06 15:10
  • 5.31MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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