[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_RGRH_PKG
Source
1 PACKAGE BODY JG_ZZ_RGRH_PKG
2 -- $Header: jgzzrgrhb.pls 120.3 2008/01/21 10:56:47 spasupun ship $
3 AS
4
5 function BEFOREREPORT_006 return boolean is
6 org_id NUMBER;
7 site_id NUMBER;
8 x_return_status VARCHAR2(100);
9 x_msg_count NUMBER;
10 x_msg_data VARCHAR2(100);
11 x_registration_number VARCHAR2(100);
12 x_me_party_id number;
13 begin
14 org_id := MO_GLOBAL.get_current_org_id;
15
16 -- P_COUNTRY_CODE:= JG_ZZ_SHARED_PKG.GET_COUNTRY(org_id);
17 P_COUNTRY_CODE:= JG_ZZ_COMMON_PKG.get_legal_entity_country_code(P_LEGAL_ENTITY_ID);
18
19 IF (P_COUNTRY_CODE = 'IT') THEN
20 P_ADDRESS1 := 'substr(address_line_1,1,60)';
21 P_ADDRESS2 := 'nvl(substr(address_line_2,1,60),postal_code||'' ''||town_or_city||'' - ''||''Italy'')';
22 P_ADDRESS3 := 'decode(substr(address_line_2,1,60),null,null,postal_code||'' ''||town_or_city||''- ''||''Italy'')';
23 P_FISCAL_CODE := 'registration_number';
24 P_FISCAL_COMPANY_NAME := 'name';
25 BEGIN
26 SELECT etbp.party_id INTO x_me_party_id FROM XLE_ETB_PROFILES etbp
27 WHERE etbp.main_establishment_flag = 'Y'
28 AND etbp.legal_entity_id = P_LEGAL_ENTITY_ID;
29 IF x_me_party_id is not null THEN
30 x_registration_number := ZX_API_PUB.get_default_tax_reg
31 (
32 p_api_version => 1.0 ,
33 p_init_msg_list => NULL,
34 p_commit=> NULL,
35 p_validation_level => NULL,
36 x_return_status => x_return_status,
37 x_msg_count => x_msg_count,
38 x_msg_data => x_msg_data,
39 p_party_id => x_me_party_id,
40 p_party_type => 'LEGAL_ESTABLISHMENT',
41 p_effective_date =>sysdate);
42 end IF;
43 P_VAT_REG := x_registration_number ;
44 IF P_TOTAL_PAGES_REQUIRED = 'Y' THEN
45 C_TOTAL_PAGES := '/ ' || (P_START_PAGE_NUMBER + P_PAGES_REQUIRED -1);
46 ELSE
47 C_TOTAL_PAGES :=' ';
48 END IF;
49 P_REPORT_NAME := P_REPORT_NAME_LOV;
50 Exception
51 When NO_DATA_FOUND Then
52 null;
53 END;
54
55 ELSIF (P_COUNTRY_CODE = 'GR') THEN
56 P_GR_FISCAL_COMPANY_VALUE := 'name';
57 P_GR_VAT_NUMBER := 'registration_number';
58 Begin
59 Select legalauth_name into C_GR_TAX_OFFICE from xle_registrations_v
60 where legal_entity_id= P_legal_entity_id and IDENTIFYING='Y';
61 select activity_code into C_GR_COMPANY_ACTIVITY
62 from xle_entity_profiles where legal_entity_id = P_legal_entity_id;
63 select issuing_authority_site_id into site_id from xle_registrations
64 where source_id= P_LEGAL_ENTITY_ID and source_table='XLE_ENTITY_PROFILES' and IDENTIFYING_FLAG='Y';
65 select SUBSTR(address1,1,30) || country into C_GR_TAX_AREA from hz_locations
66 where location_id = ( select location_id from hz_party_sites where party_site_id = site_id) ;
67 Exception
68 When NO_DATA_FOUND Then
69 null;
70 End;
71 P_GR_ADDRESS := 'substr(address_line_1,1,60) || '' '' || substr(address_line_2,1,60)';
72 P_GR_CITY := 'town_or_city';
73 P_GR_POSTAL_CODE := 'postal_code';
74 IF (P_REPORT_NAME_FREE IS NOT NULL) THEN
75 P_REPORT_NAME := P_REPORT_NAME_FREE;
76 ELSE
77 P_REPORT_NAME := P_REPORT_NAME_LOV;
78 END IF;
79 END IF;
80
81 IF (P_DEBUG_FLAG = 'Y') THEN
82 null;
83 END IF;
84 return (TRUE);
85 end;
86 function AfterReport return boolean is
87 begin
88 return (TRUE);
89 END ;
90 Function C_GR_TAX_OFFICE_formula return varchar2 is
91 Begin
92 return C_GR_TAX_OFFICE;
93 END;
94 Function C_GR_COMPANY_ACTIVITY_formula return varchar2 is
95 Begin
96 return C_GR_COMPANY_ACTIVITY;
97 END;
98 Function C_GR_TAX_AREA_formula return varchar2 is
99 Begin
100 return C_GR_TAX_AREA;
101 END;
102 Function C_TOTAL_PAGES_formula return varchar2 is
103 Begin
104 return C_TOTAL_PAGES;
105 END;
106 Function C_COUNTRY_NAME_formula return varchar2 is
107 Begin
108 return C_COUNTRY_NAME;
109 END;
110 END JG_ZZ_RGRH_PKG ;