取会计科目之数字

摘自标准form，搬运单

 

/*PROCEDURE get_proj_cost_acc_segments IS*/
declare
 l_segments    fnd_flex_ext.segmentarray;
 l_no_segments NUMBER;
 l_concat_segs VARCHAR2(2000);
 l_get_flex    BOOLEAN;
BEGIN
 --message('CONTROL Cost Account ID (2) in GET_PROJ... Package:' || :control.project_cost_account_id);pause;
 --message('PARAMETER.CHART_OF_ACCOUNTS_ID :' || to_char(:PARAMETER.CHART_OF_ACCOUNTS_ID));
 l_get_flex := fnd_flex_ext.get_segments(application_short_name => 'SQLGL',
           key_flex_code          => 'GL#',
           structure_number       => 50328,--:parameter.chart_of_accounts_id,
           combination_id         => 31184,--:control.project_cost_account_id,
           n_segments             => l_no_segments,
           segments               => l_segments);
 --  --fnd_message.debug(' after getting  Project Cost Account Segments');
 ----fnd_message.debug(to_char(l_no_segments));

 IF l_get_flex THEN
  l_concat_segs := fnd_flex_ext.concatenate_segments(l_no_segments,
                 l_segments,
                 fnd_flex_ext.get_delimiter('SQLGL',
                       'GL#',
                       50328));--:parameter.chart_of_accounts_id));
 
  dbms_output.put_line(l_concat_segs);
 END IF;
END;

--------------------------------------------------

另外也可以直接查询表

 

select * from gl_code_combinations;

select * from gl_code_combinations_v;

select * from gl_code_combinations_kfv

 

gl_code_combinations_pkg这个是控制组合操作的。