[Home] [Help]
735:
736: v_code NUMBER;
737: v_errm VARCHAR2(64);
738:
739: TYPE SEGMENT_TBL IS TABLE OF gl_code_combinations.segment1%type;
740: l_segments SEGMENT_TBL;
741: l_segment_index number;
742: l_segment_name gl_code_combinations.segment1%type;
743: l_count number(2);
738:
739: TYPE SEGMENT_TBL IS TABLE OF gl_code_combinations.segment1%type;
740: l_segments SEGMENT_TBL;
741: l_segment_index number;
742: l_segment_name gl_code_combinations.segment1%type;
743: l_count number(2);
744: i number(2);
745: l_sql VARCHAR2(1000);
746: TYPE SEGMENT_CONTEXT_TBL IS TABLE OF VARCHAR2(25);
882: fetch c_ccid_check into l_ccid;
883: exit when c_ccid_check%notfound;
884: select count(*)
885: into l_ccid_count
886: from gl_code_combinations
887: where code_combination_id=l_ccid
888: and chart_of_accounts_id=l_coa;
889: if l_ccid_count = 0 then
890: update ja_cn_item_interface
902: exit when c_set_segment%notfound;
903: l_sql:='select '|| l_Company_Column_Name ||', '
904: || l_Account_Column_Name ||', '
905: || l_Cost_CRT_Column_Name ||
906: ' from gl_code_combinations
907: where code_combination_id=' || l_ccid ||
908: ' and chart_of_accounts_id='|| l_coa;
909: open c_Inst_segments for l_sql;
910: loop
967: exit when c_segments%notfound;
968: begin
969: select code_combination_id
970: into l_ccid1
971: from gl_code_combinations
972: where nvl(segment1,-1)=nvl(l_segment_context(1),-1)
973: and nvl(segment2,-1)=nvl(l_segment_context(2),-1)
974: and nvl(segment3,-1)=nvl(l_segment_context(3),-1)
975: and nvl(segment4,-1)=nvl(l_segment_context(4),-1)
1151: --The code combination id is option to input for user.
1152: --the segment combination is also option to input for user.
1153: -- if both of them are input, they must be consistent. if not,
1154: -- set status EC04
1155: --if one is input, but it can't be find in table gl_code_combinations
1156: --the status will be EC02 or EC03.
1157: --if only segment combination is input,set value for code combination
1158: --id to interface table. the status is 'p'
1159: --if only code combination id is input, set company segment, account
1293:
1294: -- ',jeh.default_effective_date ' ||
1295: ' FROM gl_je_headers jeh' ||
1296: ' ,gl_je_lines jel' ||
1297: ' ,gl_code_combinations gcc' ||
1298: ' ,gl_periods gp' ||
1299: ' ,gl_ledgers led' ||
1300: ' ,ja_cn_ledger_le_bsv_gt bsv' ||
1301: ' WHERE jeh.je_header_id = jel.je_header_id' ||
1677: ' second_tracking_col,' || l_Other_Cols_Name ||
1678: ' other_columns,';
1679: --jogen
1680: l_Create_View_Sql := l_Create_View_Sql ||
1681: 'to_number(null) project_id from gl_code_combinations gcc,' ||
1682: ' GL_LEDGERS led where led.chart_of_accounts_id ' ||
1683: ' = gcc.chart_of_accounts_id';
1684:
1685: l_Create_View_Sql := 'create or replace view ja_cn_code_combination_v as ' ||