Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
62 rsolanki 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|			          UsedBy					 	 |
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/_product_common.asp"-->
17
<%
18
'------------ ACCESS CONTROL ------------------
19
%>
20
<!--#include file="_access_control_general.asp"-->
21
<%
22
'------------ VARIABLE DEFINITION -------------
23
Dim rsQry
24
'------------ CONSTANTS DECLARATION -----------
25
'------------ VARIABLE INIT -------------------
26
'------------ CONDITIONS ----------------------
27
'----------------------------------------------
28
%>
29
<%
30
'------------ RUN BEFORE PAGE RENDER ----------
31
'----------------------------------------------
32
%>
33
<html>
34
<head>
35
<title>Production Manager</title>
36
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
37
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
38
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
39
<script language="JavaScript" src="scripts/common.js"></script>
40
</head>
41
 
42
<body leftmargin="0" topmargin="0">
43
<!-- HEADER ++++++++++++++++ -->
44
<!--#include file="_header.asp"-->
45
<!-- +++++++++++++++++++++++ -->
46
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
47
<!--#include file="_main_menu.asp"-->
48
<!-- +++++++++++++++++++++++++++++++++++++ -->
49
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
50
  <tr>
51
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
52
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
53
	<!--#include file="_bom_browser.asp"-->
54
	<!-- END OF NODE BROWSER +++++++++++++++ -->
55
	</td>
56
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
57
    <td width="100%" valign="top" bgcolor="#FFFFFF">
58
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
59
	  <tr>
60
        <td valign="top" background="images/bg_green.gif"></td>
61
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
62
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
63
      </tr>
64
      <tr>
65
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
66
        <td width="100%" valign="bottom" background="images/bg_green.gif">
67
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
68
		<!--#include file="_tabs_definition.asp"-->
69
		<%
70
		Set objTabControl = New TabControl
71
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
72
		objTabControl.TabStyle = "StyleWinXP"
73
		objTabControl.AddTabDefnition ( arrProdTabDef )
74
		objTabControl.SelectByName ("Used By")
75
		objTabControl.Render ()
76
		%>
77
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
78
		</td>
79
        <td width="1%" background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="35"></td>
80
        </tr>
81
      <tr>
82
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
83
        <td background="images/bg_bage_0.gif">
84
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
85
		<%
86
		'-- Define Action buttons on this tab
87
		'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
88
 
89
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
90
 
91
		'objBtnControl.Render( aTabBtnsDef )
92
		%>
93
		<!-- +++++++++++++++++++++++++++++++++++ -->
94
		</td>
95
        <td background="images/bg_green.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
96
        </tr>
97
      <tr>
98
        <td>&nbsp;</td>
99
        <td>&nbsp;</td>
100
        <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>
101
        </tr>
102
    </table>
103
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
104
      <tr>
105
        <td>
106
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
107
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
108
          <tr>
109
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
110
              <tr>
111
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Location</td>
112
              </tr>
113
            </table></td>
114
			<td width="20%" align="right" background="images/bg_table_col.gif" class="body_col">Product Name</td>
115
			<td width="10%" align="right" background="images/bg_table_col.gif" class="body_col">Version</td>
116
			<td width="50%" align="right" background="images/bg_table_col.gif" class="body_col">Comments</td>
117
			<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
118
			<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
119
          </tr>
120
		  <%
121
		  OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER 
122
		  OraDatabase.Parameters.Add "BOM_ID",  dbPARbom_id,		ORAPARM_INPUT, ORATYPE_NUMBER 
123
 
124
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductNameAtOtherLocations.sql"), ORADYN_DEFAULT )
125
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
126
		  %>
127
          <tr>
128
            <td nowrap valign="top"><a href="ProdDefault.asp?prod_id=<%=rsQry("prod_id")%>&os_id=<%=rsQry("os_id")%><%=objPMod.ComposeURLWithout("prod_id,os_id")%>" title="Go to This Location" class="body_link"><img src="icons/<%=rsQry("node_icon")%>" border="0" align='absmiddle' hspace="2"><%=rsQry("node_name").Value &" / "& rsQry("os_name").Value %></a></td>
129
			<td nowrap class="body_row" valign="top"><%=LIMG_PRODUCT  &  rsQry("prod_name").Value%></td>
130
            <td nowrap <%If CBool(rsQry("is_different")) Then%>class="body_txtr"<%Else%>class="body_row"<%End If%> valign="top"><%=rsQry("prod_version")%></td>
131
            <td class="body_rowlite" valign="top"><%=rsQry("product_comments")%></td>
132
          </tr>
133
		  <%rsQry.MoveNext%>
134
 
135
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
136
          <tr>
137
            <td colspan="6" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
138
          </tr>
139
		  <%End If%>
140
 
141
		  <%
142
		  WEnd
143
 
144
		  OraDatabase.Parameters.Remove "PROD_ID"
145
		  OraDatabase.Parameters.Remove "BOM_ID"
146
		  %>
147
          <tr>
148
            <td colspan="6" background="images/bg_table_border.gif">
149
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
150
              <tr>
151
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
152
              </tr>
153
             </table>
154
			</td>
155
          </tr>
156
         </table>	
157
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
158
		</td>
159
      </tr>
160
    </table>
161
	</td>
162
    <td width="1%" valign="top" background="images/bg_favourits.gif">
163
	<!-- PERSONAL BAR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
164
	<!--#include file="_personal_bar.asp"-->
165
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
166
   </td>
167
  </tr>
168
  <tr>
169
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
170
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
171
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
172
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
173
  </tr>
174
  <tr>
175
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
176
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
177
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
178
    <td bgcolor="#FFFFFF">&nbsp;</td>
179
  </tr>
180
</table>
181
<!-- FOOTER ++++++++++++++++ -->
182
<!--#include file="_footer.asp"-->
183
<!-- +++++++++++++++++++++++ -->
184
</body>
185
</html>
186
<%
187
'------------ RUN AFTER PAGE RENDER -----------
188
Set objPMod = Nothing
189
Set objCrumbs = Nothing
190
Set objTabControl = Nothing
191
Set objBtnControl = Nothing
192
'----------------------------------------------
193
%><!--#include file="common/globals_destructor.asp"-->