50:
51: PROCEDURE message(p_message IN VARCHAR2)
52: AS
53: BEGIN
54: fnd_file.put_line(fnd_file.log,p_message);
55: END message;
56:
57: FUNCTION beforeReport RETURN BOOLEAN
58: -- +======================================================================+
159: NO_TRANS_RECORDS EXCEPTION;
160: BEGIN
161: -- Call to Common Package
162: IF p_debug_flag = 'Y' THEN
163: fnd_file.put_line(fnd_file.log,'Executing jg_zz_turnover_ar_pkg.before_report');
164: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.funct_curr_legal');
165: END IF;
166: BEGIN
167: jg_zz_common_pkg.funct_curr_legal(x_func_curr_code => l_func_curr
160: BEGIN
161: -- Call to Common Package
162: IF p_debug_flag = 'Y' THEN
163: fnd_file.put_line(fnd_file.log,'Executing jg_zz_turnover_ar_pkg.before_report');
164: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.funct_curr_legal');
165: END IF;
166: BEGIN
167: jg_zz_common_pkg.funct_curr_legal(x_func_curr_code => l_func_curr
168: ,x_rep_entity_name => l_legal_entity_name
171: ,pn_vat_rep_entity_id => p_vat_rep_entity_id
172: ,pn_period_year => p_period);
173: EXCEPTION
174: WHEN OTHERS THEN
175: fnd_file.put_line(fnd_file.log,'Executing jg_zz_common_pkg.funct_curr_legal failed with Error: '||SUBSTR(SQLERRM,1,200));
176: END;
177: IF p_debug_flag = 'Y' THEN
178: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.tax_registration');
179: END IF;
174: WHEN OTHERS THEN
175: fnd_file.put_line(fnd_file.log,'Executing jg_zz_common_pkg.funct_curr_legal failed with Error: '||SUBSTR(SQLERRM,1,200));
176: END;
177: IF p_debug_flag = 'Y' THEN
178: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.tax_registration');
179: END IF;
180: BEGIN
181: jg_zz_common_pkg.tax_registration(x_tax_registration => l_tax_registration_num
182: ,x_period_start_date => l_period_start_date
187: ,pn_period_year => p_period /*5223170*/
188: ,pv_source => 'ALL');
189: EXCEPTION
190: WHEN OTHERS THEN
191: fnd_file.put_line(fnd_file.log,'Executing jg_zz_common_pkg.tax_registration failed with Error: '||SUBSTR(SQLERRM,1,200));
192: END;
193:
194:
195: IF p_debug_flag = 'Y' THEN
192: END;
193:
194:
195: IF p_debug_flag = 'Y' THEN
196: fnd_file.put_line(fnd_file.log,'Calling jg_zz_vat_rep_utlity.get_report_status');
197: END IF;
198: BEGIN
199: l_reporting_status := jg_zz_vat_rep_utility.get_period_status
200: (
205: pv_report_name => P_REPORT_NAME
206: );
207: EXCEPTION
208: WHEN OTHERS THEN
209: fnd_file.put_line(fnd_file.log,'Executing jg_zz_vat_rep_utility.get_report_status failed with Error: '||SUBSTR(SQLERRM,1,200));
210: END;
211:
212: IF p_debug_flag = 'Y' THEN
213: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.company_detail');
209: fnd_file.put_line(fnd_file.log,'Executing jg_zz_vat_rep_utility.get_report_status failed with Error: '||SUBSTR(SQLERRM,1,200));
210: END;
211:
212: IF p_debug_flag = 'Y' THEN
213: fnd_file.put_line(fnd_file.log,'Calling jg_zz_common_pkg.company_detail');
214: END IF;
215: BEGIN
216: jg_zz_common_pkg.company_detail(x_company_name => l_company_name
217: ,x_registration_number => l_registration_num
231: ,p_vat_reporting_entity_id => p_vat_rep_entity_id);
232:
233: EXCEPTION
234: WHEN OTHERS THEN
235: fnd_file.put_line(fnd_file.log,'Executing jg_zz_common_pkg.company_detail failed with Error: '||SUBSTR(SQLERRM,1,200));
236: END;
237: BEGIN
238: SELECT activity_code
239: INTO l_activity_code
240: FROM xle_entity_profiles
241: WHERE legal_entity_id = l_legal_entity_id;
242: EXCEPTION
243: WHEN NO_DATA_FOUND THEN
244: fnd_file.put_line(fnd_file.log,'Cannot find Activity Code (Standard Inductry Classification Code for Legal Entity:'||l_legal_entity_id);
245: WHEN OTHERS THEN
246: fnd_file.put_line(fnd_file.log,'Error While retrieving Activity Code for Legal Entity:'||l_legal_entity_id);
247: fnd_file.put_line(fnd_file.log,'Error Message :'||SUBSTR(SQLERRM,1,200));
248: END;
242: EXCEPTION
243: WHEN NO_DATA_FOUND THEN
244: fnd_file.put_line(fnd_file.log,'Cannot find Activity Code (Standard Inductry Classification Code for Legal Entity:'||l_legal_entity_id);
245: WHEN OTHERS THEN
246: fnd_file.put_line(fnd_file.log,'Error While retrieving Activity Code for Legal Entity:'||l_legal_entity_id);
247: fnd_file.put_line(fnd_file.log,'Error Message :'||SUBSTR(SQLERRM,1,200));
248: END;
249:
250:
243: WHEN NO_DATA_FOUND THEN
244: fnd_file.put_line(fnd_file.log,'Cannot find Activity Code (Standard Inductry Classification Code for Legal Entity:'||l_legal_entity_id);
245: WHEN OTHERS THEN
246: fnd_file.put_line(fnd_file.log,'Error While retrieving Activity Code for Legal Entity:'||l_legal_entity_id);
247: fnd_file.put_line(fnd_file.log,'Error Message :'||SUBSTR(SQLERRM,1,200));
248: END;
249:
250:
251: INSERT INTO jg_zz_vat_trx_gt
296: ,l_period_start_date
297: ,'H'
298: );
299: IF p_debug_flag = 'Y' THEN
300: fnd_file.put_line(fnd_file.log,'Legal Entity ID =>' || l_legal_entity_id);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
297: ,'H'
298: );
299: IF p_debug_flag = 'Y' THEN
300: fnd_file.put_line(fnd_file.log,'Legal Entity ID =>' || l_legal_entity_id);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
298: );
299: IF p_debug_flag = 'Y' THEN
300: fnd_file.put_line(fnd_file.log,'Legal Entity ID =>' || l_legal_entity_id);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
299: IF p_debug_flag = 'Y' THEN
300: fnd_file.put_line(fnd_file.log,'Legal Entity ID =>' || l_legal_entity_id);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
300: fnd_file.put_line(fnd_file.log,'Legal Entity ID =>' || l_legal_entity_id);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
301: fnd_file.put_line(fnd_file.log,'Company Name =>' || l_company_name);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
302: fnd_file.put_line(fnd_file.log,'Legal Entity Name =>' || l_company_name);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
303: fnd_file.put_line(fnd_file.log,'Regiatration Number =>' || l_registration_num);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
304: fnd_file.put_line(fnd_file.log,'Taxpayer ID =>' || l_registration_num);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
305: fnd_file.put_line(fnd_file.log,'Contact Name =>' || l_contact_name);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
306: fnd_file.put_line(fnd_file.log,'Address Line 1 =>' || l_address_line_1);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
307: fnd_file.put_line(fnd_file.log,' 2 =>' || l_address_line_2);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
308: fnd_file.put_line(fnd_file.log,' 3 =>' || l_address_line_3);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
309: fnd_file.put_line(fnd_file.log,' 4 =>' || l_address_line_4);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
317: fnd_file.put_line(fnd_file.log,' End Date =>' || l_period_end_date);
310: fnd_file.put_line(fnd_file.log,'City =>' || l_city);
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
317: fnd_file.put_line(fnd_file.log,' End Date =>' || l_period_end_date);
318: END IF;
311: fnd_file.put_line(fnd_file.log,'Country =>' || l_country);
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
317: fnd_file.put_line(fnd_file.log,' End Date =>' || l_period_end_date);
318: END IF;
319: IF P_REPORT_NAME = 'JEBEVADC' OR P_REPORT_NAME = 'JEBEVA24' THEN
312: fnd_file.put_line(fnd_file.log,'Telephone Number =>' || l_phone_number);
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
317: fnd_file.put_line(fnd_file.log,' End Date =>' || l_period_end_date);
318: END IF;
319: IF P_REPORT_NAME = 'JEBEVADC' OR P_REPORT_NAME = 'JEBEVA24' THEN
320:
313: fnd_file.put_line(fnd_file.log,'Postal Code =>' || l_postal_code);
314: fnd_file.put_line(fnd_file.log,'Currency Code =>' || l_func_curr);
315: fnd_file.put_line(fnd_file.log,'Reporting Status =>' || l_reporting_status);
316: fnd_file.put_line(fnd_file.log,'Period Start Date =>' || l_period_start_date);
317: fnd_file.put_line(fnd_file.log,' End Date =>' || l_period_end_date);
318: END IF;
319: IF P_REPORT_NAME = 'JEBEVADC' OR P_REPORT_NAME = 'JEBEVA24' THEN
320:
321: select precision
583: INTO l_vat_count
584: FROM jg_zz_vat_trx_gt
585: WHERE jg_info_v30 IS NULL;
586:
587: fnd_file.put_line(fnd_file.log,'Number of records inserted into jg_zz_vat_trx_gt: ' || l_vat_count);
588:
589: IF l_vat_count = 0 THEN
590: RAISE NO_TRANS_RECORDS;
591: END IF;