| Line 354... |
Line 354... |
| 354 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
354 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 355 |
Function SQL_Build_Env ( nPv_id )
|
355 |
Function SQL_Build_Env ( nPv_id )
|
| 356 |
SQL_Build_Env = _
|
356 |
SQL_Build_Env = _
|
| 357 |
" SELECT pv.*, bm.BM_ID,"&_
|
357 |
" SELECT pv.*, bm.BM_ID,"&_
|
| 358 |
" bm.BM_NAME,"&_
|
358 |
" bm.BM_NAME,"&_
|
| 359 |
" pkgbinfo.BSA_ID"&_
|
359 |
" pkgbinfo.BSA_ID,"&_
|
| - |
|
360 |
" bsa.BSA_NAME"&_
|
| 360 |
" FROM PACKAGE_BUILD_INFO pkgbinfo,"&_
|
361 |
" FROM PACKAGE_BUILD_INFO pkgbinfo,"&_
|
| 361 |
" BUILD_MACHINES bm,"&_
|
362 |
" BUILD_MACHINES bm,"&_
|
| 362 |
" PACKAGE_VERSIONS pv"&_
|
363 |
" PACKAGE_VERSIONS pv,"&_
|
| - |
|
364 |
" BUILD_STANDARDS_ADDENDUM bsa"&_
|
| 363 |
" WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
|
365 |
" WHERE pkgbinfo.BM_ID = bm.BM_ID"&_
|
| 364 |
" AND pv.PV_ID = pkgbinfo.PV_ID"&_
|
366 |
" AND pv.PV_ID = pkgbinfo.PV_ID"&_
|
| 365 |
" AND pkgbinfo.PV_ID = "& nPv_id &_
|
367 |
" AND pkgbinfo.PV_ID = "& nPv_id &_
|
| - |
|
368 |
" AND pkgbinfo.BSA_ID = bsa.BSA_ID"&_
|
| 366 |
" ORDER BY UPPER(bm.BM_NAME) "
|
369 |
" ORDER BY UPPER(bm.BM_NAME) "
|
| 367 |
End Function
|
370 |
End Function
|
| 368 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
371 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 369 |
Function DecodeOverallResult ( ByVal cCheck )
|
372 |
Function DecodeOverallResult ( ByVal cCheck )
|
| 370 |
If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
|
373 |
If cCheck = "" OR IsNull(cCheck) Then cCheck = 0
|
| Line 380... |
Line 383... |
| 380 |
DecodeOverallResult = ""
|
383 |
DecodeOverallResult = ""
|
| 381 |
End Select
|
384 |
End Select
|
| 382 |
|
385 |
|
| 383 |
End Function
|
386 |
End Function
|
| 384 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
387 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 385 |
Function GetBuildType ( nBuildType )
|
388 |
Function GetBuildType ( nBuildType, nBuildName )
|
| 386 |
|
- |
|
| 387 |
If (NOT IsNull(nBuildType)) OR (NOT nBuildType = "") Then
|
- |
|
| 388 |
|
- |
|
| 389 |
If ( CInt(nBuildType) = enumDB_BUILD_TYPE_NONE ) Then
|
- |
|
| 390 |
GetBuildType = "Build type not specified!"
|
- |
|
| 391 |
Else
|
- |
|
| 392 |
GetBuildType = GetBuildTypeString( nBuildType )
|
- |
|
| 393 |
End If
|
- |
|
| 394 |
|
389 |
|
| - |
|
390 |
if (IsNull(nBuildType) OR (nBuildType = "")) Then
|
| - |
|
391 |
GetBuildType = "Build type not defined"
|
| - |
|
392 |
ElseIf (IsNull(nBuildName) OR (nBuildName = "") ) Then
|
| - |
|
393 |
GetBuildType = "Build Name not defined"
|
| 395 |
Else
|
394 |
Else
|
| 396 |
GetBuildType = GetBuildTypeString( nBuildType )
|
395 |
GetBuildType = nBuildName
|
| 397 |
|
- |
|
| 398 |
End If
|
396 |
End If
|
| 399 |
|
397 |
|
| 400 |
'' Wrap around brackets
|
398 |
'' Wrap around brackets
|
| 401 |
GetBuildType = "("& GetBuildType &")"
|
399 |
GetBuildType = "("& GetBuildType &")"
|
| 402 |
|
400 |
|
| 403 |
End Function
|
401 |
End Function
|
| 404 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
402 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 405 |
Sub GetPackageMetrics (NNpv_id, rsTemp)
|
403 |
Sub GetPackageMetrics (NNpv_id, rsTemp)
|
| Line 855... |
Line 853... |
| 855 |
<%Else%>
|
853 |
<%Else%>
|
| 856 |
<table width="40%" border="0" cellspacing="0" cellpadding="1">
|
854 |
<table width="40%" border="0" cellspacing="0" cellpadding="1">
|
| 857 |
<%
|
855 |
<%
|
| 858 |
currG1 = 0
|
856 |
currG1 = 0
|
| 859 |
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
|
857 |
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
|
| 860 |
'retVal = Lookup_Document ( rsQry("doc_num"), sDocTitle, NULL, NULL, NULL )
|
- |
|
| 861 |
%>
|
- |
|
| 862 |
<%If currG1 <> CInt(rsTemp("bm_id")) Then%>
|
858 |
If currG1 <> CInt(rsTemp("bm_id")) Then%>
|
| 863 |
<tr>
|
859 |
<tr>
|
| 864 |
<td colspan="2" nowrap class="sublbox_txt">
|
860 |
<td colspan="2" nowrap class="sublbox_txt">
|
| 865 |
<%=rsTemp("bm_name")%> <%=GetBuildType( rsTemp("bsa_id") )%>
|
861 |
<%=rsTemp("bm_name")%> <%=GetBuildType( rsTemp("bsa_id"),rsTemp("bsa_name") )%>
|
| 866 |
</td>
|
862 |
</td>
|
| 867 |
</tr>
|
863 |
</tr>
|
| 868 |
<%currG1 = CInt(rsTemp("bm_id"))
|
864 |
<%currG1 = CInt(rsTemp("bm_id"))
|
| 869 |
End If
|
865 |
End If
|
| 870 |
rsTemp.MoveNext
|
866 |
rsTemp.MoveNext
|