[Home] [Help]
609:
610: current_calling_sequence := 'ap_int_inv_get_info<-'||P_calling_sequence;
611:
612: ----------------------------------------------------------------------------
613: -- get some required ccid from ap_system_parameters and gl_code_combinations
614: ----------------------------------------------------------------------------
615:
616: -- Interest Invoices project - Invoice Lines - 11ix
617: -- Add the parameters
619: -- P_vendor_site_id
620: -- P_base_currency_code
621: -- P_type_1099
622: -- P_income_tax_region
623: -- Merge the existing SELECTs into two. One SELECT from ap_system_parameters.
624: -- The other from ap_invoices. SELECT type_1099, income_tax_region,
625: -- and base currency and pass them back to ap_create_interest_invoice_pkg.
626:
627: -- Remove expense interest account. Not need to select it
643: P_asset_account_flag,
644: P_base_currency_code,
645: P_type_1099,
646: P_income_tax_region
647: FROM ap_system_parameters asp,
648: gl_code_combinations glcc,
649: po_vendors pv,
650: po_vendor_sites pvs
651: WHERE glcc.code_combination_id = asp.interest_code_combination_id
1265: l_inv_distribution_line_number number;
1266: l_distribution_total number;
1267: l_distribution_base_total number;
1268: l_account_from_ap_system CHAR(1) ;
1269: l_system_interest_account ap_system_parameters_all.INTEREST_CODE_COMBINATION_ID%type;
1270:
1271:
1272:
1273:
1340: -- If the proration divisor is zero then decoding value
1341: -- to 1 to avoid divide by zero error
1342:
1343: select PRORATE_INT_INV_ACROSS_DISTS --start of code for bug 7112849
1344: into l_account_from_ap_system from ap_system_parameters ;
1345: IF ( l_account_from_ap_system <>'Y' ) THEN -- check whether PRORATE_INT_INV_ACROSS_DISTS is Y or not if it is not Y use the system account defined on payables else use the invoice account and prorate
1346: select INTEREST_CODE_COMBINATION_ID into l_system_interest_account from
1347: ap_system_parameters ;
1348: debug_info := 'inserting tax dsitribution using system defined account in ap_system_parameters';
1343: select PRORATE_INT_INV_ACROSS_DISTS --start of code for bug 7112849
1344: into l_account_from_ap_system from ap_system_parameters ;
1345: IF ( l_account_from_ap_system <>'Y' ) THEN -- check whether PRORATE_INT_INV_ACROSS_DISTS is Y or not if it is not Y use the system account defined on payables else use the invoice account and prorate
1346: select INTEREST_CODE_COMBINATION_ID into l_system_interest_account from
1347: ap_system_parameters ;
1348: debug_info := 'inserting tax dsitribution using system defined account in ap_system_parameters';
1349: l_inv_distribution_line_number :=
1350: NVL(l_inv_distribution_line_number,0) + 1;
1351: INSERT INTO AP_INVOICE_DISTRIBUTIONS
1344: into l_account_from_ap_system from ap_system_parameters ;
1345: IF ( l_account_from_ap_system <>'Y' ) THEN -- check whether PRORATE_INT_INV_ACROSS_DISTS is Y or not if it is not Y use the system account defined on payables else use the invoice account and prorate
1346: select INTEREST_CODE_COMBINATION_ID into l_system_interest_account from
1347: ap_system_parameters ;
1348: debug_info := 'inserting tax dsitribution using system defined account in ap_system_parameters';
1349: l_inv_distribution_line_number :=
1350: NVL(l_inv_distribution_line_number,0) + 1;
1351: INSERT INTO AP_INVOICE_DISTRIBUTIONS
1352: (INVOICE_ID,
2201: --4533605, modified this for moac
2202:
2203: SELECT nvl(interest_tolerance_amount,0)
2204: INTO C_interest_tolerance_amount
2205: FROM ap_system_parameters_all asp,
2206: ap_invoices_all ai
2207: WHERE ai.org_id = asp.org_id
2208: AND ai.invoice_id = p_invoice_id;
2209: