[Home] [Help]
1: PACKAGE BODY AP_WEB_VALIDATE_UTIL AS
2: /* $Header: apwvutlb.pls 120.34 2007/11/22 07:17:08 rveliche ship $ */
3:
4: /* The prompt index are relative to AP_WEB_EXP_VIEW_REC */
5: C_Date1_Prompt CONSTANT varchar2(3) := '6';
788: IF (NOT AP_WEB_DB_UTIL_PKG.GetFormattedSysDate(l_date_format, l_last_receipt)) THEN
789: NULL;
790: END IF;
791:
792: current_calling_sequence := 'AP_WEB_VALIDATE_UTIL.ValidateReportHeader';
793: -- Validate Approver Name
794: -- If override approver name is provided and no approver id
795: -- exists (non-wizard validated) then validate.
796: -- Overriding approver cannot be the submitting employee
935: 'txtCostCenter',
936: 0,
937: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, l_IsMobileApp);
938: ELSE
939: AP_WEB_VALIDATE_UTIL.ValidateCostCenter(
940: ExpReportHeaderInfo.cost_center,
941: l_cs_error,
942: ExpReportHeaderInfo.employee_id );
943:
1150: l_CostCenterErrorMsg VARCHAR2(2000) := NULL;
1151:
1152: BEGIN
1153:
1154: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', 'start ValidateExpLineCustomFields');
1155: l_IsMobileApp := AP_WEB_UTILITIES_PKG.IsMobileApp;
1156:
1157:
1158: -- Validate descriptive flexfields and call custom validation hook for both
1157:
1158: -- Validate descriptive flexfields and call custom validation hook for both
1159: -- core and descriptive flexfields
1160: l_debug_info := 'Validate desc flexfields and custom validation hook';
1161: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1162: IF p_report_header_info.number_max_flexfield > 0 THEN
1163:
1164: -- validate only if an expense type is specified
1165: IF p_report_line_info.parameter_id IS NOT NULL THEN
1165: IF p_report_line_info.parameter_id IS NOT NULL THEN
1166:
1167: -----------------------------------------------------
1168: l_debug_info := 'GetReceiptCustomFields';
1169: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1170: -----------------------------------------------------
1171:
1172: AP_WEB_DFLEX_PKG.GetReceiptCustomFields(l_receipt_custom_fields_array,
1173: p_receipt_index,
1188: p_custom15_array);
1189:
1190: -----------------------------------------------------
1191: l_debug_info := 'ValidateReceiptCustomFields';
1192: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1193: -----------------------------------------------------
1194: AP_WEB_DFLEX_PKG.ValidateReceiptCustomFields(p_userId,
1195: p_report_header_info,
1196: p_report_line_info,
1202: p_receipts_with_errors_count := p_receipts_with_errors_count + l_error1.COUNT;
1203:
1204: -- Call custom validation hook for both core and pseudo descriptive flexfields
1205: l_debug_info := 'Call custom validation hook for both core and pseudo descriptive flexfields';
1206: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1207: AP_WEB_CUST_DFLEX_PKG.CustomValidateLine(p_report_header_info,
1208: p_report_line_info,
1209: l_receipt_custom_fields_array,
1210: l_error2);
1210: l_error2);
1211:
1212: -----------------------------------------------------
1213: l_debug_info := 'PropogateReceiptCustFldsInfo';
1214: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1215: -----------------------------------------------------
1216: AP_WEB_DFLEX_PKG.PropogateReceiptCustFldsInfo(
1217: l_receipt_custom_fields_array,
1218: p_receipt_index,
1238: -- Call custom validation hook for both core and pseudo descriptive flexfields
1239: l_debug_info := 'Call custom validation hook';
1240: -- Bug: 6617094, Expense type is null in Custom Validation.
1241: AP_WEB_DFLEX_PKG.PopulateExpTypeInLineRec(p_report_line_info);
1242: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
1243: AP_WEB_CUST_DFLEX_PKG.CustomValidateLine(p_report_header_info,
1244: p_report_line_info,
1245: l_receipt_custom_fields_array,
1246: l_error2);
1438: l_IsMobileApp boolean;
1439:
1440: BEGIN
1441:
1442: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_VALIDATE_UTIL', 'start ValidateExpLineCoreFields');
1443: l_IsMobileApp := AP_WEB_UTILITIES_PKG.IsMobileApp;
1444:
1445: FND_MESSAGE.SET_NAME('SQLAP','AP_WEB_FIXED');
1446: l_fixed_msg := AP_WEB_DB_UTIL_PKG.jsPrepString(fnd_message.get_encoded(), TRUE);
1463:
1464: l_fixed_rate_applied := 'N';
1465:
1466: debug_info:='checking trans';
1467: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1468: l_dates_ok := true;
1469: if (p_report_header_info.transaction_currency_type = 'multi') then
1470: l_reccurr_format :=
1471: FND_CURRENCY.get_format_mask(p_report_line_info.currency_code, 30);
1473: --
1474: -- Check if Valid Start Date was entered
1475: --
1476: debug_info:='Check Start Date';
1477: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1478: if (p_report_line_info.start_date is null) then
1479: l_dates_ok := false;
1480: fnd_message.set_name('SQLAP', 'AP_WEB_ST_DATE_FIRST');
1481: AP_WEB_UTILITIES_PKG.AddExpError(p_exp_error,
1531: --
1532: -- Check if Valid End Date was entered
1533: --
1534: debug_info := 'Check End Date';
1535: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1536: BEGIN
1537: --Bug 6054643: Removing the to_date conversion
1538: l_date2_temp := trunc(nvl(p_report_line_info.end_date, l_date1_temp));
1539:
1598: -- Check if End Date falls on or after Start Date
1599: -- Only do it when both dates' format is fine.
1600: --
1601: debug_info:= 'Day1 < Day2?';
1602: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1603: if (l_dates_ok) then
1604: if (l_date1_temp > nvl(l_date2_temp, l_date1_temp)) then
1605: FND_MESSAGE.SET_NAME('SQLAP', 'AP_WEB_START_AFTER_END');
1606: FND_MESSAGE.SET_TOKEN('START_DATE', p_report_line_info.start_date);
1618: -- Check if Days is a valid number. And if days entered equals to
1619: -- actual different between the two dates.
1620: --
1621: debug_info := 'Check days';
1622: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1623: BEGIN
1624: l_num := to_number(p_report_line_info.days);
1625: if (l_dates_ok) then
1626: if (p_report_line_info.days is null) then
1672: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, l_IsMobileApp);
1673: END;
1674:
1675: debug_info := 'Check if the fields exist in the receipts array';
1676: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1677:
1678: --
1679: -- Check if Daily Amount is a valid number.
1680: --
1678: --
1679: -- Check if Daily Amount is a valid number.
1680: --
1681: debug_info := 'Daily Amount';
1682: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1683: l_dailyAmount := null; -- initialize it since it will be used later!
1684: if (p_report_line_info.daily_amount IS NOT NULL) then
1685: BEGIN
1686: l_dailyAmount := AP_WEB_DB_UTIL_PKG.CharToNumber(p_report_line_info.daily_amount);
1706: --
1707: -- Check if Receipt Amount is a valid number.
1708: --
1709: debug_info := 'Check Receipt Amount';
1710: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1711: l_receiptAmount := null; -- initialize it since it will be used later
1712: BEGIN
1713: if (p_report_line_info.receipt_amount is not NULL) then
1714: l_receiptAmount := AP_WEB_DB_UTIL_PKG.CharToNumber(p_report_line_info.receipt_amount);
1787: --
1788: -- Check if Rate is a valid number.
1789: --
1790: debug_info := 'Check rate';
1791: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1792: IF ((p_report_line_info.currency_code =
1793: p_report_header_info.reimbursement_currency_code) OR
1794: (p_report_line_info.currency_code = 'OTHER')) THEN
1795: l_is_fixed_rate := 'N';
1817: -- **** USED TO BE CheckPosNum
1818: if not CheckNum(l_num, p_exp_error,
1819: p_receiptcount, C_Rate_Prompt, TRUE, TRUE) then
1820: debug_info := 'rate is negative'; /* CheckPosNum is function */
1821: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1822: else
1823: IF (l_is_fixed_rate = 'Y') THEN
1824: p_report_line_info.rate:= '1'; -- Bug 1871739. Use '1' instead of l_fixed_msg
1825: ELSE
1868: --
1869: -- Check if (Total) Amount is a valid number.
1870: --
1871: debug_info := 'Amount';
1872: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1873: -- Only do this check in non "Calculate Amount" custom field calculation
1874: -- case.
1875:
1876: if (NOT(p_calculate_receipt_index > 0) OR
1895: END IF;
1896:
1897: if ((l_rate > 0) AND (l_num is not null)) then
1898: debug_info := 'before calc l_amount';
1899: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1900: IF (l_is_fixed_rate = 'Y') THEN
1901: l_amount := GL_CURRENCY_API.convert_amount(
1902: p_report_line_info.currency_code,
1903: p_report_header_info.reimbursement_currency_code,
1916: /*** Round l_amount here. ***/
1917: END IF; /* if (l_is_fixed_rate = 'Y') */
1918: else
1919: debug_info := 'l_amount is null';
1920: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', debug_info);
1921: l_amount := null;
1922: end if; /* l_rate > 0 */
1923:
1924: EXCEPTION
2208:
2209: FOR i IN 1 .. l_Receipt_Count LOOP
2210: l_report_line_rec := p_report_line_info(i);
2211:
2212: AP_WEB_VALIDATE_UTIL.ValidateExpLine(
2213: p_userId,
2214: p_report_header_info => p_report_header_info,
2215: p_report_line_info => l_report_line_rec,
2216: p_custom1_array => p_Custom1_Array,
2375: l_DataDefaultedUpdateable BOOLEAN;
2376:
2377: BEGIN
2378:
2379: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_VALIDATE_UTIL', 'start validateExpLine');
2380:
2381: AP_WEB_DFLEX_PKG.IsSessionTaxEnabled(
2382: V_IsSessionTaxEnabled,
2383: p_userId); -- 2242176, fnd user id
2383: p_userId); -- 2242176, fnd user id
2384:
2385: -- validate core lines fields
2386: l_debug_info := 'ValidateExpLinesCoreFields';
2387: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2388:
2389: -- Bug 2204539: always allow credit line for credit card receipt
2390: if (p_report_line_info.cCardTrxnId is null) then
2391: l_allow_credit_lines_profile := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
2405: l_reimbcurr_precision := AP_WEB_DB_COUNTRY_PKG.GetCurrencyPrecision(
2406: p_report_header_info.reimbursement_currency_code);
2407:
2408:
2409: AP_WEB_VALIDATE_UTIL.ValidateExpLineCoreFields(
2410: p_userId, -- 2242176
2411: p_report_header_info,
2412: p_report_line_info,
2413: p_receipt_index,
2421:
2422:
2423: -- validate flexfields
2424: l_debug_info := 'ValidateExpLinesCustomFields';
2425: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2426: l_receipts_with_errors_custom := 0;
2427:
2428: -- The following calcuations marked with "For PATC" were
2429: -- added for the R11i support for multicurrency in PA.
2438: -- For PATC: Get information about functional currency and exchange
2439: -- rate for the last receipt date. The last receipt date will be
2440: -- equal to sysdate.
2441: l_debug_info := 'Getting functional currency and exchange rate info';
2442: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2443:
2444: -- for bug 3452403, get default currency information from header
2445: V_SysInfoRec.base_currency := p_report_header_info.default_currency_code;
2446: V_SysInfoRec.default_exchange_rate_type := p_report_header_info.default_exchange_rate_type;
2456: 'ValidatePATransaction');
2457:
2458: l_receipts_with_errors_custom := 0;
2459:
2460: AP_WEB_VALIDATE_UTIL.ValidateExpLineCustomFields(
2461: p_userId,
2462: p_report_header_info,
2463: p_report_line_info,
2464: p_receipt_index,
2535: p_has_core_field_errors := (l_receipts_with_errors_core > 0);
2536: p_has_custom_field_errors := (l_receipts_with_errors_custom > 0);
2537:
2538: l_debug_info := 'merge error stacks';
2539: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2540:
2541: AP_WEB_UTILITIES_PKG.MergeExpErrors(l_errors,
2542: l_errors_custom);
2543:
2718: l_just_required_cursor AP_WEB_DB_EXPTEMPLATE_PKG.JustificationExpTypeCursor;
2719: i INTEGER;
2720: BEGIN
2721: l_debug_info := 'Fill justification required array';
2722: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_VALIDATE_UTIL', l_debug_info);
2723: IF (AP_WEB_DB_EXPTEMPLATE_PKG.GetJustifReqdExpTypesCursor(l_just_required_cursor)) THEN
2724: i := 1;
2725: LOOP
2726: FETCH l_just_required_cursor INTO C_justreq_array(i);
2750:
2751: BEGIN -- Package initialization
2752: initJustificationRequiredArray;
2753:
2754: END AP_WEB_VALIDATE_UTIL;