| Line 1... |
Line 1... |
| 1 |
<%@LANGUAGE="VBSCRIPT"%>
|
1 |
<%@LANGUAGE="VBSCRIPT"%>
|
| 2 |
<%
|
2 |
<%
|
| 3 |
'=====================================================
|
3 |
'=====================================================
|
| 4 |
'| |
|
4 |
'| |
|
| 5 |
'| wEditProd |
|
5 |
'| wFormApproval |
|
| 6 |
'| |
|
6 |
'| |
|
| 7 |
'=====================================================
|
7 |
'=====================================================
|
| 8 |
%>
|
8 |
%>
|
| 9 |
<%
|
9 |
<%
|
| 10 |
Option explicit
|
10 |
Option explicit
|
| Line 75... |
Line 75... |
| 75 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
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
|
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
|
77 |
OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 78 |
OraDatabase.Parameters.Add "TESTER_ID", objAccessControl.UserId, 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
|
79 |
OraDatabase.Parameters.Add "TESTER_COMMENTS", Request("tester_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
80 |
|
| - |
|
81 |
If Request("approval") = "R" Then
|
| 80 |
OraDatabase.Parameters.Add "COMMENT", "Version: "&rsQry("pkg_version")&" - Approved By Tester" , ORAPARM_INPUT, ORATYPE_VARCHAR2
|
82 |
OraDatabase.Parameters.Add "COMMENT", "Version: "&rsQry("pkg_version")&" - Rejected By Tester" , ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 81 |
|
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
|
| 82 |
|
92 |
|
| 83 |
objEH.TryORA ( OraSession )
|
93 |
objEH.TryORA ( OraSession )
|
| 84 |
|
94 |
|
| 85 |
OraDatabase.ExecuteSQL _
|
95 |
OraDatabase.ExecuteSQL _
|
| 86 |
"BEGIN pk_Production.Release_Authorisation_Tester ( :PV_ID, :BOM_ID, :TESTER_ID, :TESTER_COMMENTS ); END;"
|
96 |
"BEGIN pk_Production.Release_Authorisation_Tester ( :PV_ID, :BOM_ID, :TESTER_ID, :TESTER_COMMENTS ); END;"
|
| Line 99... |
Line 109... |
| 99 |
OraDatabase.Parameters.Remove "PKG_ID"
|
109 |
OraDatabase.Parameters.Remove "PKG_ID"
|
| 100 |
OraDatabase.Parameters.Remove "BOM_ID"
|
110 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| 101 |
OraDatabase.Parameters.Remove "TESTER_ID"
|
111 |
OraDatabase.Parameters.Remove "TESTER_ID"
|
| 102 |
OraDatabase.Parameters.Remove "TESTER_COMMENTS"
|
112 |
OraDatabase.Parameters.Remove "TESTER_COMMENTS"
|
| 103 |
OraDatabase.Parameters.Remove "COMMENT"
|
113 |
OraDatabase.Parameters.Remove "COMMENT"
|
| - |
|
114 |
|
| 104 |
|
115 |
|
| 105 |
rsQry.Close()
|
116 |
rsQry.Close()
|
| 106 |
Set rsQry = nothing
|
117 |
Set rsQry = nothing
|
| 107 |
|
118 |
|
| 108 |
End Sub
|
119 |
End Sub
|
| Line 211... |
Line 222... |
| 211 |
<tr>
|
222 |
<tr>
|
| 212 |
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
|
223 |
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
|
| 213 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
224 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 214 |
<tr>
|
225 |
<tr>
|
| 215 |
<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>
|
226 |
<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>
|
| 216 |
</tr>
|
227 |
</tr>
|
| - |
|
228 |
<tr>
|
| - |
|
229 |
<td align="left" class="form_iname">Decision</td>
|
| - |
|
230 |
<td colspan="3" align="left" class="form_iname">
|
| - |
|
231 |
<input name="approval" type="radio" value="A" checked>Accept
|
| - |
|
232 |
<input name="approval" type="radio" value="R">Reject
|
| - |
|
233 |
</td>
|
| - |
|
234 |
</tr>
|
| - |
|
235 |
|
| 217 |
|
236 |
|
| 218 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
237 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 219 |
<tr>
|
238 |
<tr>
|
| 220 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
239 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
| 221 |
<td valign="top"><%=objFormComponent.TextArea ("tester_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
|
240 |
<td valign="top"><%=objFormComponent.TextArea ("tester_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
|
| Line 263... |
Line 282... |
| 263 |
|
282 |
|
| 264 |
%>
|
283 |
%>
|
| 265 |
|
284 |
|
| 266 |
<tr>
|
285 |
<tr>
|
| 267 |
<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>
|
286 |
<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>
|
| 268 |
</tr>
|
287 |
</tr>
|
| 269 |
|
288 |
|
| 270 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
289 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 271 |
<tr>
|
290 |
<tr>
|
| 272 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
291 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
| 273 |
<td valign="top"><%=objFormComponent.TextArea ("tester_comments", rsTemp("tester_comments"), 5, 80, "class='form_ivalue' readonly" )%></td>
|
292 |
<td valign="top"><%=objFormComponent.TextArea ("tester_comments", rsTemp("tester_comments"), 5, 80, "class='form_ivalue' readonly" )%></td>
|
| Line 284... |
Line 303... |
| 284 |
<td width="90%" class="body_ttl3"></td>
|
303 |
<td width="90%" class="body_ttl3"></td>
|
| 285 |
</tr>
|
304 |
</tr>
|
| 286 |
<!-- Release Tested By Regional Manager+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
305 |
<!-- Release Tested By Regional Manager+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 287 |
<tr>
|
306 |
<tr>
|
| 288 |
<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>
|
307 |
<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>
|
| 289 |
</tr>
|
308 |
</tr>
|
| 290 |
|
309 |
|
| 291 |
|
310 |
|
| 292 |
<tr>
|
311 |
<tr>
|
| 293 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
312 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
| 294 |
<td valign="top"><%=objFormComponent.TextArea ("manager_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
|
313 |
<td valign="top"><%=objFormComponent.TextArea ("manager_comments", NULL, 5, 80, "class='form_ivalue'" )%></td>
|