Oracle EBS GL模块获得总帐科目所有键弹性域组合的值

donagh朵那

于 2024-12-16 12:46:49 发布

阅读量133

点赞数 1

CC 4.0 BY-SA版权

文章标签：数据库 sql oracle

本文链接：https://blog.csdn.net/weixin_43376892/article/details/144505405

  /***
  *** Name:          Function get_gl_flexfields;
  *** Parameter:     p_ccid gl_code_combinations.code_combination_id, p_return 'A' Account,'D' Account Description
  *** Return:        总帐科目段所有键弹性域组合的值
  ***/
  FUNCTION get_gl_flexfields(p_ccid   NUMBER,
                             p_return VARCHAR2 DEFAULT 'A') RETURN VARCHAR2 IS
    l_sob_id       NUMBER;
    l_account_desc VARCHAR2(1000);
    l_success      BOOLEAN;
    l_account_num  VARCHAR2(1000);
    l_coa_id       NUMBER;
  
    l_key_flex_code   VARCHAR2(20);
    l_appl_short_name VARCHAR2(20);
    l_application_id  NUMBER;
    -- Keeps track of the current delimiter
    delim VARCHAR2(1) := '';
  
  BEGIN
    --fnd_global.apps_initialize(resp_appl_id => 140, resp_id => 61089, user_id => 8004);
    -- l_coa_id := 50133;
    l_key_flex_code   := 'GL#';
    l_appl_short_name := 'SQLGL';
    l_application_id  := 101;
    BEGIN
      l_sob_id := apps.fnd_profile.value_wnps('GL_SET_OF