1 PACKAGE BODY FA_RETMT_TAX_REG_RPT_PKG AS
2 -- $Header: FASARTRPB.pls 120.2.12010000.2 2009/07/19 08:08:50 glchen ship $
3 -- ****************************************************************************************
4 -- Copyright (c) 2000 Oracle Solution Services (India) Product Development
5 -- All rights reserved
6 -- ****************************************************************************************
7 --
8 -- PROGRAM NAME
9 -- FASARTRPB.pls
10 --
11 -- DESCRIPTION
12 -- This script creates the package body of FASARTRPB.pls.
13 -- This package is used to generate Asset Retirement Tax Register(Russia).
14 --
15 -- USAGE
16 -- To install How to Install
17 -- To execute How to Execute
18 --
19 -- DEPENDENCIES
20 -- None.
21 --
22 --
23 -- LAST UPDATE DATE 19-DEC-2006
24 -- Date the program has been modified for the last time
25 --
26 -- HISTORY
27 -- =======
28 --
29 -- VERSION DATE AUTHOR(S) DESCRIPTION
30 -- ------- ----------- --------------- ------------------------------------
31 -- 1.0 19-DEC-2006 SURESH SINGH M Creation
32 --
33 --****************************************************************************************
34 FUNCTION beforereport RETURN BOOLEAN
35 IS
36 manual_vend_num_type VARCHAR2 (20);
37 v_cnt_supp NUMBER;
38
39 BEGIN
40
41 BEGIN
42 SELECT company_name
43 INTO lp_company_name
44 FROM fa_system_controls;
45 EXCEPTION
46 WHEN OTHERS THEN
47 fnd_file.put_line(fnd_file.log,'Error in Fetching company name. Error => '||SQLERRM);
48 END;
49
50 BEGIN
51 SELECT gl.currency_code
52 INTO lp_currency_code
53 FROM fa_book_controls fbc, gl_ledgers gl
54 WHERE book_type_code = p_book_name
55 AND fbc.set_of_books_id = gl.ledger_id;
56 EXCEPTION
57 WHEN OTHERS THEN
58 fnd_file.put_line(fnd_file.log,'Error in Fetching currency code. Error => '||SQLERRM);
59 END;
60
61
62 RETURN (TRUE);
63 END;
64
65 FUNCTION afterreport RETURN BOOLEAN
66 IS
67 BEGIN
68
69 RETURN (TRUE);
70 END;
71
72
73
74 FUNCTION afterpform RETURN BOOLEAN IS
75 p_period_set_name VARCHAR2 (100);
76 v_view VARCHAR2 (30000);
77 v_profile_option_value VARCHAR2 (100);
78 period_from VARCHAR2 (100);
79 period_to VARCHAR2 (100);
80 v_free_charge VARCHAR2 (100);
81 BEGIN
82
83 IF (P_FROM_PERIOD IS NOT NULL) THEN
84 SELECT TRUNC (fadp.calendar_period_open_date)
85 INTO period_from
86 FROM fa_deprn_periods fadp
87 WHERE fadp.book_type_code = p_book_name
88 AND fadp.period_name = p_from_period;
89 END IF;
90
91
92 IF (P_TO_PERIOD IS NOT NULL) THEN
93 SELECT TRUNC (fadp.calendar_period_close_date)
94 INTO period_to
95 FROM fa_deprn_periods fadp
96 WHERE fadp.book_type_code = p_book_name
97 AND fadp.period_name = p_to_period;
98 END IF;
99
100 /*--------Checking for periods -------------------*/
101 IF(period_from IS NOT NULL AND period_to IS NOT NULL) THEN
102
103 lp_date_retired :=' AND fr.date_retired BETWEEN '||''''||period_from||''''||'AND'||''''||period_to||'''';
104 ELSE
105 lp_date_retired:='AND 1=1';
106 END IF;
107
108 /*---------DFF Column free of charge----------*/
109 BEGIN
110 SELECT fdfcu.application_column_name
111 INTO v_free_charge
112 FROM fnd_descr_flex_column_usages fdfcu
113 WHERE fdfcu.application_id = 140
114 AND UPPER (fdfcu.descriptive_flexfield_name) = 'FA_LOOKUPS'
115 AND UPPER (fdfcu.descriptive_flex_context_code) =
116 UPPER ('Global Data Elements')
117 AND UPPER (fdfcu.end_user_column_name) = 'FREE_OF_CHARGE';
118 EXCEPTION
119 WHEN OTHERS THEN
120 fnd_file.put_line(fnd_file.log,'Error in Fetching DFF Column for Free of charge. Error => '||SQLERRM);
121 END;
122
123 IF(v_free_charge IS NOT NULL ) THEN
124 lp_free_of_charge :='flb.'||v_free_charge ;
125 ELSE
126 lp_free_of_charge :='''F''';
127 END IF;
128
129 RETURN (TRUE);
130 END;
131 ---End of afterpform Trigger----------------------
132 /*------Organization Name---------------------------*/
133
134 FUNCTION COMPANY_NAME return VARCHAR2 is
135 lp_com_name VARCHAR2(100);
136 BEGIN
137
138 BEGIN
139 SELECT company_name
140 INTO lp_com_name
141 FROM fa_system_controls;
142 EXCEPTION
143 WHEN OTHERS THEN
144 fnd_file.put_line(fnd_file.log,'Error in Fetching company name. Error => '||SQLERRM);
145 END;
146
147 RETURN lp_com_name;
148 END;
149 /*------Book Name---------------------------*/
150
151 FUNCTION CURRENCY_NAME return VARCHAR2 is
152 lp_curr_code VARCHAR2(100);
153 BEGIN
154
155 BEGIN
156 SELECT gl.currency_code
157 INTO lp_curr_code
158 FROM fa_book_controls fbc, gl_ledgers gl
159 WHERE book_type_code = p_book_name
160 AND fbc.set_of_books_id = gl.ledger_id;
161 EXCEPTION
162 WHEN OTHERS THEN
163 fnd_file.put_line(fnd_file.log,'Error in Fetching currency code. Error => '||SQLERRM);
164 END;
165
166 RETURN lp_curr_code;
167 END;
168
169 FUNCTION FROM_PERIOD return VARCHAR2 is
170 lp_from_date VARCHAR2(100);
171 BEGIN
172
173 BEGIN
174 SELECT TRUNC (fadp.calendar_period_open_date)
175 INTO lp_from_date
176 FROM fa_deprn_periods fadp
177 WHERE fadp.book_type_code = p_book_name
178 AND fadp.period_name = p_from_period;
179 EXCEPTION
180 WHEN OTHERS THEN
181 fnd_file.put_line(fnd_file.log,'Error in Fetching From Date. Error => '||SQLERRM);
182 END;
183
184 RETURN lp_from_date;
185 END;
186
187 FUNCTION TO_PERIOD return VARCHAR2 is
188 lp_to_date VARCHAR2(100);
189 BEGIN
190
191 BEGIN
192 SELECT TRUNC (fadp.calendar_period_close_date)
193 INTO lp_to_date
194 FROM fa_deprn_periods fadp
195 WHERE fadp.book_type_code = p_book_name
196 AND fadp.period_name = p_to_period;
197 EXCEPTION
198 WHEN OTHERS THEN
199 fnd_file.put_line(fnd_file.log,'Error in Fetching To Date. Error => '||SQLERRM);
200 END;
201
202 RETURN lp_to_date;
203 END;
204 --Functions to refer Oracle report placeholders--
205
206
207 END FA_RETMT_TAX_REG_RPT_PKG;