Subversion Repositories DevTools

Rev

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

Rev 23 Rev 25
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          Bom_AllProducts			 	 |
 5 
'|			          Bom_Home					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 46... Line 46...
46 
'------------ CONDITIONS ----------------------
 46 
'------------ CONDITIONS ----------------------
47 
'----------------------------------------------
 47 
'----------------------------------------------
48 
%>
 48 
%>
49 
<%
 49 
<%
50 
'--------------------------------------------------------------------------------------------------------------
 50 
'--------------------------------------------------------------------------------------------------------------
51 
Sub GetProductList ( nBom_id, nComparedBomId, outProductList )
 51 
Sub GetProductList ( nBom_id, nComparedBomId, outProductList, Flag )
52 
	Dim rsQry, query, showAll
 52 
	Dim rsQry, query, showAll
53
53
54 
	'' Use SHOWALL parameter is BOM has old bom
 54 
	'' Use SHOWALL parameter is BOM has old bom
55 
	'showAll = "Y"
 55 
	'showAll = "Y"
56 
	'If nBom_id <> nComparedBomId Then
 56 
	'If nBom_id <> nComparedBomId Then
Line 58... Line 58...
58 
	'End If
 58 
	'End If
59
59
60
60
61 
	OraDatabase.Parameters.Add "BOM_ID", 	 	 nBom_id,		 ORAPARM_INPUT, ORATYPE_NUMBER
61 
	OraDatabase.Parameters.Add "BOM_ID", 	 	 nBom_id,		 ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "COMPARE_BOM_ID", nComparedBomId, ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "COMPARE_BOM_ID", nComparedBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 63 
	If Flag = TRUE Then
- 
 
 64 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT )
63
65 
	Else
64 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT )
 66 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare_BaseConfig.sql"), ORADYN_DEFAULT )
65
67 
	End If
66 
	If rsQry.RecordCount > 0 Then
 68 
	If rsQry.RecordCount > 0 Then
67 
		outProductList = rsQry.GetRows()
 69 
		outProductList = rsQry.GetRows()
68 
	Else
 70 
	Else
69 
		outProductList = NULL
 71 
		outProductList = NULL
70 
	End If
 72 
	End If
Line 154... Line 156...
154 
<script language="JavaScript" src="scripts/common.js"></script>
 156 
<script language="JavaScript" src="scripts/common.js"></script>
155 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
 157 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
156 
<script language="JavaScript" type="text/javascript">
 158 
<script language="JavaScript" type="text/javascript">
157 
<!--
 159 
<!--
158 
 
 160 
 
159 
function RequestProductLocation( paramString, rowId, changeType ){
 161 
function RequestProductLocation( paramString, rowId ){
160 
	var requestURL
162 
	var requestURL;
161
163
162 
	// Product is changes, hence can be found in current bom
 164 
	// Product is changes, hence can be found in current bom
163 
	requestURL = 'RequestBomDiffProductLocation.asp';
 165 
	requestURL = 'RequestBomDiffProductLocation.asp';
164
166
165 
 
 167 
 
Line 255... Line 257...
255 
        <td>&nbsp;</td>
 257 
        <td>&nbsp;</td>
256 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
 258 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
257 
        </tr>
 259 
        </tr>
258 
    </table>
 260 
    </table>
259
261
260 
<!-- PRODUCT REJECTED ------------------------------------------------------------------------------------------ -->
262 
<!-- BOM REJECTED ------------------------------------------------------------------------------------------ -->
261 
	<%If objBomCollector.Item ("is_rejected") = enumDB_YES Then%>
 263 
	<%If objBomCollector.Item ("is_readonly") = enumDB_YES Then%>
262 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 264 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
263 
      <tr>
 265 
      <tr>
264 
        <td>
 266 
        <td>
265 
		<%
 267 
		<%
266 
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARbom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 268 
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARbom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
Line 269... Line 271...
269 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
 271 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
270
272
271
273
272 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
 274 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
273 
			sMessage = sMessage &"<tr>"
 275 
			sMessage = sMessage &"<tr>"
274 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>BOM is REJECTED!</b><br><br><br></td>"
 276 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>BOM NOTES</b><br><br><br></td>"
- 
 
 277 
			If rsQry.RecordCount = 0 Then
- 
 
 278 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wBomAddNote.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Note"& LIMG_NOTE_NEW &"</a></td>"
- 
 
 279 
			Else
275 
			sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wBomRejectNote.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Note"& LIMG_NOTE_NEW &"</a></td>"
 280 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wBomRejectNote.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Note"& LIMG_NOTE_NEW &"</a></td>"
- 
 
 281 
			End If
276 
			sMessage = sMessage &"</tr>"
 282 
			sMessage = sMessage &"</tr>"
277
283
278 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 284 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
279 
				sMessage = sMessage & "<tr><td colspan='2' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
 285 
				sMessage = sMessage & "<tr><td colspan='2' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
280 
				sMessage = sMessage &"<tr>"
 286 
				sMessage = sMessage &"<tr>"
281 
				sMessage = sMessage &"<td class='body_txt'>"
 287 
				sMessage = sMessage &"<td class='body_txt'>"
- 
 
 288
282 
				If rsQry("is_rejected") = enumDB_YES Then
 289 
				If rsQry("is_rejected") = enumDB_YES Then
283 
					sMessage = sMessage &"BOM is REJECTED!<br>"
 290 
					sMessage = sMessage &"<b>BOM is REJECTED!</b><br>"
- 
 
 291 
				ElseIf (rsQry("is_rejected")) = "N" Then
- 
 
 292 
					sMessage = sMessage &"<b>BOM is ACCEPTED!</b><br>"
284 
				Else
 293 
				Else
285 
					sMessage = sMessage &"BOM is Accepted!<br>"
 294 
					sMessage = sMessage &"<b>BOM is LOCKED!</b><br>"
286 
				End If
 295 
				End If
287 
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
 296 
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
288 
				sMessage = sMessage &"<td nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wBomRejectNote.asp?reject_seq="& rsQry("reject_seq") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');"" class='body_smllink' title='Edit note'>Edit Note"& LIMG_NOTE_EDIT &"</a></td>"
 297 
				sMessage = sMessage &"<td nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wBomRejectNote.asp?reject_seq="& rsQry("reject_seq") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');"" class='body_smllink' title='Edit note'>Edit Note"& LIMG_NOTE_EDIT &"</a></td>"
289 
				sMessage = sMessage &"</tr>"
 298 
				sMessage = sMessage &"</tr>"
290
299
291 
				rsQry.MoveNext
 300 
				rsQry.MoveNext
292 
			WEnd
 301 
			WEnd
293 
			rsQry.Close
 302 
 
294
303
295 
			sMessage = sMessage &"</table>"
 304 
			sMessage = sMessage &"</table>"
296
305
- 
 
 306
- 
 
 307 
			If objBomCollector.Item ("is_rejected") = enumDB_YES Then
297 
			Call Messenger ( sMessage, "bi_rejected.gif", "100%" )
 308 
				Call Messenger ( sMessage, "bi_rejected.gif", "100%" )
- 
 
 309 
			ElseIf objBomCollector.Item ("is_rejected") = "N" Then
- 
 
 310 
				Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
- 
 
 311 
			Else
- 
 
 312 
				Call Messenger ( sMessage, "bi_new.gif", "100%" )
- 
 
 313 
			End If
298
314
299 
			Response.write "<br>"
 315 
			Response.write "<br>"
300
316
- 
 
 317 
			rsQry.Close()
- 
 
 318 
			Set rsQry = Nothing
301
319
302 
			OraDatabase.Parameters.Remove "ENTITY_ID"
 320 
			OraDatabase.Parameters.Remove "ENTITY_ID"
303 
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
 321 
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
304 
		%>
 322 
		%>
305
323
Line 362... Line 380...
362 
            </table></td>
 380 
            </table></td>
363 
			<td width="20%" nowrap align="left" background="images/bg_table_col.gif" class="body_col">Version</td>
 381 
			<td width="20%" nowrap align="left" background="images/bg_table_col.gif" class="body_col">Version</td>
364 
			<td width="60%" nowrap align="left" background="images/bg_table_col.gif" class="body_col"></td>
 382 
			<td width="60%" nowrap align="left" background="images/bg_table_col.gif" class="body_col"></td>
365 
          </tr>
 383 
          </tr>
366 
		  <%
 384 
		  <%
367 
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList )
 385 
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, TRUE )
- 
 
 386
- 
 
 387 
		  If NOT IsNull( aProductList ) Then
- 
 
 388 
		  	numOfRows = UBound( aProductList, 2 )
- 
 
 389
- 
 
 390 
			For rowNum = 0 To numOfRows
- 
 
 391
- 
 
 392 
				ProdId = aProductList( 0, rowNum )
- 
 
 393 
				ChangeType = aProductList( 3, rowNum )
- 
 
 394 
		  %>
- 
 
 395 
		  <tr>
- 
 
 396 
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
- 
 
 397 
            <td nowrap valign="top">
- 
 
 398 
			<%
- 
 
 399 
			Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT )
- 
 
 400 
			%>
- 
 
 401 
			<SPAN id="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" style="display:block;"><a href="javascript:;" class="menu_link" onClick="RequestProductLocation('?new_version=<%=aProductList( 2, rowNum )%>&prod_id=<%=ProdId%>&bom_id=<%=dbPARbom_id%>&compare_bom_id=<%=objFormCollector.Item("compare_bom_id")%>&change_type=<%=ChangeType%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
- 
 
 402 
			<SPAN id="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PRODUCT_<%=ProdId & ChangeType%>', 'IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>', 'IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>');"><%=LIMG_COLLAPSE & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
- 
 
 403 
			<%
- 
 
 404 
			rsTemp.Close()
- 
 
 405 
			Set rsTemp = nothing
- 
 
 406 
			%>
- 
 
 407 
			</td>
- 
 
 408 
            <td nowrap class="body_row" valign="top"><a href=http://erg:8002/ManagerSuite/Release_Manager/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank">
- 
 
 409 
				<%=aProductList( 2, rowNum )%></a>			</td>
- 
 
 410 
			<td class="body_rowlite"></td>
- 
 
 411 
          </tr>
- 
 
 412
- 
 
 413 
		  <tr>
- 
 
 414 
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 415 
	            <td nowrap valign="top" class="body_row" colspan="3">
- 
 
 416 
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
- 
 
 417 
				</td>
- 
 
 418 
	          </tr>
- 
 
 419
- 
 
 420 
		  <%If rowNum <> numOfRows Then%>
- 
 
 421 
		  <tr>
- 
 
 422 
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 423 
          </tr>
- 
 
 424 
		  <%End If%>
- 
 
 425
- 
 
 426 
		  <%
- 
 
 427 
		  	Next
- 
 
 428 
		  Else%>
- 
 
 429
- 
 
 430 
		  <tr>
- 
 
 431 
            <td colspan="4" class="body_txt">No Changes Found.</td>
- 
 
 432 
          </tr>
- 
 
 433
- 
 
 434 
		  <%End If%>
- 
 
 435
- 
 
 436 
		  <tr>
- 
 
 437 
            <td colspan="4" class="body_txt"><b>Base Configuration Changes.</b></td>
- 
 
 438 
          </tr>
- 
 
 439
- 
 
 440 
		  		  <%
- 
 
 441 
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, FALSE )
368
442
369 
		  If NOT IsNull( aProductList ) Then
 443 
		  If NOT IsNull( aProductList ) Then
370 
		  	numOfRows = UBound( aProductList, 2 )
 444 
		  	numOfRows = UBound( aProductList, 2 )
371
445
372 
			For rowNum = 0 To numOfRows
 446 
			For rowNum = 0 To numOfRows
Line 378... Line 452...
378 
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
 452 
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
379 
            <td nowrap valign="top">
 453 
            <td nowrap valign="top">
380 
			<%
 454 
			<%
381 
			Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT )
 455 
			Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT )
382 
			%>
 456 
			%>
383 
			<SPAN id="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" style="display:block;"><a href="javascript:;" class="menu_link" onClick="RequestProductLocation('?prod_id=<%=ProdId%>&bom_id=<%=dbPARbom_id%>&compare_bom_id=<%=objFormCollector.Item("compare_bom_id")%>&change_type=<%=ChangeType%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
 457 
			<SPAN id="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>" style="display:block;"><a href="javascript:;" class="menu_link" onClick="RequestProductLocation('?new_version=<%=aProductList( 2, rowNum )%>&prod_id=<%=ProdId%>&bom_id=<%=dbPARbom_id%>&compare_bom_id=<%=objFormCollector.Item("compare_bom_id")%>&change_type=<%=ChangeType%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
384 
			<SPAN id="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PRODUCT_<%=ProdId & ChangeType%>', 'IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>', 'IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>');"><%=LIMG_COLLAPSE & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
 458 
			<SPAN id="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" name="IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PRODUCT_<%=ProdId & ChangeType%>', 'IMG_EXPAND_PRODUCT_<%=ProdId & ChangeType%>', 'IMG_COLLAPSE_PRODUCT_<%=ProdId & ChangeType%>');"><%=LIMG_COLLAPSE & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
385 
			<%
 459 
			<%
386 
			rsTemp.Close()
 460 
			rsTemp.Close()
387 
			Set rsTemp = nothing
 461 
			Set rsTemp = nothing
388 
			%>
 462 
			%>
Line 412... Line 486...
412 
		  <tr>
 486 
		  <tr>
413 
            <td colspan="4" class="body_txt">No Changes Found.</td>
 487 
            <td colspan="4" class="body_txt">No Changes Found.</td>
414 
          </tr>
 488 
          </tr>
415
489
416 
		  <%End If%>
 490 
		  <%End If%>
- 
 
 491
- 
 
 492 
 
417
493
418 
          <tr>
 494 
          <tr>
419 
            <td colspan="4" background="images/bg_table_border.gif">
 495 
            <td colspan="4" background="images/bg_table_border.gif">
420 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 496 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
421 
              <tr>
 497 
              <tr>