Subversion Repositories DevTools

Rev

Rev 64 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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