Subversion Repositories DevTools

Rev

Rev 5514 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5356 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wFormApproval				 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<!--#include file="common/formating.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ VARIABLE DEFINITION -------------
24 
Dim objFormCollector
25 
Dim aRs
26 
Dim MoreLink
27 
Dim parFilter_on
28 
Dim ForceDropdown
29 
Dim rsQry
30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
32 
parProd_id = Request("pv_id")
33 
 
34 
parBom_id = Request("bom_id")
35 
 
36 
 
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
40 
%>
41 
<%
42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( parProd_id, parBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
45 
 
46 
	If parProd_id <> "" Then
47 
 
48 
		Set rsQry = OraDatabase.DbCreateDynaset( "select * from packages pkg, package_versions pv where pv.pkg_id = pkg.pkg_id and pv.pv_id="&parProd_id, ORADYN_DEFAULT )
49 
 
50 
		If rsQry.RecordCount > 0 Then
51 
			outobjDetails.Item ("pkg_version")   = rsQry("pkg_version")
52 
			outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
53 
 
54 
		Else
55 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& parProd_id
56 
 
57 
		End If
58 
 
59 
 
60 
		rsQry.Close
61 
		Set rsQry = Nothing
62 
 
63 
	End If
64 
 
65 
 
66 
 
67 
End Sub
68 
'--------------------------------------------------------------------------------------------------------------------------
69 
'--------------------------------------------------------------------------------------------------------------------------
70 
Sub TesterApproval ()
71 
	On Error Resume Next
72 
 
73 
	Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID="&Request("pv_id"), ORADYN_DEFAULT)
74 
 
75 
	OraDatabase.Parameters.Add "PV_ID", 			Request("pv_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
76 
	OraDatabase.Parameters.Add "PKG_ID", 			rsQry("pkg_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "BOM_ID", 			parBom_id, 						ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "TESTER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
79 
	OraDatabase.Parameters.Add "TESTER_COMMENTS",	Request("tester_comments"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
80 
 
81 
	If Request("approval") = "R" Then
82 
		OraDatabase.Parameters.Add "COMMENT",			"Version: "&rsQry("pkg_version")&" - Rejected By Tester" ,	ORAPARM_INPUT, ORATYPE_VARCHAR2
83 
 
84 
		objEH.TryORA ( OraSession )
85 
		OraDatabase.ExecuteSQL _
86 
		"BEGIN pk_Production.Reject_Product ( :PV_ID, :TESTER_ID, :TESTER_COMMENTS ); END;"
87 
		objEH.CatchORA ( OraSession )
88 
 
89 
	Else
90 
		OraDatabase.Parameters.Add "COMMENT",			"Version: "&rsQry("pkg_version")&" - Approved By Tester" ,	ORAPARM_INPUT, ORATYPE_VARCHAR2
91 
	End If
92 
 
93 
	objEH.TryORA ( OraSession )
94 
 
95 
	OraDatabase.ExecuteSQL _
96 
	"BEGIN pk_Production.Release_Authorisation_Tester ( :PV_ID, :BOM_ID, :TESTER_ID, :TESTER_COMMENTS ); END;"
97 
 
98 
	objEH.CatchORA ( OraSession )
99 
 
100 
	objEH.TryORA ( OraSession )
101 
 
102 
	OraDatabase.ExecuteSQL _
103 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :TESTER_ID  ); END;"
104 
 
105 
	objEH.CatchORA ( OraSession )
106 
 
107 
 
108 
	OraDatabase.Parameters.Remove "PV_ID"
109 
	OraDatabase.Parameters.Remove "PKG_ID"
110 
	OraDatabase.Parameters.Remove "BOM_ID"
111 
	OraDatabase.Parameters.Remove "TESTER_ID"
112 
	OraDatabase.Parameters.Remove "TESTER_COMMENTS"
113 
	OraDatabase.Parameters.Remove "COMMENT"
114 
 
115 
 
116 
	rsQry.Close()
117 
	Set rsQry = nothing
118 
 
119 
End Sub
120 
'--------------------------------------------------------------------------------------------------------------------------
121 
Sub ManagerApproval ()
122 
	On Error Resume Next
123 
 
124 
	Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID="&Request("pv_id"), ORADYN_DEFAULT)
125 
 
126 
	OraDatabase.Parameters.Add "PV_ID", 			Request("pv_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
127 
	OraDatabase.Parameters.Add "PKG_ID", 			rsQry("pkg_id"), 				ORAPARM_INPUT, ORATYPE_NUMBER
128 
	OraDatabase.Parameters.Add "BOM_ID", 			parBom_id, 						ORAPARM_INPUT, ORATYPE_NUMBER
129 
	OraDatabase.Parameters.Add "MANAGER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
130 
	OraDatabase.Parameters.Add "MANAGER_COMMENTS",	Request("manager_comments"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
131 
	OraDatabase.Parameters.Add "COMMENT",			"Version: "&rsQry("pkg_version")&" - Approved By Manager" ,	ORAPARM_INPUT, ORATYPE_VARCHAR2
132 
 
133 
 
134 
	objEH.TryORA ( OraSession )
135 
 
136 
	OraDatabase.ExecuteSQL _
137 
	"BEGIN pk_Production.Release_Authorisation_Manager ( :PV_ID, :BOM_ID, :MANAGER_ID, :MANAGER_COMMENTS ); END;"
138 
 
139 
	objEH.CatchORA ( OraSession )
140 
 
141 
	objEH.TryORA ( OraSession )
142 
 
143 
	OraDatabase.ExecuteSQL _
144 
	"BEGIN pk_Production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :MANAGER_ID  ); END;"
145 
 
146 
	objEH.CatchORA ( OraSession )
147 
 
148 
 
149 
	OraDatabase.Parameters.Remove "PV_ID"
150 
	OraDatabase.Parameters.Remove "PKG_ID"
151 
	OraDatabase.Parameters.Remove "BOM_ID"
152 
	OraDatabase.Parameters.Remove "MANAGER_ID"
153 
	OraDatabase.Parameters.Remove "MANAGER_COMMENTS"
154 
 
155 
	rsQry.Close()
156 
	Set rsQry = nothing
157 
 
158 
End Sub
159 
'--------------------------------------------------------------------------------------------------------------------------
160 
%>
161 
<%
162 
'------------ RUN BEFORE PAGE RENDER ----------
163 
'objPMod.PersistInQryString ( Array("base_env_id") )
164 
 
165 
' --- Get Form details from DB ---
166 
Call GetFormDetails ( parProd_id, parBom_id, objFormCollector )
167 
 
168 
' --- Load Validation Rules ---
169 
'Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
170 
 
171 
' --- Enter Form Validation Rule Changes here... ----
172 
'----------------------------------------------------
173 
 
174 
If Request("btn") = "Submit" Then
175 
	If objAccessControl.IsActive("ApprovedByTester") Then
176 
		Call TesterApproval()
177 
	ElseIf objAccessControl.IsActive("ApprovedByManager") Then
178 
		Call ManagerApproval()
179 
	End If
180 
 
181 
	If objEH.Finally Then
182 
		Call OpenInParentWindow ( "bom_home.asp?bom_id="&parBom_id )
183 
		Call CloseWindow()
184 
	End If
185 
 
186 
End If
187 
'----------------------------------------------
188 
%>
189 
<html>
190 
<head>
191 
<title>Production Manager</title>
192 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
193 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
194 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
195 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
196 
<script language="JavaScript" src="scripts/common.js"></script>
197 
</head>
198 
 
199 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
200 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
201 
  <tr>
202 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Software Release Authorisation Form For <%=objFormCollector.Item("pkg_name")%>&nbsp;<%=objFormCollector.Item("pkg_version")%></span> <br>
203 
    </td>
204 
  </tr>
205 
 
206 
  <%
207 
  If objAccessControl.IsActive("ApprovedByTester") Then
208 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
209 
  objFormComponent.FormName = "FormName"
210 
  objFormComponent.Action = SCRIPT_NAME
211 
  objFormComponent.OnSubmit = "ShowProgress();"
212 
  Call objFormComponent.FormStart()
213 
  %>
214 
  <tr>
215 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
216 
      <tr>
217 
        <td><%=ProgressBar%></td>
218 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
219 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
220 
      </tr>
221 
    </table></td>
222 
  </tr>
223 
  <tr>
224 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
225 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
226 
     <tr>
227 
        <td colspan="3" align="left" class="form_iname"><strong class="body_ttl3">Release Tested By <%=objAccessControl.FullName%> (Regional Tester) On <%= FormatDateTime(Date, 0) %> </strong></td>
228 
     </tr>
229 
	 <tr>
230 
	 <td align="left" class="form_iname">Decision</td>
231 
		<td colspan="3" align="left" class="form_iname">
232 
		<input name="approval" type="radio" value="A" checked>Accept
233 
		<input name="approval" type="radio" value="R">Reject
234 
		</td>
235 
	 </tr>
236 
 
237 
 
238 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
239 
      <tr>
240 
        <td valign="top" nowrap class="form_iname">Comments</td>
241 
        <td valign="top"><%=objFormComponent.TextArea ("tester_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
242 
		<td valign="top">&nbsp;
243 
		</td>
244 
      </tr>
245 
      <tr>
246 
        <td width="10%" class="form_iname">&nbsp;</td>
247 
        <td width="1%">&nbsp;</td>
248 
		<td width="90%" class="body_ttl3"></td>
249 
      </tr>
250 
    </table></td>
251 
  </tr>
252 
  <%=objPMod.ComposeHiddenTags()%>
253 
 
254 
  <input type="hidden" name="pv_id" value="<%=parProd_id%>">
255 
  <input type="hidden" name="action" value="true">
256 
  <%
257 
  Call objFormComponent.FormEnd()
258 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
259 
  Else
260 
 
261 
    '-- FROM START ---------------------------------------------------------------------------------------------------------
262 
  objFormComponent.FormName = "FormName"
263 
  objFormComponent.Action = SCRIPT_NAME
264 
  objFormComponent.OnSubmit = "ShowProgress();"
265 
  Call objFormComponent.FormStart()
266 
  %>
267 
  <tr>
268 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
269 
      <tr>
270 
        <td><%=ProgressBar%></td>
271 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
272 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
273 
      </tr>
274 
    </table></td>
275 
  </tr>
276 
  <tr>
277 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
278 
	  <!-- Release Tested by A Regional Tester +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
279 
	  <%
280 
	  Dim rsTemp
281 
 
282 
	  Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION, USERS WHERE PV_ID="&parProd_id&" AND BOM_ID="&parBom_id&" AND USERS.USER_ID = RELEASE_AUTHORISATION.TESTER_ID", ORADYN_DEFAULT)
283 
 
284 
	  %>
285 
 
286 
	  <tr>
287 
        <td colspan="3" align="left" class="form_iname"><strong class="body_ttl3">Release Tested By <%=rsTemp("full_name")%> (Regional Tester) On <%= rsTemp("tester_datestamp") %> </strong></td>
288 
      </tr>
289 
 
290 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
291 
      <tr>
292 
        <td valign="top" nowrap class="form_iname">Comments</td>
293 
        <td valign="top"><%=objFormComponent.TextArea ("tester_comments", rsTemp("tester_comments"), 5, 80, "class='form_ivalue' readonly" )%></td>
294 
		<td valign="top">&nbsp;
295 
		</td>
296 
      </tr>
297 
	  <%
298 
	  rsTemp.Close()
299 
	  Set rsTemp = nothing
300 
	  %>
301 
      <tr>
302 
        <td width="10%" class="form_iname">&nbsp;</td>
303 
        <td width="1%">&nbsp;</td>
304 
		<td width="90%" class="body_ttl3"></td>
305 
      </tr>
306 
	   <!-- Release Tested By Regional Manager+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
307 
      <tr>
308 
        <td colspan="3" align="left" class="form_iname"><strong class="body_ttl3">Release Authorised By <%=objAccessControl.FullName%> (Regional Manager) On <%= FormatDateTime(Date, 0) %> </strong></td>
309 
      </tr>
310 
 
311 
 
312 
      <tr>
313 
        <td valign="top" nowrap class="form_iname">Comments</td>
314 
        <td valign="top"><%=objFormComponent.TextArea ("manager_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
315 
		<td valign="top">&nbsp;
316 
		</td>
317 
      </tr>
318 
      <tr>
319 
        <td width="10%" class="form_iname">&nbsp;</td>
320 
        <td width="1%">&nbsp;</td>
321 
		<td width="90%" class="body_ttl3"></td>
322 
      </tr>
323 
    </table></td>
324 
  </tr>
325 
  <%=objPMod.ComposeHiddenTags()%>
326 
 
327 
  <input type="hidden" name="pv_id" value="<%=parProd_id%>">
328 
  <input type="hidden" name="action" value="true">
329 
  <%
330 
  Call objFormComponent.FormEnd()
331 
  End If
332 
  %>
333 
 
334 
</table>
335 
 
336 
</body>
337 
</html>
5962 dpurdie 338 
<!--#include file="common/globals_destructor.asp"-->