[Home] [Help]
2612:
2613: --==========================================================================
2614: -- PROCEDURE NAME:
2615: --
2616: -- insert_gl_interface Private
2617: --
2618: -- DESCRIPTION:
2619: --
2620: -- This function is insert inclusive data into gl_interface
2616: -- insert_gl_interface Private
2617: --
2618: -- DESCRIPTION:
2619: --
2620: -- This function is insert inclusive data into gl_interface
2621: --
2622: -- PARAMETERS:
2623: -- In: pn_set_of_books_id the set of books id
2624: -- pd_accounting_date GL date of the invoice
2631: -- pv_currency_conversion_type the column values can be retreived from the invoice
2632: -- pv_currency_conversion_rate the column values can be retreived from the invoice
2633: -- pv_reference1 inventory organization code,base on organization_id from PO/Receipt from where it's matched
2634: -- pv_reference10 'India Localization Entry for accounting inclusive taxes for invoice'||lv_invoice_num
2635: -- pv_reference23 procedure name that makes the insert into gl_interface hard code string
2636: -- pv_reference26 value of invoice_id
2637: -- pv_reference27 organization id of the inventory organization id
2638: --
2639: -- DESIGN REFERENCES:
2642: -- CHANGE HISTORY:
2643: --
2644: -- 20-DEC-2007 Jia Li created
2645: --==========================================================================
2646: PROCEDURE insert_gl_interface
2647: ( pn_set_of_books_id IN NUMBER
2648: , pd_accounting_date IN DATE
2649: , pv_currency_code IN VARCHAR2
2650: , pn_enter_cr IN NUMBER DEFAULT NULL
2661: , pv_reference27 IN VARCHAR2
2662: )
2663: IS
2664: BEGIN
2665: INSERT INTO gl_interface
2666: ( status
2667: , set_of_books_id
2668: , user_je_source_name
2669: , user_je_category_name
2713: , 'INVOICE_ID' -- 'INVOICE_ID'
2714: , pv_reference26
2715: , pv_reference27
2716: );
2717: END insert_gl_interface;
2718:
2719:
2720: --==========================================================================
2721: -- PROCEDURE NAME:
2723: -- acct_inclu_taxes Public
2724: --
2725: -- DESCRIPTION:
2726: --
2727: -- This procedure is written that would pass GL entries for inclusive taxes in GL interface
2728: --
2729: -- PARAMETERS:
2730: -- In: pn_invoice_id pass the invoice id for which the accounting needs to done
2731: -- pn_invoice_distribution_id pass the invoice distribution id for the item line which the accounting needs to done
2886: WHEN OTHERS THEN
2887: lv_inclu_tax_flag := 'N';
2888: END;
2889:
2890: -- If the user has setup to account inclusive aeparately, inclusive taxes need insert into GL Interface table.
2891: IF lv_inclu_tax_flag = 'Y'
2892: THEN
2893:
2894: -- According pn_invoice_distribution_id to get ITEM line num .
2961: WHERE aida.invoice_id = pn_invoice_id
2962: AND aida.invoice_line_number = ln_invoice_line_num
2963: AND aida.posted_flag = 'Y';
2964:
2965: -- if only one distribution line has been transfer to GL, then insert inclusive data into GL interface
2966: IF ln_invoice_post_num = 1
2967: THEN
2968: IF lv_match_type = jai_constants.G_AP_STANDALONE_INVOICE
2969: THEN
2967: THEN
2968: IF lv_match_type = jai_constants.G_AP_STANDALONE_INVOICE
2969: THEN
2970: -- Get inclusive tax info from jai_cmn_document_taxes
2971: -- and insert debit inclusive taxes into GL interface table.
2972: FOR standalone_inclu_tax_csr IN standalone_inclu_tax_cur(ln_invoice_line_num)
2973: LOOP
2974: ln_tax_account_id := get_tax_account_id
2975: ( pn_tax_id => standalone_inclu_tax_csr.tax_id
2975: ( pn_tax_id => standalone_inclu_tax_csr.tax_id
2976: , pv_tax_type => standalone_inclu_tax_csr.tax_type
2977: , pn_org_id => ln_org_id
2978: );
2979: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
2980: , pd_accounting_date => ld_gl_date
2981: , pv_currency_code => lv_invoice_currency_code
2982: , pn_enter_dr => standalone_inclu_tax_csr.tax_amount
2983: , pd_transaction_date => ld_invoice_date
3006: END IF; --ln_proc_level>=l_dbg_level
3007: END LOOP; -- for standalone_inclu_tax_cur cursor
3008: ELSE
3009: -- Get inclusive tax info from jai_ap_match_inv_taxes
3010: -- and insert debit inclusive taxes into GL interface table.
3011: FOR match_inclu_tax_csr IN match_inclu_tax_cur(ln_invoice_line_num)
3012: LOOP
3013: ln_tax_account_id := get_tax_account_id
3014: ( pn_tax_id => match_inclu_tax_csr.tax_id
3014: ( pn_tax_id => match_inclu_tax_csr.tax_id
3015: , pv_tax_type => match_inclu_tax_csr.tax_type
3016: , pn_org_id => ln_org_id
3017: );
3018: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
3019: , pd_accounting_date => ld_gl_date
3020: , pv_currency_code => lv_invoice_currency_code
3021: , pn_enter_dr => match_inclu_tax_csr.tax_amount
3022: , pd_transaction_date => ld_invoice_date
3046: END LOOP; -- for match_inclu_tax_cur cursor
3047: END IF; -- lv_match_type = 'STANDALONE_INVOICE'
3048:
3049: -- Get item distribution line dist_code_combination_id and amount.
3050: -- and insert credit data into GL interface table.
3051: FOR item_line_dist_csr IN item_line_dist_cur(ln_invoice_line_num)
3052: LOOP
3053: IF ln_item_line_amt <> 0
3054: THEN
3054: THEN
3055: ln_cr_line_amt := ( item_line_dist_csr.amount / ln_item_line_amt )
3056: * ln_total_inclu_tax_amt;
3057:
3058: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
3059: , pd_accounting_date => ld_gl_date
3060: , pv_currency_code => lv_invoice_currency_code
3061: , pn_enter_cr => ln_cr_line_amt
3062: , pd_transaction_date => ld_invoice_date
3078:
3079: END IF; -- ln_invoice_line_num > 0
3080:
3081: xv_process_flag := 'SS';
3082: xv_process_message := 'Inclusive taxes have successed into GL Interface';
3083: ELSE
3084: xv_process_flag := 'SS';
3085: xv_process_message := 'Inclusive taxes not be separately';
3086: END IF; -- lv_inclu_tax_flag = 'Y'