Subversion Repositories DevTools

Rev

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

Rev 29 Rev 35
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
Line 28... Line 28...
28 
Dim aProducts
 28 
Dim aProducts
29 
Dim numOfRows
 29 
Dim numOfRows
30 
Dim rowNum
 30 
Dim rowNum
31 
Dim objFormCollector
 31 
Dim objFormCollector
32 
Dim currPkg_id
 32 
Dim currPkg_id
33 
Dim	Query_String
 33 
Dim Query_String
34 
'------------ CONSTANTS DECLARATION -----------
 34 
'------------ CONSTANTS DECLARATION -----------
35 
'------------ VARIABLE INIT -------------------
 35 
'------------ VARIABLE INIT -------------------
36 
parBom_id = Request("bom_id")
 36 
parBom_id = Request("bom_id")
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 ( nBom_id, ByRef outobjDetails )
 43 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
 44 
   Dim rsQry, query
45 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
45 
   OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER
46
46 
 
47 
	query = _
 47 
   query = _
48 
	"  SELECT rt.RTAG_ID, "&_
 48 
   "  SELECT rt.RTAG_ID, "&_
49 
	"	      rt.RTAG_NAME, "&_
 49 
   "         rt.RTAG_NAME, "&_
50 
	"	      rt.PRODUCT_STATE_USED "&_
 50 
   "         rt.PRODUCT_STATE_USED "&_
51 
	"	 FROM RELEASE_TAGS rt,"&_
 51 
   "    FROM RELEASE_TAGS rt,"&_
52 
	"	 	   BOMS bo"&_
 52 
   "         BOMS bo"&_
53 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
 53 
   "   WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
54 
	"	  AND bo.BOM_ID = :BOM_ID"
 54 
   "     AND bo.BOM_ID = :BOM_ID"
55
55 
 
56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 56 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
57 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 57 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
58 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
 58 
      outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
59 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 59 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
60 
		outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 60 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
61 
	End If
 61 
   End If
62
62 
 
63
63 
 
64 
	OraDatabase.Parameters.Remove "BOM_ID"
 64 
   OraDatabase.Parameters.Remove "BOM_ID"
65
65 
 
66 
	rsQry.Close
 66 
   rsQry.Close
67 
	Set rsQry = Nothing
 67 
   Set rsQry = Nothing
68 
End Sub
 68 
End Sub
69 
'----------------------------------------------------------------------------------------------------------------------------------
 69 
'----------------------------------------------------------------------------------------------------------------------------------
70 
Sub UpdateProducts()
 70 
Sub UpdateProducts()
71 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 71 
   Dim aDiffList, numOfRows, rowNum, OraParameter
72 
	Const os_id_column = 2
 72 
   Const os_id_column = 2
73 
	Const old_prod_id_column = 1
 73 
   Const old_prod_id_column = 1
74
74 
 
75 
	'/* Get Latest	From Release Manager */
 75 
   '/* Get Latest From Release Manager */
76 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
76 
   OraDatabase.Parameters.Add "BOM_ID",  parBom_id,                           ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
77 
   OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER
78
78 
 
79 
	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
 79 
   Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
80 
	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
 80 
   If objFormCollector.Item ("product_state_used") =  "Y"   Then
81 
		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
 81 
      Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
82 
	End	If
 82 
   End If
83
83 
 
84 
	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 84 
   Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
85
85 
 
86
86 
 
87 
	'-- Get Rows
 87 
   '-- Get Rows
88 
	If rsQry.RecordCount > 0 Then
 88 
   If rsQry.RecordCount > 0 Then
89 
		aDiffList = rsQry.GetRows()
 89 
      aDiffList = rsQry.GetRows()
90
90 
 
91 
	Else
 91 
   Else
92 
		'-- No differencses with Release Manager, hence exit
 92 
      '-- No differencses with Release Manager, hence exit
93 
		OraDatabase.Parameters.Remove "BOM_ID"
 93 
      OraDatabase.Parameters.Remove "BOM_ID"
94 
		OraDatabase.Parameters.Remove "RTAG_ID"
 94 
      OraDatabase.Parameters.Remove "RTAG_ID"
95 
		Exit Sub
 95 
      Exit Sub
96
96 
 
97 
	End If
 97 
   End If
98
98 
 
99 
	' Get the project id so we can filter out PopulateSBOMField() for SSW later.
99 
   ' Get the project id so we can filter out PopulateSBOMField() for SSW later.
100 
	Dim rsProjId, proj_id
 100 
   Dim rsProjId, proj_id
101 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT proj_id FROM branches br, boms b WHERE br.branch_id = b.branch_id AND b.bom_id = " & parBom_id, cint(0))
 101 
   Set rsProjId = OraDatabase.DbCreateDynaset("SELECT proj_id FROM branches br, boms b WHERE br.branch_id = b.branch_id AND b.bom_id = " & parBom_id, cint(0))
102 
	proj_id = rsProjId("proj_id")
 102 
   proj_id = rsProjId("proj_id")
103 
	rsProjId.Close()
 103 
   rsProjId.Close()
104 
	Set rsProjId = nothing
 104 
   Set rsProjId = nothing
105
105 
 
106 
	'/* Update Versions */
 106 
   '/* Update Versions */
107 
	'On Error Resume Next
 107 
   'On Error Resume Next
108
108 
 
109 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
109 
   OraDatabase.Parameters.Add "OLD_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
110 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
110 
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
111 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
111 
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
112 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
112 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
113
113 
 
114 
	Set OraParameter = OraDatabase.Parameters
 114 
   Set OraParameter = OraDatabase.Parameters
115
115 
 
116
116 
 
117
117 
 
118 
	objEH.TryORA ( OraSession )
 118 
   objEH.TryORA ( OraSession )
119
119 
 
120 
	numOfRows = UBound( aDiffList, 2 )
 120 
   numOfRows = UBound( aDiffList, 2 )
121
121 
 
122 
	For rowNum = 0 To numOfRows
 122 
   For rowNum = 0 To numOfRows
123
123 
 
124 
		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 124 
      If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
125 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
 125 
         OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
126 
			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 126 
         OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
127 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 127 
         OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
128
128 
 
129 
'******************************************************************************
 129 
'******************************************************************************
130 
' This is causing problems for SSW, VTK and SEA and they don't use it, so it
130 
' This is causing problems for SSW, VTK and SEA and they don't use it, so it
131 
' has been disabled for those projects until a fix is found.
 131 
' has been disabled for those projects until a fix is found.
132 
'******************************************************************************
 132 
'******************************************************************************
133 
			If proj_id <> 421 AND proj_id <> 361 AND proj_id <> 122 AND proj_id <> 164 Then
 133 
         If proj_id <> 421 AND proj_id <> 361 AND proj_id <> 122 AND proj_id <> 164 Then
134 
				Call PopulateSBOMField(parBom_id, Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ), NULL, NULL )
 134 
            Call PopulateSBOMField(parBom_id, Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ), NULL, NULL )
135 
			End If
 135 
         End If
136
136 
 
137 
			'Response.Write("<script>alert('" &_
 137 
         'Response.Write("<script>alert('" &_
138 
			'							 "OLD_PROD_ID=" & OraParameter("OLD_PROD_ID").Value & "\n" &_
 138 
         '                     "OLD_PROD_ID=" & OraParameter("OLD_PROD_ID").Value & "\n" &_
139 
			'							 "NEW_PROD_ID=" & OraParameter("NEW_PROD_ID").Value & "\n" &_
 139 
         '                     "NEW_PROD_ID=" & OraParameter("NEW_PROD_ID").Value & "\n" &_
140 
			'							 "OS_ID=" & OraParameter("OS_ID").Value & "\n" &_
 140 
         '                     "OS_ID=" & OraParameter("OS_ID").Value & "\n" &_
141 
			'							 "USER_ID=" & OraParameter("USER_ID").Value & "\n" &_
 141 
         '                     "USER_ID=" & OraParameter("USER_ID").Value & "\n" &_
142 
			'							 "rtag_id_fk=" & objFormCollector.Item("rtag_id_fk") & "\n" &_
 142 
         '                     "rtag_id_fk=" & objFormCollector.Item("rtag_id_fk") & "\n" &_
143 
			'							 "update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) &_
 143 
         '                     "update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) &_
144 
			'							 "')</script>")
 144 
         '                     "')</script>")
145
145 
 
146 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 146 
         OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
147 
		End If
 147 
      End If
148
148 
 
149 
	Next
 149 
   Next
150
150 
 
151
151 
 
152 
	'--- Log Action ---
 152 
   '--- Log Action ---
153 
	'objEH.LogAction  _
 153 
   'objEH.LogAction  _
154 
	'objAccessControl.UserId, _
 154 
   'objAccessControl.UserId, _
155 
	'enumAT_EVENT_COMMENT, _
 155 
   'enumAT_EVENT_COMMENT, _
156 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 156 
   '"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
157 
	'SCRIPT_NAME, _
 157 
   'SCRIPT_NAME, _
158 
	'"Updated Products with new versions.", _
 158 
   '"Updated Products with new versions.", _
159 
	'OraDatabase
 159 
   'OraDatabase
160
160 
 
161
161 
 
162 
	objEH.CatchORA ( OraSession )
162 
   objEH.CatchORA ( OraSession )
163
163 
 
164 
	OraDatabase.Parameters.Remove "BOM_ID"
 164 
   OraDatabase.Parameters.Remove "BOM_ID"
165 
	OraDatabase.Parameters.Remove "RTAG_ID"
 165 
   OraDatabase.Parameters.Remove "RTAG_ID"
166 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 166 
   OraDatabase.Parameters.Remove "OLD_PROD_ID"
167 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 167 
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
168 
	OraDatabase.Parameters.Remove "OS_ID"
 168 
   OraDatabase.Parameters.Remove "OS_ID"
169 
	OraDatabase.Parameters.Remove "USER_ID"
 169 
   OraDatabase.Parameters.Remove "USER_ID"
170 
End Sub
 170 
End Sub
171 
'----------------------------------------------------------------------------------------------------------------------------------
 171 
'----------------------------------------------------------------------------------------------------------------------------------
172 
Sub AddPatches()
 172 
Sub AddPatches()
173 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 173 
   Dim aDiffList, numOfRows, rowNum, OraParameter
174 
	Const os_id_column = 2
 174 
   Const os_id_column = 2
175 
	Const prod_id_column = 1
 175 
   Const prod_id_column = 1
176
176 
 
177 
	'/* Get Lates Release Manager */
 177 
   '/* Get Lates Release Manager */
178 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
178 
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
179
179 
 
180 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 180 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
181
181 
 
182
182 
 
183 
	'-- Get Rows
 183 
   '-- Get Rows
184 
	If rsQry.RecordCount > 0 Then
 184 
   If rsQry.RecordCount > 0 Then
185 
		aDiffList = rsQry.GetRows()
 185 
      aDiffList = rsQry.GetRows()
186
186 
 
187 
	Else
 187 
   Else
188 
		'-- No differences with Release Manager, hence exit
 188 
      '-- No differences with Release Manager, hence exit
189 
		OraDatabase.Parameters.Remove "BOM_ID"
 189 
      OraDatabase.Parameters.Remove "BOM_ID"
190 
		Exit Sub
 190 
      Exit Sub
191 
	End If
 191 
   End If
192
192 
 
193
193 
 
194
194 
 
195 
	'/* Update Versions */
 195 
   '/* Update Versions */
196 
	On Error Resume Next
 196 
   On Error Resume Next
197
197 
 
198 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
198 
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
199 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
199 
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
200 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
200 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
201
201 
 
202 
	Set OraParameter = OraDatabase.Parameters
 202 
   Set OraParameter = OraDatabase.Parameters
203
203 
 
204
204 
 
205
205 
 
206 
	objEH.TryORA ( OraSession )
 206 
   objEH.TryORA ( OraSession )
207
207 
 
208 
	numOfRows = UBound( aDiffList, 2 )
 208 
   numOfRows = UBound( aDiffList, 2 )
209
209 
 
210 
	For rowNum = 0 To numOfRows
 210 
   For rowNum = 0 To numOfRows
211
211 
 
212 
		If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
 212 
      If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
213 
			OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
 213 
         OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
214 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 214 
         OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
215
215 
 
216 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 216 
         OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
217 
		End If
 217 
      End If
218
218 
 
219 
	Next
 219 
   Next
220
220 
 
221
221 
 
222 
	objEH.CatchORA ( OraSession )
222 
   objEH.CatchORA ( OraSession )
223
223 
 
224 
	OraDatabase.Parameters.Remove "BOM_ID"
 224 
   OraDatabase.Parameters.Remove "BOM_ID"
225 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 225 
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
226 
	OraDatabase.Parameters.Remove "OS_ID"
 226 
   OraDatabase.Parameters.Remove "OS_ID"
227 
	OraDatabase.Parameters.Remove "USER_ID"
 227 
   OraDatabase.Parameters.Remove "USER_ID"
228 
End Sub
 228 
End Sub
229 
'----------------------------------------------------------------------------------------------------------------------------------
 229 
'----------------------------------------------------------------------------------------------------------------------------------
230 
Sub HideProducts()
 230 
Sub HideProducts()
231 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 231 
   Dim aDiffList, numOfRows, rowNum, OraParameter
232 
	Const os_id_column = 2
 232 
   Const os_id_column = 2
233 
	Const old_prod_id_column = 1
 233 
   Const old_prod_id_column = 1
234
234 
 
235 
	'/* Get Latest from Release Manager */
 235 
   '/* Get Latest from Release Manager */
236 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
236 
   OraDatabase.Parameters.Add "BOM_ID",  parBom_id,                           ORAPARM_INPUT, ORATYPE_NUMBER
237 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
237 
   OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER
238
238 
 
239 
	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
 239 
   Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
240 
	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
 240 
   If objFormCollector.Item ("product_state_used") =  "Y"   Then
241 
		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")
 241 
      Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")
242 
	End	If
 242 
   End   If
243
243 
 
244 
	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 244 
   Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
245
245 
 
246
246 
 
247 
	'-- Get Rows
 247 
   '-- Get Rows
248 
	If rsQry.RecordCount > 0 Then
 248 
   If rsQry.RecordCount > 0 Then
249 
		aDiffList = rsQry.GetRows()
 249 
      aDiffList = rsQry.GetRows()
250
250 
 
251 
	Else
 251 
   Else
252 
		'-- No differences with Release Manager, hence exit
 252 
      '-- No differences with Release Manager, hence exit
253 
		OraDatabase.Parameters.Remove "BOM_ID"
 253 
      OraDatabase.Parameters.Remove "BOM_ID"
254 
		OraDatabase.Parameters.Remove "RTAG_ID"
 254 
      OraDatabase.Parameters.Remove "RTAG_ID"
255 
		Exit Sub
 255 
      Exit Sub
256
256 
 
257 
	End If
 257 
   End If
258
258 
 
259
259 
 
260
260 
 
261 
	'/* Hide Versions */
 261 
   '/* Hide Versions */
262 
	On Error Resume Next
 262 
   On Error Resume Next
263
263 
 
264 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
264 
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
265 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
265 
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
266 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
266 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
267
267 
 
268 
	Set OraParameter = OraDatabase.Parameters
 268 
   Set OraParameter = OraDatabase.Parameters
269
269 
 
270
270 
 
271
271 
 
272 
	objEH.TryORA ( OraSession )
 272 
   objEH.TryORA ( OraSession )
273
273 
 
274 
	numOfRows = UBound( aDiffList, 2 )
 274 
   numOfRows = UBound( aDiffList, 2 )
275
275 
 
276 
	For rowNum = 0 To numOfRows
 276 
   For rowNum = 0 To numOfRows
277
277 
 
278 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 278 
      If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
279 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 279 
         OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
280 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 280 
         OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
281
281 
 
282 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 282 
         OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
283 
		End If
 283 
      End If
284
284 
 
285 
	Next
 285 
   Next
286
286 
 
287
287 
 
288 
	'--- Log Action ---
 288 
   '--- Log Action ---
289 
	'objEH.LogAction  _
 289 
   'objEH.LogAction  _
290 
	'objAccessControl.UserId, _
 290 
   'objAccessControl.UserId, _
291 
	'enumAT_EVENT_COMMENT, _
 291 
   'enumAT_EVENT_COMMENT, _
292 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 292 
   '"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
293 
	'SCRIPT_NAME, _
 293 
   'SCRIPT_NAME, _
294 
	'"Updated Products with new versions.", _
 294 
   '"Updated Products with new versions.", _
295 
	'OraDatabase
 295 
   'OraDatabase
296
296 
 
297
297 
 
298 
	objEH.CatchORA ( OraSession )
298 
   objEH.CatchORA ( OraSession )
299
299 
 
300 
	OraDatabase.Parameters.Remove "BOM_ID"
 300 
   OraDatabase.Parameters.Remove "BOM_ID"
301 
	OraDatabase.Parameters.Remove "RTAG_ID"
 301 
   OraDatabase.Parameters.Remove "RTAG_ID"
302 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 302 
   OraDatabase.Parameters.Remove "OLD_PROD_ID"
303 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 303 
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
304 
	OraDatabase.Parameters.Remove "OS_ID"
 304 
   OraDatabase.Parameters.Remove "OS_ID"
305 
	OraDatabase.Parameters.Remove "USER_ID"
 305 
   OraDatabase.Parameters.Remove "USER_ID"
306 
End Sub
 306 
End Sub
307 
'----------------------------------------------------------------------------------------------------------------------------------
 307 
'----------------------------------------------------------------------------------------------------------------------------------
308 
Sub HidePatches()
 308 
Sub HidePatches()
309 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 309 
   Dim aDiffList, numOfRows, rowNum, OraParameter
310 
	Const os_id_column = 2
 310 
   Const os_id_column = 2
311 
	Const prod_id_column = 1
 311 
   Const prod_id_column = 1
312
312 
 
313 
	'/* Get Latest from Release Manager */
 313 
   '/* Get Latest from Release Manager */
314 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
314 
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
315
315 
 
316 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 316 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
317
317 
 
318
318 
 
319 
	'-- Get Rows
 319 
   '-- Get Rows
320 
	If rsQry.RecordCount > 0 Then
 320 
   If rsQry.RecordCount > 0 Then
321 
		aDiffList = rsQry.GetRows()
 321 
      aDiffList = rsQry.GetRows()
322
322 
 
323 
	Else
 323 
   Else
324 
		'-- No differencses with Release Manager, hence exit
 324 
      '-- No differencses with Release Manager, hence exit
325 
		OraDatabase.Parameters.Remove "BOM_ID"
 325 
      OraDatabase.Parameters.Remove "BOM_ID"
326 
		Exit Sub
 326 
      Exit Sub
327 
	End If
 327 
   End If
328
328 
 
329
329 
 
330
330 
 
331 
	'/* Hide Versions */
 331 
   '/* Hide Versions */
332 
	On Error Resume Next
 332 
   On Error Resume Next
333
333 
 
334 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
334 
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
335 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
335 
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
336 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
336 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
337
337 
 
338 
	Set OraParameter = OraDatabase.Parameters
 338 
   Set OraParameter = OraDatabase.Parameters
339
339 
 
340
340 
 
341
341 
 
342 
	objEH.TryORA ( OraSession )
 342 
   objEH.TryORA ( OraSession )
343
343 
 
344 
	numOfRows = UBound( aDiffList, 2 )
 344 
   numOfRows = UBound( aDiffList, 2 )
345
345 
 
346
346 
 
347 
	For rowNum = 0 To numOfRows
 347 
   For rowNum = 0 To numOfRows
348
348 
 
349 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
 349 
      If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
350 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
 350 
         OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
351 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 351 
         OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
352
352 
 
353 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 353 
         OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
354 
		End If
 354 
      End If
355
355 
 
356 
	Next
 356 
   Next
357
357 
 
358
358 
 
359 
	objEH.CatchORA ( OraSession )
359 
   objEH.CatchORA ( OraSession )
360
360 
 
361 
	OraDatabase.Parameters.Remove "BOM_ID"
 361 
   OraDatabase.Parameters.Remove "BOM_ID"
362 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 362 
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
363 
	OraDatabase.Parameters.Remove "OS_ID"
 363 
   OraDatabase.Parameters.Remove "OS_ID"
364 
	OraDatabase.Parameters.Remove "USER_ID"
 364 
   OraDatabase.Parameters.Remove "USER_ID"
365 
End Sub
 365 
End Sub
366 
'----------------------------------------------------------------------------------------------------------------------------------
 366 
'----------------------------------------------------------------------------------------------------------------------------------
367 
%>
 367 
%>
368 
<%
 368 
<%
369 
'------------ RUN BEFORE PAGE RENDER ----------
 369 
'------------ RUN BEFORE PAGE RENDER ----------
370 
Call GetFormDetails ( parBom_id, objFormCollector )
 370 
Call GetFormDetails ( parBom_id, objFormCollector )
371 
 
 371 
 
372 
If Request("action") <> "" Then
372 
If Request("action") <> "" Then
373 
	' --- Form is Valid ---
 373 
   ' --- Form is Valid ---
374 
	Call UpdateProducts()
 374 
   Call UpdateProducts()
375
375 
 
376 
	Call AddPatches()
 376 
   Call AddPatches()
377
377 
 
378 
	Call HideProducts()
 378 
   Call HideProducts()
379
379 
 
380 
	Call HidePatches()
 380 
   Call HidePatches()
381
381 
 
382 
	If objEH.Finally Then
 382 
   If objEH.Finally Then
383 
		Call OpenInParentWindow ("Bom_Home.asp?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 383 
      Call OpenInParentWindow ("Bom_Home.asp?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
384 
		Call CloseWindow()
 384 
      Call CloseWindow()
385 
	End If
 385 
   End If
386 
End If
 386 
End If
387 
 
 387 
 
388 
'----------------------------------------------
 388 
'----------------------------------------------
389 
%>
 389 
%>
390 
 
 390 
 
391 
 
 391 
 
392 
<html>
 392 
<html>
393 
<head>
 393 
<head>
394 
<SCRIPT LANGUAGE="JavaScript">
 394 
<SCRIPT LANGUAGE="JavaScript">
395 
<!-- Begin
 395 
<!-- Begin
- 
 
 396 
 
396 
var checkflag = "false";
 397 
var checkflag = "false";
- 
 
 398 
 
397 
function check(field) {
 399 
function check(field) {
398 
if (checkflag == "false") {
 400 
   if (checkflag == "false") {
399 
  for (i = 0; i < field.length; i++) {
 401 
      for (i = 0; i < field.length; i++) {
400 
  field[i].checked = true;}
 402 
         field[i].checked = true;
- 
 
 403 
      }
401 
  checkflag = "true";
 404 
      checkflag = "true";
402 
  return "Uncheck all"; }
 405 
      return "Uncheck all";
- 
 
 406 
   }
403 
else {
 407 
   else {
404 
  for (i = 0; i < field.length; i++) {
 408 
      for (i = 0; i < field.length; i++) {
405 
  field[i].checked = false; }
 409 
         field[i].checked = false;
- 
 
 410 
      }
406 
  checkflag = "false";
 411 
      checkflag = "false";
407 
  return "Check all"; }
 412 
      return "Check all";
- 
 
 413 
   }
408 
}
 414 
}
409 
//  End -->
 415 
//  End -->
410 
</script>
 416 
</script>
411 
<script language="javascript">
 417 
<script language="javascript">
- 
 
 418 
 
412 
function checkAllHide()
 419 
function checkAllHide()
413 
{
 420 
{
414 
  var args = arguments;
 421 
   var args = arguments;
415 
  start_point:
 422 
   start_point:
416 
  for (var i=0;i<document.forms[0].elements.length;i++)
 423 
   for (var i=0;i<document.forms[0].elements.length;i++) {
417 
  {
 - 
 
418 
 
 - 
 
419 
     found = false;
424 
      found = false;
420 
     var e=document.forms[0].elements[i];
 425 
      var e=document.forms[0].elements[i];
421 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
 426 
      if ((e.name != 'checkall') && (e.type=='checkbox')) {
422 
     {
 - 
 
423 
        for (var j = 0; j < args.length; j++)
 427 
         for (var j = 0; j < args.length; j++)
424 
           if (args[j] == e.name)
 428 
            if (args[j] == e.name) {
425 
				{e.checked=document.forms[0].checkallhide.checked;}
 429 
               e.checked=document.forms[0].checkallhide.checked;
- 
 
 430 
            }
426 
    }
 431 
      }
427 
  }
 432 
   }
428 
}
 433 
}
- 
 
 434 
 
429 
function checkAllAdd()
 435 
function checkAllAdd()
430 
{
436 
{
431 
  var args = arguments;
 437 
   var args = arguments;
432 
  start_point:
 438 
   start_point:
433 
  for (var i=0;i<document.forms[0].elements.length;i++)
 439 
   for (var i=0;i<document.forms[0].elements.length;i++) {
434 
  {
 - 
 
435
440 
 
436 
     found = false;
441 
      found = false;
437 
     var e=document.forms[0].elements[i];
 442 
      var e=document.forms[0].elements[i];
438 
 
 443 
 
439 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
 444 
      if ((e.name != 'checkall') && (e.type=='checkbox')) {
440 
     {
 - 
 
441 
        for (var j = 0; j < args.length; j++)
 445 
         for (var j = 0; j < args.length; j++)
442 
           if (args[j] == e.name)
 446 
            if (args[j] == e.name) {
443 
           		{e.checked=document.forms[0].checkalladd.checked;}
 447 
               e.checked=document.forms[0].checkalladd.checked;
- 
 
 448 
            }
444 
    }
 449 
      }
445 
  }
 450 
   }
446 
}
 451 
}
- 
 
 452 
 
- 
 
 453 
// Checks all checkboxes whose name begins with any strings listed as args to the function.
- 
 
 454 
function checkAllBeforeSubmit()
- 
 
 455 
{
- 
 
 456 
   var args = arguments;
- 
 
 457 
   start_point:
- 
 
 458 
 
- 
 
 459 
   for (var i=0;i<document.forms[0].elements.length;i++) {
- 
 
 460 
 
- 
 
 461 
      var e=document.forms[0].elements[i];
- 
 
 462 
 
- 
 
 463 
      if (e.type=='checkbox') {
- 
 
 464 
         for (var j = 0; j < args.length; j++)
- 
 
 465 
            if (e.name.indexOf(args[j]) == 0) {
- 
 
 466 
               e.checked=true;
- 
 
 467 
            }
- 
 
 468 
      }
- 
 
 469 
   }
- 
 
 470 
   return true;
- 
 
 471 
}
- 
 
 472 
 
447 
</script>
 473 
</script>
448 
 
 474 
 
449 
 
 475 
 
450 
<title>Deployment Manager</title>
 476 
<title>Deployment Manager</title>
451 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 477 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
Line 459... Line 485...
459 
</style>
 485 
</style>
460 
</head>
 486 
</head>
461 
 
 487 
 
462 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 488 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
463 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 489 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
464 
  <tr>
 490 
   <tr>
465 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Update Products </span> <br>
 491 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Update Products </span> <br>
466 
    Update Products, selecting the latest from "Release Manager".
 492 
         Update Products, selecting the latest from "Release Manager".
467 
    </td>
 493 
      </td>
468 
  </tr>
494 
   </tr>
469 
<%
 495 
   <%
470 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 496 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
471 
objFormComponent.FormName = "FormName"
 497 
   objFormComponent.FormName = "FormName"
472 
objFormComponent.Action = SCRIPT_NAME
 498 
   objFormComponent.Action = SCRIPT_NAME
473 
objFormComponent.OnSubmit = "ShowProgress();"
 499 
   objFormComponent.OnSubmit = "ShowProgress();"
474 
Call objFormComponent.FormStart()
 500 
   Call objFormComponent.FormStart()
475 
%>
- 
 
476 
  <tr>
 501 
   %>
477 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
478 
      <tr>
 - 
 
479 
        <td><%=ProgressBar()%>
 - 
 
480 
          <input name="btn" type="submit" class="form_btn" value="Update">
 - 
 
481 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 - 
 
482 
        <td align="left">&nbsp;        </td>
 - 
 
483 
      </tr>
 - 
 
484 
    </table></td>
 - 
 
485 
  </tr>
 - 
 
486 
  <tr>
 502 
   <tr>
487 
    <td>
 - 
 
488 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
489 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 - 
 
490 
      <tr>
 - 
 
491 
        <td width="100%" valign="top" nowrap class="body_txt">
 - 
 
492 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
493 
		  <!--#include file="messages/_msg_inline.asp"-->
 503 
      <td background="images/bg_login.gif">
494 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
495 
		  <%
 - 
 
496 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
 - 
 
497 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
 - 
 
498 
		  End If
 - 
 
499 
		  %>
 - 
 
500 
		  <!-- UPDATE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
501 
		  Select Products and click Update.
 - 
 
502 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 504 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
503 
            <tr>
 - 
 
504 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Update</td>
 - 
 
505 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
 - 
 
506 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
 - 
 
507 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
 - 
 
508 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
 - 
 
509 
              </tr>
- 
 
510 
			<%
 - 
 
511 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
512 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
513
- 
 
514 
			Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
 - 
 
515 
			If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
 - 
 
516 
				Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
 - 
 
517 
			End	If
 - 
 
518 
 
 - 
 
519 
			Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 - 
 
520 
			currPkg_id = 0
 - 
 
521 
			%>
 - 
 
522 
			<%If rsQry.RecordCount < 1 Then%>
 - 
 
523 
			<tr>
 - 
 
524 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
 - 
 
525 
            </tr>
 - 
 
526 
			<%End If%>
 - 
 
527 
			<%
 - 
 
528 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
529 
			Dim rsTemp
 - 
 
530
- 
 
531 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
 - 
 
532
- 
 
533 
			If rsTemp.RecordCount = 0 Then
- 
 
534
- 
 
535
- 
 
536 
			%>
 - 
 
537 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
 - 
 
538 
            <tr>
 505 
            <tr>
539 
			  <td 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>
 506 
               <td><%=ProgressBar()%>
540 
              <td nowrap></td>
 507 
                  <input name="btn" type="submit" class="form_btn" value="Update Selected">
541 
              <td nowrap class="body_row">&nbsp;</td>
 508 
                  <input name="btn" type="submit" class="form_btn" value="Update All" onClick="checkAllBeforeSubmit('add_','update_');" >
542 
              <td nowrap class="body_row"><div align="center"></div></td>
 509 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
- 
 
 510 
               </td>
543 
              <td nowrap class="body_row"></td>
 511 
               <td align="left">&nbsp;
544 
              </tr>
 512 
               </td>
545 
			<tr>
 - 
 
546 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
547 
            </tr>
 513 
            </tr>
548 
			<%currPkg_id = rsQry("pkg_id")%>
 514 
         </table>
549 
			<%End If%>
 515 
      </td>
- 
 
 516 
   </tr>
550
517 
   <tr>
- 
 
 518 
      <td>
- 
 
 519 
         <!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 520 
         <table width="100%"  border="0" cellspacing="10" cellpadding="0">
551 
            <tr>
 521 
            <tr>
- 
 
 522 
               <td width="100%" valign="top" nowrap class="body_txt">
- 
 
 523 
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 524 
                  <!--#include file="messages/_msg_inline.asp"-->
- 
 
 525 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 526 
                  <%
- 
 
 527 
                  If objFormCollector.Item("rtag_id_fk") = "" Then
- 
 
 528 
                     Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
- 
 
 529 
                  End If
- 
 
 530 
                  %>
- 
 
 531 
                  <!-- UPDATE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 532 
                  Select Products and click Update.
- 
 
 533 
                  <table width="100%"  border="0" cellspacing="3" cellpadding="0">
- 
 
 534 
                     <tr>
- 
 
 535 
                        <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Update</td>
- 
 
 536 
                        <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
- 
 
 537 
                        <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
- 
 
 538 
                        <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
- 
 
 539 
                        <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
- 
 
 540 
                     </tr>
- 
 
 541 
                     <%
- 
 
 542 
                     OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 543 
                     OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),    ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 544 
 
- 
 
 545 
                     Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
- 
 
 546 
                     If objFormCollector.Item ("product_state_used") =  "Y"   Then
- 
 
 547 
                        Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
- 
 
 548 
                     End   If
- 
 
 549 
 
- 
 
 550 
                     Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
- 
 
 551 
                     Dim rsTemp
- 
 
 552 
                     Dim hideResult()
- 
 
 553 
                     Dim numHiddenProducts
- 
 
 554 
                     Dim len_hideResult
- 
 
 555 
                     Dim i_hideResult
- 
 
 556 
 
- 
 
 557 
                     ' Evaluate hidden status of products
- 
 
 558 
                     numHiddenProducts  = 0
- 
 
 559 
                     len_hideResult = 0
- 
 
 560 
                     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 561 
                        Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
- 
 
 562 
 
- 
 
 563 
                        len_hideResult = len_hideResult + 1
- 
 
 564 
                        ReDim Preserve hideResult(len_hideResult)
- 
 
 565 
 
- 
 
 566 
                        If rsTemp.RecordCount = 0 Then
- 
 
 567 
                           hideResult(len_hideResult - 1) = False
- 
 
 568 
                        Else
- 
 
 569 
                           hideResult(len_hideResult - 1) = True
- 
 
 570 
                           numHiddenProducts = numHiddenProducts + 1
- 
 
 571 
                        End If
- 
 
 572 
 
- 
 
 573 
                        rsTemp.Close()
- 
 
 574 
                        Set rsTemp = nothing
- 
 
 575 
                        rsQry.MoveNext
- 
 
 576 
                     Wend
- 
 
 577 
 
- 
 
 578 
                     If (rsQry.RecordCount = numHiddenProducts) Then
- 
 
 579 
                     %>
- 
 
 580 
                        <tr>
- 
 
 581 
                           <td colspan="5" class="body_row">No Products to Update (some products are hidden and status of those has not been shown)</td>
- 
 
 582 
                        </tr>
- 
 
 583 
                     <%ElseIf (rsQry.RecordCount < 1) Then%>
- 
 
 584 
                        <tr>
- 
 
 585 
                           <td colspan="5" class="body_row">No Products to Update.</td>
- 
 
 586 
                        </tr>
- 
 
 587 
                     <%End If
- 
 
 588 
 
- 
 
 589 
                     ' Now render the product rows themselves
- 
 
 590 
                     currPkg_id = 0
- 
 
 591 
                     rsQry.MoveFirst
- 
 
 592 
                     i_hideResult = 0
- 
 
 593 
                     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 594 
 
- 
 
 595 
                        If hideResult(i_hideResult) = False Then
- 
 
 596 
                           If currPkg_id <> rsQry("pkg_id") Then
- 
 
 597 
                           %>
- 
 
 598 
                              <tr>
- 
 
 599 
                                 <td 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>
- 
 
 600 
                                 <td nowrap></td>
- 
 
 601 
                                 <td nowrap class="body_row">&nbsp;</td>
- 
 
 602 
                                 <td nowrap class="body_row"><div align="center"></div></td>
- 
 
 603 
                                 <td nowrap class="body_row"></td>
- 
 
 604 
                              </tr>
- 
 
 605 
                              <tr>
- 
 
 606 
                                 <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 607 
                              </tr>
- 
 
 608 
                              <%
- 
 
 609 
                              currPkg_id = rsQry("pkg_id")
- 
 
 610 
                           End If
- 
 
 611 
                           %>
- 
 
 612 
 
- 
 
 613 
                           <tr>
552 
              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>"> </td>
 614 
                              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>"> </td>
553 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
 615 
                              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
554 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
 616 
                              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
555 
			  <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 617 
                              <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
556 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
 618 
                              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
- 
 
 619 
                           </tr>
- 
 
 620 
                           <tr>
- 
 
 621 
                              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 622 
                           </tr>
- 
 
 623 
                        <%
- 
 
 624 
                        End If
- 
 
 625 
 
- 
 
 626 
                        rsQry.MoveNext
- 
 
 627 
                        i_hideResult = i_hideResult + 1
- 
 
 628 
                     Wend
557 
              </tr>
 629 
                     %>
- 
 
 630 
 
- 
 
 631 
 
- 
 
 632 
                     <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 633 
                     <%
- 
 
 634 
                     Dim strAdd, rsAdd, strHide
- 
 
 635 
                     Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
- 
 
 636 
                     Set rsAdd = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
- 
 
 637 
                     currPkg_id = 0
- 
 
 638 
 
- 
 
 639 
                     If rsQry.RecordCount > 0 Then
- 
 
 640 
                        While (NOT rsAdd.BOF) AND (NOT rsAdd.EOF)
- 
 
 641 
                           Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsAdd("os_id") &" AND PROD_ID="& rsAdd("prod_id"), ORADYN_DEFAULT )
- 
 
 642 
 
- 
 
 643 
                           If rsTemp.RecordCount = 0 Then
- 
 
 644 
                              strAdd = strAdd + "'add_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
- 
 
 645 
                              strHide = strHide + "'hide_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
- 
 
 646 
                           End If
- 
 
 647 
                           rsAdd.MoveNext
- 
 
 648 
                        Wend
- 
 
 649 
 
- 
 
 650 
                        rsAdd.Close()
- 
 
 651 
                        rsTemp.Close()
- 
 
 652 
                        Set rsAdd = nothing
- 
 
 653 
                        Set rsTemp = nothing
- 
 
 654 
 
- 
 
 655 
                        If NOT IsEmpty(strAdd) Then
- 
 
 656 
                           strAdd = Mid(strAdd, 1, Len(strAdd)-1) + ", 'checkalladd'"
- 
 
 657 
                        End If
- 
 
 658 
                        If NOT IsEmpty(strHide) Then
- 
 
 659 
                           strHide = Mid(strHide, 1, Len(strHide)-1) + ", 'checkallhide'"
- 
 
 660 
                        End If
- 
 
 661 
                        %>
- 
 
 662 
 
- 
 
 663 
                        <tr>
- 
 
 664 
                           <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
- 
 
 665 
                           <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
- 
 
 666 
                           <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
- 
 
 667 
                           <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
- 
 
 668 
                           <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>
- 
 
 669 
                        </tr>
- 
 
 670 
                        <%If NOT IsEmpty(strAdd) Then%>
- 
 
 671 
                           <tr>
- 
 
 672 
                              <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strAdd%>);"></td>
- 
 
 673 
                              <td nowrap class="body_row">&nbsp;</td>
- 
 
 674 
                              <td nowrap class="body_row">&nbsp;</td>
- 
 
 675 
                              <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strHide%>);"></td>
- 
 
 676 
                              <td nowrap class="body_row">&nbsp;</td>
- 
 
 677 
                           </tr>
- 
 
 678 
                        <%
- 
 
 679 
                        End If
- 
 
 680 
 
- 
 
 681 
                        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 682 
 
- 
 
 683 
                           Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
- 
 
 684 
 
- 
 
 685 
                           If rsTemp.RecordCount = 0 Then
- 
 
 686 
 
- 
 
 687 
                              If currPkg_id <> rsQry("pkg_id") Then
- 
 
 688 
                              %>
- 
 
 689 
                                 <tr>
- 
 
 690 
                                    <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>
- 
 
 691 
                                    <td nowrap class="body_row">&nbsp;</td>
- 
 
 692 
                                    <td nowrap class="body_row"><div align="center"></div></td>
- 
 
 693 
                                    <td nowrap class="body_row"></td>
- 
 
 694 
                                 </tr>
- 
 
 695 
                                 <tr>
- 
 
 696 
                                    <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 697 
                                 </tr>
- 
 
 698 
                                 <%
- 
 
 699 
                                 currPkg_id = rsQry("pkg_id")
- 
 
 700 
                              End If
- 
 
 701 
                              %>
- 
 
 702 
                              <tr>
- 
 
 703 
                                <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
- 
 
 704 
                                <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
- 
 
 705 
                                <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
- 
 
 706 
                                <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
- 
 
 707 
                                <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
- 
 
 708 
                              </tr>
- 
 
 709 
                              <tr>
- 
 
 710 
                                 <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 711 
                              </tr>
- 
 
 712 
                           <%
- 
 
 713 
                           End If
- 
 
 714 
 
- 
 
 715 
                           rsTemp.Close()
- 
 
 716 
                           Set rsTemp = nothing
- 
 
 717 
 
- 
 
 718 
                           rsQry.MoveNext
- 
 
 719 
                        Wend
- 
 
 720 
                     End If
- 
 
 721 
                     %>
558 
			<tr>
 722 
                     <tr>
559 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 723 
                        <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
- 
 
 724 
                     </tr>
- 
 
 725 
                  </table>
- 
 
 726 
                  <%
- 
 
 727 
                  OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 728 
                  OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 729 
                  rsQry.Close
- 
 
 730 
                  Set rsQry = Nothing
- 
 
 731 
                  %>
- 
 
 732 
               </td>
560 
            </tr>
 733 
            </tr>
561 
			<%
 - 
 
562 
			End If
 - 
 
563
- 
 
564 
			rsTemp.Close()
 - 
 
565 
			Set rsTemp = nothing
 - 
 
566
- 
 
567 
			%>
- 
 
568 
            <%rsQry.MoveNext
 - 
 
569 
			Wend
 - 
 
570 
			%>
 - 
 
571
- 
 
572 
		  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
573 
		    <%
 - 
 
574 
			Dim strAdd, rsAdd, strHide
 - 
 
575 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 - 
 
576 
			Set rsAdd = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 - 
 
577 
			currPkg_id = 0
 - 
 
578 
			%>
 - 
 
579
- 
 
580 
			<%If rsQry.RecordCount > 0 Then
 - 
 
581 
				While (NOT rsAdd.BOF) AND (NOT rsAdd.EOF)
 - 
 
582 
				Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsAdd("os_id") &" AND PROD_ID="& rsAdd("prod_id"), ORADYN_DEFAULT )
 - 
 
583
- 
 
584 
				If rsTemp.RecordCount = 0 Then
- 
 
585 
					strAdd = strAdd + "'add_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
 - 
 
586 
					strHide = strHide + "'hide_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
 - 
 
587 
				End If
- 
 
588 
					rsAdd.MoveNext
 - 
 
589 
				Wend
 - 
 
590
- 
 
591 
				rsAdd.Close()
 - 
 
592 
				rsTemp.Close()
 - 
 
593 
				Set rsAdd = nothing
 - 
 
594 
				Set rsTemp = nothing
 - 
 
595
- 
 
596 
				If NOT IsEmpty(strAdd) Then
 - 
 
597 
					strAdd = Mid(strAdd, 1, Len(strAdd)-1) + ", 'checkalladd'"
 - 
 
598 
				End If
 - 
 
599 
				If NOT IsEmpty(strHide) Then
 - 
 
600 
					strHide = Mid(strHide, 1, Len(strHide)-1) + ", 'checkallhide'"
 - 
 
601 
				End If
- 
 
602 
			%>
 - 
 
603
- 
 
604 
		    <tr>
 - 
 
605 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
 - 
 
606 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
 - 
 
607 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
 - 
 
608 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
 - 
 
609 
              <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>
 - 
 
610 
              </tr>
 - 
 
611 
			  <%If NOT IsEmpty(strAdd) Then%>
 - 
 
612 
			  <tr>
 - 
 
613 
 			   <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strAdd%>);"></td>
 - 
 
614 
			   <td nowrap class="body_row">&nbsp;</td>
 - 
 
615 
			   <td nowrap class="body_row">&nbsp;</td>
 - 
 
616 
 			   <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strHide%>);"></td>
 - 
 
617 
			   <td nowrap class="body_row">&nbsp;</td>
 - 
 
618 
			  </tr>
 - 
 
619 
			<%End If%>
 - 
 
620 
			<%
 - 
 
621 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
622 
 
 - 
 
623
- 
 
624 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
 - 
 
625
- 
 
626 
			If rsTemp.RecordCount = 0 Then
 - 
 
627
- 
 
628 
			%>
 - 
 
629 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
 - 
 
630 
            <tr>
 - 
 
631 
			  <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>
 - 
 
632 
              <td nowrap class="body_row">&nbsp;</td>
 - 
 
633 
              <td nowrap class="body_row"><div align="center"></div></td>
 - 
 
634 
              <td nowrap class="body_row"></td>
 - 
 
635 
              </tr>
 - 
 
636 
			<tr>
 - 
 
637 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
638 
            </tr>
 - 
 
639 
			<%currPkg_id = rsQry("pkg_id")%>
 - 
 
640 
			<%End If%>
 - 
 
641
- 
 
642 
            <tr>
 - 
 
643 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 - 
 
644 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
 - 
 
645 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
 - 
 
646 
              <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 - 
 
647 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
 - 
 
648 
              </tr>
 - 
 
649 
			<tr>
 - 
 
650 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
651 
            </tr>
 - 
 
652 
			<%
 - 
 
653 
			End If
 - 
 
654
- 
 
655 
			rsTemp.Close()
 - 
 
656 
			Set rsTemp = nothing
 - 
 
657
- 
 
658 
			%>
 - 
 
659
- 
 
660 
            <%rsQry.MoveNext
 - 
 
661 
			Wend
 - 
 
662 
			%>
 - 
 
663
- 
 
664 
			<%End If%>
 - 
 
665
- 
 
666 
			<tr>
 - 
 
667 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
 - 
 
668 
            </tr>
 - 
 
669 
          </table>
 734 
         </table>
670
- 
 
671
- 
 
672 
		  <%
 - 
 
673 
		  OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
674 
		  OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
675 
		  rsQry.Close
 - 
 
676 
		  Set rsQry = Nothing
 - 
 
677 
		  %>		  </td>
 - 
 
678 
        </tr>
 - 
 
679 
    </table>
 - 
 
680 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 735 
         <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
681 
    </td>
 736 
      </td>
682 
  </tr>
 737 
   </tr>
683 
  <%=objPMod.ComposeHiddenTags()%>
 738 
   <%=objPMod.ComposeHiddenTags()%>
684 
  <input type="hidden" name="action" value="true">
 739 
   <input type="hidden" name="action" value="true">
685 
<%
 740 
   <%
686 
Call objFormComponent.FormEnd()
 741 
   Call objFormComponent.FormEnd()
687 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 742 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
688 
%>
 743 
   %>
689 
</table>
 744 
</table>
690 
</body>
 745 
</body>
691 
</html>
 746 
</html>
692 
<%
 747 
<%
693 
'------------ RUN AFTER PAGE RENDER -----------
 748 
'------------ RUN AFTER PAGE RENDER -----------