[Home] [Help]
20: Where delivery_detail_id = v_delivery_detail_id;
21:
22:
23: BEGIN
24: pv_return_code := jai_constants.successful ;
25:
26: v_DELIVERY_DETAIL_ID := pr_old.DELIVERY_DETAIL_ID;
27: x := 0;
28:
115: REM +======================================================================+
116: */
117: PROCEDURE ARU_T1 ( pr_old t_rec%type , pr_new t_rec%type , pv_action varchar2 , pv_return_code out nocopy varchar2 , pv_return_message out nocopy varchar2 ) IS
118: BEGIN
119: pv_return_code := jai_constants.successful ;
120: /*------------------------------------------------------------------------------------------
121: FILENAME: ja_in_receipts_match_trg.sql
122:
123: CHANGE HISTORY:
445: WHERE jstl.line_id = cp_line_id
446: AND jstl.header_id = cp_header_id
447: AND jtc.tax_id = jstl.tax_id
448: AND jtc.tax_type = tax_types.tax_type
449: AND tax_types.regime_code = jai_constants.vat_regime;
450:
451: --added the following cursor for bug#8538431
452: CURSOR cur_chk_excise_exists (cp_line_id JAI_OM_OE_SO_TAXES.LINE_ID%TYPE,
453: cp_header_id JAI_OM_OE_SO_TAXES.HEADER_ID%TYPE
458: JAI_CMN_TAXES_ALL jtc
459: WHERE jstl.line_id = cp_line_id
460: AND jstl.header_id = cp_header_id
461: AND jtc.tax_id = jstl.tax_id
462: AND jtc.tax_type in ( jai_constants.tax_type_excise,
463: jai_constants.tax_type_exc_additional,
464: jai_constants.tax_type_exc_other,
465: jai_constants.tax_type_exc_edu_cess,
466: jai_constants.tax_type_sh_exc_edu_cess);
459: WHERE jstl.line_id = cp_line_id
460: AND jstl.header_id = cp_header_id
461: AND jtc.tax_id = jstl.tax_id
462: AND jtc.tax_type in ( jai_constants.tax_type_excise,
463: jai_constants.tax_type_exc_additional,
464: jai_constants.tax_type_exc_other,
465: jai_constants.tax_type_exc_edu_cess,
466: jai_constants.tax_type_sh_exc_edu_cess);
467:
460: AND jstl.header_id = cp_header_id
461: AND jtc.tax_id = jstl.tax_id
462: AND jtc.tax_type in ( jai_constants.tax_type_excise,
463: jai_constants.tax_type_exc_additional,
464: jai_constants.tax_type_exc_other,
465: jai_constants.tax_type_exc_edu_cess,
466: jai_constants.tax_type_sh_exc_edu_cess);
467:
468: CURSOR cur_chk_org_loc_setup (cp_organization_id JAI_OM_WSH_LINES_ALL.LOCATION_ID%TYPE,
461: AND jtc.tax_id = jstl.tax_id
462: AND jtc.tax_type in ( jai_constants.tax_type_excise,
463: jai_constants.tax_type_exc_additional,
464: jai_constants.tax_type_exc_other,
465: jai_constants.tax_type_exc_edu_cess,
466: jai_constants.tax_type_sh_exc_edu_cess);
467:
468: CURSOR cur_chk_org_loc_setup (cp_organization_id JAI_OM_WSH_LINES_ALL.LOCATION_ID%TYPE,
469: cp_location_id JAI_OM_WSH_LINES_ALL.ORGANIZATION_ID%TYPE
462: AND jtc.tax_type in ( jai_constants.tax_type_excise,
463: jai_constants.tax_type_exc_additional,
464: jai_constants.tax_type_exc_other,
465: jai_constants.tax_type_exc_edu_cess,
466: jai_constants.tax_type_sh_exc_edu_cess);
467:
468: CURSOR cur_chk_org_loc_setup (cp_organization_id JAI_OM_WSH_LINES_ALL.LOCATION_ID%TYPE,
469: cp_location_id JAI_OM_WSH_LINES_ALL.ORGANIZATION_ID%TYPE
470: )
474: JAI_RGM_DEFINITIONS rgms
475: WHERE rgmpt.regime_id = rgms.regime_id
476: AND rgmpt.location_id = cp_location_id
477: AND rgmpt.organization_id = cp_organization_id
478: AND rgms.regime_code = jai_constants.vat_regime;
479:
480: /*
481: ||End of bug 4245073
482: */
539:
540: /* End of bug 5631784*/
541:
542: BEGIN
543: pv_return_code := jai_constants.successful ;
544: /***************************************************************************************************************************************************
545:
546: Change History :
547:
797: CLOSE c_ja_in_so_tax_lines_tax_amt;
798:
799: IF NVL(v_line_tax_amount,0) <> NVL(v_sum_tax_amount,0) THEN
800: /* RAISE_APPLICATION_ERROR(-20405,'Taxes are not matching in JAI_OM_OE_SO_LINES and JA_IN_SO_TAX_LINE FOR LINE_ID ' || pr_new.Source_line_id);
801: */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Taxes are not matching in JAI_OM_OE_SO_LINES and JA_IN_SO_TAX_LINE FOR LINE_ID ' || pr_new.Source_line_id ; return ;
802: END IF;
803: -- ends here bug # 2689417
804:
805: -- Start Of Bug #3392528,
822: p_error_msg => lv_error_msg
823: ) ;
824: IF nvl(lv_ret_flag,'S') = 'EE' THEN
825: /* Handle all expected errors in this section. */
826: /* raise_application_error(-20406, lv_error_msg ); */ pv_return_code := jai_constants.expected_error ; pv_return_message := lv_error_msg ; return ;
827:
828: ELSIF nvl(lv_ret_flag,'S') = 'UE' THEN
829: /* Handle all unexpected errors in this section. */
830: /* raise_application_error(-20406, lv_error_msg );
827:
828: ELSIF nvl(lv_ret_flag,'S') = 'UE' THEN
829: /* Handle all unexpected errors in this section. */
830: /* raise_application_error(-20406, lv_error_msg );
831: */ pv_return_code := jai_constants.expected_error ; pv_return_message := lv_error_msg ; return ;
832: END IF ;
833: -- End Of Bug #3392528
834:
835: OPEN location_cursor;
859: FETCH cur_chk_excise_exists INTO ln_exc_cnt;
860: CLOSE cur_chk_excise_exists ;
861:
862: IF nvl (ln_exc_cnt,0) > 0 AND nvl(v_exe_flag,'N') = 'N' THEN
863: pv_return_code := jai_constants.expected_error ;
864: pv_return_message := 'An item which is not Excisable has Excise Taxes attached.
865: Please correct the item attribute or remove the Excise type of taxes' ;
866: return ;
867: END IF;
898: --bug#6327274, end
899: --csahoo for bug#8500697. Added a check on lv_inventory_item_flag in the following if clause
900: IF v_location_id IS NULL and v_container_item_flag ='N' and lv_inventory_item_flag = 'Y' then
901: /* raise_application_error(-20406, 'Mandatory India Localization Sub-inventory Setup not done for this Location from where shipment is made');
902: */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Mandatory India Localization Sub-inventory Setup not done for this Location from where shipment is made' ; return ;
903: end if ;
904: end if;
905: -- ends here - Bug # 2928261
906:
954: OPEN c_model_item_id(ln_ato_line_id) ;
955: FETCH c_model_item_id INTO ln_model_item_id ;
956: CLOSE c_model_item_id ;
957:
958: jai_inv_items_pkg.jai_get_attrib ( p_regime_code => jai_constants.vat_regime
959: , p_organization_id => pr_new.organization_id
960: , p_inventory_item_id => ln_model_item_id
961: , p_attribute_code => jai_constants.rgm_attr_item_applicable
962: , p_attribute_value => lv_applicable
957:
958: jai_inv_items_pkg.jai_get_attrib ( p_regime_code => jai_constants.vat_regime
959: , p_organization_id => pr_new.organization_id
960: , p_inventory_item_id => ln_model_item_id
961: , p_attribute_code => jai_constants.rgm_attr_item_applicable
962: , p_attribute_value => lv_applicable
963: , p_process_flag => lv_process_flag
964: , p_process_msg => lv_process_message
965: );
965: );
966: ELSE
967: /*bug#8924003, End */
968:
969: jai_inv_items_pkg.jai_get_attrib ( p_regime_code => jai_constants.vat_regime
970: , p_organization_id => pr_new.organization_id
971: , p_inventory_item_id => pr_new.inventory_item_id
972: , p_attribute_code => jai_constants.rgm_attr_item_applicable
973: , p_attribute_value => lv_applicable
968:
969: jai_inv_items_pkg.jai_get_attrib ( p_regime_code => jai_constants.vat_regime
970: , p_organization_id => pr_new.organization_id
971: , p_inventory_item_id => pr_new.inventory_item_id
972: , p_attribute_code => jai_constants.rgm_attr_item_applicable
973: , p_attribute_value => lv_applicable
974: , p_process_flag => lv_process_flag
975: , p_process_msg => lv_process_message
976: );
974: , p_process_flag => lv_process_flag
975: , p_process_msg => lv_process_message
976: );
977: END IF;
978: IF lv_process_flag = jai_constants.successful
979: AND nvl(lv_applicable,'N') = 'N' THEN
980: /*
981: ||item is not vatable
982: */
984: ,EXCEPTION_CODE => NULL
985: ,EXCEPTION_TEXT => 'An item which is not Vatable has VAT Taxes attached.
986: Please correct the item attribute or remove the VAT type of taxes'
987: );
988: ELSIF lv_process_flag <> jai_constants.successful THEN
989: app_exception.raise_exception( EXCEPTION_TYPE => 'APP'
990: ,EXCEPTION_CODE => NULL
991: ,EXCEPTION_TEXT => substr (lv_process_message,1,999)
992: );
1035: IF nvl(pr_new.Released_status,'N') = 'C' THEN
1036: IF nvl(v_shipped_quantity,0) <> nvl(v_matched_qty,0) THEN
1037: /* raise_application_error(-20401, 'Matched Quantity -- ' || TO_CHAR(NVL(v_matched_qty,0)) ||
1038: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_shipped_quantity,0))); */
1039: pv_return_code := jai_constants.expected_error ; pv_return_message := 'Matched Quantity -- ' || TO_CHAR(NVL(v_matched_qty,0)) ||
1040: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_shipped_quantity,0)); return ;
1041:
1042: END IF;
1043: END IF;
1046: if nvl(pr_new.Released_status,'N') = 'B' then
1047: -- if v_matched_qty = v_quantity and v_matched_qty is not null then
1048: if nvl(v_matched_qty,0) > 0 then
1049: /* raise_application_error (-20402, 'Please Unmatch the Delivery prior to backordering ');
1050: */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Please Unmatch the Delivery prior to backordering ' ; return ;
1051: end if ;
1052: end if;
1053: -- ends here additions by sriram - bug# 3441684
1054: END IF;
1096: IF NVL(v_lc_qty_matched,-999) <> NVL(v_tot_lc_shipped_qty,-888) THEN
1097:
1098: /* raise_application_error(-20401, 'LC Matched Quantity -- ' || TO_CHAR(NVL(v_lc_qty_matched,0)) ||
1099: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_lc_shipped_qty,0)) || ' for LC enabled Orders'
1100: ); */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'LC Matched Quantity -- ' || TO_CHAR(NVL(v_lc_qty_matched,0)) ||
1101: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_lc_shipped_qty,0)) || ' for LC enabled Orders'
1102: ; return ;
1103: END IF;
1104: END IF;
1176: pv_log_msg => ' Before call to jai_ar_tcs_rep_pkg.process_transactions .'
1177: );*/ --commented by bgowrava for Bug #5631784
1178:
1179: jai_ar_tcs_rep_pkg.process_transactions ( p_ooh => tab_ooh ,
1180: p_event => jai_constants.wsh_ship_confirm ,
1181: p_process_flag => lv_process_flag ,
1182: p_process_message => lv_process_message
1183: );
1184:
1185: /*jai_cmn_debug_contexts_pkg.print ( pn_reg_id => ln_reg_id ,
1186: pv_log_msg => ' returned from jai_ar_tcs_rep_pkg.process_transactions .'
1187: );*/ --commented by bgowrava for Bug #5631784
1188:
1189: IF lv_process_flag = jai_constants.expected_error OR ---------A2
1190: lv_process_flag = jai_constants.unexpected_error
1191: THEN
1192: /*
1193: || As Returned status is an error hence:-
1186: pv_log_msg => ' returned from jai_ar_tcs_rep_pkg.process_transactions .'
1187: );*/ --commented by bgowrava for Bug #5631784
1188:
1189: IF lv_process_flag = jai_constants.expected_error OR ---------A2
1190: lv_process_flag = jai_constants.unexpected_error
1191: THEN
1192: /*
1193: || As Returned status is an error hence:-
1194: || Set out variables p_process_flag and p_process_message accordingly
1209:
1210:
1211: EXCEPTION
1212: WHEN le_error THEN
1213: IF lv_process_flag = jai_constants.unexpected_error THEN
1214: lv_process_message := substr (lv_process_message || ' Object = ja_in_wsh_dlry_au_rel_stat_trg ', 1,1999) ;
1215: END IF;
1216:
1217:
1731: (SELECT delivery_detail_id
1732: FROM JAI_OM_WSH_LINES_ALL
1733: WHERE delivery_id = cp_delivery_id
1734: )
1735: AND upper(jtc.tax_type) in (upper(jai_constants.tax_type_cvd_edu_cess), upper(jai_constants.tax_type_exc_edu_cess));
1736:
1737:
1738: -- start, Bgowrava for forward porting bug#5989740
1739:
1749: (SELECT delivery_detail_id
1750: FROM JAI_OM_WSH_LINES_ALL
1751: WHERE delivery_id = cp_delivery_id
1752: )
1753: AND upper(jtc.tax_type) in (upper(jai_constants.tax_type_sh_exc_edu_cess),
1754: upper(jai_constants.tax_type_sh_cvd_edu_cess)
1755: );
1756: -- end, Bgowrava for forward porting bug#5989740
1757:
1750: FROM JAI_OM_WSH_LINES_ALL
1751: WHERE delivery_id = cp_delivery_id
1752: )
1753: AND upper(jtc.tax_type) in (upper(jai_constants.tax_type_sh_exc_edu_cess),
1754: upper(jai_constants.tax_type_sh_cvd_edu_cess)
1755: );
1756: -- end, Bgowrava for forward porting bug#5989740
1757:
1758:
1776: , jai_regime_tax_types_v tax_types
1777: WHERE jsptl.delivery_detail_id = cp_del_det_id
1778: AND jtc.tax_id = jsptl.tax_id
1779: AND jtc.tax_type = tax_types.tax_type
1780: AND tax_types.regime_code = jai_constants.vat_regime;
1781:
1782: CURSOR cur_get_regime_info (cp_organization_id JAI_RGM_ORG_REGNS_V.ORGANIZATION_ID%TYPE ,
1783: cp_location_id JAI_RGM_ORG_REGNS_V.LOCATION_ID%TYPE
1784: )
1787: attribute_value
1788: FROM JAI_RGM_ORG_REGNS_V orrg
1789: WHERE orrg.organization_id = cp_organization_id
1790: AND orrg.location_id = cp_location_id
1791: AND attribute_type_code = jai_constants.rgm_attr_type_code_primary
1792: AND attribute_code = jai_constants.attr_code_regn_no
1793: AND regime_code = jai_constants.vat_regime;
1794:
1795: CURSOR cur_chk_vat_proc_entry (cp_delivery_id JAI_OM_WSH_LINES_ALL.DELIVERY_ID%TYPE)
1788: FROM JAI_RGM_ORG_REGNS_V orrg
1789: WHERE orrg.organization_id = cp_organization_id
1790: AND orrg.location_id = cp_location_id
1791: AND attribute_type_code = jai_constants.rgm_attr_type_code_primary
1792: AND attribute_code = jai_constants.attr_code_regn_no
1793: AND regime_code = jai_constants.vat_regime;
1794:
1795: CURSOR cur_chk_vat_proc_entry (cp_delivery_id JAI_OM_WSH_LINES_ALL.DELIVERY_ID%TYPE)
1796: IS
1789: WHERE orrg.organization_id = cp_organization_id
1790: AND orrg.location_id = cp_location_id
1791: AND attribute_type_code = jai_constants.rgm_attr_type_code_primary
1792: AND attribute_code = jai_constants.attr_code_regn_no
1793: AND regime_code = jai_constants.vat_regime;
1794:
1795: CURSOR cur_chk_vat_proc_entry (cp_delivery_id JAI_OM_WSH_LINES_ALL.DELIVERY_ID%TYPE)
1796: IS
1797: SELECT 1
1822:
1823:
1824: /** Bgowrava for forward porting Bug#5631784 */
1825: ln_tcs_exists number;
1826: --lv_process_flag jai_constants.successful%type;
1827: ln_threshold_tax_cat_id jai_ap_tds_thhold_taxes.tax_category_id%type;
1828: ln_tcs_regime_id JAI_RGM_DEFINITIONS.regime_id%type;
1829: ln_threshold_slab_id jai_ap_tds_thhold_slabs.threshold_slab_id%type;
1830: ln_last_line_no number;
1862: l_func_curr_det jai_plsql_cache_pkg.func_curr_details;
1863:
1864:
1865: BEGIN
1866: pv_return_code := jai_constants.successful ;
1867: /*------------------------------------------------------------------------------------------
1868: FILENAME: JA_IN_WSH_DLRY_DTLS_AU_TRG.sql CHANGE HISTORY:
1869: SlNo. DD/MM/YYYY Author and Details of Modifications
1870: ------------------------------------------------------------------------------------------
2295: v_tax_amt := 0;
2296: v_base_tax_amt := 0;
2297: v_func_tax_amt := 0;
2298: counter :=0;
2299: v_debug_flag := jai_constants.no;
2300: v_conversion_rate := 0;
2301: v_matched_qty := 0;
2302: v_lc_shipped_qty := pr_new.Shipped_quantity;
2303:
2303:
2304:
2305: IF v_debug_flag ='Y' THEN
2306: BEGIN
2307: pv_return_code := jai_constants.successful ;
2308: SELECT DECODE(SUBSTR (value,1,INSTR(value,',') -1),NULL,
2309: Value,SUBSTR (value,1,INSTR(value,',') -1))
2310: INTO v_utl_location
2311: FROM v$parameter
2442: FETCH matched_receipt_cur1 INTO v_matched_qty;
2443: CLOSE matched_receipt_cur1;
2444: IF NVL(v_shipped_quantity,0) <> NVL(v_matched_qty,0) THEN
2445: /* RAISE_APPLICATION_ERROR(-20401, 'Matched Quantity -- ' || TO_CHAR(NVL(v_matched_qty,0)) ||
2446: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_shipped_quantity,0))); */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Matched Quantity -- ' || TO_CHAR(NVL(v_matched_qty,0)) ||
2447: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_shipped_quantity,0)) ; return ;
2448:
2449: END IF;
2450: END IF;
2463: CLOSE C_MATCHED_QTY_CUR;
2464: IF NVL(v_lc_qty_matched,-999) <> NVL(v_lc_shipped_qty,-888) THEN
2465: RAISE_APPLICATION_ERROR(-20120, 'LC Matched Quantity -- ' || TO_CHAR(NVL(v_lc_qty_matched,0)) ||
2466: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_lc_shipped_qty,0)) || ' for LC enabled Orders');
2467: pv_return_code := jai_constants.expected_error ; pv_return_message := 'LC Matched Quantity -- ' || TO_CHAR(NVL(v_lc_qty_matched,0)) ||
2468: ' should be equal to Shipped Quantity -- ' || TO_CHAR(NVL(v_lc_shipped_qty,0)) || ' for LC enabled Orders' ; return ;
2469: END IF;
2470:
2471: --Start, bug#5680459 csahoo
2766: */
2767:
2768: ln_tcs_exists := 0; --kunkumar for bug#5604375 and 6066750
2769: /* jai_cmn_debug_contexts_pkg.print (ln_reg_id, 'Checking if TCS type of tax exists?'); */ --commented by bgowrava for bug#5631784
2770: open c_chk_rgm_tax_exists ( cp_regime_code => jai_constants.tcs_regime
2771: , cp_delivery_detail_id => v_delivery_detail_id
2772: );
2773: fetch c_chk_rgm_tax_exists into ln_tcs_exists;
2774: close c_chk_rgm_tax_exists ;
2777: if nvl(ln_tcs_exists,0) >0 then --kunkumar for bug#5604375 and 6066750
2778: /* TCS type of tax is present */
2779: fnd_file.put_line(FND_FILE.LOG,'Localization' );
2780:
2781: open c_get_regime_id (cp_regime_code => jai_constants.tcs_regime);
2782: fetch c_get_regime_id into ln_tcs_regime_id;
2783: close c_get_regime_id;
2784: /* Find out what is the current slab */
2785: /* jai_cmn_debug_contexts_pkg.print (ln_reg_id, 'Get threshold_slab_id. Before calling JAI_RGM_THHOLD_PROC_PKG.GET_THRESHOLD_SLAB_ID');*/ --commented by bgowrava for bug#5631784
2786: jai_rgm_thhold_proc_pkg.get_threshold_slab_id
2787: (
2788: p_regime_id => ln_tcs_regime_id
2789: , p_organization_id => v_organization_id
2790: , p_party_type => jai_constants.party_type_customer
2791: , p_party_id => v_customer_id
2792: , p_org_id => v_org_id
2793: , p_source_trx_date => v_date_confirmed
2794: , p_threshold_slab_id => ln_threshold_slab_id
2800: 'lv_process_flag =' ||lv_process_flag||chr(10)
2801: ||'lv_process_message =' ||lv_process_message
2802: ); */ --commented by bgowrava for bug#5631784
2803:
2804: if lv_process_flag <> jai_constants.successful then
2805: app_exception.raise_exception
2806: (exception_type => 'APP'
2807: ,exception_code => -20275
2808: ,exception_text => lv_process_message
2826: ||'lv_process_message =' ||lv_process_message
2827: ); */ --commented by bgowrava for bug#5631784
2828:
2829:
2830: if lv_process_flag <> jai_constants.successful then
2831: app_exception.raise_exception
2832: (exception_type => 'APP'
2833: ,exception_code => -20275
2834: ,exception_text => lv_process_message
2847: from JAI_OM_WSH_LINE_TAXES jsptl
2848: , JAI_CMN_TAXES_ALL jtc
2849: where jsptl.delivery_detail_id = v_delivery_detail_id
2850: and jsptl.tax_id = jtc.tax_id
2851: and jtc.tax_type = jai_constants.tax_type_tcs;
2852:
2853: /*
2854: ||Call the helper method to default surcharge taxes on top of the SO taxes using the tax category
2855: || The api jai_rgm_thhold_proc_pkg.default_thhold_taxes inserts lines as per the same specified in the TCS tax category
2864: jai_rgm_thhold_proc_pkg.default_thhold_taxes
2865: (
2866: p_source_trx_id => ''
2867: , p_source_trx_line_id => v_delivery_detail_id
2868: , p_source_event => jai_constants.source_ttype_delivery
2869: , p_action => jai_constants.default_taxes
2870: , p_threshold_tax_cat_id => ln_threshold_tax_cat_id
2871: , p_tax_base_line_number => ln_base_line_no
2872: , p_last_line_number => ln_last_line_no
2865: (
2866: p_source_trx_id => ''
2867: , p_source_trx_line_id => v_delivery_detail_id
2868: , p_source_event => jai_constants.source_ttype_delivery
2869: , p_action => jai_constants.default_taxes
2870: , p_threshold_tax_cat_id => ln_threshold_tax_cat_id
2871: , p_tax_base_line_number => ln_base_line_no
2872: , p_last_line_number => ln_last_line_no
2873: , p_currency_code => v_currency_code
2887: ,'lv_process_flag =' ||lv_process_flag||chr(10)
2888: ||'lv_process_message =' ||lv_process_message
2889: ); */ --commented by bgowrava for bug#5631784
2890:
2891: if lv_process_flag <> jai_constants.successful then
2892: app_exception.raise_exception
2893: (exception_type => 'APP'
2894: ,exception_code => -20275
2895: ,exception_text => lv_process_message
3128: /*
3129: || VAT invoice number should be punched as 'NA' and accounting should happen
3130: || when 'VAT REVERSAL' type of tax exist and 'VAT' type of tax(es) doesn't exist
3131: */
3132: lv_vat_invoice_no := jai_constants.not_applicable ;
3133: lv_vat_inv_gen_status := 'C' ;
3134: END IF ;
3135:
3136: /*
3190: null , -- program_id
3191: null , -- program_update_date
3192: ln_bill_to_cust_id , --added for bug#8731696
3193: v_bill_to_org_id , --added for bug#8731696
3194: jai_constants.party_type_customer,
3195: v_creation_date ,
3196: v_created_by ,
3197: v_last_update_date ,
3198: v_last_update_login ,
3248: /* jai_cmn_debug_contexts_pkg.print ( pn_reg_id => ln_reg_id ,
3249: pv_log_msg => ' Returned from jai_ar_tcs_rep_pkg.wsh_interim_accounting '
3250: ); */ --commented by bgowrava for bug#5631784
3251:
3252: IF lv_process_flag = jai_constants.expected_error OR ---------A2
3253: lv_process_flag = jai_constants.unexpected_error
3254: THEN
3255: /*
3256: || As Returned status is an error/not applicable hence:-
3249: pv_log_msg => ' Returned from jai_ar_tcs_rep_pkg.wsh_interim_accounting '
3250: ); */ --commented by bgowrava for bug#5631784
3251:
3252: IF lv_process_flag = jai_constants.expected_error OR ---------A2
3253: lv_process_flag = jai_constants.unexpected_error
3254: THEN
3255: /*
3256: || As Returned status is an error/not applicable hence:-
3257: || Set out variables p_process_flag and p_process_message accordingly
3531:
3532: -- added logic to check if the register validity is ok
3533: IF nvl(v_reg_exp_date,sysdate) < sysdate then
3534: /* RAISE_APPLICATION_ERROR(-20122, 'Bonded Register Validity has Expired on ' || v_reg_exp_date);
3535: */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Bonded Register Validity has Expired on ' || v_reg_exp_date ; return ;
3536: end if;
3537: -- added the letter of undertaking comparison in the following if.
3538: -- logic is : to check if it is a letter of undertaking and only then if balance is a problem , raise an error
3539: v_tot_excise_amt := v_tot_excise_amt * v_curr_conv_rate; /* ssumaith - bug#6487667*/
3539: v_tot_excise_amt := v_tot_excise_amt * v_curr_conv_rate; /* ssumaith - bug#6487667*/
3540: IF NVL(v_register_balance,0) < NVL(v_tot_excise_amt,0) and nvl(v_lou_flag,'N') = 'N' THEN
3541: /* RAISE_APPLICATION_ERROR(-20120, 'Bonded Register Has Balance -> '
3542: || TO_CHAR(v_register_balance) || ' ,which IS less than Excisable Amount -> '
3543: || TO_CHAR(v_tot_excise_amt)); */ pv_return_code := jai_constants.expected_error ; pv_return_message := 'Bonded Register Has Balance -> '|| TO_CHAR(v_register_balance) || ' ,which IS less than Excisable Amount -> '
3544: || TO_CHAR(v_tot_excise_amt) ; return ;
3545: END IF;
3546: END IF;
3547: END IF;
3550: -- end
3551: ---------------------------------------------------------------------------------------
3552: Exception
3553: When Others then
3554: /* raise_application_error (-20001,substr(sqlerrm,1,200)); */ pv_return_code := jai_constants.expected_error ; pv_return_message := substr(sqlerrm,1,200) ; return ;
3555:
3556: END ARU_T3 ;
3557:
3558: PROCEDURE ARU_T4 ( pr_old t_rec%type , pr_new t_rec%type , pv_action varchar2 , pv_return_code out nocopy varchar2 , pv_return_message out nocopy varchar2 ) IS
3571: ln_cnt NUMBER;
3572:
3573:
3574: BEGIN
3575: pv_return_code := jai_constants.successful ;
3576:
3577:
3578: OPEN c_check_lc_order;
3579: FETCH c_check_lc_order INTO v_check_lc_order;