[Home] [Help]
700: -- FUNCTION insert_from_dist_set inserts records into
701: -- ap_invoice_distributions given a line number, distribution set id and
702: -- table of distribution information. It returns FALSE if an error
703: -- is encountered.
704: -- Called from ap_invoice_lines_pkg.insert_from_dist_set or from Import
705: -----------------------------------------------------------------------
706: FUNCTION Insert_From_Dist_Set(
707: X_batch_id IN NUMBER,
708: X_invoice_id IN NUMBER,
706: FUNCTION Insert_From_Dist_Set(
707: X_batch_id IN NUMBER,
708: X_invoice_id IN NUMBER,
709: X_line_number IN NUMBER,
710: X_dist_tab IN AP_INVOICE_LINES_PKG.dist_tab_type,
711: X_Generate_Permanent IN VARCHAR2 DEFAULT 'N',
712: X_Debug_Info OUT NOCOPY VARCHAR2,
713: X_Debug_Context OUT NOCOPY VARCHAR2,
714: X_Calling_Sequence IN VARCHAR2) RETURN BOOLEAN
1360: l_org_id ap_invoices_all.org_id%type;
1361:
1362: l_base_amt NUMBER; --6892789
1363: l_modified_dist_rounding_amt NUMBER; --6892789
1364: l_round_dist_id_list AP_INVOICE_LINES_PKG.distribution_id_tab_type; --6892789
1365:
1366: cursor invoice_line_cursor is
1367: SELECT exchange_rate,
1368: exchange_rate_type,
1663: distribution base amt goes to -ve value (amount being +ve) so in such case,
1664: adjust dist base amount upto zero and adjust the remaing amount in another
1665: distribution having next max amount */
1666: -- get the distributions which can be adjusted
1667: l_round_amt_exists := AP_INVOICE_LINES_PKG.round_base_amts(
1668: x_invoice_id => X_invoice_id,
1669: x_line_number => l_line_number,
1670: x_reporting_ledger_id => NULL,
1671: x_round_dist_id_list => l_round_dist_id_list,
6757: AP_INVOICE_DISTRIBUTIONS.ASSET_BOOK_TYPE_CODE%TYPE;
6758: l_dist_asset_category_id
6759: AP_INVOICE_DISTRIBUTIONS.ASSET_CATEGORY_ID%TYPE;
6760: l_dist_description AP_INVOICE_DISTRIBUTIONS.DESCRIPTION%TYPE;
6761: l_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
6762: l_alloc_line_tab AP_INVOICE_LINES_PKG.alloc_line_tab_type;
6763: l_rule_type AP_ALLOCATION_RULES.RULE_TYPE%TYPE;
6764: l_rule_status AP_ALLOCATION_RULES.STATUS%TYPE;
6765: l_alloc_rule_line_percent AP_ALLOCATION_RULE_LINES.PERCENTAGE%TYPE := 0;
6758: l_dist_asset_category_id
6759: AP_INVOICE_DISTRIBUTIONS.ASSET_CATEGORY_ID%TYPE;
6760: l_dist_description AP_INVOICE_DISTRIBUTIONS.DESCRIPTION%TYPE;
6761: l_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
6762: l_alloc_line_tab AP_INVOICE_LINES_PKG.alloc_line_tab_type;
6763: l_rule_type AP_ALLOCATION_RULES.RULE_TYPE%TYPE;
6764: l_rule_status AP_ALLOCATION_RULES.STATUS%TYPE;
6765: l_alloc_rule_line_percent AP_ALLOCATION_RULE_LINES.PERCENTAGE%TYPE := 0;
6766: l_alloc_rule_line_amount AP_ALLOCATION_RULE_LINES.AMOUNT%TYPE := 0;
6977: from ap_invoice_lines_all ail
6978: where invoice_id = X_invoice_id
6979: and line_number = X_line_number;
6980:
6981: if not ap_invoice_lines_pkg.reverse_charge_distributions
6982: (p_inv_line_rec => l_chrg_line_rec
6983: ,p_calling_mode => l_dummy
6984: ,x_error_code => x_error_code
6985: ,x_debug_info => debug_info
7401: l_max_base_alloc := 0;
7402: l_running_total_base_amt := 0;
7403:
7404: -- Bug 5114543
7405: l_max_dist_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
7406: (x_invoice_id, x_line_number) + 1;
7407:
7408: FOR t IN 0..l_alloc_line_tab.COUNT-1 LOOP
7409: l_running_total_alloc := 0;