取会计科目之数字

标准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这个是控制组合操作的。