更新资产ccid

最新推荐文章于 2023-03-13 21:24:34 发布

lzl1101206656

最新推荐文章于 2023-03-13 21:24:34 发布

阅读量420

点赞数

分类专栏：资产模块 oracle EBS 资产API

本文链接：https://blog.csdn.net/lzl1101206656/article/details/80538189

版权

EBS 同时被 3 个专栏收录

83 篇文章 3 订阅

订阅专栏

oracle

79 篇文章 1 订阅

订阅专栏

资产模块

2 篇文章 0 订阅

订阅专栏

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;

  l_asset_hdr_rec.asset_id       := 100000021; -- p_asset_id

  l_asset_desc_rec.asset_key_ccid := 1009;

  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);
commit;
  --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;