Subversion Repositories DevTools

Rev

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

Rev 62 Rev 64
Line 18... Line 18...
18 
Dim rsQry
 18 
Dim rsQry
19 
Dim IsProductInNewBom
 19 
Dim IsProductInNewBom
20 
Dim bgColor
 20 
Dim bgColor
21 
Dim QueryName
 21 
Dim QueryName
22 
Dim parBomId
 22 
Dim parBomId
- 
 
 23 
Dim rsPkg, pkgName, pkgVersion, pkgId
- 
 
 24 
Dim rsProj, projName, branchName
- 
 
 25 
Dim rsOS, OSName
23 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
24 
'------------ VARIABLE INIT -------------------
 27 
'------------ VARIABLE INIT -------------------
25 
parBomId = Request("current_bom_id")
 28 
parBomId = Request("current_bom_id")
26 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
27 
'----------------------------------------------
 30 
'----------------------------------------------
Line 74... Line 77...
74 
		  <%
 77 
		  <%
75 
		  End If
 78 
		  End If
76
79
77
80
78 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 81 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 82
- 
 
 83 
		  	pkgName = rsQry("pkg_name")
- 
 
 84 
			pkgVersion = rsQry("pkg_version")
- 
 
 85 
			pkgId = rsQry("pkg_id")
- 
 
 86
- 
 
 87 
			OSName = rsQry("os_name")
- 
 
 88
- 
 
 89 
			If OSName = "Windows" OR OSName = "MOS" Then
- 
 
 90 
				OSName = "win32"
- 
 
 91 
			Else
- 
 
 92 
				OSName = "sparc"
- 
 
 93 
			End If
79
94
80 
		  	If IsNull( bgColor ) Then
 95 
		  	If IsNull( bgColor ) Then
81 
				bgColor = "bgcolor='#F5F5F5'"
 96 
				bgColor = "bgcolor='#F5F5F5'"
82 
			Else
 97 
			Else
83 
				bgColor = NULL
 98 
				bgColor = NULL
Line 87... Line 102...
87 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
 102 
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
88 
			<%If IsProductInNewBom Then%>
 103 
			<%If IsProductInNewBom Then%>
89 
				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
 104 
				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
90 
				&nbsp;/&nbsp;<%=rsQry("os_name") %>
 105 
				&nbsp;/&nbsp;<%=rsQry("os_name") %>
91 
				&nbsp;/&nbsp;<%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>
 106 
				&nbsp;/&nbsp;<%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>
- 
 
 107 
				&nbsp;&nbsp;<a href="LogDownload.asp?url=http://client.erggroup.com/manager_suite/production_manager/downloads/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>"  target="_blank" class="body_link">Download Patch</a>&nbsp;&nbsp;
92 
			<%Else%>
 108 
			<%Else%>
93 
				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
 109 
				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
94 
				&nbsp;/&nbsp;<%=rsQry("os_name") %>&nbsp;/&nbsp;
 110 
				&nbsp;/&nbsp;<%=rsQry("os_name") %>&nbsp;/&nbsp;
95 
			<%End If%>
 111 
			<%End If%>
96 
			</td>
 112 
			</td>
Line 107... Line 123...
107
123
108
124
109 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBomId, ORADYN_DEFAULT)%>
 125 
			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBomId, ORADYN_DEFAULT)%>
110 
			<%If rsForm.RecordCount = 0 Then%>
 126 
			<%If rsForm.RecordCount = 0 Then%>
111 
				<%If Tester Then%>
 127 
				<%If Tester Then%>
112 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=220,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>
 128 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', '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>
113 
				<%ElseIf Manager Then%>
 129 
				<%ElseIf Manager Then%>
114 
					<td class="body_txto">Awaiting Tester</td>
 130 
					<td class="body_txto">Awaiting Tester</td>
115 
				<%Else%>
 131 
				<%Else%>
116 
					<td class="body_txto"></td>
 132 
					<td class="body_txto"></td>
117 
				<%End If%>
133 
				<%End If%>
118 
			<%ElseIf IsNull(rsForm("is_official")) Then%>
 134 
			<%ElseIf IsNull(rsForm("is_official")) Then%>
119 
				<%If NOT IsNull(rsForm("tester_id")) And Tester	Then %>
 135 
				<%If NOT IsNull(rsForm("tester_id")) And Tester	Then %>
120 
					<td class="body_txto">Awaiting</td>
 136 
					<td class="body_txto">Awaiting</td>
121 
				<%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>
 137 
				<%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>
122 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>
 138 
					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Accept/Reject</a></td>
123 
				<%Else%>
 139 
				<%Else%>
124 
					<td class="body_rowlite"></td>
 140 
					<td class="body_rowlite"></td>
125 
				<%End If%>
 141 
				<%End If%>
126 
			<%Else%>
 142 
			<%Else%>
127 
				<td class="body_txtg">Approved</td>
 143 
				<td class="body_txtg">Accepted</td>
128 
			<%End If
 144 
			<%End If
129 
 
 145 
 
130 
			rsForm.Close()
 146 
			rsForm.Close()
131 
			Set rsForm = nothing
 147 
			Set rsForm = nothing
132 
			%>
148 
			%>