[Home] [Help]
2837:
2838: --==========================================================================
2839: -- PROCEDURE NAME:
2840: --
2841: -- insert_gl_interface Private
2842: --
2843: -- DESCRIPTION:
2844: --
2845: -- This function is insert inclusive data into gl_interface
2841: -- insert_gl_interface Private
2842: --
2843: -- DESCRIPTION:
2844: --
2845: -- This function is insert inclusive data into gl_interface
2846: --
2847: -- PARAMETERS:
2848: -- In: pn_set_of_books_id the set of books id
2849: -- pd_accounting_date GL date of the invoice
2856: -- pv_currency_conversion_type the column values can be retreived from the invoice
2857: -- pv_currency_conversion_rate the column values can be retreived from the invoice
2858: -- pv_reference1 inventory organization code,base on organization_id from PO/Receipt from where it's matched
2859: -- pv_reference10 'India Localization Entry for accounting inclusive taxes for invoice'||lv_invoice_num
2860: -- pv_reference23 procedure name that makes the insert into gl_interface hard code string
2861: -- pv_reference26 value of invoice_id
2862: -- pv_reference27 organization id of the inventory organization id
2863: --
2864: -- DESIGN REFERENCES:
2867: -- CHANGE HISTORY:
2868: --
2869: -- 20-DEC-2007 Jia Li created
2870: --==========================================================================
2871: PROCEDURE insert_gl_interface
2872: ( pn_set_of_books_id IN NUMBER
2873: , pd_accounting_date IN DATE
2874: , pv_currency_code IN VARCHAR2
2875: , pn_enter_cr IN NUMBER DEFAULT NULL
2886: , pv_reference27 IN VARCHAR2
2887: )
2888: IS
2889: BEGIN
2890: INSERT INTO gl_interface
2891: ( status
2892: , set_of_books_id
2893: , user_je_source_name
2894: , user_je_category_name
2938: , 'INVOICE_ID' -- 'INVOICE_ID'
2939: , pv_reference26
2940: , pv_reference27
2941: );
2942: END insert_gl_interface;
2943:
2944:
2945: --==========================================================================
2946: -- PROCEDURE NAME:
2948: -- acct_inclu_taxes Public
2949: --
2950: -- DESCRIPTION:
2951: --
2952: -- This procedure is written that would pass GL entries for inclusive taxes in GL interface
2953: --
2954: -- PARAMETERS:
2955: -- In: pn_invoice_id pass the invoice id for which the accounting needs to done
2956: -- pn_invoice_distribution_id pass the invoice distribution id for the item line which the accounting needs to done
3111: WHEN OTHERS THEN
3112: lv_inclu_tax_flag := 'N';
3113: END;
3114:
3115: -- If the user has setup to account inclusive aeparately, inclusive taxes need insert into GL Interface table.
3116: IF lv_inclu_tax_flag = 'Y'
3117: THEN
3118:
3119: -- According pn_invoice_distribution_id to get ITEM line num .
3186: WHERE aida.invoice_id = pn_invoice_id
3187: AND aida.invoice_line_number = ln_invoice_line_num
3188: AND aida.posted_flag = 'Y';
3189:
3190: -- if only one distribution line has been transfer to GL, then insert inclusive data into GL interface
3191: IF ln_invoice_post_num = 1
3192: THEN
3193: IF lv_match_type = jai_constants.G_AP_STANDALONE_INVOICE
3194: THEN
3192: THEN
3193: IF lv_match_type = jai_constants.G_AP_STANDALONE_INVOICE
3194: THEN
3195: -- Get inclusive tax info from jai_cmn_document_taxes
3196: -- and insert debit inclusive taxes into GL interface table.
3197: FOR standalone_inclu_tax_csr IN standalone_inclu_tax_cur(ln_invoice_line_num)
3198: LOOP
3199: ln_tax_account_id := get_tax_account_id
3200: ( pn_tax_id => standalone_inclu_tax_csr.tax_id
3200: ( pn_tax_id => standalone_inclu_tax_csr.tax_id
3201: , pv_tax_type => standalone_inclu_tax_csr.tax_type
3202: , pn_org_id => ln_org_id
3203: );
3204: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
3205: , pd_accounting_date => ld_gl_date
3206: , pv_currency_code => lv_invoice_currency_code
3207: , pn_enter_dr => standalone_inclu_tax_csr.tax_amount
3208: , pd_transaction_date => ld_invoice_date
3231: END IF; --ln_proc_level>=l_dbg_level
3232: END LOOP; -- for standalone_inclu_tax_cur cursor
3233: ELSE
3234: -- Get inclusive tax info from jai_ap_match_inv_taxes
3235: -- and insert debit inclusive taxes into GL interface table.
3236: FOR match_inclu_tax_csr IN match_inclu_tax_cur(ln_invoice_line_num)
3237: LOOP
3238: ln_tax_account_id := get_tax_account_id
3239: ( pn_tax_id => match_inclu_tax_csr.tax_id
3239: ( pn_tax_id => match_inclu_tax_csr.tax_id
3240: , pv_tax_type => match_inclu_tax_csr.tax_type
3241: , pn_org_id => ln_org_id
3242: );
3243: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
3244: , pd_accounting_date => ld_gl_date
3245: , pv_currency_code => lv_invoice_currency_code
3246: , pn_enter_dr => match_inclu_tax_csr.tax_amount
3247: , pd_transaction_date => ld_invoice_date
3271: END LOOP; -- for match_inclu_tax_cur cursor
3272: END IF; -- lv_match_type = 'STANDALONE_INVOICE'
3273:
3274: -- Get item distribution line dist_code_combination_id and amount.
3275: -- and insert credit data into GL interface table.
3276: FOR item_line_dist_csr IN item_line_dist_cur(ln_invoice_line_num)
3277: LOOP
3278: IF ln_item_line_amt <> 0
3279: THEN
3279: THEN
3280: ln_cr_line_amt := ( item_line_dist_csr.amount / ln_item_line_amt )
3281: * ln_total_inclu_tax_amt;
3282:
3283: insert_gl_interface( pn_set_of_books_id => ln_set_of_books_id
3284: , pd_accounting_date => ld_gl_date
3285: , pv_currency_code => lv_invoice_currency_code
3286: , pn_enter_cr => ln_cr_line_amt
3287: , pd_transaction_date => ld_invoice_date
3303:
3304: END IF; -- ln_invoice_line_num > 0
3305:
3306: xv_process_flag := 'SS';
3307: xv_process_message := 'Inclusive taxes have successed into GL Interface';
3308: ELSE
3309: xv_process_flag := 'SS';
3310: xv_process_message := 'Inclusive taxes not be separately';
3311: END IF; -- lv_inclu_tax_flag = 'Y'