[Home] [Help]
PACKAGE BODY: APPS.JA_JAINMCENCG_EXC_XMLP_PKG
Source
1 PACKAGE BODY JA_JAINMCENCG_EXC_XMLP_PKG AS
2 /* $Header: JAINMCENCG_EXCB.pls 120.1 2007/12/25 16:22:52 dwkrishn noship $ */
3 /* $Header: JAINMCENCG_EXCB.pls 120.1 2007/12/25 16:22:52 dwkrishn noship $ */
4 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
5 CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
6 SELECT
7 CONCURRENT_PROGRAM_ID,
8 NVL(ENABLE_TRACE
9 ,'N')
10 FROM
11 FND_CONCURRENT_REQUESTS
12 WHERE REQUEST_ID = P_REQUEST_ID;
13 V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
14 V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
15 BEGIN
16 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
18 /*SRW.MESSAGE(1275
19 ,'Report Version is 120.2 Last modified date is 25/07/2005')*/NULL;
20 BEGIN
21 OPEN C_PROGRAM_ID(P_CONC_REQUEST_ID);
22 FETCH C_PROGRAM_ID
23 INTO V_PROGRAM_ID,V_ENABLE_TRACE;
24 CLOSE C_PROGRAM_ID;
25 /*SRW.MESSAGE(1275
26 ,'v_program_id -> ' || V_PROGRAM_ID || ', v_enable_trace -> ' || V_ENABLE_TRACE || ', request_id -> ' || P_CONC_REQUEST_ID)*/NULL;
27 IF V_ENABLE_TRACE = 'Y' THEN
28 EXECUTE IMMEDIATE
29 'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
30 END IF;
31 EXCEPTION
32 WHEN OTHERS THEN
33 /*SRW.MESSAGE(1275
34 ,'Error during enabling the trace. ErrCode -> ' || SQLCODE || ', ErrMesg -> ' || SQLERRM)*/NULL;
35 END;
36 FOR ORG_REC IN (SELECT
37 ORGANIZATION_NAME
38 FROM
39 ORG_ORGANIZATION_DEFINITIONS
40 WHERE ORGANIZATION_ID = P_ORGANIZATION_ID) LOOP
41 P_ORGANIZATION_NAME := ORG_REC.ORGANIZATION_NAME;
42 END LOOP;
43 FOR LOC_REC IN (SELECT
44 DESCRIPTION,
45 ADDRESS_LINE_1,
46 ADDRESS_LINE_2,
47 ADDRESS_LINE_3
48 FROM
49 HR_LOCATIONS
50 WHERE LOCATION_ID = P_LOCATION_ID) LOOP
51 P_DESCRIPTION := LOC_REC.DESCRIPTION;
52 P_ADDRESS_LINE_1 := LOC_REC.ADDRESS_LINE_1;
53 P_ADDRESS_LINE_2 := LOC_REC.ADDRESS_LINE_2;
54 P_ADDRESS_LINE_3 := LOC_REC.ADDRESS_LINE_3;
55 END LOOP;
56 FOR EC_REC IN (SELECT
57 EC_CODE,
58 EXCISE_DUTY_COMM,
59 EXCISE_DUTY_RANGE,
60 EXCISE_DUTY_DIVISION,
61 EXCISE_DUTY_CIRCLE
62 FROM
63 JAI_CMN_INVENTORY_ORGS
64 WHERE ORGANIZATION_ID = P_ORGANIZATION_ID
65 AND LOCATION_ID = P_LOCATION_ID) LOOP
66 P_EC_CODE := (EC_REC.EC_CODE);
67 P_COLLECT := (EC_REC.EXCISE_DUTY_COMM);
68 P_RANGE := (EC_REC.EXCISE_DUTY_RANGE);
69 P_DIVISION := (EC_REC.EXCISE_DUTY_DIVISION);
70 P_CIRCLE := (EC_REC.EXCISE_DUTY_CIRCLE);
71 END LOOP;
72 RETURN (TRUE);
73 END BEFOREREPORT;
74
75 FUNCTION CF_ASSESABLEVALUEFORMULA(RECEIPT_ID IN VARCHAR2) RETURN NUMBER IS
76 VAMT1 NUMBER := 0;
77 LV_TAX_TYPE_EXCISE CONSTANT VARCHAR2(15) DEFAULT 'EXCISE';
78 LV_TAX_TYPE_EXC_ADDITIONAL CONSTANT VARCHAR2(15) DEFAULT 'ADDL. EXCISE';
79 LV_TAX_TYPE_EXC_OTHER CONSTANT VARCHAR2(15) DEFAULT 'OTHER EXCISE';
80 LV_TAX_TYPE_CVD CONSTANT VARCHAR2(15) DEFAULT 'CVD';
81 LV_TAX_TYPE_EXC_EDU_CESS CONSTANT VARCHAR2(30) DEFAULT 'EXCISE_EDUCATION_CESS';
82 LV_TAX_TYPE_CVD_EDU_CESS CONSTANT VARCHAR2(30) DEFAULT 'CVD_EDUCATION_CESS';
83 BEGIN
84 IF RECEIPT_ID IS NOT NULL THEN
85 FOR c1 IN (SELECT
86 RTL.TAX_AMOUNT,
87 RTL.TAX_RATE TR,
88 RT.SHIPMENT_LINE_ID,
89 RTL.TAX_TYPE
90 FROM
91 RCV_TRANSACTIONS RT,
92 JAI_RCV_LINE_TAXES RTL,
93 JAI_CMN_TAXES_ALL JTC
94 WHERE RT.TRANSACTION_ID = TO_NUMBER(RECEIPT_ID)
95 AND JTC.TAX_ID = RTL.TAX_ID
96 AND RT.SHIPMENT_LINE_ID = RTL.SHIPMENT_LINE_ID
97 AND NVL(RTL.TAX_AMOUNT
98 ,0) <> 0
99 AND NVL(JTC.TAX_RATE
100 ,0) <> 0
101 AND NVL(RTL.MODVAT_FLAG
102 ,'N') = 'Y'
103 AND UPPER(RTL.TAX_TYPE) in ( LV_TAX_TYPE_EXCISE , LV_TAX_TYPE_EXC_ADDITIONAL , LV_TAX_TYPE_EXC_OTHER , LV_TAX_TYPE_CVD , LV_TAX_TYPE_EXC_EDU_CESS , LV_TAX_TYPE_CVD_EDU_CESS )
104 AND NVL(JTC.MOD_CR_PERCENTAGE
105 ,0) <> 0
106 AND ROWNUM = 1) LOOP
107 VAMT1 := (C1.TAX_AMOUNT * 100) / C1.TR;
108 END LOOP;
109 END IF;
110 RETURN (VAMT1);
111 END CF_ASSESABLEVALUEFORMULA;
112
113 FUNCTION CF_QTYFORMULAFORMULA(RECEIPT_ID IN VARCHAR2
114 ,REGISTER_ID IN NUMBER) RETURN NUMBER IS
115 V_QTY NUMBER;
116 BEGIN
117 IF RECEIPT_ID IS NOT NULL THEN
118 FOR qty_rec IN (SELECT
119 PRIMARY_QUANTITY
120 FROM
121 RCV_TRANSACTIONS
122 WHERE TRANSACTION_ID = TO_NUMBER(CF_QTYFORMULAFORMULA.RECEIPT_ID)) LOOP
123 V_QTY := QTY_REC.PRIMARY_QUANTITY;
124 END LOOP;
125 ELSE
126 FOR qty_rec IN (SELECT
127 ( CLOSING_BALANCE_QTY - OPENING_BALANCE_QTY ) QTY
128 FROM
129 JAI_CMN_RG_23AC_I_TRXS
130 WHERE REGISTER_ID_PART_II = CF_QTYFORMULAFORMULA.REGISTER_ID) LOOP
131 V_QTY := QTY_REC.QTY;
132 END LOOP;
133 END IF;
134 RETURN (V_QTY);
135 END CF_QTYFORMULAFORMULA;
136
137 FUNCTION AFTERREPORT RETURN BOOLEAN IS
138 BEGIN
139 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
140 RETURN (TRUE);
141 END AFTERREPORT;
142
143 END JA_JAINMCENCG_EXC_XMLP_PKG;
144
145