关闭

固定资产更新接口

标签: 资产更新接口
852人阅读 评论(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;
  --资产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;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:211393次
    • 积分:3532
    • 等级:
    • 排名:第9694名
    • 原创:152篇
    • 转载:6篇
    • 译文:0篇
    • 评论:3条
    最新评论