[Home] [Help]
1: PACKAGE BODY AP_WEB_VALIDATE_UTIL AS
2: /* $Header: apwvutlb.pls 120.34.12010000.3 2009/05/12 06:57:18 meesubra ship $ */
3:
4: /* The prompt index are relative to AP_WEB_EXP_VIEW_REC */
5: C_Date1_Prompt CONSTANT varchar2(3) := '6';
822: IF (NOT AP_WEB_DB_UTIL_PKG.GetFormattedSysDate(l_date_format, l_last_receipt)) THEN
823: NULL;
824: END IF;
825:
826: current_calling_sequence := 'AP_WEB_VALIDATE_UTIL.ValidateReportHeader';
827: -- Validate Approver Name
828: -- If override approver name is provided and no approver id
829: -- exists (non-wizard validated) then validate.
830: -- Overriding approver cannot be the submitting employee
969: 'txtCostCenter',
970: 0,
971: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, l_IsMobileApp);
972: ELSE
973: AP_WEB_VALIDATE_UTIL.ValidateCostCenter(
974: ExpReportHeaderInfo.cost_center,
975: l_cs_error,
976: ExpReportHeaderInfo.employee_id );
977:
1184: l_CostCenterErrorMsg VARCHAR2(2000) := NULL;
1185:
1186: BEGIN
1187:
1188: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', 'start ValidateExpLineCustomFields');
1189: l_IsMobileApp := AP_WEB_UTILITIES_PKG.IsMobileApp;
1190:
1191:
1192: -- Validate descriptive flexfields and call custom validation hook for both
1191:
1192: -- Validate descriptive flexfields and call custom validation hook for both
1193: -- core and descriptive flexfields
1194: l_debug_info := 'Validate desc flexfields and custom validation hook';
1195: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1196: IF p_report_header_info.number_max_flexfield > 0 THEN
1197:
1198: -- validate only if an expense type is specified
1199: IF p_report_line_info.parameter_id IS NOT NULL THEN
1199: IF p_report_line_info.parameter_id IS NOT NULL THEN
1200:
1201: -----------------------------------------------------
1202: l_debug_info := 'GetReceiptCustomFields';
1203: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1204: -----------------------------------------------------
1205:
1206: AP_WEB_DFLEX_PKG.GetReceiptCustomFields(l_receipt_custom_fields_array,
1207: p_receipt_index,
1222: p_custom15_array);
1223:
1224: -----------------------------------------------------
1225: l_debug_info := 'ValidateReceiptCustomFields';
1226: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1227: -----------------------------------------------------
1228: AP_WEB_DFLEX_PKG.ValidateReceiptCustomFields(p_userId,
1229: p_report_header_info,
1230: p_report_line_info,
1236: p_receipts_with_errors_count := p_receipts_with_errors_count + l_error1.COUNT;
1237:
1238: -- Call custom validation hook for both core and pseudo descriptive flexfields
1239: l_debug_info := 'Call custom validation hook for both core and pseudo descriptive flexfields';
1240: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1241: AP_WEB_CUST_DFLEX_PKG.CustomValidateLine(p_report_header_info,
1242: p_report_line_info,
1243: l_receipt_custom_fields_array,
1244: l_error2);
1244: l_error2);
1245:
1246: -----------------------------------------------------
1247: l_debug_info := 'PropogateReceiptCustFldsInfo';
1248: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1249: -----------------------------------------------------
1250: AP_WEB_DFLEX_PKG.PropogateReceiptCustFldsInfo(
1251: l_receipt_custom_fields_array,
1252: p_receipt_index,
1272: -- Call custom validation hook for both core and pseudo descriptive flexfields
1273: l_debug_info := 'Call custom validation hook';
1274: -- Bug: 6617094, Expense type is null in Custom Validation.
1275: AP_WEB_DFLEX_PKG.PopulateExpTypeInLineRec(p_report_line_info);
1276: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1277: AP_WEB_CUST_DFLEX_PKG.CustomValidateLine(p_report_header_info,
1278: p_report_line_info,
1279: l_receipt_custom_fields_array,
1280: l_error2);
1472: l_IsMobileApp boolean;
1473:
1474: BEGIN
1475:
1476: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_VALIDATE_UTIL', 'start ValidateExpLineCoreFields');
1477: l_IsMobileApp := AP_WEB_UTILITIES_PKG.IsMobileApp;
1478:
1479: FND_MESSAGE.SET_NAME('SQLAP','AP_WEB_FIXED');
1480: l_fixed_msg := AP_WEB_DB_UTIL_PKG.jsPrepString(fnd_message.get_encoded(), TRUE);
1497:
1498: l_fixed_rate_applied := 'N';
1499:
1500: debug_info:='checking trans';
1501: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1502: l_dates_ok := true;
1503: if (p_report_header_info.transaction_currency_type = 'multi') then
1504: l_reccurr_format :=
1505: FND_CURRENCY.get_format_mask(p_report_line_info.currency_code, 30);
1507: --
1508: -- Check if Valid Start Date was entered
1509: --
1510: debug_info:='Check Start Date';
1511: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1512: if (p_report_line_info.start_date is null) then
1513: l_dates_ok := false;
1514: fnd_message.set_name('SQLAP', 'AP_WEB_ST_DATE_FIRST');
1515: AP_WEB_UTILITIES_PKG.AddExpError(p_exp_error,
1565: --
1566: -- Check if Valid End Date was entered
1567: --
1568: debug_info := 'Check End Date';
1569: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1570: BEGIN
1571: --Bug 6054643: Removing the to_date conversion
1572: l_date2_temp := trunc(nvl(p_report_line_info.end_date, l_date1_temp));
1573:
1632: -- Check if End Date falls on or after Start Date
1633: -- Only do it when both dates' format is fine.
1634: --
1635: debug_info:= 'Day1 < Day2?';
1636: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1637: if (l_dates_ok) then
1638: if (l_date1_temp > nvl(l_date2_temp, l_date1_temp)) then
1639: FND_MESSAGE.SET_NAME('SQLAP', 'AP_WEB_START_AFTER_END');
1640: FND_MESSAGE.SET_TOKEN('START_DATE', p_report_line_info.start_date);
1652: -- Check if Days is a valid number. And if days entered equals to
1653: -- actual different between the two dates.
1654: --
1655: debug_info := 'Check days';
1656: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1657: BEGIN
1658: l_num := to_number(p_report_line_info.days);
1659: if (l_dates_ok) then
1660: if (p_report_line_info.days is null) then
1706: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, l_IsMobileApp);
1707: END;
1708:
1709: debug_info := 'Check if the fields exist in the receipts array';
1710: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1711:
1712: --
1713: -- Check if Daily Amount is a valid number.
1714: --
1712: --
1713: -- Check if Daily Amount is a valid number.
1714: --
1715: debug_info := 'Daily Amount';
1716: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1717: l_dailyAmount := null; -- initialize it since it will be used later!
1718: if (p_report_line_info.daily_amount IS NOT NULL) then
1719: BEGIN
1720: l_dailyAmount := AP_WEB_DB_UTIL_PKG.CharToNumber(p_report_line_info.daily_amount);
1740: --
1741: -- Check if Receipt Amount is a valid number.
1742: --
1743: debug_info := 'Check Receipt Amount';
1744: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1745: l_receiptAmount := null; -- initialize it since it will be used later
1746: BEGIN
1747: if (p_report_line_info.receipt_amount is not NULL) then
1748: l_receiptAmount := AP_WEB_DB_UTIL_PKG.CharToNumber(p_report_line_info.receipt_amount);
1821: --
1822: -- Check if Rate is a valid number.
1823: --
1824: debug_info := 'Check rate';
1825: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1826: IF ((p_report_line_info.currency_code =
1827: p_report_header_info.reimbursement_currency_code) OR
1828: (p_report_line_info.currency_code = 'OTHER')) THEN
1829: l_is_fixed_rate := 'N';
1851: -- **** USED TO BE CheckPosNum
1852: if not CheckNum(l_num, p_exp_error,
1853: p_receiptcount, C_Rate_Prompt, TRUE, TRUE) then
1854: debug_info := 'rate is negative'; /* CheckPosNum is function */
1855: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1856: else
1857: IF (l_is_fixed_rate = 'Y') THEN
1858: p_report_line_info.rate:= '1'; -- Bug 1871739. Use '1' instead of l_fixed_msg
1859: ELSE
1902: --
1903: -- Check if (Total) Amount is a valid number.
1904: --
1905: debug_info := 'Amount';
1906: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1907: -- Only do this check in non "Calculate Amount" custom field calculation
1908: -- case.
1909:
1910: if (NOT(p_calculate_receipt_index > 0) OR
1929: END IF;
1930:
1931: if ((l_rate > 0) AND (l_num is not null)) then
1932: debug_info := 'before calc l_amount';
1933: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1934: IF (l_is_fixed_rate = 'Y') THEN
1935: l_amount := GL_CURRENCY_API.convert_amount(
1936: p_report_line_info.currency_code,
1937: p_report_header_info.reimbursement_currency_code,
1950: /*** Round l_amount here. ***/
1951: END IF; /* if (l_is_fixed_rate = 'Y') */
1952: else
1953: debug_info := 'l_amount is null';
1954: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1955: l_amount := null;
1956: end if; /* l_rate > 0 */
1957:
1958: EXCEPTION
2242:
2243: FOR i IN 1 .. l_Receipt_Count LOOP
2244: l_report_line_rec := p_report_line_info(i);
2245:
2246: AP_WEB_VALIDATE_UTIL.ValidateExpLine(
2247: p_userId,
2248: p_report_header_info => p_report_header_info,
2249: p_report_line_info => l_report_line_rec,
2250: p_custom1_array => p_Custom1_Array,
2409: l_DataDefaultedUpdateable BOOLEAN;
2410:
2411: BEGIN
2412:
2413: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_VALIDATE_UTIL', 'start validateExpLine');
2414:
2415: AP_WEB_DFLEX_PKG.IsSessionTaxEnabled(
2416: V_IsSessionTaxEnabled,
2417: p_userId); -- 2242176, fnd user id
2417: p_userId); -- 2242176, fnd user id
2418:
2419: -- validate core lines fields
2420: l_debug_info := 'ValidateExpLinesCoreFields';
2421: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2422:
2423: -- Bug 2204539: always allow credit line for credit card receipt
2424: if (p_report_line_info.cCardTrxnId is null) then
2425: l_allow_credit_lines_profile := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
2439: l_reimbcurr_precision := AP_WEB_DB_COUNTRY_PKG.GetCurrencyPrecision(
2440: p_report_header_info.reimbursement_currency_code);
2441:
2442:
2443: AP_WEB_VALIDATE_UTIL.ValidateExpLineCoreFields(
2444: p_userId, -- 2242176
2445: p_report_header_info,
2446: p_report_line_info,
2447: p_receipt_index,
2455:
2456:
2457: -- validate flexfields
2458: l_debug_info := 'ValidateExpLinesCustomFields';
2459: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2460: l_receipts_with_errors_custom := 0;
2461:
2462: -- The following calcuations marked with "For PATC" were
2463: -- added for the R11i support for multicurrency in PA.
2472: -- For PATC: Get information about functional currency and exchange
2473: -- rate for the last receipt date. The last receipt date will be
2474: -- equal to sysdate.
2475: l_debug_info := 'Getting functional currency and exchange rate info';
2476: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2477:
2478: -- for bug 3452403, get default currency information from header
2479: V_SysInfoRec.base_currency := p_report_header_info.default_currency_code;
2480: V_SysInfoRec.default_exchange_rate_type := p_report_header_info.default_exchange_rate_type;
2490: 'ValidatePATransaction');
2491:
2492: l_receipts_with_errors_custom := 0;
2493:
2494: AP_WEB_VALIDATE_UTIL.ValidateExpLineCustomFields(
2495: p_userId,
2496: p_report_header_info,
2497: p_report_line_info,
2498: p_receipt_index,
2569: p_has_core_field_errors := (l_receipts_with_errors_core > 0);
2570: p_has_custom_field_errors := (l_receipts_with_errors_custom > 0);
2571:
2572: l_debug_info := 'merge error stacks';
2573: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2574:
2575: AP_WEB_UTILITIES_PKG.MergeExpErrors(l_errors,
2576: l_errors_custom);
2577:
2752: l_just_required_cursor AP_WEB_DB_EXPTEMPLATE_PKG.JustificationExpTypeCursor;
2753: i INTEGER;
2754: BEGIN
2755: l_debug_info := 'Fill justification required array';
2756: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2757: IF (AP_WEB_DB_EXPTEMPLATE_PKG.GetJustifReqdExpTypesCursor(l_just_required_cursor)) THEN
2758: i := 1;
2759: LOOP
2760: FETCH l_just_required_cursor INTO C_justreq_array(i);
2784:
2785: BEGIN -- Package initialization
2786: initJustificationRequiredArray;
2787:
2788: END AP_WEB_VALIDATE_UTIL;