Subversion Repositories DevTools

Rev

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

Rev 62 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wSyncProducts                  |
 5 
'|			          wSyncProducts                  |
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 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim aProducts
 24 
Dim aProducts
25 
Dim numOfRows
 25 
Dim numOfRows
26 
Dim rowNum
 26 
Dim rowNum
27 
Dim objFormCollector
 27 
Dim objFormCollector
28 
Dim currPkg_id
 28 
Dim currPkg_id
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
parBom_id = Request("bom_id")
 31 
parBom_id = Request("bom_id")
32 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 32 
Set objFormCollector = CreateObject("Scripting.Dictionary")
33 
'------------ CONDITIONS ----------------------
 33 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
'----------------------------------------------------------------------------------------------------------------------------------
 37 
'----------------------------------------------------------------------------------------------------------------------------------
38 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 38 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
39 
	Dim rsQry, query
 39 
	Dim rsQry, query
40 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
40 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
41
41
42 
	query = _
 42 
	query = _
43 
	"  SELECT RTAG_ID_FK "&_
 43 
	"  SELECT RTAG_ID_FK "&_
44 
	"	FROM BOMS bo"&_
 44 
	"	FROM BOMS bo"&_
45 
	"	  WHERE bo.BOM_ID = :BOM_ID"
 45 
	"	  WHERE bo.BOM_ID = :BOM_ID"
46
46
47 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 47 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
48
48
49 
	query = _
 49 
	query = _
50 
	"  SELECT branch_name, branch_id "&_
 50 
	"  SELECT branch_name, branch_id "&_
51 
	"	FROM BRANCHES br"&_
 51 
	"	FROM BRANCHES br"&_
52 
	"	  WHERE br.branch_id ="&rsQry("rtag_id_fk")
 52 
	"	  WHERE br.branch_id ="&rsQry("rtag_id_fk")
53
53
54 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
54 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
55
55
56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
57 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
 57 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
58 
		outobjDetails.Item ("branch_name") = rsQry("branch_name")
 58 
		outobjDetails.Item ("branch_name") = rsQry("branch_name")
59 
	End If
 59 
	End If
60
60
61
61
62 
	OraDatabase.Parameters.Remove "BOM_ID"
 62 
	OraDatabase.Parameters.Remove "BOM_ID"
63
63
64 
	rsQry.Close
 64 
	rsQry.Close
65 
	Set rsQry = Nothing
 65 
	Set rsQry = Nothing
66 
End Sub
 66 
End Sub
67 
'----------------------------------------------------------------------------------------------------------------------------------
 67 
'----------------------------------------------------------------------------------------------------------------------------------
68 
Sub UpdateProducts()
 68 
Sub UpdateProducts()
69 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 69 
	Dim aDiffList, numOfRows, rowNum, OraParameter
70 
	Const os_id_column = 2
 70 
	Const os_id_column = 2
71 
	Const old_prod_id_column = 1
 71 
	Const old_prod_id_column = 1
72
72
73 
	'/* Get Lates Release Manager */
 73 
	'/* Get Lates Release Manager */
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
76
76
77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
 77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
78
78
79
79
80 
	'-- Get Rows
 80 
	'-- Get Rows
81 
	If rsQry.RecordCount > 0 Then
 81 
	If rsQry.RecordCount > 0 Then
82 
		aDiffList = rsQry.GetRows()
 82 
		aDiffList = rsQry.GetRows()
83
83
84 
	Else
 84 
	Else
85 
		'-- No differencses with Release Manager, hence exit
 85 
		'-- No differencses with Release Manager, hence exit
86 
		OraDatabase.Parameters.Remove "BOM_ID"
 86 
		OraDatabase.Parameters.Remove "BOM_ID"
87 
		OraDatabase.Parameters.Remove "RTAG_ID"
 87 
		OraDatabase.Parameters.Remove "RTAG_ID"
88 
		Exit Sub
 88 
		Exit Sub
89
89
90 
	End If
 90 
	End If
91
91
92
92
93
93
94 
	'/* Update Versions */
 94 
	'/* Update Versions */
95 
	On Error Resume Next
 95 
	On Error Resume Next
96
96
97 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
101
101
102 
	Set OraParameter = OraDatabase.Parameters
 102 
	Set OraParameter = OraDatabase.Parameters
103
103
104
104
105
105
106 
	objEH.TryORA ( OraSession )
 106 
	objEH.TryORA ( OraSession )
107
107
108 
	numOfRows = UBound( aDiffList, 2 )
 108 
	numOfRows = UBound( aDiffList, 2 )
109
109
110 
	For rowNum = 0 To numOfRows
 110 
	For rowNum = 0 To numOfRows
111
111
112 
		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 112 
		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
113 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
 113 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
114 
			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 114 
			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
115 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 115 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
116
116
117 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 117 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
118 
		End If
 118 
		End If
119
119
120 
	Next
 120 
	Next
121
121
122
122
123 
	'--- Log Action ---
 123 
	'--- Log Action ---
124 
	'objEH.LogAction  _
 124 
	'objEH.LogAction  _
125 
	'objAccessControl.UserId, _
 125 
	'objAccessControl.UserId, _
126 
	'enumAT_EVENT_COMMENT, _
 126 
	'enumAT_EVENT_COMMENT, _
127 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 127 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
128 
	'SCRIPT_NAME, _
 128 
	'SCRIPT_NAME, _
129 
	'"Updated Products with new versions.", _
 129 
	'"Updated Products with new versions.", _
130 
	'OraDatabase
 130 
	'OraDatabase
131
131
132
132
133 
	objEH.CatchORA ( OraSession )
133 
	objEH.CatchORA ( OraSession )
134
134
135 
	OraDatabase.Parameters.Remove "BOM_ID"
 135 
	OraDatabase.Parameters.Remove "BOM_ID"
136 
	OraDatabase.Parameters.Remove "RTAG_ID"
 136 
	OraDatabase.Parameters.Remove "RTAG_ID"
137 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 137 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
138 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 138 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
139 
	OraDatabase.Parameters.Remove "OS_ID"
 139 
	OraDatabase.Parameters.Remove "OS_ID"
140 
	OraDatabase.Parameters.Remove "USER_ID"
 140 
	OraDatabase.Parameters.Remove "USER_ID"
141 
End Sub
 141 
End Sub
142 
'----------------------------------------------------------------------------------------------------------------------------------
 142 
'----------------------------------------------------------------------------------------------------------------------------------
143 
Sub AddPatches()
 143 
Sub AddPatches()
144 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 144 
	Dim aDiffList, numOfRows, rowNum, OraParameter
145 
	Const os_id_column = 2
 145 
	Const os_id_column = 2
146 
	Const prod_id_column = 1
 146 
	Const prod_id_column = 1
147
147
148 
	'/* Get Lates Release Manager */
 148 
	'/* Get Lates Release Manager */
149 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
149 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
150
150
151 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 151 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
152
152
153
153
154 
	'-- Get Rows
 154 
	'-- Get Rows
155 
	If rsQry.RecordCount > 0 Then
 155 
	If rsQry.RecordCount > 0 Then
156 
		aDiffList = rsQry.GetRows()
 156 
		aDiffList = rsQry.GetRows()
157
157
158 
	Else
 158 
	Else
159 
		'-- No differencses with Release Manager, hence exit
 159 
		'-- No differencses with Release Manager, hence exit
160 
		OraDatabase.Parameters.Remove "BOM_ID"
 160 
		OraDatabase.Parameters.Remove "BOM_ID"
161 
		Exit Sub
 161 
		Exit Sub
162 
	End If
 162 
	End If
163
163
164
164
165
165
166 
	'/* Update Versions */
 166 
	'/* Update Versions */
167 
	On Error Resume Next
 167 
	On Error Resume Next
168
168
169 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
169 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
172
172
173 
	Set OraParameter = OraDatabase.Parameters
 173 
	Set OraParameter = OraDatabase.Parameters
174
174
175
175
176
176
177 
	objEH.TryORA ( OraSession )
 177 
	objEH.TryORA ( OraSession )
178
178
179 
	numOfRows = UBound( aDiffList, 2 )
 179 
	numOfRows = UBound( aDiffList, 2 )
180
180
181 
	For rowNum = 0 To numOfRows
 181 
	For rowNum = 0 To numOfRows
182
182
183 
		If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
 183 
		If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
184 
			OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
 184 
			OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
185 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 185 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
186
186
187 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 187 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
188 
		End If
 188 
		End If
189
189
190 
	Next
 190 
	Next
191
191
192
192
193 
	objEH.CatchORA ( OraSession )
193 
	objEH.CatchORA ( OraSession )
194
194
195 
	OraDatabase.Parameters.Remove "BOM_ID"
 195 
	OraDatabase.Parameters.Remove "BOM_ID"
196 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 196 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
197 
	OraDatabase.Parameters.Remove "OS_ID"
 197 
	OraDatabase.Parameters.Remove "OS_ID"
198 
	OraDatabase.Parameters.Remove "USER_ID"
 198 
	OraDatabase.Parameters.Remove "USER_ID"
199 
End Sub
 199 
End Sub
200 
'----------------------------------------------------------------------------------------------------------------------------------
 200 
'----------------------------------------------------------------------------------------------------------------------------------
201 
%>
 201 
%>
202 
<%
 202 
<%
203 
'------------ RUN BEFORE PAGE RENDER ----------
 203 
'------------ RUN BEFORE PAGE RENDER ----------
204 
Call GetFormDetails ( parBom_id, objFormCollector )
 204 
Call GetFormDetails ( parBom_id, objFormCollector )
205 
 
 205 
 
206 
If Request("action") <> "" Then
206 
If Request("action") <> "" Then
207 
	' --- Form is Valid ---
 207 
	' --- Form is Valid ---
208 
	Call UpdateProducts()
 208 
	Call UpdateProducts()
209
209
210 
	Call AddPatches()
 210 
	Call AddPatches()
211
211
212 
	If objEH.Finally Then
 212 
	If objEH.Finally Then
213 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 213 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
214 
		Call CloseWindow()
 214 
		Call CloseWindow()
215 
	End If
 215 
	End If
216 
End If
 216 
End If
217 
 
 217 
 
218 
'----------------------------------------------
 218 
'----------------------------------------------
219 
%>
 219 
%>
220 
 
 220 
 
221 
 
 221 
 
222 
<html>
 222 
<html>
223 
<head>
 223 
<head>
224 
<SCRIPT LANGUAGE="JavaScript">
 224 
<SCRIPT LANGUAGE="JavaScript">
225 
<!-- Begin
 225 
<!-- Begin
226 
var checkflag = "false";
 226 
var checkflag = "false";
227 
function check(field) {
 227 
function check(field) {
228 
if (checkflag == "false") {
 228 
if (checkflag == "false") {
229 
  for (i = 0; i < field.length; i++) {
 229 
  for (i = 0; i < field.length; i++) {
230 
  field[i].checked = true;}
 230 
  field[i].checked = true;}
231 
  checkflag = "true";
 231 
  checkflag = "true";
232 
  return "Uncheck all"; }
 232 
  return "Uncheck all"; }
233 
else {
 233 
else {
234 
  for (i = 0; i < field.length; i++) {
 234 
  for (i = 0; i < field.length; i++) {
235 
  field[i].checked = false; }
 235 
  field[i].checked = false; }
236 
  checkflag = "false";
 236 
  checkflag = "false";
237 
  return "Check all"; }
 237 
  return "Check all"; }
238 
}
 238 
}
239 
//  End -->
 239 
//  End -->
240 
</script>
 240 
</script>
241 
 
 241 
 
242 
 
 242 
 
243 
<title>Deployment Manager</title>
 243 
<title>Deployment Manager</title>
244 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 244 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
245 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 245 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
246 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 246 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
247 
<script language="JavaScript" src="scripts/common.js"></script>
 247 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
248 
<style type="text/css">
 248 
<script language="JavaScript" src="scripts/common.js"></script>
249 
<!--
 249 
<style type="text/css">
250 
.style8 {font-size: 12px}
 250 
<!--
251 
-->
 251 
.style8 {font-size: 12px}
252 
</style>
 252 
-->
253 
</head>
 253 
</style>
254 
 
 254 
</head>
255 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 255 
 
256 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 256 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
257 
  <tr>
 257 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
258 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Patches </span> <br>
 258 
  <tr>
259 
    Add Patches, selecting the approved ones from "Production Manager".
 259 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Patches </span> <br>
260 
    </td>
 260 
    Add Patches, selecting the approved ones from "Production Manager".
261 
  </tr>
261 
    </td>
262 
<%
 262 
  </tr>
263 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 263 
<%
264 
objFormComponent.FormName = "FormName"
 264 
'-- FROM START --------------------------------------------------------------------------------------------------------------
265 
objFormComponent.Action = SCRIPT_NAME
 265 
objFormComponent.FormName = "FormName"
266 
objFormComponent.OnSubmit = "ShowProgress();"
 266 
objFormComponent.Action = SCRIPT_NAME
267 
Call objFormComponent.FormStart()
 267 
objFormComponent.OnSubmit = "ShowProgress();"
268 
%>
268 
Call objFormComponent.FormStart()
269 
  <tr>
 269 
%>
270 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 270 
  <tr>
271 
      <tr>
 271 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
272 
        <td><%=ProgressBar()%>
 272 
      <tr>
273 
          <input name="btn" type="submit" class="form_btn" value="Add">
 273 
        <td><%=ProgressBar()%>
274 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 274 
          <input name="btn" type="submit" class="form_btn" value="Add">
275 
        <td align="left">&nbsp;        </td>
 275 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
276 
      </tr>
 276 
        <td align="left">&nbsp;        </td>
277 
    </table></td>
 277 
      </tr>
278 
  </tr>
 278 
    </table></td>
279 
  <tr>
 279 
  </tr>
280 
    <td>
 280 
  <tr>
281 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
281 
    <td>
282 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 282 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
283 
      <tr>
 283 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
284 
        <td width="100%" valign="top" nowrap class="body_txt">
 284 
      <tr>
285 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
285 
        <td width="100%" valign="top" nowrap class="body_txt">
286 
		  <!--#include file="messages/_msg_inline.asp"-->
 286 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
287 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 287 
		  <!--#include file="messages/_msg_inline.asp"-->
288 
		  <%
 288 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
289 
		  If objFormCollector.Item("branch_id") = "" Then
 289 
		  <%
290 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
 290 
		  If objFormCollector.Item("branch_id") = "" Then
291 
		  End If
 291 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
292 
		  %>
 292 
		  End If
293 
		  <!-- ADD PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 293 
		  %>
294 
		  Select Patches and click Add.
 294 
		  <!-- ADD PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
295 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 295 
		  Select Patches and click Add.
296
296 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
297
297
298
298
299 
		    <%
 299
300 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
300 
		    <%
301 
			OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("branch_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
301 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
302
302 
			OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("branch_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
303 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 303
304 
			currPkg_id = 0
 304 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
305 
			%>
 305 
			currPkg_id = 0
306
306 
			%>
307 
			<%If rsQry.RecordCount > 0 Then%>
 307
308 
		    <tr>
 308 
			<%If rsQry.RecordCount > 0 Then%>
309 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
 309 
		    <tr>
310 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
 310 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
311 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
 311 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
312 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left">Comments<img src="images/spacer.gif" width="1" height="18" align="absmiddle"></div>                </td>
 312 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
313 
              </tr>
 313 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left">Comments<img src="images/spacer.gif" width="1" height="18" align="absmiddle"></div>                </td>
314
314 
              </tr>
315 
			<%
 315
316 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 316 
			<%
317 
			%>
 317 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
318 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
 318 
			%>
319 
            <tr>
 319 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
320 
			  <td colspan="2" nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></div></td>
 320 
            <tr>
321 
              <td nowrap class="body_row">&nbsp;</td>
 321 
			  <td colspan="2" nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></div></td>
322 
              <td nowrap class="body_row"></td>
 322 
              <td nowrap class="body_row">&nbsp;</td>
323 
              </tr>
 323 
              <td nowrap class="body_row"></td>
324 
			<tr>
 324 
              </tr>
325 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 325 
			<tr>
326 
            </tr>
 326 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
327 
			<%currPkg_id = rsQry("pkg_id")%>
 327 
            </tr>
328 
			<%End If%>
 328 
			<%currPkg_id = rsQry("pkg_id")%>
329 
			<%
 329 
			<%End If%>
330 
			Dim rsForm
 330 
			<%
331 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBom_id, ORADYN_DEFAULT)
 331 
			Dim rsForm
332
332 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBom_id, ORADYN_DEFAULT)
333 
			If rsForm("is_official") = "Y" Then%>
 333
334 
            <tr>
 334 
			If rsForm("is_official") = "Y" Then%>
335 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 335 
            <tr>
336 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
 336 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
337 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
 337 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
338 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
 338 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
339 
            </tr>
 339 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
340
340 
            </tr>
341 
 
 341
342 
			<tr>
 342 
 
343 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 343 
			<tr>
344 
            </tr>
 344 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
345 
			<%End If
 345 
            </tr>
346 
			rsForm.Close()
 346 
			<%End If
347 
			Set rsForm = Nothing
 347 
			rsForm.Close()
348
348 
			Set rsForm = Nothing
349 
			%>
349
350
350 
			%>
351 
            <%rsQry.MoveNext
 351
352 
			Wend
 352 
            <%rsQry.MoveNext
353 
			%>
 353 
			Wend
354
354 
			%>
355 
			<%End If%>
 355
356
356 
			<%End If%>
357 
			<tr>
 357
358 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
 358 
			<tr>
359 
            </tr>
 359 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
360 
          </table>
 360 
            </tr>
361
361 
          </table>
362
362
363 
		  <%
 363
364 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
 364 
		  <%
365 
		  OraDatabase.Parameters.Remove "BOM_ID"
 365 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
366 
		  rsQry.Close
 366 
		  OraDatabase.Parameters.Remove "BOM_ID"
367 
		  Set rsQry = Nothing
 367 
		  rsQry.Close
368 
		  %>		  </td>
 368 
		  Set rsQry = Nothing
369 
        </tr>
 369 
		  %>		  </td>
370 
    </table>
 370 
        </tr>
371 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 371 
    </table>
372 
    </td>
 372 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
373 
  </tr>
 373 
    </td>
374 
  <%=objPMod.ComposeHiddenTags()%>
 374 
  </tr>
375 
  <input type="hidden" name="action" value="true">
 375 
  <%=objPMod.ComposeHiddenTags()%>
376 
<%
 376 
  <input type="hidden" name="action" value="true">
377 
Call objFormComponent.FormEnd()
 377 
<%
378 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 378 
Call objFormComponent.FormEnd()
379 
%>
 379 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
380 
</table>
 380 
%>
381 
</body>
 381 
</table>
382 
</html>
 382 
</body>
383 
<%
 383 
</html>
384 
'------------ RUN AFTER PAGE RENDER -----------
 384 
<%
385 
'----------------------------------------------
 385 
'------------ RUN AFTER PAGE RENDER -----------
386 
%><!--#include file="common/globals_destructor.asp"-->
 386 
'----------------------------------------------
- 
 
 387 
%><!--#include file="common/globals_destructor.asp"-->