Subversion Repositories DevTools

Rev

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

Rev 62 Rev 64
Line 8... Line 8...
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
- 
 
 13 
<%
- 
 
 14 
'To enable the script timeout to 10 mins
- 
 
 15 
Server.ScriptTimeout=600
- 
 
 16 
%>
13 
<!--#include file="common/globals.asp"-->
 17 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 18 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 19 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_bom_common.asp"-->
 20 
<!--#include file="common/_bom_common.asp"-->
17 
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
 21 
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
Line 249... Line 253...
249 
'--------------------------------------------------------------------------------------------------------------
 253 
'--------------------------------------------------------------------------------------------------------------
250 
Function GetBomTreeList ()
 254 
Function GetBomTreeList ()
251 
	Dim rsQry, query
 255 
	Dim rsQry, query
252
256
253 
	OraDatabase.Parameters.Add "BRANCH_ID", 	objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
257 
	OraDatabase.Parameters.Add "BRANCH_ID", 	objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
254
- 
 
- 
 
 258 
	OraDatabase.Parameters.Add "BOM_ID", 	objFormCollector.Item("bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
255 
	OraDatabase.Parameters.Add "BOM_NAME", 	objFormCollector.Item("bom_name"),	ORAPARM_INPUT, ORATYPE_NUMBER
259 
	OraDatabase.Parameters.Add "BOM_NAME", 	objFormCollector.Item("bom_name"),	ORAPARM_INPUT, ORATYPE_NUMBER
256
260
257 
	If objFormCollector.Item("rtag_id_fk") = 542 Then'This is because SFO uses Front Office and Back Office
 261 
	If objFormCollector.Item("rtag_id_fk") = 542 Then'This is because SFO uses Front Office and Back Office
258 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionTreeComboSFO.sql"), ORADYN_DEFAULT )
 262 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionTreeComboSFO.sql"), ORADYN_DEFAULT )
259 
	Else
 263 
	Else
Line 269... Line 273...
269 
	End If
 273 
	End If
270
274
271 
 
 275 
 
272 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 276 
	OraDatabase.Parameters.Remove "BRANCH_ID"
273 
	OraDatabase.Parameters.Remove "BOM_NAME"
 277 
	OraDatabase.Parameters.Remove "BOM_NAME"
274 
 
 - 
 
- 
 
 278 
	OraDatabase.Parameters.Remove "BOM_ID"
275
279
276 
	rsQry.Close
 280 
	rsQry.Close
277 
	Set rsQry = Nothing
 281 
	Set rsQry = Nothing
278 
End Function
 282 
End Function
279 
 
 283 
 
Line 286... Line 290...
286
290
287 
	If rsQry.RecordCount > 0 Then
 291 
	If rsQry.RecordCount > 0 Then
288 
		GetCompareBomDetails = rsQry("proj_name") &"&nbsp;/&nbsp;"& rsQry("branch_name") &"&nbsp;/&nbsp;"& rsQry("bom_name") &"&nbsp;"& rsQry("bom_version") &"."& rsQry("bom_lifecycle")
 292 
		GetCompareBomDetails = rsQry("proj_name") &"&nbsp;/&nbsp;"& rsQry("branch_name") &"&nbsp;/&nbsp;"& rsQry("bom_name") &"&nbsp;"& rsQry("bom_version") &"."& rsQry("bom_lifecycle")
289
293
290 
	Else
 294 
	Else
291 
		GetBomTreeList = NULL
 295 
		GetCompareBomDetails = NULL
292
296
293 
	End If
 297 
	End If
294
298
295 
	OraDatabase.Parameters.Remove "BOM_ID"
 299 
	OraDatabase.Parameters.Remove "BOM_ID"
296
300
Line 347... Line 351...
347 
	}
 351 
	}
348
352
349
353
350 
}
 354 
}
351 
 
 355 
 
- 
 
 356 
function RequestProductNotes( paramString, rowId ){
- 
 
 357 
	var requestURL;
- 
 
 358
- 
 
 359 
	// Product is changes, hence can be found in current bom
- 
 
 360 
	requestURL = 'RequestProductNotes.asp';
- 
 
 361
- 
 
 362 
 
- 
 
 363 
	// Show div
- 
 
 364 
	ToggleDisplay( 'PROD_'+ rowId, 'IMG_EXPAND_PROD_' + rowId, 'IMG_COLLAPSE_PROD_' + rowId );
- 
 
 365
- 
 
 366 
	// Set ajax divname
- 
 
 367 
	ajaxdivname = 'PROD_'+ rowId;
- 
 
 368
- 
 
 369 
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
- 
 
 370 
	{
- 
 
 371
- 
 
 372 
		//Append the name to search for to the requestURL
- 
 
 373 
		var url = requestURL + paramString;
- 
 
 374
- 
 
 375 
		//Create the xmlHttp object to use in the request
- 
 
 376 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
- 
 
 377 
		// This is non-blocking (asynchronous)
- 
 
 378 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
- 
 
 379
- 
 
 380 
		//Send the xmlHttp get to the specified url
- 
 
 381 
		xmlHttp_Get(xmlHttp, url);
- 
 
 382
- 
 
 383 
	}
- 
 
 384 
}
- 
 
 385
352 
function RequestPatches( paramString, rowId ){
 386 
function RequestPatches( paramString, rowId ){
353 
	var requestURL;
387 
	var requestURL;
354
388
355 
	// Product is changes, hence can be found in current bom
 389 
	// Product is changes, hence can be found in current bom
356 
	requestURL = 'RequestBomDiffPatches.asp';
 390 
	requestURL = 'RequestBomDiffPatches.asp';
Line 374... Line 408...
374 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
 408 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
375
409
376 
		//Send the xmlHttp get to the specified url
 410 
		//Send the xmlHttp get to the specified url
377 
		xmlHttp_Get(xmlHttp, url);
 411 
		xmlHttp_Get(xmlHttp, url);
378
412
379 
	}
 413 
	}
380
- 
 
381
414
382 
}
 415 
}
383 
 
 416 
 
384 
 
 417 
 
385 
 
 418 
 
Line 404... Line 437...
404 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 437 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
405 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 438 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
406 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 439 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
407 
	  <tr>
 440 
	  <tr>
408 
        <td valign="top" background="images/bg_green.gif"></td>
 441 
        <td valign="top" background="images/bg_green.gif"></td>
409 
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitle( objBomCollector )%></td>
 442 
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitleWithoutVersion( objBomCollector )%></td>
410 
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
 443 
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
411 
      </tr>
 444 
      </tr>
412 
      <tr>
 445 
      <tr>
413 
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
 446 
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
414 
        <td width="100%" valign="bottom" background="images/bg_green.gif">
 447 
        <td width="100%" valign="bottom" background="images/bg_green.gif">
Line 536... Line 569...
536 
		'-- FROM START --------------------------------------------------------------------------------------------------------------
 569 
		'-- FROM START --------------------------------------------------------------------------------------------------------------
537 
		objFormComponent.FormName = "OldVersion"
 570 
		objFormComponent.FormName = "OldVersion"
538 
		objFormComponent.Action = SCRIPT_NAME
 571 
		objFormComponent.Action = SCRIPT_NAME
539 
		objFormComponent.Method = "get"
 572 
		objFormComponent.Method = "get"
540 
		Call objFormComponent.FormStart()
 573 
		Call objFormComponent.FormStart()
541
574 
 
- 
 
 575 
		If (NOT IsNull(GetBomTreeList())) Then
542 
		numOfRows = UBound( GetBomTreeList(), 2 )
 576 
		   numOfRows = UBound( GetBomTreeList(), 2 )
- 
 
 577 
		Else
- 
 
 578 
		   numOfRows = -1
- 
 
 579 
		End If
543 
		maxnumOfRows	=	numOfRows
 580 
		maxnumOfRows	=	numOfRows
544 
		For  Numrow = 0 To numOfRows
581 
		For  Numrow = 0 To numOfRows
545 
		Call GetFormDetails ( (GetBomTreeList()( 0, Numrow  )), objBomCollector )
 582 
		Call GetFormDetails ( (GetBomTreeList()( 0, Numrow  )), objBomCollector )
546 
		%>
583 
		%>
- 
 
 584 
		<SPAN class="body_colb"><br><%= objFormater.TextToHTML( objBomCollector.Item("bom_comments") )%><br><br></SPAN>
547 
		<SPAN class="body_colb">Products/Patches Introduced in <%Call RenderTitle( objBomCollector )%> but not yet deployed in Production BOM<br></SPAN>
 585 
		<SPAN class="body_colb">Products/Patches Introduced in <%Call RenderTitle( objBomCollector )%> but not yet deployed in Production BOM<br></SPAN>
- 
 
 586 
		<a href="pdf\<%Call RenderTitleWithoutBold( objBomCollector )%>.pdf" class="body_link" target="_blank"><b>Click here to Download PDF</b></a>
548 
            <hr width="100%" size="1px" noshade color="#808080">
587 
            <hr width="100%" size="1px" noshade color="#808080">
549 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 588 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
550 
          <tr>
 589 
          <tr>
551
590
552 
		  	<td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 591 
		  	<td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
Line 696... Line 735...
696 
							End If
 735 
							End If
697 
						End If
736 
						End If
698 
					End If
737 
					End If
699
738
700
739
701
- 
 
702
- 
 
703
- 
 
704
- 
 
705
- 
 
706
- 
 
707
- 
 
708
- 
 
709 
			'If ProdId > NewProdId Then
 740 
			'If ProdId > NewProdId Then
710 
			If IsDisplay Then
 741 
			If IsDisplay Then
711 
			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 )
 742 
			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 )
712 
		  %>
 743 
		  %>
713 
		  <%If IsNull(IsPatch) Then
 744 
		  <%If IsNull(IsPatch) Then
Line 734... Line 765...
734 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&ProdId&" AND BOM_ID="&Request("bom_id"), ORADYN_DEFAULT)
 765 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&ProdId&" AND BOM_ID="&Request("bom_id"), ORADYN_DEFAULT)
735
766
736 
			%>
 767 
			%>
737 
			<%If rsForm.RecordCount = 0 Then%>
 768 
			<%If rsForm.RecordCount = 0 Then%>
738 
				<%If Tester Then%>
 769 
				<%If Tester Then%>
739 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>', 'Approval Form', 'height=220,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>
 770 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>', 'Approval Form', 'height=220,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Accept/Reject</a></td>
740 
				<%ElseIf Manager Then%>
 771 
				<%ElseIf Manager Then%>
741 
					<td class="body_txto">Awaiting Tester</td>
 772 
					<td class="body_txto">Awaiting Tester</td>
742 
				<%Else%>
 773 
				<%Else%>
743 
					<td class="body_txto"></td>
 774 
					<td class="body_txto"></td>
744 
				<%End If%>
775 
				<%End If%>
745 
			<%ElseIf IsNull(rsForm("is_official")) Then%>
 776 
			<%ElseIf IsNull(rsForm("is_official")) Then%>
746 
				<%If NOT IsNull(rsForm("tester_id")) And Tester	Then %>
 777 
				<%If NOT IsNull(rsForm("tester_id")) And Tester	Then %>
747 
					<td class="body_txto">Awaiting</td>
 778 
					<td class="body_txto">Awaiting Manager</td>
748 
				<%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>
 779 
				<%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>
749 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>
 780 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=ProdId%>&bom_id=<%=Request("bom_id")%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Accept</a></td>
750 
				<%Else%>
 781 
				<%Else%>
751 
					<td class="body_rowlite"></td>
 782 
					<td class="body_rowlite"></td>
752 
				<%End If%>
 783 
				<%End If%>
753 
			<%Else%>
 784 
			<%Else%>
754 
				<td class="body_txtg">Approved</td>
 785 
				<td class="body_txtg">Accepted</td>
755 
			<%End If
 786 
			<%End If
756 
 
 787 
 
757 
			rsForm.Close()
 788 
			rsForm.Close()
758 
			Set rsForm = nothing
 789 
			Set rsForm = nothing
759 
			%>
 790 
			%>