[Home] [Help]
PACKAGE BODY: APPS.JL_JLARPCFF_XMLP_PKG
Source
1 PACKAGE BODY JL_JLARPCFF_XMLP_PKG AS
2 /* $Header: JLARPCFFB.pls 120.2 2008/01/11 07:51:42 abraghun noship $ */
3 PROCEDURE GET_BASE_CURR_DATA IS
4 BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
5 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8 ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
9 BEGIN
10 BASE_CURR := '';
11 PREC := 0;
12 MIN_AU := 0;
13 DESCR := '';
14 ORG_NAME := '';
15 BEGIN
16 SELECT
17 FCURR.CURRENCY_CODE,
18 FCURR.PRECISION,
19 FCURR.MINIMUM_ACCOUNTABLE_UNIT,
20 FCURR.DESCRIPTION
21 INTO BASE_CURR,PREC,MIN_AU,DESCR
22 FROM
23 AP_SYSTEM_PARAMETERS ASP,
24 FND_CURRENCIES_VL FCURR
25 WHERE ASP.BASE_CURRENCY_CODE = FCURR.CURRENCY_CODE;
26 EXCEPTION
27 WHEN NO_DATA_FOUND THEN
28 RAISE_ERR('200XX'
29 ,'JL_AR_FA_CURR_DET_NOT_DEFINED');
30 WHEN OTHERS THEN
31 RAISE_ORA_ERR('200XX');
32 END;
33 C_BASE_CURRENCY_CODE := BASE_CURR;
34 C_BASE_PRECISION := PREC;
35 C_BASE_MIN_ACCT_UNIT := MIN_AU;
36 C_BASE_DESCRIPTION := DESCR;
37 C_ORGANISATION_NAME := ORG_NAME;
38 END GET_BASE_CURR_DATA;
39
40 FUNCTION AFTERREPORT RETURN BOOLEAN IS
41 BEGIN
42 BEGIN
43 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
44 EXCEPTION
45 WHEN OTHERS THEN
46 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
47 END;
48 RETURN (TRUE);
49 END AFTERREPORT;
50
51 PROCEDURE RAISE_ORA_ERR(ERRNO IN VARCHAR2) IS
52 ERRMSG VARCHAR2(1000);
53 BEGIN
54 ERRMSG := SQLERRM;
55 /*SRW.MESSAGE(ERRNO
56 ,ERRMSG)*/NULL;
57 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
58 END RAISE_ORA_ERR;
59
60 PROCEDURE RAISE_ERR(ERRNO IN VARCHAR2
61 ,MSGNAME IN VARCHAR2) IS
62 ERRMSG VARCHAR2(1000);
63 BEGIN
64 FND_MESSAGE.SET_NAME('JL'
65 ,MSGNAME);
66 ERRMSG := FND_MESSAGE.GET;
67 /*SRW.MESSAGE(ERRNO
68 ,ERRMSG)*/NULL;
69 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
70 END RAISE_ERR;
71
72 FUNCTION CF_ACC_DATEFORMULA(INVOICE_ID IN NUMBER
73 ,TAX_RATE_ID IN NUMBER) RETURN DATE IS
74 L_ACCOUNTING_DATE DATE;
75 L_REVERSAL_FLAG VARCHAR2(1);
76 CURSOR ACC_DATE IS
77 SELECT
78 AID.ACCOUNTING_DATE,
79 AID.REVERSAL_FLAG
80 FROM
81 AP_INVOICE_DISTRIBUTIONS_ALL AID
82 WHERE AID.INVOICE_ID = CF_ACC_DATEFORMULA.INVOICE_ID
83 AND AID.TAX_CODE_ID = TAX_RATE_ID
84 AND AID.LINE_TYPE_LOOKUP_CODE in ( 'NONREC_TAX' , 'REC_TAX' )
85 ORDER BY
86 AID.ACCOUNTING_DATE;
87 BEGIN
88 FOR date_rec IN ACC_DATE LOOP
89 IF NVL(DATE_REC.REVERSAL_FLAG
90 ,'N') = 'N' THEN
91 L_ACCOUNTING_DATE := DATE_REC.ACCOUNTING_DATE;
92 EXIT;
93 END IF;
94 END LOOP;
95 /*SRW.MESSAGE('1'
96 ,'Accounting Date is :' || TO_CHAR(L_ACCOUNTING_DATE
97 ,'dd-mon-yyyy'))*/NULL;
98 RETURN (L_ACCOUNTING_DATE);
99 END CF_ACC_DATEFORMULA;
100
101 FUNCTION CF_CITI_RECFORMULA(CF_ACC_DATE IN DATE
102 ,CF_TAX_AMOUNT IN NUMBER
103 ,DOCUMENT_TYPE IN VARCHAR2
104 ,DOCUMENT_NUM IN VARCHAR2
105 ,DOCUMENT_DATE IN DATE
106 ,CUIT_NUMBER IN VARCHAR2
107 ,SUP_NAME IN VARCHAR2) RETURN CHAR IS
108 L_CITI_REC VARCHAR2(130);
109 L_DEC VARCHAR2(10);
110 AMT_WITH_DEC VARCHAR2(12);
111 L_CHAR_TAX_AMOUNT VARCHAR2(12);
112 L_DEC_PART VARCHAR2(10);
113 L_INT_PART VARCHAR2(12);
114 L NUMBER;
115 L_THIRD_CUIT VARCHAR2(11);
116 L_THIRD_NAME VARCHAR2(25);
117 L_VAT_FEES VARCHAR2(12);
118 BEGIN
119 IF CF_ACC_DATE IS NULL THEN
120 RETURN 'no_rec';
121 END IF;
122 L_CHAR_TAX_AMOUNT := LPAD(REPLACE(LTRIM(RTRIM(TO_CHAR(CF_TAX_AMOUNT
123 ,'9999999990.00')))
124 ,'.'
125 ,'')
126 ,12
127 ,'0');
128 L_THIRD_CUIT := LPAD('0'
129 ,11
130 ,'0');
131 L_THIRD_NAME := LPAD(' '
132 ,25
133 ,' ');
134 L_VAT_FEES := LPAD('0'
135 ,12
136 ,'0');
137 /*SRW.MESSAGE('90'
138 ,'Tax amonunt' || TO_CHAR(CF_TAX_AMOUNT))*/NULL;
139 IF CF_ACC_DATE >= P_START_DATE AND CF_ACC_DATE <= P_END_DATE AND CF_TAX_AMOUNT > 0 THEN
140 L_CITI_REC := DOCUMENT_TYPE || DOCUMENT_NUM || TO_CHAR(DOCUMENT_DATE
141 ,'DDMMYYYY') || CUIT_NUMBER || SUP_NAME || L_CHAR_TAX_AMOUNT || L_THIRD_CUIT || L_THIRD_NAME || L_VAT_FEES;
142 ELSE
143 L_CITI_REC := 'no_rec';
144 END IF;
145 RETURN (L_CITI_REC);
146 END CF_CITI_RECFORMULA;
147
148 FUNCTION CF_TAX_AMOUNTFORMULA(TAX_AMOUNT IN NUMBER) RETURN NUMBER IS
149 L_TAX_AMOUNT NUMBER;
150 BEGIN
151 L_TAX_AMOUNT := TAX_AMOUNT;
152 RETURN (L_TAX_AMOUNT);
153 EXCEPTION
154 WHEN VALUE_ERROR THEN
155 NULL;
156 END CF_TAX_AMOUNTFORMULA;
157
158 FUNCTION CF_SPACEFORMULA RETURN VARCHAR2 IS
159 BEGIN
160 RETURN (' ');
161 END CF_SPACEFORMULA;
162
163 FUNCTION POPULATE_TRL RETURN BOOLEAN IS
164 BEGIN
165 /*SRW.MESSAGE('01'
166 ,'Call to TRL API : zx_extract_pkg.populate_tax_data')*/NULL;
167 ZX_EXTRACT_PKG.POPULATE_TAX_DATA(P_REPORTING_LEVEL => P_REPORTING_LEVEL
168 ,P_REPORTING_CONTEXT => P_REPORTING_ENTITY_ID
169 ,P_LEGAL_ENTITY_ID => P_LEGAL_ENTITY_ID
170 ,P_SUMMARY_LEVEL => 'TRANSACTION'
171 ,P_LEDGER_ID => P_SET_OF_BOOKS_ID
172 ,P_REGISTER_TYPE => 'TAX'
173 ,P_PRODUCT => 'AP'
174 ,P_MATRIX_REPORT => 'N'
175 ,P_CURRENCY_CODE_LOW => NULL
176 ,P_CURRENCY_CODE_HIGH => NULL
177 ,P_INCLUDE_AP_STD_TRX_CLASS => 'Y'
178 ,P_INCLUDE_AP_DM_TRX_CLASS => 'Y'
179 ,P_INCLUDE_AP_CM_TRX_CLASS => 'N'
180 ,P_INCLUDE_AP_PREP_TRX_CLASS => 'Y'
181 ,P_INCLUDE_AP_MIX_TRX_CLASS => 'N'
182 ,P_INCLUDE_AP_EXP_TRX_CLASS => 'N'
183 ,P_INCLUDE_AP_INT_TRX_CLASS => 'N'
184 ,P_INCLUDE_AR_INV_TRX_CLASS => 'N'
185 ,P_INCLUDE_AR_APPL_TRX_CLASS => 'N'
186 ,P_INCLUDE_AR_ADJ_TRX_CLASS => 'N'
187 ,P_INCLUDE_AR_MISC_TRX_CLASS => 'N'
188 ,P_INCLUDE_AR_BR_TRX_CLASS => 'N'
189 ,P_INCLUDE_GL_MANUAL_LINES => 'N'
190 ,P_TRX_NUMBER_LOW => NULL
191 ,P_TRX_NUMBER_HIGH => NULL
192 ,P_EXTRACT_REPORT_LINE_NUMBER => NULL
193 ,P_AR_TRX_PRINTING_STATUS => NULL
194 ,P_AR_EXEMPTION_STATUS => NULL
195 ,P_GL_DATE_LOW => NULL
196 ,P_GL_DATE_HIGH => NULL
197 ,P_TRX_DATE_LOW => P_START_DATE
198 ,P_TRX_DATE_HIGH => P_END_DATE
199 ,P_ACCOUNTING_STATUS => 'ACCOUNTED'
200 ,P_GL_PERIOD_NAME_LOW => NULL
201 ,P_GL_PERIOD_NAME_HIGH => NULL
202 ,P_TRX_DATE_PERIOD_NAME_LOW => NULL
203 ,P_TRX_DATE_PERIOD_NAME_HIGH => NULL
204 ,P_TAX_REGIME_CODE => NULL
205 ,P_TAX => NULL
206 ,P_TAX_STATUS_CODE => NULL
207 ,P_TAX_RATE_CODE_LOW => NULL
208 ,P_TAX_RATE_CODE_HIGH => NULL
209 ,P_TAX_TYPE_CODE_LOW => P_TAX_TYPE
210 ,P_TAX_TYPE_CODE_HIGH => P_TAX_TYPE
211 ,P_DOCUMENT_SUB_TYPE => NULL
212 ,P_TRX_BUSINESS_CATEGORY => NULL
213 ,P_TAX_INVOICE_DATE_LOW => NULL
214 ,P_TAX_INVOICE_DATE_HIGH => NULL
215 ,P_POSTING_STATUS => NULL
216 ,P_EXTRACT_ACCTED_TAX_LINES => NULL
217 ,P_INCLUDE_ACCOUNTING_SEGMENTS => NULL
218 ,P_BALANCING_SEGMENT_LOW => NULL
219 ,P_BALANCING_SEGMENT_HIGH => NULL
220 ,P_INCLUDE_DISCOUNTS => NULL
221 ,P_EXTRACT_STARTING_LINE_NUM => NULL
222 ,P_REQUEST_ID => P_CONC_REQUEST_ID
223 ,P_REPORT_NAME => 'JLARPCFF'
224 ,P_VAT_TRANSACTION_TYPE_CODE => NULL
225 ,P_INCLUDE_FULLY_NR_TAX_FLAG => 'Y'
226 ,P_MUNICIPAL_TAX_TYPE_CODE_LOW => NULL
227 ,P_MUNICIPAL_TAX_TYPE_CODE_HIGH => NULL
228 ,P_PROV_TAX_TYPE_CODE_LOW => NULL
229 ,P_PROV_TAX_TYPE_CODE_HIGH => NULL
230 ,P_EXCISE_TAX_TYPE_CODE_LOW => NULL
231 ,P_EXCISE_TAX_TYPE_CODE_HIGH => NULL
232 ,P_NON_TAXABLE_TAX_TYPE_CODE => NULL
233 ,P_PER_TAX_TYPE_CODE_LOW => NULL
234 ,P_PER_TAX_TYPE_CODE_HIGH => NULL
235 ,P_VAT_TAX_TYPE_CODE => NULL
236 ,P_EXCISE_TAX => NULL
237 ,P_VAT_ADDITIONAL_TAX => NULL
238 ,P_VAT_NON_TAXABLE_TAX => NULL
239 ,P_VAT_NOT_TAX => NULL
240 ,P_VAT_PERCEPTION_TAX => NULL
241 ,P_VAT_TAX => P_TAX_TYPE
242 ,P_INC_SELF_WD_TAX => NULL
243 ,P_EXCLUDING_TRX_LETTER => NULL
244 ,P_TRX_LETTER_LOW => P_TRANSACTION_LETTER_FROM
245 ,P_TRX_LETTER_HIGH => P_TRANSACTION_LETTER_TO
246 ,P_INCLUDE_REFERENCED_SOURCE => NULL
247 ,P_PARTY_NAME => NULL
248 ,P_BATCH_NAME => NULL
249 ,P_BATCH_DATE_LOW => NULL
250 ,P_BATCH_DATE_HIGH => NULL
251 ,P_BATCH_SOURCE_ID => NULL
252 ,P_ADJUSTED_DOC_FROM => NULL
253 ,P_ADJUSTED_DOC_TO => NULL
254 ,P_STANDARD_VAT_TAX_RATE => NULL
255 ,P_MUNICIPAL_TAX => NULL
256 ,P_PROVINCIAL_TAX => NULL
257 ,P_TAX_ACCOUNT_LOW => NULL
258 ,P_TAX_ACCOUNT_HIGH => NULL
259 ,P_EXP_CERT_DATE_FROM => NULL
260 ,P_EXP_CERT_DATE_TO => NULL
261 ,P_EXP_METHOD => NULL
262 ,P_PRINT_COMPANY_INFO => 'Y'
263 ,P_REPRINT => 'N'
264 ,P_ERRBUF => P_ERRBUF
265 ,P_RETCODE => P_RETCODE);
266 IF P_RETCODE <> 0 THEN
267 /*SRW.MESSAGE('100'
268 ,'TRL: Return Code : ' || P_RETCODE)*/NULL;
269 /*SRW.MESSAGE('101'
270 ,'TRL: Error Buffer : ' || P_ERRBUF)*/NULL;
271 RETURN (FALSE);
272 ELSE
273 RETURN (TRUE);
274 END IF;
275 EXCEPTION
276 WHEN OTHERS THEN
277 /*SRW.MESSAGE('102'
278 ,SQLERRM)*/NULL;
279 RETURN (FALSE);
280 END POPULATE_TRL;
281
282 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
283 BEGIN
284 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
285 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
286 IF POPULATE_TRL <> TRUE THEN
287 NULL;
288 END IF;
289 RETURN (TRUE);
290 END BEFOREREPORT;
291
295 END C_ORGANISATION_NAME_P;
292 FUNCTION C_ORGANISATION_NAME_P RETURN VARCHAR2 IS
293 BEGIN
294 RETURN C_ORGANISATION_NAME;
296
297 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
298 BEGIN
299 RETURN C_BASE_MIN_ACCT_UNIT;
300 END C_BASE_MIN_ACCT_UNIT_P;
301
302 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
303 BEGIN
304 RETURN C_BASE_CURRENCY_CODE;
305 END C_BASE_CURRENCY_CODE_P;
306
307 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
308 BEGIN
309 RETURN C_BASE_PRECISION;
310 END C_BASE_PRECISION_P;
311
312 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
313 BEGIN
314 RETURN C_BASE_DESCRIPTION;
315 END C_BASE_DESCRIPTION_P;
316
317 END JL_JLARPCFF_XMLP_PKG;
318
319