Subversion Repositories DevTools

Rev

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

Rev 4807 Rev 5355
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
3
'=====================================================
3
'=====================================================
4
'|                                                   |
4
'|                                                   |
5
'|			          Bom_Home					 	 |
5
'|			          Bom_Home					 	 |
6
'|                                                   |
6
'|                                                   |
7
'=====================================================
7
'=====================================================
8
%>
8
%>
9
<%
9
<%
10
Option explicit
10
Option explicit
11
Response.Expires = 0
11
Response.Expires = 0
12
%>
12
%>
13
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/_bom_common.asp"-->
16
<!--#include file="common/_bom_common.asp"-->
17
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
17
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
18
<%
18
<%
19
'------------ ACCESS CONTROL ------------------
19
'------------ ACCESS CONTROL ------------------
20
%>
20
%>
21
<!--#include file="_access_control_general.asp"-->
21
<!--#include file="_access_control_general.asp"-->
22
<%
22
<%
23
'------------ VARIABLE DEFINITION -------------
23
'------------ VARIABLE DEFINITION -------------
24
Dim rsQry, rsTemp
24
Dim rsQry, rsTemp
25
Dim aProductList
25
Dim aProductList
26
Dim parProd_id_select
26
Dim parProd_id_select
27
Dim parShowall
27
Dim parShowall
28
Dim numOfRows
28
Dim numOfRows
29
Dim rowNum
29
Dim rowNum
30
Dim objFormCollector
30
Dim objFormCollector
31
Dim objFormComponent
31
Dim objFormComponent
32
Dim sMessage
32
Dim sMessage
33
Dim ProdId
33
Dim ProdId
34
Dim ChangeType
34
Dim ChangeType
35
'------------ CONSTANTS DECLARATION -----------
35
'------------ CONSTANTS DECLARATION -----------
36
Const LIMG_UPDATED = "<img src='icons/i_updated.gif' width='11' height='11' hspace='2' vspace='2' border='0' align='absmiddle' title='Updated'>"
36
Const LIMG_UPDATED = "<img src='icons/i_updated.gif' width='11' height='11' hspace='2' vspace='2' border='0' align='absmiddle' title='Updated'>"
37
Const LIMG_ADDED = "<img src='icons/i_added.gif' width='11' height='11' border='0' hspace='2' vspace='2' align='absmiddle' title='Added'>"
37
Const LIMG_ADDED = "<img src='icons/i_added.gif' width='11' height='11' border='0' hspace='2' vspace='2' align='absmiddle' title='Added'>"
38
Const LIMG_REMOVED = "<img src='icons/i_removed.gif' width='11' height='11' border='0' hspace='2' vspace='2' align='absmiddle' title='Removed'>"
38
Const LIMG_REMOVED = "<img src='icons/i_removed.gif' width='11' height='11' border='0' hspace='2' vspace='2' align='absmiddle' title='Removed'>"
39
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
39
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
40
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
40
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
41
'------------ VARIABLE INIT -------------------
41
'------------ VARIABLE INIT -------------------
42
parProd_id_select = Request("prod_id_select")
42
parProd_id_select = Request("prod_id_select")
43
parShowall = Request("showall")
43
parShowall = Request("showall")
44
Set objFormCollector = CreateObject("Scripting.Dictionary")
44
Set objFormCollector = CreateObject("Scripting.Dictionary")
45
Set objFormComponent = New FormComponent
45
Set objFormComponent = New FormComponent
46
'------------ CONDITIONS ----------------------
46
'------------ CONDITIONS ----------------------
47
'----------------------------------------------
47
'----------------------------------------------
48
%>
48
%>
49
<%
49
<%
50
'--------------------------------------------------------------------------------------------------------------
50
'--------------------------------------------------------------------------------------------------------------
51
Sub GetProductList ( nBom_id, nComparedBomId, outProductList, Flag )
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
57
	'	showAll = parShowall
57
	'	showAll = parShowall
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
63
	If Flag = TRUE Then
64
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT )
64
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT )
65
	Else
65
	Else
66
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare_BaseConfig.sql"), ORADYN_DEFAULT )
66
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare_BaseConfig.sql"), ORADYN_DEFAULT )
67
	End If	
67
	End If	
68
	If rsQry.RecordCount > 0 Then
68
	If rsQry.RecordCount > 0 Then
69
		outProductList = rsQry.GetRows()
69
		outProductList = rsQry.GetRows()
70
	Else
70
	Else
71
		outProductList = NULL
71
		outProductList = NULL
72
	End If
72
	End If
73
	
73
	
74
	
74
	
75
	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
75
	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
76
	OraDatabase.Parameters.Remove "BOM_ID"
76
	OraDatabase.Parameters.Remove "BOM_ID"
77
End Sub
77
End Sub
78
'--------------------------------------------------------------------------------------------------------------------------
78
'--------------------------------------------------------------------------------------------------------------------------
79
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
79
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
80
	
80
	
81
	Call GetBomDetails ( nBom_id, outobjDetails )
81
	Call GetBomDetails ( nBom_id, outobjDetails )
82
	
82
	
83
	outobjDetails.Item("root_version") = GetRootVersion ( outobjDetails.Item("bom_version") )
83
	outobjDetails.Item("root_version") = GetRootVersion ( outobjDetails.Item("bom_version") )
84
	
84
	
85
	'-- Set compare_bom_id 
85
	'-- Set compare_bom_id 
86
	If Request("compare_bom_id") <> "" Then
86
	If Request("compare_bom_id") <> "" Then
87
		outobjDetails.Item("compare_bom_id") =  Request("compare_bom_id")
87
		outobjDetails.Item("compare_bom_id") =  Request("compare_bom_id")
88
	Else
88
	Else
89
		outobjDetails.Item("compare_bom_id") = outobjDetails.Item("parent_bom_id")
89
		outobjDetails.Item("compare_bom_id") = outobjDetails.Item("parent_bom_id")
90
	End If
90
	End If
91
	
91
	
92
End Sub
92
End Sub
93
'--------------------------------------------------------------------------------------------------------------
93
'--------------------------------------------------------------------------------------------------------------
94
Function GetBomTreeList ()
94
Function GetBomTreeList ()
95
	Dim rsQry, query
95
	Dim rsQry, query
96
	OraDatabase.Parameters.Add "BOM_NAME_ID", 		objFormCollector.Item("bom_name_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 
96
	OraDatabase.Parameters.Add "BOM_NAME_ID", 		objFormCollector.Item("bom_name_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 
97
	OraDatabase.Parameters.Add "BRANCH_ID", 		objFormCollector.Item("branch_id"),			ORAPARM_INPUT, ORATYPE_NUMBER 
97
	OraDatabase.Parameters.Add "BRANCH_ID", 		objFormCollector.Item("branch_id"),			ORAPARM_INPUT, ORATYPE_NUMBER 
98
	OraDatabase.Parameters.Add "BOM_VERSION", 		objFormCollector.Item("root_version"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
98
	OraDatabase.Parameters.Add "BOM_VERSION", 		objFormCollector.Item("root_version"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
99
	OraDatabase.Parameters.Add "LIKE_BOM_VERSION", 	objFormCollector.Item("root_version") &".%",ORAPARM_INPUT, ORATYPE_VARCHAR2 
99
	OraDatabase.Parameters.Add "LIKE_BOM_VERSION", 	objFormCollector.Item("root_version") &".%",ORAPARM_INPUT, ORATYPE_VARCHAR2 
100
	OraDatabase.Parameters.Add "COMPARE_BOM_ID", 	objFormCollector.Item("compare_bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER 
100
	OraDatabase.Parameters.Add "COMPARE_BOM_ID", 	objFormCollector.Item("compare_bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER 
101
	
101
	
102
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomTreeCombo.sql"), ORADYN_DEFAULT )
102
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomTreeCombo.sql"), ORADYN_DEFAULT )
103
	
103
	
104
	If rsQry.RecordCount > 0 Then
104
	If rsQry.RecordCount > 0 Then
105
		GetBomTreeList = rsQry.GetRows()
105
		GetBomTreeList = rsQry.GetRows()
106
		
106
		
107
	Else
107
	Else
108
		GetBomTreeList = NULL
108
		GetBomTreeList = NULL
109
		
109
		
110
	End If
110
	End If
111
	
111
	
112
	OraDatabase.Parameters.Remove "BOM_NAME_ID"
112
	OraDatabase.Parameters.Remove "BOM_NAME_ID"
113
	OraDatabase.Parameters.Remove "BRANCH_ID"
113
	OraDatabase.Parameters.Remove "BRANCH_ID"
114
	OraDatabase.Parameters.Remove "BOM_VERSION"
114
	OraDatabase.Parameters.Remove "BOM_VERSION"
115
	OraDatabase.Parameters.Remove "LIKE_BOM_VERSION"
115
	OraDatabase.Parameters.Remove "LIKE_BOM_VERSION"
116
	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
116
	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
117
	
117
	
118
	rsQry.Close
118
	rsQry.Close
119
	Set rsQry = Nothing
119
	Set rsQry = Nothing
120
End Function
120
End Function
121
'--------------------------------------------------------------------------------------------------------------
121
'--------------------------------------------------------------------------------------------------------------
122
Function GetCompareBomDetails ( nBomId )
122
Function GetCompareBomDetails ( nBomId )
123
	Dim rsQry, query
123
	Dim rsQry, query
124
	OraDatabase.Parameters.Add "BOM_ID", 	nBomId,	ORAPARM_INPUT, ORATYPE_NUMBER 
124
	OraDatabase.Parameters.Add "BOM_ID", 	nBomId,	ORAPARM_INPUT, ORATYPE_NUMBER 
125
	
125
	
126
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
126
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
127
	
127
	
128
	If rsQry.RecordCount > 0 Then
128
	If rsQry.RecordCount > 0 Then
129
		GetCompareBomDetails = rsQry("proj_name") &"&nbsp;/&nbsp;"& rsQry("branch_name") &"&nbsp;/&nbsp;"& rsQry("bom_name") &"&nbsp;"& rsQry("bom_version") &"."& rsQry("bom_lifecycle")
129
		GetCompareBomDetails = rsQry("proj_name") &"&nbsp;/&nbsp;"& rsQry("branch_name") &"&nbsp;/&nbsp;"& rsQry("bom_name") &"&nbsp;"& rsQry("bom_version") &"."& rsQry("bom_lifecycle")
130
	Else
130
	Else
131
		GetBomTreeList = NULL
131
		GetBomTreeList = NULL
132
		
132
		
133
	End If
133
	End If
134
	
134
	
135
	OraDatabase.Parameters.Remove "BOM_ID"
135
	OraDatabase.Parameters.Remove "BOM_ID"
136
	
136
	
137
	rsQry.Close
137
	rsQry.Close
138
	Set rsQry = Nothing
138
	Set rsQry = Nothing
139
End Function
139
End Function
140
'--------------------------------------------------------------------------------------------------------------
140
'--------------------------------------------------------------------------------------------------------------
141
%>
141
%>
142
<%
142
<%
143
'------------ RUN BEFORE PAGE RENDER ----------
143
'------------ RUN BEFORE PAGE RENDER ----------
144
objPMod.PersistInQryString ( Array("compare_bom_id") )
144
objPMod.PersistInQryString ( Array("compare_bom_id") )
145
 
145
 
146
Call GetFormDetails ( dbPARbom_id, objFormCollector )
146
Call GetFormDetails ( dbPARbom_id, objFormCollector )
147
'----------------------------------------------
147
'----------------------------------------------
148
%>
148
%>
149
<html>
149
<html>
150
<head>
150
<head>
151
<title>Deployment Manager</title>
151
<title>Deployment Manager</title>
152
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
152
<link rel="shortcut icon" href="<%=FavIcon%>"/>
153
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
153
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
154
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
154
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
155
<script language="JavaScript" src="scripts/common.js"></script>
155
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
156
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
156
<script language="JavaScript" src="scripts/common.js"></script>
157
<script language="JavaScript" type="text/javascript">
157
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
158
<!--
158
<script language="JavaScript" type="text/javascript">
159
 
159
<!--
160
function RequestProductLocation( paramString, rowId ){
160
 
161
	var requestURL;
161
function RequestProductLocation( paramString, rowId ){
162
	
162
	var requestURL;
163
	// Product is changes, hence can be found in current bom
163
	
164
	requestURL = 'RequestBomDiffProductLocation.asp';
164
	// Product is changes, hence can be found in current bom
165
	
165
	requestURL = 'RequestBomDiffProductLocation.asp';
166
 
166
	
167
	// Show div
167
 
168
	ToggleDisplay( 'PRODUCT_'+ rowId, 'IMG_EXPAND_PRODUCT_' + rowId, 'IMG_COLLAPSE_PRODUCT_' + rowId );
168
	// Show div
169
	
169
	ToggleDisplay( 'PRODUCT_'+ rowId, 'IMG_EXPAND_PRODUCT_' + rowId, 'IMG_COLLAPSE_PRODUCT_' + rowId );
170
	// Set ajax divname
170
	
171
	ajaxdivname = 'PRODUCT_'+ rowId;
171
	// Set ajax divname
172
	
172
	ajaxdivname = 'PRODUCT_'+ rowId;
173
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
173
	
174
	{
174
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
175
	
175
	{
176
		//Append the name to search for to the requestURL
176
	
177
		var url = requestURL + paramString;
177
		//Append the name to search for to the requestURL
178
		
178
		var url = requestURL + paramString;
179
		//Create the xmlHttp object to use in the request
179
		
180
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
180
		//Create the xmlHttp object to use in the request
181
		// This is non-blocking (asynchronous)
181
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
182
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
182
		// This is non-blocking (asynchronous)
183
		
183
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
184
		//Send the xmlHttp get to the specified url
184
		
185
		xmlHttp_Get(xmlHttp, url);
185
		//Send the xmlHttp get to the specified url
186
		
186
		xmlHttp_Get(xmlHttp, url);
187
	}
187
		
188
	
188
	}
189
	
189
	
190
}
190
	
191
 
191
}
192
//-->
192
 
193
</script>
193
//-->
194
</head>
194
</script>
195
 
195
</head>
196
<body leftmargin="0" topmargin="0">
196
 
197
<!-- HEADER ++++++++++++++++ -->
197
<body leftmargin="0" topmargin="0">
198
<!--#include file="_header.asp"-->
198
<!-- HEADER ++++++++++++++++ -->
199
<!-- +++++++++++++++++++++++ -->
199
<!--#include file="_header.asp"-->
200
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
200
<!-- +++++++++++++++++++++++ -->
201
<!--#include file="_main_menu.asp"-->
201
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
202
<!-- +++++++++++++++++++++++++++++++++++++ -->
202
<!--#include file="_main_menu.asp"-->
203
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
203
<!-- +++++++++++++++++++++++++++++++++++++ -->
204
  <tr>
204
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
205
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
205
  <tr>
206
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
206
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
207
	<!--#include file="_bom_browser.asp"-->
207
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
208
	<!-- END OF NODE BROWSER +++++++++++++++ -->
208
	<!--#include file="_bom_browser.asp"-->
209
	</td>
209
	<!-- END OF NODE BROWSER +++++++++++++++ -->
210
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
210
	</td>
211
    <td width="100%" valign="top" bgcolor="#FFFFFF">
211
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
212
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
212
    <td width="100%" valign="top" bgcolor="#FFFFFF">
213
	  <tr>
213
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
214
        <td valign="top" background="images/bg_blue.gif"></td>
214
	  <tr>
215
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objBomCollector )%></td>
215
        <td valign="top" background="images/bg_blue.gif"></td>
216
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
216
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objBomCollector )%></td>
217
      </tr>
217
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
218
      <tr>
218
      </tr>
219
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
219
      <tr>
220
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
220
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
221
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
221
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
222
		<!--#include file="_tabs_definition.asp"-->
222
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
223
		<%
223
		<!--#include file="_tabs_definition.asp"-->
224
		Set objTabControl = New TabControl
224
		<%
225
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
225
		Set objTabControl = New TabControl
226
		objTabControl.TabStyle = "StyleWinXP"
226
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
227
		objTabControl.AddTabDefnition ( arrBomTabDef )
227
		objTabControl.TabStyle = "StyleWinXP"
228
		objTabControl.Render ()
228
		objTabControl.AddTabDefnition ( arrBomTabDef )
229
		%>
229
		objTabControl.Render ()
230
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
230
		%>
231
		</td>
231
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
232
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
232
		</td>
233
        </tr>
233
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
234
      <tr>
234
        </tr>
235
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
235
      <tr>
236
        <td background="images/bg_bage_0.gif">
236
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
237
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
237
        <td background="images/bg_bage_0.gif">
238
		<%
238
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
239
		'-- Define Action buttons on this tab
239
		<%
240
		aTabBtnsDef = Array("abtnSyncProdLatest", "abtnUnhideProducts", "abtnRevertProdLatest")
240
		'-- Define Action buttons on this tab
241
		
241
		aTabBtnsDef = Array("abtnSyncProdLatest", "abtnUnhideProducts", "abtnRevertProdLatest")
242
		Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
242
		
243
		
243
		Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
244
		' -- Tell control if buttons need to be readonly actions 
244
		
245
		objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly")
245
		' -- Tell control if buttons need to be readonly actions 
246
		
246
		objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly")
247
		' -- Render Buttons
247
		
248
		Call objBtnControl.Render  ( aTabBtnsDef )
248
		' -- Render Buttons
249
		%>
249
		Call objBtnControl.Render  ( aTabBtnsDef )
250
		<!-- +++++++++++++++++++++++++++++++++++ -->
250
		%>
251
		</td>
251
		<!-- +++++++++++++++++++++++++++++++++++ -->
252
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
252
		</td>
253
        </tr>
253
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
254
      <tr>
254
        </tr>
255
        <td>&nbsp;</td>
255
      <tr>
256
        <td>&nbsp;</td>
256
        <td>&nbsp;</td>
257
        <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
        <td>&nbsp;</td>
258
        </tr>
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>
259
    </table>
259
        </tr>
260
	
260
    </table>
261
<!-- BOM REJECTED ------------------------------------------------------------------------------------------ -->	
261
	
262
	<%If objBomCollector.Item ("is_readonly") = enumDB_YES Then%>
262
<!-- BOM REJECTED ------------------------------------------------------------------------------------------ -->	
263
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
263
	<%If objBomCollector.Item ("is_readonly") = enumDB_YES Then%>
264
      <tr>
264
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
265
        <td>
265
      <tr>
266
		<%
266
        <td>
267
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARbom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
267
		<%
268
			OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_BOM",	ORAPARM_INPUT, ORATYPE_VARCHAR2
268
			OraDatabase.Parameters.Add "ENTITY_ID", 		dbPARbom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
269
			
269
			OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_BOM",	ORAPARM_INPUT, ORATYPE_VARCHAR2
270
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
270
			
271
			
271
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
272
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
272
			
273
			sMessage = sMessage &"<tr>"
273
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
274
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>BOM NOTES</b><br><br><br></td>"
274
			sMessage = sMessage &"<tr>"
275
			If rsQry.RecordCount = 0 Then
275
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>BOM NOTES</b><br><br><br></td>"
276
				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>"
276
			If rsQry.RecordCount = 0 Then
277
			Else
277
				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>"
278
				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>"
278
			Else
279
			End If	
279
				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 &"</tr>"
280
			End If	
281
			
281
			sMessage = sMessage &"</tr>"
282
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
282
			
283
				sMessage = sMessage & "<tr><td colspan='2' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
283
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
284
				sMessage = sMessage &"<tr>"
284
				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 &"<td class='body_txt'>"
285
				sMessage = sMessage &"<tr>"
286
				
286
				sMessage = sMessage &"<td class='body_txt'>"
287
				If rsQry("is_rejected") = enumDB_YES Then
287
				
288
					sMessage = sMessage &"<b>BOM is REJECTED!</b><br>"
288
				If rsQry("is_rejected") = enumDB_YES Then
289
				ElseIf (rsQry("is_rejected")) = "N" Then
289
					sMessage = sMessage &"<b>BOM is REJECTED!</b><br>"
290
					sMessage = sMessage &"<b>BOM is ACCEPTED!</b><br>"
290
				ElseIf (rsQry("is_rejected")) = "N" Then
291
				Else
291
					sMessage = sMessage &"<b>BOM is ACCEPTED!</b><br>"
292
					sMessage = sMessage &"<b>BOM is LOCKED!</b><br>"
292
				Else
293
				End If
293
					sMessage = sMessage &"<b>BOM is LOCKED!</b><br>"
294
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
294
				End If
295
				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>"
295
				sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"<br><SPAN class='body_smltxtg'>"& rsQry("creator") &"</SPAN></td>"
296
				sMessage = sMessage &"</tr>"
296
				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
				
297
				sMessage = sMessage &"</tr>"
298
				rsQry.MoveNext
298
				
299
			WEnd
299
				rsQry.MoveNext
300
 
300
			WEnd
301
			
301
 
302
			sMessage = sMessage &"</table>"
302
			
303
			
303
			sMessage = sMessage &"</table>"
304
			
304
			
305
			If objBomCollector.Item ("is_rejected") = enumDB_YES Then
305
			
306
				Call Messenger ( sMessage, "bi_rejected.gif", "100%" )
306
			If objBomCollector.Item ("is_rejected") = enumDB_YES Then
307
			ElseIf objBomCollector.Item ("is_rejected") = "N" Then
307
				Call Messenger ( sMessage, "bi_rejected.gif", "100%" )
308
				Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
308
			ElseIf objBomCollector.Item ("is_rejected") = "N" Then
309
			Else 
309
				Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
310
				Call Messenger ( sMessage, "bi_new.gif", "100%" )
310
			Else 
311
			End If
311
				Call Messenger ( sMessage, "bi_new.gif", "100%" )
312
			
312
			End If
313
			Response.write "<br>"
313
			
314
			
314
			Response.write "<br>"
315
			rsQry.Close()
315
			
316
			Set rsQry = Nothing
316
			rsQry.Close()
317
			
317
			Set rsQry = Nothing
318
			OraDatabase.Parameters.Remove "ENTITY_ID"
318
			
319
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
319
			OraDatabase.Parameters.Remove "ENTITY_ID"
320
		%>
320
			OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
321
		
321
		%>
322
		</td>
322
		
323
        </tr>
323
		</td>
324
    </table>
324
        </tr>
325
	<%End If%>	
325
    </table>
326
<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	
326
	<%End If%>	
327
 
327
<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	
328
	
328
 
329
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
329
	
330
 
330
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
331
	  <tr>
331
 
332
        <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
332
	  <tr>
333
        <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
333
        <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
334
      </tr>
334
        <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
335
	  
335
      </tr>
336
	  <!-- BOM Comments +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
336
	  
337
	  <%If (objBomCollector.Item("bom_comments") <> "") Then%>
337
	  <!-- BOM Comments +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
338
      <tr>
338
	  <%If (objBomCollector.Item("bom_comments") <> "") Then%>
339
        <td align="right" valign="top"><img src="icons/i_bom_properties.gif" width="30" height="30" hspace="3"></td>
339
      <tr>
340
        <td valign="top" class="body_txt">
340
        <td align="right" valign="top"><img src="icons/i_bom_properties.gif" width="30" height="30" hspace="3"></td>
341
		
341
        <td valign="top" class="body_txt">
342
		
342
		
343
			<SPAN class="body_colb">BOM Comments</SPAN>
343
		
344
			<hr width="100%" size="1px" noshade color="#808080">
344
			<SPAN class="body_colb">BOM Comments</SPAN>
345
			<SPAN class="body_txt"><%= objFormater.TextToHTML( objBomCollector.Item("bom_comments") )%></SPAN><br><br><br><br>
345
			<hr width="100%" size="1px" noshade color="#808080">
346
        </td>
346
			<SPAN class="body_txt"><%= objFormater.TextToHTML( objBomCollector.Item("bom_comments") )%></SPAN><br><br><br><br>
347
      </tr>
347
        </td>
348
	  <%End If%>
348
      </tr>
349
	  
349
	  <%End If%>
350
	  
350
	  
351
	  <!-- COMPARE BOM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
351
	  
352
      <tr>
352
	  <!-- COMPARE BOM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
353
        <td align="right" valign="top"><img src="icons/i_bom_diff.gif" width="37" height="33" hspace="3"></td>
353
      <tr>
354
        <td valign="top" class="body_txt">
354
        <td align="right" valign="top"><img src="icons/i_bom_diff.gif" width="37" height="33" hspace="3"></td>
355
		
355
        <td valign="top" class="body_txt">
356
		<%
356
		
357
		'-- FROM START --------------------------------------------------------------------------------------------------------------
357
		<%
358
		objFormComponent.FormName = "OldVersion"
358
		'-- FROM START --------------------------------------------------------------------------------------------------------------
359
		objFormComponent.Action = SCRIPT_NAME
359
		objFormComponent.FormName = "OldVersion"
360
		objFormComponent.Method = "get"
360
		objFormComponent.Action = SCRIPT_NAME
361
		Call objFormComponent.FormStart()
361
		objFormComponent.Method = "get"
362
		%> 	
362
		Call objFormComponent.FormStart()
363
		
363
		%> 	
364
		<SPAN class="body_colb"><%Call RenderTitle( objBomCollector )%><br>compared with <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %></SPAN><br>
364
		
365
		<a href="javascript:;" onclick="MM_openBrWindow('_wform_upload_pdf.asp?bom_id=<%=dbPARbom_id%>', 'upload', 'resizable=yes,height=250,width=500')" class="txt_linked">Upload PDF<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Upload pdf."></a>
365
		<SPAN class="body_colb"><%Call RenderTitle( objBomCollector )%><br>compared with <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %></SPAN><br>
366
		<%If NOT IsNull(objFormCollector.Item("pdf_attachment_path")) Then%>
366
		<a href="javascript:;" onclick="MM_openBrWindow('_wform_upload_pdf.asp?bom_id=<%=dbPARbom_id%>', 'upload', 'resizable=yes,height=250,width=500')" class="txt_linked">Upload PDF<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Upload pdf."></a>
367
		<a href="_download_pdf.asp?bom_id=<%=dbPARbom_id%>" title="Download the file: <%=objFormCollector.Item("pdf_attachment_path")%>">Download PDF<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Download pdf."></a>
367
		<%If NOT IsNull(objFormCollector.Item("pdf_attachment_path")) Then%>
368
		<%End If%>
368
		<a href="_download_pdf.asp?bom_id=<%=dbPARbom_id%>" title="Download the file: <%=objFormCollector.Item("pdf_attachment_path")%>">Download PDF<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Download pdf."></a>
369
            <hr width="100%" size="1px" noshade color="#808080"><br>
369
		<%End If%>
370
			
370
            <hr width="100%" size="1px" noshade color="#808080"><br>
371
		
371
			
372
		<SPAN class="body_txt">Show changes since BOM version&nbsp;</SPAN>
372
		
373
		<%=objFormComponent.Combo ( "compare_bom_id", GetBomTreeList(), TRUE, "class='form_ivalue'" )%>
373
		<SPAN class="body_txt">Show changes since BOM version&nbsp;</SPAN>
374
		<%=objPMod.ComposeHiddenTagsWithout("compare_bom_id")%>
374
		<%=objFormComponent.Combo ( "compare_bom_id", GetBomTreeList(), TRUE, "class='form_ivalue'" )%>
375
		<%=objFormComponent.SubmitButton ( "Compare", "class='form_btn'" )%>
375
		<%=objPMod.ComposeHiddenTagsWithout("compare_bom_id")%>
376
		
376
		<%=objFormComponent.SubmitButton ( "Compare", "class='form_btn'" )%>
377
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
377
		
378
          <tr>
378
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
379
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="11" height="11"></td>
379
          <tr>
380
		  	<td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
380
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="11" height="11"></td>
381
              <tr>
381
		  	<td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
382
                <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Product</td>
382
              <tr>
383
              </tr>
383
                <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Product</td>
384
            </table></td>
384
              </tr>
385
			<td width="20%" nowrap align="left" background="images/bg_table_col.gif" class="body_col">Version</td>
385
            </table></td>
386
			<td width="60%" nowrap align="left" background="images/bg_table_col.gif" class="body_col"></td>
386
			<td width="20%" nowrap align="left" background="images/bg_table_col.gif" class="body_col">Version</td>
387
          </tr>
387
			<td width="60%" nowrap align="left" background="images/bg_table_col.gif" class="body_col"></td>
388
		  <%
388
          </tr>
389
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, TRUE )
389
		  <%
390
		  
390
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, TRUE )
391
		  If NOT IsNull( aProductList ) Then
391
		  
392
		  	numOfRows = UBound( aProductList, 2 )
392
		  If NOT IsNull( aProductList ) Then
393
			
393
		  	numOfRows = UBound( aProductList, 2 )
394
			For rowNum = 0 To numOfRows
394
			
395
				
395
			For rowNum = 0 To numOfRows
396
				ProdId = aProductList( 0, rowNum )
396
				
397
				ChangeType = aProductList( 3, rowNum )
397
				ProdId = aProductList( 0, rowNum )
398
		  %>
398
				ChangeType = aProductList( 3, rowNum )
399
		  <tr>
399
		  %>
400
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
400
		  <tr>
401
            <td nowrap valign="top">
401
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
402
			<%
402
            <td nowrap valign="top">
403
			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 )
403
			<%
404
			%>
404
			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 )
405
			<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%>&pkg_name=<%=aProductList( 1, rowNum )%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
405
			%>
406
			<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>
406
			<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%>&pkg_name=<%=aProductList( 1, rowNum )%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
407
			<%
407
			<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>
408
			rsTemp.Close()
408
			<%
409
			Set rsTemp = nothing
409
			rsTemp.Close()
410
			%>
410
			Set rsTemp = nothing
411
			</td>
411
			%>
412
            <td nowrap class="body_row" valign="top"><a href=http://bms:8002/ManagerSuite/Release_Manager/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank">
412
			</td>
413
				<%=aProductList( 2, rowNum )%></a>			</td>
413
            <td nowrap class="body_row" valign="top"><a href=http://bms:8002/ManagerSuite/Release_Manager/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank">
414
			<td class="body_rowlite"></td>
414
				<%=aProductList( 2, rowNum )%></a>			</td>
415
          </tr>
415
			<td class="body_rowlite"></td>
416
		
416
          </tr>
417
		  <tr>
417
		
418
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
418
		  <tr>
419
	            <td nowrap valign="top" class="body_row" colspan="3">
419
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
420
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
420
	            <td nowrap valign="top" class="body_row" colspan="3">
421
				</td>
421
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
422
	          </tr>
422
				</td>
423
		  		  
423
	          </tr>
424
		  <%If rowNum <> numOfRows Then%>
424
		  		  
425
		  <tr>
425
		  <%If rowNum <> numOfRows Then%>
426
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
426
		  <tr>
427
          </tr>
427
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
428
		  <%End If%>
428
          </tr>
429
		  
429
		  <%End If%>
430
		  <%
430
		  
431
		  	Next
431
		  <%
432
		  Else%>
432
		  	Next
433
		  
433
		  Else%>
434
		  <tr>
434
		  
435
            <td colspan="4" class="body_txt">No Changes Found.</td>
435
		  <tr>
436
          </tr>
436
            <td colspan="4" class="body_txt">No Changes Found.</td>
437
		  
437
          </tr>
438
		  <%End If%>
438
		  
439
		  
439
		  <%End If%>
440
		  <tr>
440
		  
441
            <td colspan="4" class="body_txt"><b>Base Configuration Changes.</b></td>
441
		  <tr>
442
          </tr>
442
            <td colspan="4" class="body_txt"><b>Base Configuration Changes.</b></td>
443
		  
443
          </tr>
444
		  		  <%
444
		  
445
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, FALSE )
445
		  		  <%
446
		  
446
		  Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, FALSE )
447
		  If NOT IsNull( aProductList ) Then
447
		  
448
		  	numOfRows = UBound( aProductList, 2 )
448
		  If NOT IsNull( aProductList ) Then
449
			
449
		  	numOfRows = UBound( aProductList, 2 )
450
			For rowNum = 0 To numOfRows
450
			
451
				
451
			For rowNum = 0 To numOfRows
452
				ProdId = aProductList( 0, rowNum )
452
				
453
				ChangeType = aProductList( 3, rowNum )
453
				ProdId = aProductList( 0, rowNum )
454
		  %>
454
				ChangeType = aProductList( 3, rowNum )
455
		  <tr>
455
		  %>
456
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
456
		  <tr>
457
            <td nowrap valign="top">
457
		  	<td valign="top"><%=Eval( aProductList( 5, rowNum ) )%></td>
458
			<%
458
            <td nowrap valign="top">
459
			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 )
459
			<%
460
			%>
460
			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 )
461
			<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%>&pkg_name=<%=aProductList( 1, rowNum )%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
461
			%>
462
			<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>
462
			<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%>&pkg_name=<%=aProductList( 1, rowNum )%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
463
			<%
463
			<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>
464
			rsTemp.Close()
464
			<%
465
			Set rsTemp = nothing
465
			rsTemp.Close()
466
			%>
466
			Set rsTemp = nothing
467
			</td>
467
			%>
468
            <td nowrap class="body_row" valign="top"><a href=http://bms:8002/ManagerSuite/Release_Manager/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank">
468
			</td>
469
				<%=aProductList( 2, rowNum )%></a>			</td>
469
            <td nowrap class="body_row" valign="top"><a href=http://bms:8002/ManagerSuite/Release_Manager/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank">
470
			<td class="body_rowlite"></td>
470
				<%=aProductList( 2, rowNum )%></a>			</td>
471
          </tr>
471
			<td class="body_rowlite"></td>
472
		
472
          </tr>
473
		  <tr>
473
		
474
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
474
		  <tr>
475
	            <td nowrap valign="top" class="body_row" colspan="3">
475
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
476
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
476
	            <td nowrap valign="top" class="body_row" colspan="3">
477
				</td>
477
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
478
	          </tr>
478
				</td>
479
		  		  
479
	          </tr>
480
		  <%If rowNum <> numOfRows Then%>
480
		  		  
481
		  <tr>
481
		  <%If rowNum <> numOfRows Then%>
482
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
482
		  <tr>
483
          </tr>
483
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
484
		  <%End If%>
484
          </tr>
485
		  
485
		  <%End If%>
486
		  <%
486
		  
487
		  	Next
487
		  <%
488
		  Else%>
488
		  	Next
489
		  
489
		  Else%>
490
		  <tr>
490
		  
491
            <td colspan="4" class="body_txt">No Changes Found.</td>
491
		  <tr>
492
          </tr>
492
            <td colspan="4" class="body_txt">No Changes Found.</td>
493
		  
493
          </tr>
494
		  <%End If%>
494
		  
495
		  
495
		  <%End If%>
496
 
496
		  
497
  
497
 
498
          <tr>
498
  
499
            <td colspan="4" background="images/bg_table_border.gif">
499
          <tr>
500
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
500
            <td colspan="4" background="images/bg_table_border.gif">
501
              <tr>
501
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
502
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
502
              <tr>
503
              </tr>
503
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
504
             </table>
504
              </tr>
505
			</td>
505
             </table>
506
          </tr>
506
			</td>
507
         </table>	
507
          </tr>
508
		 <SPAN class="body_smltxtg">
508
         </table>	
509
		 LEGEND: <%=LIMG_ADDED%>&nbsp;Added, <%=LIMG_UPDATED%>&nbsp;Updated, <%=LIMG_REMOVED%>&nbsp;Removed
509
		 <SPAN class="body_smltxtg">
510
		 </span>
510
		 LEGEND: <%=LIMG_ADDED%>&nbsp;Added, <%=LIMG_UPDATED%>&nbsp;Updated, <%=LIMG_REMOVED%>&nbsp;Removed
511
	
511
		 </span>
512
		<%
512
	
513
		Call objFormComponent.FormEnd()
513
		<%
514
		'-- FROM END ----------------------------------------------------------------------------------------------------------------
514
		Call objFormComponent.FormEnd()
515
		%>
515
		'-- FROM END ----------------------------------------------------------------------------------------------------------------
516
		
516
		%>
517
	    </td>
517
		
518
      </tr>
518
	    </td>
519
    </table></td>
519
      </tr>
520
    <td width="1%" valign="top" background="images/bg_favourits.gif">
520
    </table></td>
521
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
521
    <td width="1%" valign="top" background="images/bg_favourits.gif">
522
	<!-- PERSONAL PANE +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
522
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
523
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
523
	<!-- PERSONAL PANE +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
524
      <tr>
524
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
525
        <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
525
      <tr>
526
        <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
526
        <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
527
      </tr>
527
        <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
528
      </table>
528
      </tr>
529
      <a href="<%=SCRIPT_NAME%>?user_bar=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" title="Minimize favourits" width="13" height="13" vspace="5" border="0"></a>      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
529
      </table>
530
      <tr>
530
      <a href="<%=SCRIPT_NAME%>?user_bar=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" title="Minimize favourits" width="13" height="13" vspace="5" border="0"></a>      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
531
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
531
      <tr>
532
          <tr>
532
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
533
            <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
533
          <tr>
534
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
534
            <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
535
            <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
535
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
536
          </tr>
536
            <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
537
          <tr>
537
          </tr>
538
            <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
538
          <tr>
539
              <tr>
539
            <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
540
                <td valign="top" class="fav_txt"><span class="fav_head">Reason for release</span><br>
540
              <tr>
541
                      <br>
541
                <td valign="top" class="fav_txt"><span class="fav_head">Reason for release</span><br>
542
<!--         This version needs to be rebuild on new sysbase_types 1.5.0.mas<br> -->
542
                      <br>
543
                </td>
543
<!--         This version needs to be rebuild on new sysbase_types 1.5.0.mas<br> -->
544
              </tr>
544
                </td>
545
            </table></td>
545
              </tr>
546
            </tr>
546
            </table></td>
547
          <tr>
547
            </tr>
548
            <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
548
          <tr>
549
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
549
            <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
550
            <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
550
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
551
          </tr>
551
            <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
552
        </table>
552
          </tr>
553
          <br>
553
        </table>
554
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
554
          <br>
555
            <tr>
555
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
556
              <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
556
            <tr>
557
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
557
              <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
558
              <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
558
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
559
            </tr>
559
              <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
560
            <tr background="images/bg_gray.gif">
560
            </tr>
561
              <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
561
            <tr background="images/bg_gray.gif">
562
                <tr>
562
              <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
563
                  <td valign="top" class="fav_txt"><span class="fav_head">Fixed Issues</span><br>
563
                <tr>
564
                      <br>
564
                  <td valign="top" class="fav_txt"><span class="fav_head">Fixed Issues</span><br>
565
                      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
565
                      <br>
566
<!--                         <tr>
566
                      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
567
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
567
<!--                         <tr>
568
                          <td><a href="#" class="fav_link">DEVI-021532</a></td>
568
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
569
                        </tr>
569
                          <td><a href="#" class="fav_link">DEVI-021532</a></td>
570
                        <tr>
570
                        </tr>
571
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
571
                        <tr>
572
                          <td><a href="#" class="fav_link">DEVI-021534</a></td>
572
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
573
                        </tr>
573
                          <td><a href="#" class="fav_link">DEVI-021534</a></td>
574
                        <tr>
574
                        </tr>
575
                          <td width="1%"><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
575
                        <tr>
576
                          <td width="100%"><a href="#" class="fav_link">DEVI-021536</a></td>
576
                          <td width="1%"><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
577
                        </tr> -->
577
                          <td width="100%"><a href="#" class="fav_link">DEVI-021536</a></td>
578
                    </table></td>
578
                        </tr> -->
579
                </tr>
579
                    </table></td>
580
              </table></td>
580
                </tr>
581
              </tr>
581
              </table></td>
582
            <tr>
582
              </tr>
583
              <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
583
            <tr>
584
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
584
              <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
585
              <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
585
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
586
            </tr>
586
              <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
587
          </table></td>
587
            </tr>
588
        <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
588
          </table></td>
589
      </tr>
589
        <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
590
    </table>
590
      </tr>
591
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
591
    </table>
592
	<%End If%>
592
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
593
   </td>
593
	<%End If%>
594
  </tr>
594
   </td>
595
  <tr>
595
  </tr>
596
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
596
  <tr>
597
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
597
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
598
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
598
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
599
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
599
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
600
  </tr>
600
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
601
  <tr>
601
  </tr>
602
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
602
  <tr>
603
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
603
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
604
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
604
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
605
    <td bgcolor="#FFFFFF">&nbsp;</td>
605
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
606
  </tr>
606
    <td bgcolor="#FFFFFF">&nbsp;</td>
607
</table>
607
  </tr>
608
<!-- FOOTER ++++++++++++++++ -->
608
</table>
609
<!--#include file="_footer.asp"-->
609
<!-- FOOTER ++++++++++++++++ -->
610
<!-- +++++++++++++++++++++++ -->
610
<!--#include file="_footer.asp"-->
611
</body>
611
<!-- +++++++++++++++++++++++ -->
612
</html>
612
</body>
613
<%
613
</html>
614
'------------ RUN AFTER PAGE RENDER -----------
614
<%
615
Set objPMod = Nothing
615
'------------ RUN AFTER PAGE RENDER -----------
616
Set objCrumbs = Nothing
616
Set objPMod = Nothing
617
Set objTabControl = Nothing
617
Set objCrumbs = Nothing
618
'----------------------------------------------
618
Set objTabControl = Nothing
-
 
619
'----------------------------------------------
619
%><!--#include file="common/globals_destructor.asp"-->
620
%><!--#include file="common/globals_destructor.asp"-->
620
621