所有由小潘发布的文章

喜欢分享的小潘.
经验闲谈

Oracle DB scn情况查询

留下评论

–1、查询当前scn情况

select version,
       date_time,
       dbms_flashback.get_system_change_number current_scn,
       indicator
  from (select version,
               to_char(SYSDATE, 'YYYY/MM/DD HH24:MI:SS') DATE_TIME,
               ((((((to_number(to_char(sysdate, 'YYYY')) – 1988) * 12 * 31 * 24 * 60 * 60) +
               ((to_number(to_char(sysdate, 'MM')) – 1) * 31 * 24 * 60 * 60) +
               (((to_number(to_char(sysdate, 'DD')) – 1)) * 24 * 60 * 60) +
               (to_number(to_char(sysdate, 'HH24')) * 60 * 60) +
               (to_number(to_char(sysdate, 'MI')) * 60) +
               (to_number(to_char(sysdate, 'SS')))) * (16 * 1024)) –
               SYS.dbms_flashback.get_system_change_number) /
               (16 * 1024 * 60 * 60 * 24)) indicator
          from v$instance);

–2、查询距离上限天数的历史变化情况

SELECT tim,
       gscn,
       round(rate),
       round((chk16kscn – gscn) / 24 / 3600 / 16 / 1024, 1) "HEADROOM"
  FROM (SELECT tim,
               gscn,
               rate,
               ((((to_number(to_char(tim, 'YYYY')) – 1988) * 12 * 31 * 24 * 60 * 60) +
               ((to_number(to_char(tim, 'MM')) – 1) * 31 * 24 * 60 * 60) +
               (((to_number(to_char(tim, 'DD')) – 1)) * 24 * 60 * 60) +
               (to_number(to_char(tim, 'HH24')) * 60 * 60) +
               (to_number(to_char(tim, 'MI')) * 60) +
               (to_number(to_char(tim, 'SS')))) * (16 * 1024)) chk16kscn
          FROM (SELECT first_time tim,
                       first_change# gscn,
                       ((next_change# – first_change#) /
                       ((next_time – first_time) * 24 * 60 * 60)) rate
                  FROM v$archived_log
                 WHERE (next_time > first_time)))
 ORDER BY 1, 2;

可参考以下链接：

https://www.cnblogs.com/likingzi/p/6420927.html

其他：此脚本来做patch 13498243

经验闲谈

Oracle S 由数据库端找到对应的前台URL地址

留下评论

SELECT home_url FROM icx_parameters; 

SELECT profile_option_value  
  FROM fnd_profile_option_values  
WHERE profile_option_id=  
   (SELECT profile_option_id                              
      FROM fnd_profile_options WHERE profile_option_name = 'APPS_FRAMEWORK_AGENT')                               
   AND level_value = 0; 

原创程序、经验闲谈

Oracle ebs资产调整 api例子

一条评论

declare
  l_trans_rec                 FA_API_TYPES.trans_rec_type;
  l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;
  l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;
  l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;
  l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type;
  l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;
  l_inv_tbl                   FA_API_TYPES.inv_tbl_type;
  l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;
  l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;
  l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;
  l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;
  l_inv_rec                   FA_API_TYPES.inv_rec_type;
  l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
  l_return_status             VARCHAR2(1);
  l_mesg_count                number := 0;
  l_mesg_len                  number;
  l_mesg                      varchar2(4000);
begin
  fnd_profile.put('PRINT_DEBUG', 'Y');
  dbms_output.enable(1000000);
  FA_SRVR_MSG.Init_Server_Message;
  FA_DEBUG_PKG.Initialize;
  — asset header info
  l_asset_hdr_rec.asset_id       := 100000206;
  l_asset_hdr_rec.book_type_code := 'FIN_FA_BOOK';
  — fin info
  l_asset_fin_rec_adj.cost := 1002;

  –需注意这个金额是在原基础上的增减值。
  FA_ADJUSTMENT_PUB.do_adjustment(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            => 'ADJ_TEST_SCRIPT',
                                  x_return_status         => l_return_status,
                                  x_msg_count             => l_mesg_count,
                                  x_msg_data              => l_mesg,
                                  px_trans_rec            => l_trans_rec,
                                  px_asset_hdr_rec        => l_asset_hdr_rec,
                                  p_asset_fin_rec_adj     => l_asset_fin_rec_adj,
                                  x_asset_fin_rec_new     => l_asset_fin_rec_new,
                                  x_asset_fin_mrc_tbl_new => l_asset_fin_mrc_tbl_new,
                                  px_inv_trans_rec        => l_inv_trans_rec,
                                  px_inv_tbl              => l_inv_tbl,
                                  –px_inv_rate_tbl             => l_inv_rate_tbl,
                                  p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,
                                  x_asset_deprn_rec_new       => l_asset_deprn_rec_new,
                                  x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,
                                  p_group_reclass_options_rec => l_group_reclass_options_rec);
  dbms_output.put_line(l_return_status);
  if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
    fa_debug_pkg.dump_debug_messages(max_mesgs => 0);
    l_mesg_count := fnd_msg_pub.count_msg;
    if l_mesg_count > 0 then
      l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE),
                       1,
                       512);
      dbms_output.put_line(substr(l_mesg, 1, 255));
      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,
                         512);
        dbms_output.put_line(substr(l_mesg, 1, 255));
      end loop;
      fnd_msg_pub.delete_msg();
    end if;
  else
    dbms_output.put_line('SUCCESS');
    dbms_output.put_line('THID' ||
                         to_char(l_trans_rec.transaction_header_id));
  end if;
end;
/
参考文件：Oracle Assets Adjustments API Documentation Supplement (文档 ID 206474.1)

系统层级、经验闲谈

Oracle EBS 取消“是否提交另一项请求”

留下评论

配置文件

中文：并发：提交每个请求后显示请求摘要

英文：Concurrent: ShowRequests Summary After Each Request Submission

说明：设置为“是”以使 SRS 表单 (FNDRSRUN) 在每次提交新请求时显示当前提交请求的摘要。

使用场景：

    在使用EBS提交请求后，总要弹出“是否提交另一项请求”的提示，而我们往往选择“否”，这个提示就显得多余。  

    为了减轻这“多一步”的负担，取消“是否提交另一项请求”的提示，设置方法如下：默认：否(No)，修改为是(Yes)，可以在User Level上修改。