Subversion Repositories DevTools

Rev

Rev 5958 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|			          Bom_AllProducts			 	 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
Response.Expires = 0
12
%>
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/_bom_common.asp"-->
17
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
18
<%
19
'------------ ACCESS CONTROL ------------------
20
%>
21
<!--#include file="_access_control_general.asp"-->
22
<%
23
'------------ VARIABLE DEFINITION -------------
24
Dim rsQry, rsTemp
25
Dim aProductList
26
Dim parProd_id_select
27
Dim parShowall
28
Dim numOfRows
29
Dim rowNum
30
Dim objFormCollector
31
Dim objFormComponent
32
Dim sMessage
33
Dim ProdId
34
Dim ChangeType
35
'------------ CONSTANTS DECLARATION -----------
36
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
37
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
38
'------------ VARIABLE INIT -------------------
39
parProd_id_select = Request("prod_id_select")
40
parShowall = Request("showall")
41
Set objFormCollector = CreateObject("Scripting.Dictionary")
42
Set objFormComponent = New FormComponent
43
'------------ CONDITIONS ----------------------
44
'----------------------------------------------
45
%>
46
<%
47
'--------------------------------------------------------------------------------------------------------------
48
Sub GetAllProductsList ( nBom_id, outProductList )
49
	Dim rsQry, query, showAll
50
 
51
	'' Use SHOWALL parameter is BOM has old bom
52
	'showAll = "Y"
53
	'If nBom_id <> nComparedBomId Then
54
	'	showAll = parShowall
55
	'End If
56
 
57
 
58
	OraDatabase.Parameters.Add "BOM_ID", 	 	 nBom_id,		 ORAPARM_INPUT, ORATYPE_NUMBER 
59
 
60
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AllProducts.sql"), ORADYN_DEFAULT )
61
 
62
	If rsQry.RecordCount > 0 Then
63
		outProductList = rsQry.GetRows()
64
	Else
65
		outProductList = NULL
66
	End If
67
 
68
	OraDatabase.Parameters.Remove "BOM_ID"
69
End Sub
70
'--------------------------------------------------------------------------------------------------------------
71
%>
72
<%
73
'------------ RUN BEFORE PAGE RENDER ----------
74
'----------------------------------------------
75
%>
76
<html>
77
<head>
78
<title>Deployment Manager</title>
79
<link rel="shortcut icon" href="<%=FavIcon%>"/>
80
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
81
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 82
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
83
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
84
<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 85
<script language="JavaScript" type="text/javascript">
86
<!--
87
 
88
function RequestProductLocation( paramString, rowId, changeType ){
89
	var requestURL 
90
 
91
	// Product is changes, hence can be found in current bom
92
	requestURL = 'RequestProductLocation.asp';
93
 
94
 
95
	// Show div
96
	ToggleDisplay( 'PRODUCT_'+ rowId, 'IMG_EXPAND_PRODUCT_' + rowId, 'IMG_COLLAPSE_PRODUCT_' + rowId );
97
 
98
	// Set ajax divname
99
	ajaxdivname = 'PRODUCT_'+ rowId;
100
 
101
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
102
	{
103
 
104
		//Append the name to search for to the requestURL
105
		var url = requestURL + paramString;
106
 
107
		//Create the xmlHttp object to use in the request
108
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
109
		// This is non-blocking (asynchronous)
110
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
111
 
112
		//Send the xmlHttp get to the specified url
113
		xmlHttp_Get(xmlHttp, url);
114
 
115
	}
116
 
117
 
118
}
119
 
120
//-->
121
</script>
122
</head>
123
 
124
<body leftmargin="0" topmargin="0">
125
<!-- HEADER ++++++++++++++++ -->
126
<!--#include file="_header.asp"-->
127
<!-- +++++++++++++++++++++++ -->
128
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
129
<!--#include file="_main_menu.asp"-->
130
<!-- +++++++++++++++++++++++++++++++++++++ -->
131
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
132
  <tr>
133
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
134
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
135
	<!--#include file="_bom_browser.asp"-->
136
	<!-- END OF NODE BROWSER +++++++++++++++ -->
137
	</td>
138
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
139
    <td width="100%" valign="top" bgcolor="#FFFFFF">
140
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
141
	  <tr>
142
        <td valign="top" background="images/bg_blue.gif"></td>
143
        <td align="right" valign="bottom" background="images/bg_blue.gif" class="body_txtw"><%Call RenderTitle( objBomCollector )%></td>
144
        <td background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="20"></td>
145
      </tr>
146
      <tr>
147
        <td width="1%" valign="top" background="images/bg_blue.gif"></td>
148
        <td width="100%" valign="bottom" background="images/bg_blue.gif">
149
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
150
		<!--#include file="_tabs_definition.asp"-->
151
		<%
152
		Set objTabControl = New TabControl
153
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
154
		objTabControl.TabStyle = "StyleWinXP"
155
		objTabControl.AddTabDefnition ( arrBomTabDef )
156
		objTabControl.SelectByName("All Products")
157
		objTabControl.Render ()
158
		%>
159
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
160
		</td>
161
        <td width="1%" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
162
        </tr>
163
      <tr>
164
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
165
        <td background="images/bg_bage_0.gif">
166
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
167
		<%
168
		'-- Define Action buttons on this tab
169
		aTabBtnsDef = Array("abtnSyncProdLatest", "abtnUnhideProducts", "abtnRevertProdLatest")
170
 
171
		Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
172
 
173
		' -- Tell control if buttons need to be readonly actions 
174
		objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly")
175
 
176
		' -- Render Buttons
177
		Call objBtnControl.Render  ( aTabBtnsDef )
178
		%>
179
		<!-- +++++++++++++++++++++++++++++++++++ -->
180
		</td>
181
        <td background="images/bg_blue.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
182
        </tr>
183
      <tr>
184
        <td>&nbsp;</td>
185
        <td>&nbsp;</td>
186
        <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>
187
        </tr>
188
    </table>
189
 
190
 
191
 
192
 
193
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
194
 
195
	  <tr>
196
        <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
197
        <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
198
      </tr>
199
 
200
	  <!-- ALL PRODUCTS BOM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
201
      <tr>
202
        <td align="right" valign="top"><img src="icons/i_bom_products.gif" hspace="3"></td>
203
        <td valign="top" class="body_txt">
204
 
205
		<SPAN class="body_colb"><%Call RenderTitle( objBomCollector )%><br>All Products</SPAN><br>
206
            <hr width="100%" size="1px" noshade color="#808080"><br>
207
 
208
 
209
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
210
          <tr>
211
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="11" height="11"></td>
212
		  	<td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
213
              <tr>
214
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Product</td>
215
              </tr>
216
            </table></td>
217
			<td width="20%" nowrap align="right" background="images/bg_table_col.gif" class="body_col">Version</td>
218
			<td width="60%" nowrap align="right" background="images/bg_table_col.gif" class="body_col"></td>
219
          </tr>
220
		  <%
221
		  Call GetAllProductsList ( dbPARbom_id, aProductList )
222
 
223
		  If NOT IsNull( aProductList ) Then
224
		  	numOfRows = UBound( aProductList, 2 )
225
 
226
			For rowNum = 0 To numOfRows
227
 
228
				ProdId = aProductList( 0, rowNum )
229
				ChangeType = NULL
230
 
231
			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 )	
232
		  %>
233
		  <tr>
234
		  	<td valign="top"></td>
235
            <td nowrap valign="top">
236
			<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%>&change_type=<%=ChangeType%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) &  aProductList( 1, rowNum )%></a></SPAN>
237
			<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>
238
			<%
239
		  rsTemp.Close()
240
		  Set rsTemp = nothing			
241
			%>
242
			</td>
243
            <td nowrap class="body_row" valign="top">
244
				<%=aProductList( 2, rowNum )%>
245
			</td>
246
			<td class="body_rowlite"></td>
247
          </tr>
248
 
249
		  <tr>
250
			  	<td><img src="images/spacer.gif" width="1" height="1"></td>
251
	            <td nowrap valign="top" class="body_row" colspan="3">
252
				<DIV id="PRODUCT_<%=ProdId & ChangeType%>" name="PRODUCT_<%=ProdId & ChangeType%>" style="display:none;"><%=enumLOADING%></DIV>
253
				</td>
254
	          </tr>
255
 
256
		  <%If rowNum <> numOfRows Then%>
257
		  <tr>
258
            <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
259
          </tr>
260
		  <%End If%>
261
 
262
		  <%
263
		  	Next
264
		  Else%>
265
 
266
		  <tr>
267
            <td colspan="4" class="body_txt">No Changes Found.</td>
268
          </tr>
269
 
270
		  <%End If%>
271
 
272
          <tr>
273
            <td colspan="4" background="images/bg_table_border.gif">
274
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
275
              <tr>
276
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
277
              </tr>
278
             </table>
279
			</td>
280
          </tr>
281
         </table>	
282
 
283
 
284
	    </td>
285
      </tr>
286
    </table></td>
287
    <td width="1%" valign="top" background="images/bg_favourits.gif">
288
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
289
	<!-- PERSONAL PANE +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
290
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
291
      <tr>
292
        <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
293
        <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
294
      </tr>
295
      </table>
296
      <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">
297
      <tr>
298
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
299
          <tr>
300
            <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
301
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
302
            <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
303
          </tr>
304
          <tr>
305
            <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
306
              <tr>
307
                <td valign="top" class="fav_txt"><span class="fav_head">Reason for release</span><br>
308
                      <br>
309
<!--         This version needs to be rebuild on new sysbase_types 1.5.0.mas<br> -->
310
                </td>
311
              </tr>
312
            </table></td>
313
            </tr>
314
          <tr>
315
            <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
316
            <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
317
            <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
318
          </tr>
319
        </table>
320
          <br>
321
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
322
            <tr>
323
              <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
324
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
325
              <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
326
            </tr>
327
            <tr background="images/bg_gray.gif">
328
              <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
329
                <tr>
330
                  <td valign="top" class="fav_txt"><span class="fav_head">Fixed Issues</span><br>
331
                      <br>
332
                      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
333
<!--                         <tr>
334
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
335
                          <td><a href="#" class="fav_link">DEVI-021532</a></td>
336
                        </tr>
337
                        <tr>
338
                          <td><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
339
                          <td><a href="#" class="fav_link">DEVI-021534</a></td>
340
                        </tr>
341
                        <tr>
342
                          <td width="1%"><img src="icons/i_bulet.gif" width="4" height="4" hspace="5"></td>
343
                          <td width="100%"><a href="#" class="fav_link">DEVI-021536</a></td>
344
                        </tr> -->
345
                    </table></td>
346
                </tr>
347
              </table></td>
348
              </tr>
349
            <tr>
350
              <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
351
              <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
352
              <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
353
            </tr>
354
          </table></td>
355
        <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
356
      </tr>
357
    </table>
358
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
359
	<%End If%>
360
   </td>
361
  </tr>
362
  <tr>
363
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
364
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
365
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
366
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
367
  </tr>
368
  <tr>
369
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
370
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
371
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
372
    <td bgcolor="#FFFFFF">&nbsp;</td>
373
  </tr>
374
</table>
375
<!-- FOOTER ++++++++++++++++ -->
376
<!--#include file="_footer.asp"-->
377
<!-- +++++++++++++++++++++++ -->
378
</body>
379
</html>