[Home] [Help]
PACKAGE BODY: APPS.AST_OFL_LEAD_ACC_PARAM
Source
1 PACKAGE BODY AST_OFL_LEAD_ACC_PARAM AS
2 /* $Header: astrtupb.pls 115.11 2002/02/07 00:05:51 pkm ship $ */
3 --
4 g_image_prefix varchar2(250) := '/OA_MEDIA/'||icx_sec.getid(icx_sec.pv_language_code)||'/';
5 l_user_id number;
6 v_date_time varchar2(30);
7 l_agent varchar2(200);
8 ctr1 integer := 0;
9 ctr2 integer := 0;
10
11 -- Changed for 11i AJScott
12 -- G_DATE_FORMAT varchar2(20) := as_ofl_util_pkg.get_date_format;
13
14 TYPE day_TABLE IS table of varchar2(2000) INDEX BY BINARY_INTEGER;
15 TYPE year_TABLE IS table of varchar2(2000) INDEX BY BINARY_INTEGER;
16
17 day_data day_table;
18 year_data year_table;
19
20
21 procedure header is
22
23 -----------------------------------------------------------------------------------------------
24 --
25 -- PROCEDURE: header
26 --
27 -- DESCRIPTION: This procedure is creates the descriptive header in the parameter form
28 --
29 -----------------------------------------------------------------------------------------------
30 begin
31
32 -- Changed for 11i AJScott
33 -- select to_char(sysdate,G_DATE_FORMAT) into v_date_time from dual;
34 select fnd_date.date_to_chardate(sysdate) into v_date_time from dual;
35
36 htp.htmlopen;
37 htp.headOpen;
38 htp.title('Unassigned Opportunities Report');
39 htp.headClose;
40 htp.bodyopen(cattributes=>'bgcolor="#CCCCCC"');
41 htp.tableOpen('border="0" ');
42 htp.tableRowOpen( calign => 'TOP' );
43 -- htp.tableData( htf.img(curl=>g_image_prefix||'oppty.gif'));
44 htp.tableData( '<FONT size=+1 face="times new roman">' || 'Unassigned Opportunities Report', cnowrap => 'TRUE');
45 htp.tableData(htf.bold(v_date_time),calign => 'right',ccolspan => '110');
46 htp.tableRowClose;
47 htp.tableClose;
48 htp.tableOpen( cattributes => 'border=0 cellspacing=0 cellpadding=0 width=561' );
49 htp.tableRowOpen( cvalign => 'top' );
50 htp.tableData( ' ', ccolspan => '2', cattributes => ' height=9');
51 htp.tableData( '<FONT face="Times New Roman">' ||htf.bold( 'Please specify the criteria and select OK. ') ||
52 '</FONT>', calign => 'center', crowspan => '2', ccolspan => '110', cattributes => ' width=346');
53 htp.tableData( ' ', ccolspan => '6');
54 htp.Br;
55 htp.tableRowClose;
56 htp.tableClose;
57 htp.bodyClose;
58 htp.headClose;
59 htp.htmlClose;
60 end;
61 -----------------------------------------------------------------------------------------------
62 procedure lead_acc_paramform is
63
64 -----------------------------------------------------------------------------------------------
65 --
66 -- PROCEDURE: lead_acc_paramform
67 --
68 -- DESCRIPTION: This procedure is main body of the parameter form
69 --
70 -----------------------------------------------------------------------------------------------
71 day_counter NUMBER := 1;
72 year_counter NUMBER := 1990;
73
74
75 BEGIN
76
77 FOR i IN 1..31 LOOP
78 if day_counter <= 9 then
79 day_data(i) := '0'||day_counter;
80 day_counter := day_counter +1;
81 else
82 day_data(i) := to_char(day_counter);
83 day_counter := day_counter +1;
84 end if;
85 END LOOP;
86
87 FOR i IN 1..21 LOOP
88 year_data(i) := to_char(year_counter);
89 year_counter := year_counter +1;
90 END LOOP;
91
92
93 if (icx_sec.validateSession) then
94 header;
95
96 l_user_id := icx_sec.getID(icx_sec.PV_USER_ID);
97 -------------------- Returns login user Id--------------------------
98 htp.FormOpen(owa_util.Get_Owa_Service_Path||'AST_OFL_LEAD_ACC_report.report_wrapper',
99 cattributes => ' NAME="param"');
100 htp.htmlopen;
101 htp.headOpen;
102 htp.title('Unassigned Opportunities Report');
103 htp.p('<SCRIPT language="JavaScript">');
104 htp.p(' function validateForm(objform) {');
105 htp.p(' var s_day = objform.p_sd_date.selectedIndex;');
106 htp.p(' var s_month = objform.p_sm_date.selectedIndex;');
107 htp.p(' var s_year = objform.p_sy_date.selectedIndex;');
108 htp.p(' var p_valid = true;');
109 htp.p(' if ((s_month == "3"&&s_day== "30")||(s_month == "5"&&s_day== "30")');
110 htp.p(' ||(s_month == "8"&&s_day== "30")||(s_month == "10"&&s_day== "30")){');
111 htp.p(' alert(''Start Date Must be a Valid Date'');');
112 htp.p(' p_valid = false;}');
113 htp.p(' if (s_month == "1"){');
114 htp.p(' if ((s_year == "2"||s_year == "6"||s_year == "10"||s_year == "14"||s_year == "18")');
115 htp.p(' && (s_day == "29"||s_day == "30")){');
116 htp.p(' alert(''Start Date Must be a Valid Date'');');
117 htp.p(' p_valid = false;}');
118 htp.p(' }');
119 htp.p(' if (s_month == "1"){');
120 htp.p(' if ((s_year != "2" != "6" != "10" != "14" != "18")');
121 htp.p(' && (s_day == "28"||s_day == "29"||s_day == "30")){');
122 htp.p(' alert(''Start Date Must be a Valid Date'');');
123 htp.p(' p_valid = false;}');
124 htp.p(' }');
125 --htp.p(' }');
126 --htp.p(' }');
127 htp.p(' if (p_valid){');
128 htp.p(' objform.submit();}');
129 htp.p('}');
130 htp.p('</script>');
131 htp.headClose;
132 htp.bodyopen(cattributes=>'bgcolor="#CCCCCC"');
133 htp.tableopen;
134 htp.tableRowOpen( cvalign => 'top' );
135 htp.tableData( ' ', cattributes => ' height=9');
136 htp.tableData( '<FONT size=2 face="Times New Roman">' || '</FONT>', calign => 'right', crowspan => '2', ccolspan => '3', cattributes => ' width=154');
137 htp.tableData( ' ');
138 htp.tableRowClose;
139 htp.tableClose;
140 htp.tableOpen(cattributes=>'width="600" ');
141 htp.tableRowOpen();
142 htp.p('<td align="RIGHT" width="50%"valign="top">Select Output Format</td>');
143 htp.p('<td>');
144 htp.p ('<SELECT name="p_response">');
145 htp.FormSelectOption('Excel');
146 htp.FormSelectOption('HTML',cselected => 'TRUE');
147 htp.FormSelectClose;
148 htp.tableRowClose;
149
150 --htp.tableRowClose;
151
152 htp.tableRowOpen();
153 htp.p('<td align="RIGHT" width="32%" valign="top">From Date</td>');
154 htp.p('<td>');
155 htp.p ('<SELECT name="p_sd_date">');
156 -- htp.FormSelectOption(' ');
157 FOR i IN 1..day_data.count LOOP
158 htp.FormSelectOption(day_data(i),
159 cattributes => ' value= '||day_data(i),
160 cselected => 'TRUE' );
161 END LOOP;
162 htp.FormSelectClose;
163 htp.p('-');
164
165 /*
166 htp.p ('<SELECT name="p_sm_date">');
167 FOR i IN 1..12 LOOP
168 if i=1 then
169 htp.FormSelectOption(lpad(to_char(i),2,'0'),
170 cattributes => ' value='||lpad(to_char(i),2,'0'),
171 cselected => 'TRUE' );
172 else
173 htp.FormSelectOption(lpad(to_char(i),2,'0'),
174 cattributes => ' value='||lpad(to_char(i),2,'0'));
175 end if;
176 END LOOP;
177 htp.FormSelectClose;
178 htp.p('-');
179 */
180 htp.p ('<SELECT name="p_sm_date">');
181 htp.FormSelectOption('JAN',cselected => 'TRUE');
182 htp.FormSelectOption('FEB');
183 htp.FormSelectOption('MAR');
184 htp.FormSelectOption('APR');
185 htp.FormSelectOption('MAY');
186 htp.FormSelectOption('JUN');
187 htp.FormSelectOption('JUL');
188 htp.FormSelectOption('AUG');
189 htp.FormSelectOption('SEP');
190 htp.FormSelectOption('OCT');
191 htp.FormSelectOption('NOV');
192 htp.FormSelectOption('DEC');
193 htp.FormSelectClose;
194 htp.p('-');
195
196 htp.p ('<SELECT name="p_sy_date">');
197 -- htp.FormSelectOption(' ');
198 FOR i IN 1..year_data.count LOOP
199 htp.FormSelectOption(year_data(i),
200 cattributes => ' value= '||year_data(i));
201 END LOOP;
202 htp.FormSelectClose;
203 htp.p('</td>');
204 htp.tableRowClose;
205
206 htp.tableClose;
207 htp.Br;
208 htp.Br;
209 htp.Br;
210 footer;
211 htp.FormClose;
212 htp.bodyclose;
213 htp.htmlclose;
214 else
215 htp.p('Invalid session');
216 end if;
217 exception
218 when others then
219 htp.p(SQLERRM);
220 END lead_acc_paramform;
221
222 procedure footer is
223 BEGIN
224 l_agent := owa_util.get_cgi_env('SCRIPT_NAME');
225 htp.htmlopen;
226 htp.tableRowOpen;
227 htp.tableData( htf.hr, crowspan => '1', ccolspan => '190', cnowrap => 'TRUE');
228 htp.tableRowClose;
229 htp.tableOpen( calign => 'center', cattributes => ' border=0 cellspacing=2 cellpadding=2' );
230 htp.tableRowOpen;
231 htp.formOpen( curl => l_agent||'/AST_OFL_LEAD_ACC_report.report_wrapper', cmethod => 'POST',
232 cattributes => ' NAME="MyForm" TARGET="_top"');
233 htp.p('<td>');
234 htp.p('<INPUT TYPE="BUTTON" VALUE="OK" onClick="validateForm(document.param)">');
235 htp.p('</td>');
236 --htp.tableData( '<INPUT type=button value="Cancel" onClick="history.back()" onMouseOver="window.status="Cancel";return true">');
237 htp.tableData( '<INPUT type=button value="Reset" onClick="history.back()" onMouseOver="window.status="Cancel";return true">');
238 htp.tableData( '<INPUT type=button value="Cancel" onClick="window.close()" onMouseOver="window.status="Close";return true">');
239 htp.tableRowClose;
240 htp.tableClose;
241 htp.htmlClose;
242 END footer;
243 END;