获取ccid的标准方法

根据科目组合以及分类账等信息获取ccid，同时得到是否运行前台数据等信息。

FUNCTION get_code_combination_id(p_concatenated_segments IN VARCHAR2,

                                   p_chart_of_accounts_id  IN NUMBER ,

                                   x_posting_allowed_flag  OUT VARCHAR2 )

    RETURN NUMBER IS

    l_code_combination_id NUMBER NULL ;

  BEGIN

    l_code_combination_id := apps.fnd_flex_ext.get_ccid(application_short_name => 'SQLGL' ,

                                                        key_flex_code          => 'GL#' ,

                                                        structure_number       => p_chart_of_accounts_id,

                                                        validation_date        => to_char( SYSDATE ,

                                                                                          apps.fnd_flex_ext.date_format),

                                                        concatenated_segments  => p_concatenated_segments);

    BEGIN

      SELECT t.detail_posting_allowed

        INTO x_posting_allowed_flag

        FROM gl_code_combinations_kfv t

       WHERE t.code_combination_id = l_code_combination_id;

    EXCEPTION

      WHEN OTHERS THEN

        x_posting_allowed_flag := 'N' ;

    END ;

    RETURN nvl(l_code_combination_id, - 1 );

  EXCEPTION

 

    WHEN OTHERS THEN

      IF fnd_flex_keyval.validate_segs(operation        => 'CREATE_COMBINATION' ,

                                       appl_short_name  => 'SQLGL' ,

                                       key_flex_code    => 'GL#' ,

                                       structure_number => p_chart_of_accounts_id,

                                       concat_segments  => p_concatenated_segments) THEN

        l_code_combination_id := fnd_flex_ext.get_ccid( 'SQLGL' ,

                                                       'GL#' ,

                                                       p_chart_of_accounts_id,

                                                       to_char( SYSDATE ,

                                                               'YYYY-MM-DD' ),

                                                       p_concatenated_segments);

        BEGIN

          SELECT t.detail_posting_allowed

            INTO x_posting_allowed_flag

            FROM gl_code_combinations_kfv t

           WHERE t.code_combination_id = l_code_combination_id;

        EXCEPTION

          WHEN OTHERS THEN

            x_posting_allowed_flag := 'N' ;

        END ;

      ELSE

        l_code_combination_id  := - 1 ;

        x_posting_allowed_flag := 'N' ;

      END IF ;

      RETURN l_code_combination_id;

  END get_code_combination_id;