请教get_ccid的问题？

sunnly

用了get_ccid和get_combination_id二个系统标准函数获取ccid都不成功，放在应用环境中测试也不成功，是我调用格式中有什么不对的地方么？试了很久返回的值都是0，XDJM们指教一下
/*set serveroutput on*/
/*begin
fnd_global.APPS_INITIALIZE(1120,20434,101);
end;*/
/*FND_FLEX_EXT.GET_SEGS µÃµ½×éºÏ
FND_FLEX_KEYVAL.validate_ccidÑéÖ¤ccidµÄÓÐЧÐÔ
FND_FLEX_KEYVAL.concatenated_descriptions µÃµ½ccidµÄÃèÊö
*/
declare
l_segment1 VARCHAR2(300);
l_segment2 VARCHAR2(30);
l_segment3 VARCHAR2(30);
l_segment4 VARCHAR2(30);
l_segment5 VARCHAR2(30);
l_segment6 VARCHAR2(30);
l_segment7 VARCHAR2(30);
l_segment8 VARCHAR2(30);
l_segment9 VARCHAR2(30);
v_structure_number number;
l_new_ccid number;
v_segment fnd_flex_ext.segmentArray;
v_result boolean;
BEGIN
l_segment1 := '00004.03206.0886.001.0.0.001.0';
/* v_segment(1) := '00004';
v_segment(2) := '03206.';
v_segment(3) := '0886.';
v_segment(4) := '0.';
v_segment(5) := '001.';
v_segment(6) := '0.';
v_segment(7) := '0.';
v_segment(8) := '001.';
v_segment(9) := '0';*/

SELECT chart_of_accounts_id
INTO v_structure_number
FROM gl_sets_of_books
WHERE set_of_books_id = 1001;
/* v_result := fnd_flex_ext.get_combination_id('SQLGL', -- Application Short Name
'GL#', -- ID
v_structure_number, -- Structure Number
sysdate, -- Validation Date
9, -- segment number
v_segment, -- segment
l_new_ccid);*/
l_new_ccid := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
key_flex_code => 'GL#',
structure_number => v_structure_number,
validation_date => to_char(sysdate,apps.fnd_flex_ext.date_format),
concatenated_segments => l_segment1);
dbms_output.put_line('YES:=' || l_new_ccid);
if v_result = true then
-- fnd_file.PUT_LINE(fnd_file.log,'YES:' || l_new_ccid);
dbms_output.put_line('YES' || l_new_ccid);
else
-- fnd_file.PUT_LINE(fnd_file.log,'NO:' || v_structure_number);
dbms_output.put_line('NO' || v_structure_number || l_new_ccid);
end if;
END;

success

版主快来看看。。。