[Home] [Help]
128: gl_entry.tax_type := null; -- varchar2(30),
129: gl_entry.je_source := 'Project Accounting'; -- gl_je_headers.je_source%type,
130: gl_entry.je_category := 'Register Data Entry'; -- gl_je_headers.je_category%type,
131: gl_entry.set_of_books_id := ; -- gl_sets_of_books.set_of_books_id%type,
132: gl_entry.currency_code := jai_constants.func_curr; -- gl_currencies.currency_code%type,
133: gl_entry.currency_conv_rate := null; -- number,
134: gl_entry.currency_conv_date := null; -- date,
135: gl_entry.accounting_date := sysdate; -- date,
136: gl_entry.organization_code := ; -- gl_interface.reference1%TYPE, -- p_params(i).organization_code,
207: null,
208: null,
209: pr_gl_entry.organization_code, -- reference1, p_params(i).organization_code,
210: pr_gl_entry.description, -- reference10, 'India Localization Entry for Interorg-XFER ',
211: jai_constants.gl_je_source_name, -- reference22,
212: pr_gl_entry.called_from, -- reference23, 'jai_mtl_trx_pkg.do_cenvat_Acctg',
213: pr_gl_entry.source_table_name, -- reference24, 'jai_mtl_trxs',
214: pr_gl_entry.source_document_id, -- reference25, p_transaction_temp_id,
215: pr_gl_entry.reference_table, -- reference26, 'transaction_temp_id',
313: null,
314: null,
315: pr_gl_entry.organization_code, -- reference1, p_params(i).organization_code,
316: pr_gl_entry.description, -- reference10, 'India Localization Entry for Interorg-XFER ',
317: jai_constants.gl_je_source_name, -- reference22,
318: pr_gl_entry.called_from, -- reference23, 'jai_mtl_trx_pkg.do_cenvat_Acctg',
319: pr_gl_entry.source_table_name, -- reference24, 'jai_mtl_trxs',
320: pr_gl_entry.source_document_id, -- reference25, p_transaction_temp_id,
321: pr_gl_entry.reference_table, -- reference26, 'transaction_temp_id',
453: if jai_pa_billing_pkg.gv_debug then
454: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '2 pdir- BefCall to ProcExcise:');
455: end if;
456:
457: if nvl(r_draft_invoice_dtls.process_excise_flag, jai_constants.no) <> jai_constants.yes then
458:
459: process_excise(
460: --pn_project_id => pr_draft_invoice.project_id ,
461: --pn_draft_invoice_num => pr_draft_invoice.draft_invoice_num ,
470: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1.1 pdir- After process_excise. pv_process_message:'
471: ||pv_process_message);
472: end if;
473:
474: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
475: goto end_of_procedure;
476: end if;
477:
478: end if;
484: if jai_pa_billing_pkg.gv_debug then
485: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 pdir- BefCall to ProcVat');
486: end if;
487:
488: if nvl(r_draft_invoice_dtls.process_vat_flag, jai_constants.no) <> jai_constants.yes then
489: process_vat(
490: pn_project_id => pr_draft_invoice.project_id ,
491: pn_draft_invoice_num => pr_draft_invoice.draft_invoice_num ,
492: -- pn_draft_invoice_id => r_draft_invoice_dtls.draft_invoice_id ,
500: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3.1 pdir- After process_vat. pv_process_message:'
501: ||pv_process_message);
502: end if;
503:
504: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
505: goto end_of_procedure;
506: end if;
507:
508: end if;
548: ) IS
549: SELECT attribute_value
550: FROM jai_rgm_org_regns_v
551: WHERE regime_id = cp_regime_id
552: AND attribute_type_code = jai_constants.regn_type_others
553: AND attribute_code = jai_constants.attr_code_same_inv_no
554: AND organization_id = cp_organization_id
555: AND location_id = cp_location_id;
556:
549: SELECT attribute_value
550: FROM jai_rgm_org_regns_v
551: WHERE regime_id = cp_regime_id
552: AND attribute_type_code = jai_constants.regn_type_others
553: AND attribute_code = jai_constants.attr_code_same_inv_no
554: AND organization_id = cp_organization_id
555: AND location_id = cp_location_id;
556:
557: ln_regime_id JAI_RGM_DEFINITIONS.regime_id%type;
571: if jai_pa_billing_pkg.gv_debug then
572: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '1 Start Process_Vat');
573: end if;
574:
575: lv_credit_memo_flag := jai_constants.no;
576: ld_gl_date := pr_pa_draft_invoices_all.gl_date; /*Bug 12611009 - Fetch GL Date of the PA Draft Invoice*/
577:
578: /* generate vat invoice no */
579: open c_draft_invoice_dtls(pn_project_id, pn_draft_invoice_num);
580: fetch c_draft_invoice_dtls into r_draft_invoice_dtls;
581: close c_draft_invoice_dtls;
582:
583: if r_draft_invoice_dtls.parent_draft_invoice_id is not null then
584: lv_credit_memo_flag := jai_constants.yes;
585: end if;
586:
587: open c_regime_id(jai_constants.vat_regime);
588: fetch c_regime_id into ln_regime_id;
583: if r_draft_invoice_dtls.parent_draft_invoice_id is not null then
584: lv_credit_memo_flag := jai_constants.yes;
585: end if;
586:
587: open c_regime_id(jai_constants.vat_regime);
588: fetch c_regime_id into ln_regime_id;
589: close c_regime_id;
590:
591: /* for CREDIT MEMO the VAT invoice number should not be generated */
589: close c_regime_id;
590:
591: /* for CREDIT MEMO the VAT invoice number should not be generated */
592:
593: if lv_credit_memo_flag = jai_constants.no then
594:
595: open c_same_inv_no(r_draft_invoice_dtls.organization_id, r_draft_invoice_dtls.location_id, ln_regime_id);
596: fetch c_same_inv_no into lv_same_invoice_no_flag;
597: close c_same_inv_no;
595: open c_same_inv_no(r_draft_invoice_dtls.organization_id, r_draft_invoice_dtls.location_id, ln_regime_id);
596: fetch c_same_inv_no into lv_same_invoice_no_flag;
597: close c_same_inv_no;
598:
599: if nvl(lv_same_invoice_no_flag, jai_constants.no) = jai_constants.yes then
600: lv_vat_invoice_no := r_draft_invoice_dtls.excise_invoice_no;
601: ld_vat_invoice_date := r_draft_invoice_dtls.excise_invoice_date;
602: end if;
603:
624: end if;
625:
626: end if;
627:
628: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
629: goto end_of_procedure;
630:
631: elsif lv_vat_invoice_no is null then
632: pv_process_flag := jai_constants.expected_error;
628: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
629: goto end_of_procedure;
630:
631: elsif lv_vat_invoice_no is null then
632: pv_process_flag := jai_constants.expected_error;
633: pv_process_message := 'VAT Invoice could not be generated';
634: goto end_of_procedure;
635: end if;
636:
643: if jai_pa_billing_pkg.gv_debug then
644: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '4 rocess_Vat. BefCall to jai_cmn_rgm_vat_accnt_pkg.process_order_invoice. DraftInvoceId:'||r_draft_invoice_dtls.draft_invoice_id);
645: end if;
646:
647: if lv_credit_memo_flag = jai_constants.yes then
648: lv_called_from := 'DRAFT_INVOICE_CM';
649: else
650: lv_called_from := 'DRAFT_INVOICE';
651: end if;
678: if jai_pa_billing_pkg.gv_debug then
679: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '6 process_Vat. AftCall to jai_cmn_rgm_vat_accnt_pkg.process_order_invoice. pv_process_message:'||pv_process_message);
680: end if;
681:
682: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
683: goto end_of_procedure;
684: end if;
685:
686: UPDATE jai_pa_draft_invoices
698: end if;
699:
700: exception
701: when others then
702: pv_process_flag := jai_constants.unexpected_error;
703: pv_process_message := 'Error in process_vat. Message:'||SQLERRM;
704:
705: end process_vat;
706:
732: and source_doc_id = cpn_draft_invoice_id
733: and upper(tax_type)
734: in
735: ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE',
736: upper(jai_constants.tax_type_exc_edu_cess)
737: , jai_constants.tax_type_sh_exc_edu_cess /*budget07*/
738: );
739: /* CVD type of taxes would not exist for projects invoice */
740:
733: and upper(tax_type)
734: in
735: ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE',
736: upper(jai_constants.tax_type_exc_edu_cess)
737: , jai_constants.tax_type_sh_exc_edu_cess /*budget07*/
738: );
739: /* CVD type of taxes would not exist for projects invoice */
740:
741: cursor c_get_excise_breakup (cpn_draft_invoice_id number) is
742: select round(sum( decode( upper(tax_type), 'EXCISE', func_tax_amt, 0 )), 2) basic_excise
743: ,round(sum( decode( upper(tax_type), 'ADDL. EXCISE', func_tax_amt, 0 )), 2) additional_excise
744: ,round(sum( decode( upper(tax_type), 'OTHER EXCISE', func_tax_amt, 0 )), 2) other_excise
745: ,round(sum( decode( upper(tax_type),
746: upper(jai_constants.tax_type_exc_edu_cess), func_tax_amt, 0 )), 2) excise_cess
747: ,round(sum( decode( tax_type,
748: jai_constants.tax_type_sh_exc_edu_cess, func_tax_amt, 0 )), 2) sh_excise_cess /*budget07*/
749: from jai_cmn_document_taxes
750: where source_doc_type = jai_pa_billing_pkg.gv_source_projects
744: ,round(sum( decode( upper(tax_type), 'OTHER EXCISE', func_tax_amt, 0 )), 2) other_excise
745: ,round(sum( decode( upper(tax_type),
746: upper(jai_constants.tax_type_exc_edu_cess), func_tax_amt, 0 )), 2) excise_cess
747: ,round(sum( decode( tax_type,
748: jai_constants.tax_type_sh_exc_edu_cess, func_tax_amt, 0 )), 2) sh_excise_cess /*budget07*/
749: from jai_cmn_document_taxes
750: where source_doc_type = jai_pa_billing_pkg.gv_source_projects
751: and source_doc_id = cpn_draft_invoice_id
752: and upper(tax_type)
751: and source_doc_id = cpn_draft_invoice_id
752: and upper(tax_type)
753: in
754: ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE',
755: upper(jai_constants.tax_type_exc_edu_cess)
756: , jai_constants.tax_type_sh_exc_edu_cess /*budget07*/
757: );
758:
759:
752: and upper(tax_type)
753: in
754: ('EXCISE', 'ADDL. EXCISE', 'OTHER EXCISE',
755: upper(jai_constants.tax_type_exc_edu_cess)
756: , jai_constants.tax_type_sh_exc_edu_cess /*budget07*/
757: );
758:
759:
760: cursor c_JAI_CMN_INVENTORY_ORGS (cpn_organization_id number, cpn_location_id number) is
830:
831: /* defaults initialization */
832: lv_transaction_type := jai_pa_billing_pkg.gv_trx_type_draft_invoice; -- 'DRAFT_INVOICE';
833: lv_transaction_source := jai_pa_billing_pkg.gv_draft_invoice_release; -- 'DRAFT_INVOICE_RELEASE'
834: lv_exists_excise_tax := jai_constants.no;
835: ld_transaction_date := sysdate;
836: lv_credit_memo_flag := jai_constants.no;
837: ld_gl_date := pr_pa_draft_invoices_all.gl_date; /*Bug 12611009 - Fetch GL Date of the PA Draft Invoice*/
838:
832: lv_transaction_type := jai_pa_billing_pkg.gv_trx_type_draft_invoice; -- 'DRAFT_INVOICE';
833: lv_transaction_source := jai_pa_billing_pkg.gv_draft_invoice_release; -- 'DRAFT_INVOICE_RELEASE'
834: lv_exists_excise_tax := jai_constants.no;
835: ld_transaction_date := sysdate;
836: lv_credit_memo_flag := jai_constants.no;
837: ld_gl_date := pr_pa_draft_invoices_all.gl_date; /*Bug 12611009 - Fetch GL Date of the PA Draft Invoice*/
838:
839: /* Get IL related info for the project invoice. */
840: open c_draft_invoice_dtls(pr_pa_draft_invoices_all.project_id, pr_pa_draft_invoices_all.draft_invoice_num);
841: fetch c_draft_invoice_dtls into r_jai_pa_draft_invoices;
842: close c_draft_invoice_dtls;
843:
844: if r_jai_pa_draft_invoices.parent_draft_invoice_id is not null then
845: lv_credit_memo_flag := jai_constants.yes;
846: end if;
847:
848: /* Check if Excise is applicable - that is if excise type of taxes exist */
849: open c_exists_excise_tax(r_jai_pa_draft_invoices.draft_invoice_id);
849: open c_exists_excise_tax(r_jai_pa_draft_invoices.draft_invoice_id);
850: fetch c_exists_excise_tax into lv_exists_excise_tax;
851: close c_exists_excise_tax;
852:
853: if lv_exists_excise_tax <> jai_constants.yes then
854: /* Excise taxes do not exist, excise processing is not applicable, return with 'X' */
855: pv_process_flag := 'X';
856: pv_process_message := 'Excise processing is not applicable as excise taxes do not exist';
857: goto exit_from_procedure;
906: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '3 process_excise. AftChkExcBal. lv_register:'||lv_register
907: ||', pv_process_message:'||pv_process_message);
908: end if;
909:
910: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
911: goto exit_from_procedure;
912: end if;
913: /**** Control comes here only if excise balance exists ****/
914:
919:
920: /* Generate Excise Invoice
921: for CREDIT MEMO the excise invoice number should not be generated
922: */
923: if lv_credit_memo_flag = jai_constants.no then
924:
925: jai_cmn_setup_pkg.generate_excise_invoice_no
926: (
927: p_organization_id => r_jai_pa_draft_invoices.organization_id ,
938: ||', pv_process_message:'||pv_process_message);
939: end if;
940:
941: if pv_process_message is not null then
942: pv_process_flag := jai_constants.expected_error;
943: goto exit_from_procedure;
944: end if;
945:
946: if lv_excise_inv_no is not null then
1033: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '9 process_excise. After jai_cmn_rg_23ac_ii_pkg.insert_row'
1034: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
1035: end if;
1036:
1037: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error) then
1038: goto exit_from_procedure;
1039: end if;
1040:
1041: /* Set variables for Cess Register Entry */
1091: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '12 process_excise. After jai_cmn_rg_pla_trxs_pkg.insert_row'
1092: ||', ln_register_id:'||ln_register_id||', pv_process_message:'||pv_process_message);
1093: end if;
1094:
1095: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1096: goto exit_from_procedure;
1097: end if;
1098:
1099: /* Set variables for Cess Register Entry */
1125: if jai_pa_billing_pkg.gv_debug then
1126: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15 process_excise. After jai_cmn_rg_others_pkg.insert_row');
1127: end if;
1128:
1129: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1130: goto exit_from_procedure;
1131: end if;
1132:
1133: end if;
1143: (
1144: p_source_type => ln_source_type ,
1145: p_source_name => lv_source_name ,
1146: p_source_id => ln_register_id ,
1147: p_tax_type => jai_constants.tax_type_sh_exc_edu_cess , /*budget07*/
1148: debit_amt => ln_sh_excise_cess_amt ,
1149: credit_amt => null ,
1150: p_process_flag => pv_process_flag ,
1151: p_process_msg => pv_process_message
1154: if jai_pa_billing_pkg.gv_debug then
1155: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '15.1 process_excise. After SH jai_cmn_rg_others_pkg.insert_row');
1156: end if;
1157:
1158: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1159: goto exit_from_procedure;
1160: end if;
1161:
1162: end if;
1172: ln_credit_ccid := nvl(r_jai_cmn_inventory_orgs.cenvat_pla_accnt, r_jai_cmn_inventory_orgs1.cenvat_pla_accnt);
1173: end if;
1174:
1175: if ln_credit_ccid is null then
1176: pv_process_flag := jai_constants.expected_error;
1177: pv_process_message := 'Excise account not defined for '||lv_register
1178: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1179: ||'/'||r_jai_pa_draft_invoices.location_id;
1180: goto exit_from_procedure;
1181: end if;
1182:
1183: ln_debit_ccid := nvl(r_jai_cmn_inventory_orgs.excise_debit_accnt, r_jai_cmn_inventory_orgs1.excise_debit_accnt);
1184: if ln_debit_ccid is null then
1185: pv_process_flag := jai_constants.expected_error;
1186: pv_process_message := 'Excise account not defined for '||lv_register
1187: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1188: ||'/'||r_jai_pa_draft_invoices.location_id;
1189: goto exit_from_procedure;
1202: for Project Related AR Invoices. In future when the Project Accounting source is sedded it can be used
1203: */
1204: /* r_gl_entry.je_source := 'Project Accounting'; -- gl_je_headers.je_source%type, */
1205: --r_gl_entry.je_source := 'Receivables India';
1206: r_gl_entry.je_source := jai_constants.pa_je_source; --Added by bgowrava for Bug#6012570
1207: r_gl_entry.je_category := jai_constants.je_category_rg_entry; -- gl_je_headers.je_category%type,
1208: r_gl_entry.set_of_books_id := get_sob_id(pr_pa_draft_invoices_all.org_id); -- gl_sets_of_books.set_of_books_id%type,
1209: r_gl_entry.currency_code := jai_constants.func_curr; -- gl_currencies.currency_code%type,
1210: r_gl_entry.currency_conv_rate := null; -- number,
1203: */
1204: /* r_gl_entry.je_source := 'Project Accounting'; -- gl_je_headers.je_source%type, */
1205: --r_gl_entry.je_source := 'Receivables India';
1206: r_gl_entry.je_source := jai_constants.pa_je_source; --Added by bgowrava for Bug#6012570
1207: r_gl_entry.je_category := jai_constants.je_category_rg_entry; -- gl_je_headers.je_category%type,
1208: r_gl_entry.set_of_books_id := get_sob_id(pr_pa_draft_invoices_all.org_id); -- gl_sets_of_books.set_of_books_id%type,
1209: r_gl_entry.currency_code := jai_constants.func_curr; -- gl_currencies.currency_code%type,
1210: r_gl_entry.currency_conv_rate := null; -- number,
1211: r_gl_entry.currency_conv_date := null; -- date,
1205: --r_gl_entry.je_source := 'Receivables India';
1206: r_gl_entry.je_source := jai_constants.pa_je_source; --Added by bgowrava for Bug#6012570
1207: r_gl_entry.je_category := jai_constants.je_category_rg_entry; -- gl_je_headers.je_category%type,
1208: r_gl_entry.set_of_books_id := get_sob_id(pr_pa_draft_invoices_all.org_id); -- gl_sets_of_books.set_of_books_id%type,
1209: r_gl_entry.currency_code := jai_constants.func_curr; -- gl_currencies.currency_code%type,
1210: r_gl_entry.currency_conv_rate := null; -- number,
1211: r_gl_entry.currency_conv_date := null; -- date,
1212: r_gl_entry.accounting_date := ld_gl_date; -- date, /*Bug 12611009 - Pass GL Date of PA Draft Invoice to GL_INTERFACE*/
1213: r_gl_entry.organization_code := jai_general_pkg.get_organization_code(r_jai_pa_draft_invoices.organization_id); -- gl_interface.reference1%TYPE, -- p_params(i).organization_code,
1230: pv_process_flag => pv_process_flag,
1231: pv_process_message => pv_process_message
1232: );
1233:
1234: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1235: goto exit_from_procedure;
1236: end if;
1237:
1238: /* Entry 2 for ExciseEducation Cess */
1249: r_jai_cmn_inventory_orgs1.cenvat_pla_accnt);
1250: end if;
1251:
1252: if ln_credit_ccid is null then
1253: pv_process_flag := jai_constants.expected_error;
1254: pv_process_message := 'Excise education cess account not defined for '||lv_register
1255: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1256: ||'/'||r_jai_pa_draft_invoices.location_id;
1257: goto exit_from_procedure;
1259:
1260: ln_debit_ccid := nvl(r_jai_cmn_inventory_orgs.excise_edu_cess_debit_accnt,
1261: r_jai_cmn_inventory_orgs1.excise_edu_cess_debit_accnt);
1262: if ln_debit_ccid is null then
1263: pv_process_flag := jai_constants.expected_error;
1264: pv_process_message := 'Excise education cess account not defined for '||lv_register
1265: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1266: ||'/'||r_jai_pa_draft_invoices.location_id;
1267: goto exit_from_procedure;
1283: pv_process_flag => pv_process_flag,
1284: pv_process_message => pv_process_message
1285: );
1286:
1287: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1288: goto exit_from_procedure;
1289: end if;
1290: end if;
1291:
1304: r_jai_cmn_inventory_orgs1.cenvat_pla_accnt);
1305: end if;
1306:
1307: if ln_credit_ccid is null then
1308: pv_process_flag := jai_constants.expected_error;
1309: pv_process_message := 'SH education cess account not defined for '||lv_register
1310: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1311: ||'/'||r_jai_pa_draft_invoices.location_id;
1312: goto exit_from_procedure;
1314:
1315: ln_debit_ccid := nvl(r_jai_cmn_inventory_orgs.exc_sh_cess_debit_accnt,
1316: r_jai_cmn_inventory_orgs1.exc_sh_cess_debit_accnt);
1317: if ln_debit_ccid is null then
1318: pv_process_flag := jai_constants.expected_error;
1319: pv_process_message := 'SH education cess account not defined for '||lv_register
1320: ||' register of Org/Loc:'||r_jai_pa_draft_invoices.organization_id
1321: ||'/'||r_jai_pa_draft_invoices.location_id;
1322: goto exit_from_procedure;
1326: r_gl_entry.debit_amount := ln_sh_excise_cess_amt;
1327: r_gl_entry.credit_amount := ln_sh_excise_cess_amt;
1328: r_gl_entry.credit_ccid := ln_credit_ccid; --gl_interface.code_combination_id%TYPE,
1329: r_gl_entry.debit_ccid := ln_debit_ccid; -- gl_interface.code_combination_id%TYPE,
1330: r_gl_entry.regime_code := jai_constants.tax_type_sh_exc_edu_cess; -- varchar2(30),
1331:
1332: if jai_pa_billing_pkg.gv_debug then
1333: jai_cmn_utils_pkg.print_log ( jai_pa_billing_pkg.file, '19.1 process_excise. Before insert_gl_entry- SH Excise Edu Cess');
1334: end if;
1338: pv_process_flag => pv_process_flag,
1339: pv_process_message => pv_process_message
1340: );
1341:
1342: if pv_process_flag in (jai_constants.unexpected_error, jai_constants.expected_error, 'E') then
1343: goto exit_from_procedure;
1344: end if;
1345: end if;
1346: /*end- budget07 changes */
1372: null;
1373:
1374: EXCEPTION
1375: when others then
1376: pv_process_flag := jai_constants.unexpected_error;
1377: pv_process_message := 'Error in process_excise. Message:'||SQLERRM;
1378:
1379: END process_excise;
1380:
1467: if pv_called_from = 'jai_pa_billing_pkg.process_excise' then
1468:
1469: /* for projects, Inventory organization cannot be an export oriented unit */
1470: if lv_export_oriented_unit = 'Y' then
1471: pv_process_flag := jai_constants.expected_error;
1472: pv_process_message := 'Inventory organization cannot be an export oriented unit';
1473: pv_register := 'ERROR';
1474: goto exit_from_procedure;
1475: end if;
1512: return ;
1513:
1514: EXCEPTION
1515: when others then
1516: pv_process_flag := jai_constants.unexpected_error;
1517: pv_process_message := 'Error in check_excise_balance. Message:'||sqlerrm;
1518:
1519: END check_excise_balance;
1520:
1665: where jpdil.project_id = cpn_project_id
1666: and jpdil.draft_invoice_num = cpn_draft_invoice_num
1667: and jpdil.line_num = cpn_ar_invoice_line_num
1668: and jpdil.draft_invoice_line_id = jcdt.source_doc_line_id
1669: and jcdt.source_doc_type = jai_constants.pa_draft_invoice;
1670:
1671: r_pa_tax c_get_taxes_from_ar_ref%rowtype;
1672:
1673: cursor c_tax_details (cpn_tax_id ja_in_tax_codes.tax_id%type)
1706:
1707:
1708: begin
1709:
1710: if pv_event not in (jai_constants.IMPORT_TAXES) then
1711: return;
1712: end if;
1713:
1714: begin --> attempt_to_lock
1779:
1780: lv_assets_tracking_flag := r_inv_dist.assets_tracking_flag;
1781: lv_dist_code_combination_id := null;
1782:
1783: if r_pa_tax.modvat_flag = jai_constants.YES
1784: and nvl(r_tax_details.mod_cr_percentage, -1) > 0 then
1785:
1786: -- recoverable tax
1787: lv_assets_tracking_flag := jai_constants.NO;
1783: if r_pa_tax.modvat_flag = jai_constants.YES
1784: and nvl(r_tax_details.mod_cr_percentage, -1) > 0 then
1785:
1786: -- recoverable tax
1787: lv_assets_tracking_flag := jai_constants.NO;
1788:
1789: open c_get_rgm_for_tax_type ( r_tax_details.tax_type);
1790: fetch c_get_rgm_for_tax_type into r_regime;
1791: close c_get_rgm_for_tax_type;
1789: open c_get_rgm_for_tax_type ( r_tax_details.tax_type);
1790: fetch c_get_rgm_for_tax_type into r_regime;
1791: close c_get_rgm_for_tax_type;
1792:
1793: if r_regime.regime_code = jai_constants.service_regime then
1794:
1795: -- Service type of tax
1796: lv_account_name := jai_constants.recovery_interim;
1797:
1792:
1793: if r_regime.regime_code = jai_constants.service_regime then
1794:
1795: -- Service type of tax
1796: lv_account_name := jai_constants.recovery_interim;
1797:
1798: elsif r_regime.regime_code = jai_constants.vat_regime
1799: then
1800:
1794:
1795: -- Service type of tax
1796: lv_account_name := jai_constants.recovery_interim;
1797:
1798: elsif r_regime.regime_code = jai_constants.vat_regime
1799: then
1800:
1801: lv_account_name := jai_constants.recovery;
1802:
1797:
1798: elsif r_regime.regime_code = jai_constants.vat_regime
1799: then
1800:
1801: lv_account_name := jai_constants.recovery;
1802:
1803: end if;
1804:
1805: if r_regime.regime_code in (jai_constants.service_regime, jai_constants.vat_regime)
1801: lv_account_name := jai_constants.recovery;
1802:
1803: end if;
1804:
1805: if r_regime.regime_code in (jai_constants.service_regime, jai_constants.vat_regime)
1806: then
1807:
1808: lv_dist_code_combination_id := jai_rgm_trx_recording_pkg.get_account
1809: (
1807:
1808: lv_dist_code_combination_id := jai_rgm_trx_recording_pkg.get_account
1809: (
1810: p_regime_id => r_regime.regime_id,
1811: p_organization_type => jai_constants.orgn_type_io,
1812: p_organization_id => r_pa_hdr.organization_id ,
1813: p_location_id => r_pa_hdr.location_id,
1814: p_tax_type => r_tax_details.tax_type,
1815: p_account_name => jai_constants.recovery -- RECOVERY
1811: p_organization_type => jai_constants.orgn_type_io,
1812: p_organization_id => r_pa_hdr.organization_id ,
1813: p_location_id => r_pa_hdr.location_id,
1814: p_tax_type => r_tax_details.tax_type,
1815: p_account_name => jai_constants.recovery -- RECOVERY
1816: );
1817:
1818: else
1819: -- Tax is other than of VAT or Serivce regime
1819: -- Tax is other than of VAT or Serivce regime
1820: lv_dist_code_combination_id := r_tax_details.tax_account_id;
1821: end if;
1822:
1823: else --> r_pa_tax.modvat_flag = jai_constants.YES ...
1824:
1825: ln_project_id := r_inv_dist.project_id;
1826: ln_task_id := r_inv_dist.task_id;
1827: lv_exp_type := r_inv_dist.expenditure_type;
1844: Fnd_File.put_line(Fnd_File.LOG, 'r_pa_tax.modvat_flag ='||r_pa_tax.modvat_flag
1845: ||',r_tax_details.mod_cr_percentage='||r_tax_details.mod_cr_percentage
1846: );
1847:
1848: if r_pa_tax.modvat_flag = jai_constants.YES
1849: and nvl(r_tax_details.mod_cr_percentage, -1) > 0
1850: and nvl(r_tax_details.mod_cr_percentage, -1) < 100
1851: then
1852: --
1882: elsif line = 2 then
1883:
1884: ln_tax_amt := ln_nrec_tax_amt;
1885:
1886: if r_inv_dist.assets_tracking_flag = jai_constants.YES then
1887: lv_assets_tracking_flag := jai_constants.YES;
1888: end if;
1889:
1890: lv_modvat_flag := jai_constants.NO ;
1883:
1884: ln_tax_amt := ln_nrec_tax_amt;
1885:
1886: if r_inv_dist.assets_tracking_flag = jai_constants.YES then
1887: lv_assets_tracking_flag := jai_constants.YES;
1888: end if;
1889:
1890: lv_modvat_flag := jai_constants.NO ;
1891:
1886: if r_inv_dist.assets_tracking_flag = jai_constants.YES then
1887: lv_assets_tracking_flag := jai_constants.YES;
1888: end if;
1889:
1890: lv_modvat_flag := jai_constants.NO ;
1891:
1892: --
1893: -- This is a non recoverable line hence the tax amounts should be added into the project costs by populating
1894: -- projects related columns so that PROJECTS can consider this line for Project Costing
1984: )
1985: values
1986: (
1987: r_inv_dist.accounting_date
1988: , jai_constants.NO
1989: , r_inv_dist.assets_addition_flag
1990: , lv_assets_tracking_flag
1991: , jai_constants.NO
1992: , ln_dist_line_num
1987: r_inv_dist.accounting_date
1988: , jai_constants.NO
1989: , r_inv_dist.assets_addition_flag
1990: , lv_assets_tracking_flag
1991: , jai_constants.NO
1992: , ln_dist_line_num
1993: , lv_dist_code_combination_id
1994: , r_invs.invoice_id
1995: , r_inv_dist.last_updated_by
2005: , r_tax_details.tax_name
2006: , null
2007: , r_inv_dist.last_update_login
2008: , null
2009: , jai_constants.NO
2010: , null
2011: , null
2012: , r_inv_dist.exchange_date
2013: , r_inv_dist.exchange_rate
2011: , null
2012: , r_inv_dist.exchange_date
2013: , r_inv_dist.exchange_rate
2014: , r_inv_dist.exchange_rate_type
2015: , jai_constants.NO
2016: , r_inv_dist.program_application_id
2017: , r_inv_dist.program_id
2018: , r_inv_dist.program_update_date
2019: , r_inv_dist.accts_pay_code_combination_id