[Home] [Help]
171: FETCH c_Approver_Name
172: INTO l_Approver_Name;
173:
174: IF c_Approver_Name%FOUND THEN
175: UPDATE Ja_Cn_Journal_Lines_Req t
176: SET t.Journal_Approver = l_Approver_Name
177: WHERE t.Je_Header_Id = l_Je_Header_Id;
178: END IF; --c_approver_name%found
179:
859: FROM (SELECT SUM(Nvl(Req.Accounted_Dr, 0) - Nvl(Req.Accounted_Cr, 0)) Accounted_Amount,
860: SUM(Nvl(Req.Entered_Dr, 0) - Nvl(Req.Entered_Cr, 0)) Entered_Amount,
861: Req.Je_Header_Id,
862: Req.Je_Line_Num
863: FROM Ja_Cn_Journal_Lines_Req Req
864: WHERE Req.Request_Id = l_Request_Id
865: GROUP BY Req.Je_Header_Id, Req.Je_Line_Num) Req,
866: Gl_Je_Lines Jel
867: WHERE (Nvl(Jel.Accounted_Dr, 0) - Nvl(Jel.Accounted_Cr, 0) <>
903: l_Module_Prefix || '.' || l_Proc_Name,
904: l_Error_Msg);
905: END IF; --(l_proc_level >= l_dbg_level)
906:
907: DELETE FROM Ja_Cn_Journal_Lines_Req
908: WHERE Je_Header_Id = l_Je_Header_Id
909: AND Je_Line_Num = l_Je_Line_Num;
910:
911: END LOOP;
1049: ' AND dffa.chart_of_accounts_id = '||p_chart_of_accounts_id||
1050: ' AND dffa.dff_title_code=''GLJO'')'||
1051: ' ) Settlement_Method_Number ';
1052:
1053: l_sql:='INSERT INTO Ja_Cn_Journal_Lines_Req';
1054: l_sql:=l_sql||' (Je_Header_Id,';
1055: l_sql:=l_sql||' Ledger_Id,';
1056: l_sql:=l_sql||' Legal_Entity_Id,';
1057: l_sql:=l_sql||' Journal_Number,';
1146: l_sql:=l_sql||' AND Jel.Je_Line_Num = Jop.Je_Line_Num';
1147: l_sql:=l_sql||' AND Jop.Request_Id = '||l_Request_Id;
1148: l_sql:=l_sql||' AND Jel.Je_Line_Num NOT IN';
1149: l_sql:=l_sql||' (SELECT Je_Line_Num';
1150: l_sql:=l_sql||' FROM Ja_Cn_Journal_Lines_Req';
1151: l_sql:=l_sql||' WHERE Je_Header_Id = Jeh.Je_Header_Id)';
1152: l_sql:=l_sql||' AND Jeb.Je_Batch_Id=Jeh.Je_Batch_Id';
1153:
1154: execute immediate l_sql;
1152: l_sql:=l_sql||' AND Jeb.Je_Batch_Id=Jeh.Je_Batch_Id';
1153:
1154: execute immediate l_sql;
1155:
1156: /* INSERT INTO Ja_Cn_Journal_Lines_Req
1157: (Je_Header_Id,
1158: Ledger_Id,
1159: Legal_Entity_Id,
1160: Journal_Number,
1247: AND Jel.Je_Line_Num = Jop.Je_Line_Num
1248: AND Jop.Request_Id = l_Request_Id
1249: AND Jel.Je_Line_Num NOT IN
1250: (SELECT Je_Line_Num
1251: FROM Ja_Cn_Journal_Lines_Req
1252: WHERE Je_Header_Id = Jeh.Je_Header_Id)
1253: AND Jeb.Je_Batch_Id=Jeh.Je_Batch_Id;--added by lyb, for bug 6654734
1254: */
1255:
1318: ORDER BY Effective_Date ASC, Je_Header_Id ASC;
1319:
1320: CURSOR c_Journal_Appending IS
1321: SELECT DISTINCT Je_Header_Id, Journal_Number
1322: FROM Ja_Cn_Journal_Lines Jl
1323: WHERE Je_Header_Id = l_Je_Header_Id
1324: AND Journal_Number IS NOT NULL
1325: AND Company_Segment IN
1326: (SELECT bsv.bal_seg_value
1352: INTO l_Je_Appending_Id, l_Journal_Number;
1353:
1354: IF c_Journal_Appending%FOUND THEN
1355: CLOSE c_Journal_Appending;
1356: UPDATE Ja_Cn_Journal_Lines jop
1357: SET Journal_Number = l_Journal_Number
1358: WHERE Je_Header_Id = l_Je_Header_Id
1359: AND Journal_Number IS NULL
1360: AND Company_Segment IN
1372: p_ledger_id=>l_ledger_id,
1373: p_Period_Name => l_Period_Name);
1374:
1375: IF Nvl(l_Journal_Number, 0) > 0 THEN
1376: UPDATE Ja_Cn_Journal_Lines
1377: SET Journal_Number = l_Journal_Number
1378: WHERE Je_Header_Id = l_Je_Header_Id
1379: AND Company_Segment IN
1380: (SELECT bsv.bal_seg_value
1597: -- FROM Xla_Analytical_Dtls_b Dtl
1598: -- WHERE Dtl.Analytical_Criterion_Code = l_Project_Ac_Code
1599: -- AND Dtl.Analytical_Detail_Code = l_Project_Ac_Detail_Code;
1600:
1601: l_sql:='INSERT INTO Ja_Cn_Journal_Lines_Req';
1602: l_sql:=l_sql||' (Je_Header_Id,';
1603: l_sql:=l_sql||' Ledger_Id,';
1604: l_sql:=l_sql||' Legal_Entity_Id,';
1605: l_sql:=l_sql||' Journal_Number,';
1745: l_sql:=l_sql||l_Project_Query_Condition_Sql; -- Added by Chqoqun for CNAOV2
1746:
1747: execute immediate l_sql;
1748: /* else
1749: INSERT INTO Ja_Cn_Journal_Lines_Req
1750: (Je_Header_Id,
1751: Ledger_Id,
1752: Legal_Entity_Id,
1753: Journal_Number,
2063:
2064: --End: Chaoqun deleted for CNAOV2 on 01-21-2010
2065:
2066: --generate current session identifier
2067: SELECT Ja_Cn_Journal_Lines_Req_s.NEXTVAL INTO l_Request_Id FROM Dual;
2068:
2069: --generate code combination view
2070: Generate_Code_Combination_View(p_ledger_id => l_ledger_id);
2071:
2098: --get approver of journals that have been approved in General Ledger
2099: Get_Journal_Approver(p_Request_Id => l_Request_Id);
2100:
2101: --get creator's name of journal
2102: UPDATE JA_CN_JOURNAL_LINES_REQ REQ
2103: SET REQ.JOURNAL_CREATOR = (SELECT LAST_NAME || FIRST_NAME FULL_NAME
2104: FROM PER_ALL_PEOPLE_F
2105: WHERE PERSON_ID =
2106: (SELECT EMPLOYEE_ID
2112: EFFECTIVE_END_DATE)
2113: WHERE REQ.REQUEST_ID = L_REQUEST_ID
2114: AND REQ.JE_HEADER_ID > 0;
2115: --get poster's name of journals
2116: UPDATE JA_CN_JOURNAL_LINES_REQ REQ
2117: SET REQ.JOURNAL_POSTER = (SELECT LAST_NAME || FIRST_NAME FULL_NAME
2118: FROM PER_ALL_PEOPLE_F
2119: WHERE PERSON_ID =
2120: (SELECT EMPLOYEE_ID
2152:
2153: l_Insert_Values_Sql := l_Insert_Header_Sql;
2154:
2155:
2156: --transfer itemized data into ja_cn_journal_lines in this session
2157:
2158: --Begin: Delted by Chaoqun for CNAOV2
2159: /* INSERT INTO Ja_Cn_Journal_Lines
2160: (Je_Header_Id,
2155:
2156: --transfer itemized data into ja_cn_journal_lines in this session
2157:
2158: --Begin: Delted by Chaoqun for CNAOV2
2159: /* INSERT INTO Ja_Cn_Journal_Lines
2160: (Je_Header_Id,
2161: Ledger_Id,
2162: Legal_Entity_Id,
2163: Journal_Number,
2230: Populate_Code,
2231: Journal_Creator,
2232: Journal_Approver,
2233: Journal_Poster
2234: FROM Ja_Cn_Journal_Lines_Req
2235: WHERE Request_Id = l_Request_Id
2236: AND Je_Header_Id > 0;*/
2237: --End: Deleted by Chaoqun for CNAOV2
2238:
2235: WHERE Request_Id = l_Request_Id
2236: AND Je_Header_Id > 0;*/
2237: --End: Deleted by Chaoqun for CNAOV2
2238:
2239: l_sql:='INSERT INTO Ja_Cn_Journal_Lines';
2240: l_sql:=l_sql||' (Je_Header_Id,';
2241: l_sql:=l_sql||' Ledger_Id,';
2242: l_sql:=l_sql||' Legal_Entity_Id,';
2243: l_sql:=l_sql||' Journal_Number,';
2316: l_sql:=l_sql||' Journal_Creator,';
2317: l_sql:=l_sql||' Journal_Approver,';
2318: l_sql:=l_sql||' Journal_Poster,';
2319: l_sql:=l_sql||' Settlement_Method_Number';
2320: l_sql:=l_sql||' FROM Ja_Cn_Journal_Lines_Req';
2321: l_sql:=l_sql||' WHERE Request_Id = '||l_Request_Id;
2322: l_sql:=l_sql||' AND Je_Header_Id > 0';
2323:
2324: execute immediate l_sql;
2354: /* DELETE FROM Ja_Cn_Journals_Of_Period
2355: WHERE Request_Id = l_Request_Id
2356: AND Je_Header_Id > 0;*/
2357:
2358: DELETE FROM Ja_Cn_Journal_Lines_Req
2359: WHERE Request_Id = l_Request_Id
2360: AND Je_Header_Id > 0;
2361: COMMIT;
2362:
2431: DELETE FROM Ja_Cn_Journals_Of_Period
2432: WHERE Request_Id = l_Request_Id
2433: AND Je_Header_Id > 0;
2434:
2435: DELETE FROM Ja_Cn_Journal_Lines_Req
2436: WHERE Request_Id = l_Request_Id
2437: AND Je_Header_Id > 0;
2438: COMMIT;
2439: Fnd_File.Put_Line(Fnd_File.Log, SQLCODE || ':' || SQLERRM);