固定资产更新接口

--更新资产
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;
  --资产id
  l_asset_hdr_rec.asset_id := 418;
  --新的资产描述
  --l_asset_desc_rec.description   := '更新';
  --需要更新的新的标签号
  l_asset_desc_rec.tag_number := 'test_001';

  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;

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/gh320/article/details/17059927
文章标签: 资产更新 接口
个人分类: Oracle EBS 接口
上一篇固定资产的完全报废接口
下一篇OAF环境配置
想对作者说点什么? 我来说一句

固定资产标签打印接口

2011年05月30日 52KB 下载

固定资产管理程序(web软件)

2008年09月30日 37KB 下载

没有更多推荐了,返回首页

关闭
关闭