[Home] [Help]
692: -- FUNCTION insert_from_dist_set inserts records into
693: -- ap_invoice_distributions given a line number, distribution set id and
694: -- table of distribution information. It returns FALSE if an error
695: -- is encountered.
696: -- Called from ap_invoice_lines_pkg.insert_from_dist_set or from Import
697: -----------------------------------------------------------------------
698: FUNCTION Insert_From_Dist_Set(
699: X_batch_id IN NUMBER,
700: X_invoice_id IN NUMBER,
698: FUNCTION Insert_From_Dist_Set(
699: X_batch_id IN NUMBER,
700: X_invoice_id IN NUMBER,
701: X_line_number IN NUMBER,
702: X_dist_tab IN AP_INVOICE_LINES_PKG.dist_tab_type,
703: X_Generate_Permanent IN VARCHAR2 DEFAULT 'N',
704: X_Debug_Info OUT NOCOPY VARCHAR2,
705: X_Debug_Context OUT NOCOPY VARCHAR2,
706: X_Calling_Sequence IN VARCHAR2) RETURN BOOLEAN
1276: l_org_id ap_invoices_all.org_id%type;
1277:
1278: l_base_amt NUMBER; --6892789
1279: l_modified_dist_rounding_amt NUMBER; --6892789
1280: l_round_dist_id_list AP_INVOICE_LINES_PKG.distribution_id_tab_type; --6892789
1281:
1282: cursor invoice_line_cursor is
1283: SELECT exchange_rate,
1284: exchange_rate_type,
1570: distribution base amt goes to -ve value (amount being +ve) so in such case,
1571: adjust dist base amount upto zero and adjust the remaing amount in another
1572: distribution having next max amount */
1573: -- get the distributions which can be adjusted
1574: l_round_amt_exists := AP_INVOICE_LINES_PKG.round_base_amts(
1575: x_invoice_id => X_invoice_id,
1576: x_line_number => l_line_number,
1577: x_reporting_ledger_id => NULL,
1578: x_round_dist_id_list => l_round_dist_id_list,
5395: AP_INVOICE_DISTRIBUTIONS.ASSET_BOOK_TYPE_CODE%TYPE;
5396: l_dist_asset_category_id
5397: AP_INVOICE_DISTRIBUTIONS.ASSET_CATEGORY_ID%TYPE;
5398: l_dist_description AP_INVOICE_DISTRIBUTIONS.DESCRIPTION%TYPE;
5399: l_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
5400: l_alloc_line_tab AP_INVOICE_LINES_PKG.alloc_line_tab_type;
5401: l_rule_type AP_ALLOCATION_RULES.RULE_TYPE%TYPE;
5402: l_rule_status AP_ALLOCATION_RULES.STATUS%TYPE;
5403: l_alloc_rule_line_percent AP_ALLOCATION_RULE_LINES.PERCENTAGE%TYPE := 0;
5396: l_dist_asset_category_id
5397: AP_INVOICE_DISTRIBUTIONS.ASSET_CATEGORY_ID%TYPE;
5398: l_dist_description AP_INVOICE_DISTRIBUTIONS.DESCRIPTION%TYPE;
5399: l_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
5400: l_alloc_line_tab AP_INVOICE_LINES_PKG.alloc_line_tab_type;
5401: l_rule_type AP_ALLOCATION_RULES.RULE_TYPE%TYPE;
5402: l_rule_status AP_ALLOCATION_RULES.STATUS%TYPE;
5403: l_alloc_rule_line_percent AP_ALLOCATION_RULE_LINES.PERCENTAGE%TYPE := 0;
5404: l_alloc_rule_line_amount AP_ALLOCATION_RULE_LINES.AMOUNT%TYPE := 0;
5540: from ap_invoice_lines_all ail
5541: where invoice_id = X_invoice_id
5542: and line_number = X_line_number;
5543:
5544: if not ap_invoice_lines_pkg.reverse_charge_distributions
5545: (p_inv_line_rec => l_chrg_line_rec
5546: ,p_calling_mode => l_dummy
5547: ,x_error_code => x_error_code
5548: ,x_debug_info => debug_info
5963: l_max_base_alloc := 0;
5964: l_running_total_base_amt := 0;
5965:
5966: -- Bug 5114543
5967: l_max_dist_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
5968: (x_invoice_id, x_line_number) + 1;
5969:
5970: FOR t IN 0..l_alloc_line_tab.COUNT-1 LOOP
5971: l_running_total_alloc := 0;