Subversion Repositories DevTools

Rev

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

Rev 29 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          AdminProjectIterations	 	 |
 5 
'|			          AdminProjectIterations	 	 |
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/_admin_projects_common.asp"-->
 16 
<!--#include file="common/_admin_projects_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<!--#include file="_access_control_admin_pages.asp"-->
 21 
<!--#include file="_access_control_admin_pages.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim rsQry
 24 
Dim rsQry
25 
Dim i
 25 
Dim i
26 
Dim LastRow
 26 
Dim LastRow
27 
Dim aIterationCollector
 27 
Dim aIterationCollector
28 
Dim parAction
 28 
Dim parAction
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
parAction = Request("action")
 31 
parAction = Request("action")
32 
parBranch_id = Request("branch_id")
 32 
parBranch_id = Request("branch_id")
33 
'------------ CONDITIONS ----------------------
 33 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------------
 37 
'--------------------------------------------------------------------------------------------------------------------------------
38 
Sub GetIterations ( aIterationCollector, nProj_id )
 38 
Sub GetIterations ( aIterationCollector, nProj_id )
39 
	Dim rsQry
 39 
	Dim rsQry
40
40
41 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
41 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
42
42
43 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProductionList.sql"), ORADYN_DEFAULT )
 43 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProductionList.sql"), ORADYN_DEFAULT )
44
44
45 
	If rsQry.RecordCount > 0 Then
 45 
	If rsQry.RecordCount > 0 Then
46 
		aIterationCollector = rsQry.GetRows()
 46 
		aIterationCollector = rsQry.GetRows()
47 
	Else
 47 
	Else
48 
		aIterationCollector = NULL
 48 
		aIterationCollector = NULL
49 
	End If
 49 
	End If
50
50
51 
	rsQry.Close
 51 
	rsQry.Close
52 
	Set rsQry = Nothing
 52 
	Set rsQry = Nothing
53 
	OraDatabase.Parameters.Remove "PROJ_ID"
 53 
	OraDatabase.Parameters.Remove "PROJ_ID"
54 
End Sub
 54 
End Sub
55 
'--------------------------------------------------------------------------------------------------------------------------------
 55 
'--------------------------------------------------------------------------------------------------------------------------------
56 
Sub RenderPMBOMCombo( nVtree_id, nRMProj_fk )
56 
Sub RenderPMBOMCombo( nVtree_id, nRMProj_fk )
57 
	Dim rsQry, Disabled, Query
 57 
	Dim rsQry, Disabled, Query
58
58
59 
	Disabled = ""
 59 
	Disabled = ""
60
60
61 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
 61 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
62
62
63 
	OraDatabase.Parameters.Add "RM_PROJ_FK", 	nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
 63 
	OraDatabase.Parameters.Add "RM_PROJ_FK", 	nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
64 
	OraDatabase.Parameters.Add "VTREE_ID", 		nVtree_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 64 
	OraDatabase.Parameters.Add "VTREE_ID", 		nVtree_id,	ORAPARM_INPUT, ORATYPE_NUMBER
65
65
66 
	Query  = "select * from"&_
 66 
	Query  = "select * from"&_
67 
			 "	branches br, boms bm, bom_names bn"&_
 67 
			 "	branches br, boms bm, bom_names bn"&_
68 
			 "	where br.proj_id = "&Request("PROJ_ID")&""&_
 68 
			 "	where br.proj_id = "&Request("PROJ_ID")&""&_
69 
			 "	and bm.BRANCH_ID = br.BRANCH_ID"&_
 69 
			 "	and bm.BRANCH_ID = br.BRANCH_ID"&_
70 
			 "	and bn.BOM_NAME_ID = bm.BOM_NAME_ID"&_
 70 
			 "	and bn.BOM_NAME_ID = bm.BOM_NAME_ID"&_
71 
			 "  and bm.bom_id not in (select bom_id from production_bom)"
 71 
			 "  and bm.bom_id not in (select bom_id from production_bom)"
72
72
73 
	Set rsQry = OraDatabase.DbCreateDynaset( Query, ORADYN_DEFAULT )
 73 
	Set rsQry = OraDatabase.DbCreateDynaset( Query, ORADYN_DEFAULT )
74
74
75
75
76 
	Response.write "<select name='bom_id' class='form_iname' "& Disabled &">"
 76 
	Response.write "<select name='bom_id' class='form_iname' "& Disabled &">"
77
77
78
78
79 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 79 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
80 
		Response.write "<option value='"& rsQry("bom_id") &"'>"& rsQry("bom_name").Value &""&VBNewLine&""& rsQry("bom_version") &"."&rsQry("bom_lifecycle")&"</option>"
 80 
		Response.write "<option value='"& rsQry("bom_id") &"'>"& rsQry("bom_name").Value &""&VBNewLine&""& rsQry("bom_version") &"."&rsQry("bom_lifecycle")&"</option>"
81
81
82 
		rsQry.MoveNext
 82 
		rsQry.MoveNext
83 
	WEnd
 83 
	WEnd
84
84
85
85
86 
	Response.write "</select>"
 86 
	Response.write "</select>"
87
87
88
88
89
89
90 
	rsQry.Close
 90 
	rsQry.Close
91 
	Set rsQry = Nothing
 91 
	Set rsQry = Nothing
92
92
93 
	OraDatabase.Parameters.Remove "RM_PROJ_FK"
 93 
	OraDatabase.Parameters.Remove "RM_PROJ_FK"
94 
	OraDatabase.Parameters.Remove "VTREE_ID"
 94 
	OraDatabase.Parameters.Remove "VTREE_ID"
95 
End Sub
 95 
End Sub
96 
'--------------------------------------------------------------------------------------------------------------------------------
 96 
'--------------------------------------------------------------------------------------------------------------------------------
97 
Sub RenderPMBranchesCombo( nVtree_id, nRMProj_fk )
97 
Sub RenderPMBranchesCombo( nVtree_id, nRMProj_fk )
98 
	Dim rsQry, Disabled
 98 
	Dim rsQry, Disabled
99
99
100 
	Disabled = ""
 100 
	Disabled = ""
101
101
102 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
 102 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
103
103
104 
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from branches where proj_id = "&nRMProj_fk&" and is_hidden is null order by branch_id desc", ORADYN_DEFAULT )
 104 
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from branches where proj_id = "&nRMProj_fk&" and is_hidden is null order by branch_id desc", ORADYN_DEFAULT )
105
105
106
106
107 
	Response.write "<select name='branch_id' class='form_iname' "& Disabled &">"
 107 
	Response.write "<select name='branch_id' class='form_iname' "& Disabled &">"
108
108
109
109
110 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 110 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
111 
		Response.write "<option value='"& rsQry("branch_id") &"'>"& rsQry("branch_name").Value &"</option>"
 111 
		Response.write "<option value='"& rsQry("branch_id") &"'>"& rsQry("branch_name").Value &"</option>"
112
112
113 
		rsQry.MoveNext
 113 
		rsQry.MoveNext
114 
	WEnd
 114 
	WEnd
115
115
116
116
117 
	Response.write "</select>"
 117 
	Response.write "</select>"
118
118
119
119
120
120
121 
	rsQry.Close
 121 
	rsQry.Close
122 
	Set rsQry = Nothing
 122 
	Set rsQry = Nothing
123
123
124 
 
 124 
 
125 
End Sub
 125 
End Sub
126 
'--------------------------------------------------------------------------------------------------------------------------------
 126 
'--------------------------------------------------------------------------------------------------------------------------------
127 
Sub RenderState( nVtree_id, nRMProj_fk )
127 
Sub RenderState( nVtree_id, nRMProj_fk )
128 
	Dim rsQry, Disabled
 128 
	Dim rsQry, Disabled
129
129
130 
	Disabled = ""
 130 
	Disabled = ""
131
131
132 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
 132 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
133
133
134 
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from states where proj_id = "&nRMProj_fk, ORADYN_DEFAULT )
 134 
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from states where proj_id = "&nRMProj_fk, ORADYN_DEFAULT )
135
135
136
136
137 
	Response.write "<select name='state_id' class='form_iname' "& Disabled &">"
 137 
	Response.write "<select name='state_id' class='form_iname' "& Disabled &">"
138
138
139
139
140 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 140 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
141 
		Response.write "<option value='"& rsQry("state_id") &"'>"& rsQry("state_name").Value &"</option>"
 141 
		Response.write "<option value='"& rsQry("state_id") &"'>"& rsQry("state_name").Value &"</option>"
142
142
143 
		rsQry.MoveNext
 143 
		rsQry.MoveNext
144 
	WEnd
 144 
	WEnd
145
145
146
146
147 
	Response.write "</select>"
 147 
	Response.write "</select>"
148
148
149
149
150
150
151 
	rsQry.Close
 151 
	rsQry.Close
152 
	Set rsQry = Nothing
 152 
	Set rsQry = Nothing
153
153
154 
 
 154 
 
155 
End Sub
 155 
End Sub
156 
'--------------------------------------------------------------------------------------------------------------------------------
 156 
'--------------------------------------------------------------------------------------------------------------------------------
157 
Sub AddProductionBOM ()
 157 
Sub AddProductionBOM ()
158 
	On Error Resume Next
 158 
	On Error Resume Next
159
159
160 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 160 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
161 
	OraDatabase.Parameters.Add "BRANCH_ID", Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
161 
	OraDatabase.Parameters.Add "BRANCH_ID", Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
162 
	OraDatabase.Parameters.Add "STATE_ID", 	Request("state_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
162 
	OraDatabase.Parameters.Add "STATE_ID", 	Request("state_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
163 
	OraDatabase.Parameters.Add "PROJ_ID", 	Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
163 
	OraDatabase.Parameters.Add "PROJ_ID", 	Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
164
164
165
165
166 
	objEH.TryORA ( OraSession )
 166 
	objEH.TryORA ( OraSession )
167
167
168 
	OraDatabase.ExecuteSQL _
 168 
	OraDatabase.ExecuteSQL _
169 
	"BEGIN   pk_Production.Add_Production_Bom ( :BOM_ID, :BRANCH_ID, :STATE_ID, :PROJ_ID );   END;"
 169 
	"BEGIN   pk_Production.Add_Production_Bom ( :BOM_ID, :BRANCH_ID, :STATE_ID, :PROJ_ID );   END;"
170
170
171 
	objEH.CatchORA ( OraSession )
 171 
	objEH.CatchORA ( OraSession )
172
172
173
173
174 
	OraDatabase.Parameters.Remove "BOM_ID"
 174 
	OraDatabase.Parameters.Remove "BOM_ID"
175 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 175 
	OraDatabase.Parameters.Remove "BRANCH_ID"
176 
	OraDatabase.Parameters.Remove "STATE_ID"
 176 
	OraDatabase.Parameters.Remove "STATE_ID"
177 
	OraDatabase.Parameters.Remove "PROJ_ID"
 177 
	OraDatabase.Parameters.Remove "PROJ_ID"
178
178
179 
End Sub
 179 
End Sub
180 
'--------------------------------------------------------------------------------------------------------------------------------
 180 
'--------------------------------------------------------------------------------------------------------------------------------
181 
%>
 181 
%>
182 
<%
 182 
<%
183 
'------------ RUN BEFORE PAGE RENDER ----------
 183 
'------------ RUN BEFORE PAGE RENDER ----------
184 
' --- Get Form details from DB ---
 184 
' --- Get Form details from DB ---
185 
'Call GetFormDetails ( Request("bom_id"), objFormCollector )
 185 
'Call GetFormDetails ( Request("bom_id"), objFormCollector )
186 
 
 186 
 
187 
' --- Load Validation Rules ---
 187 
' --- Load Validation Rules ---
188 
'Call objForm.LoadValidationRules ( Array("branch_name","branch_comments"), OraDatabase )		' Load Validation Rules
 188 
'Call objForm.LoadValidationRules ( Array("branch_name","branch_comments"), OraDatabase )		' Load Validation Rules
189 
 
 189 
 
190 
' --- Enter Form Validation Rule Changes here... ----
 190 
' --- Enter Form Validation Rule Changes here... ----
191 
'----------------------------------------------------
 191 
'----------------------------------------------------
192 
 
 192 
 
193 
' --- RUN onPostBack ---
 193 
' --- RUN onPostBack ---
194 
If Request("doit") <> "" Then
 194 
If Request("doit") <> "" Then
195 
	If objForm.IsValidOnPostBack Then
 195 
	If objForm.IsValidOnPostBack Then
196 
		' --- Form is Valid ---
 196 
		' --- Form is Valid ---
197
197
198 
		Select Case Request("action")
 198 
		Select Case Request("action")
199 
			Case "new"
 199 
			Case "new"
200 
				Call AddProductionBOM()
 200 
				Call AddProductionBOM()
201 
			Case "edit"
 201 
			Case "edit"
202 
				Call EditBranch()
 202 
				Call EditBranch()
203
203
204 
		End Select
 204 
		End Select
205
205
206
206
207 
		If objEH.Finally Then
 207 
		If objEH.Finally Then
208 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
 208 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
209 
		End If
 209 
		End If
210
210
211 
	End If
 211 
	End If
212
212
213
213
214
214
215 
End If
 215 
End If
216 
 
 216 
 
217 
'----------------------------------------------
 217 
'----------------------------------------------
218 
%>
 218 
%>
219 
<html>
 219 
<html>
220 
<head>
 220 
<head>
221 
<title>Deployment Manager</title>
 221 
<title>Deployment Manager</title>
222 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 222 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
223 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 223 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
224 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 224 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
225 
<script language="JavaScript" src="scripts/common.js"></script>
 225 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
226 
</head>
 226 
<script language="JavaScript" src="scripts/common.js"></script>
227 
 
 227 
</head>
228 
<body leftmargin="0" topmargin="0">
 228 
 
229 
<!-- HEADER ++++++++++++++++ -->
 229 
<body leftmargin="0" topmargin="0">
230 
<!--#include file="_header.asp"-->
 230 
<!-- HEADER ++++++++++++++++ -->
231 
<!-- +++++++++++++++++++++++ -->
 231 
<!--#include file="_header.asp"-->
232 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
 232 
<!-- +++++++++++++++++++++++ -->
233 
<!--#include file="_main_menu_admin.asp"-->
 233 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
234 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 234 
<!--#include file="_main_menu_admin.asp"-->
235 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 235 
<!-- +++++++++++++++++++++++++++++++++++++ -->
236 
  <tr>
 236 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
237 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 237 
  <tr>
238 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
 238 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
239 
	<!--#include file="_admin_project_browser.asp"-->
 239 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
240 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
 240 
	<!--#include file="_admin_project_browser.asp"-->
241 
	</td>
 241 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
242 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 242 
	</td>
243 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 243 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
244 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 244 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
245 
      <tr>
 245 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
246 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
 246 
      <tr>
247 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
 247 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
248 
 
 248 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
249 
		</td>
 249 
 
250 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
 250 
		</td>
251 
        </tr>
 251 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
252 
      <tr>
 252 
        </tr>
253 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 253 
      <tr>
254 
        <td background="images/bg_bage_0.gif">
 254 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
255 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 255 
        <td background="images/bg_bage_0.gif">
256 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 256 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
257 
		</td>
 257 
		<!-- +++++++++++++++++++++++++++++++++++ -->
258 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 258 
		</td>
259 
          <tr>
 259 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
260 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
 260 
          <tr>
261 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 261 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
262 
          </tr>
 262 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
263 
        </table></td>
 263 
          </tr>
264 
        </tr>
 264 
        </table></td>
265 
      <tr>
 265 
        </tr>
266 
        <td>&nbsp;</td>
 266 
      <tr>
267 
        <td><br><br>
 267 
        <td>&nbsp;</td>
268 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 268 
        <td><br><br>
269 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 269 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
270 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 270 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
271 
		  <%
 271 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
272 
		  Call GetIterations ( aIterationCollector, parProj_id )
 272 
		  <%
273
273 
		  Call GetIterations ( aIterationCollector, parProj_id )
274
274
275 
		  %>
 275
276 
            <tr>
 276 
		  %>
277 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 277 
            <tr>
278 
                <tr>
 278 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
279 
                  <td width="1" background="images/bg_bage_0.gif"></td>
 279 
                <tr>
280 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production Branch </td>
 280 
                  <td width="1" background="images/bg_bage_0.gif"></td>
281 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production BOM </td>
 281 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production Branch </td>
282 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production State</td>
 282 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production BOM </td>
283 
				 <!--  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td> -->
 283 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap>Production State</td>
284 
                </tr>
 284 
				 <!--  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td> -->
285 
				<%
 285 
                </tr>
286 
				If NOT IsNull(aIterationCollector) Then
 286 
				<%
287 
					LastRow = Ubound( aIterationCollector, 2 )
 287 
				If NOT IsNull(aIterationCollector) Then
288 
					For i = 0 To LastRow
 288 
					LastRow = Ubound( aIterationCollector, 2 )
289 
					%>
 289 
					For i = 0 To LastRow
290 
					<%If parAction = "" Then%>
 290 
					%>
291 
					<!-- NORMAL ROW +++++++++++++++++++ -->
 291 
					<%If parAction = "" Then%>
292 
	                <tr>
 292 
					<!-- NORMAL ROW +++++++++++++++++++ -->
293 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
 293 
	                <tr>
294 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(9, i)%></td>
294 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
295 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%></td>
 295 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(9, i)%></td>
296 
					  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=( aIterationCollector(11, i) )%></td>
 296 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%></td>
297 
<!-- 	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aIterationCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td> -->
 297 
					  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=( aIterationCollector(11, i) )%></td>
298 
	                </tr>
 298 
<!-- 	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aIterationCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td> -->
299 
					<!-- +++++++++++++++++++++++++++++++++ -->
 299 
	                </tr>
300
300 
					<!-- +++++++++++++++++++++++++++++++++ -->
301 
					<%Else%>
 301
302
302 
					<%Else%>
303 
						<%If CStr(aIterationCollector(0, i)) <> parBranch_id Then%>
 303
304 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
 304 
						<%If CStr(aIterationCollector(0, i)) <> parBranch_id Then%>
305 
						<tr>
 305 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
306 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
 306 
						<tr>
307 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(9, i)%></td>
307 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
308 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%></td>
 308 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(9, i)%></td>
309 
						  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=( aIterationCollector(11, i) )%></td>
 309 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%></td>
310 
		                </tr>
 310 
						  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=( aIterationCollector(11, i) )%></td>
311 
						<!-- +++++++++++++++++++++++++++++++++ -->
 311 
		                </tr>
312 
						<%End If%>
 312 
						<!-- +++++++++++++++++++++++++++++++++ -->
313 
					<%End If%>
 313 
						<%End If%>
314
314 
					<%End If%>
315
315
316 
				<%
 316
317 
					Next
 317 
				<%
318
318 
					Next
319 
				End If
 319
320 
				%>
 320 
				End If
321
321 
				%>
322
322
323 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
 323
324 
				<%If parAction = "new" Then%>
 324 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
325
325 
				<%If parAction = "new" Then%>
326 
				<input type="hidden" name="action" value="new">
 326
327 
				<tr>
 327 
				<input type="hidden" name="action" value="new">
328 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 328 
				<tr>
329 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderPMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
 329 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
330 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderPMBOMCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
 330 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderPMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
331 
				  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderState( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
 331 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderPMBOMCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
332 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
 332 
				  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderState( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
333 
                </tr>
 333 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
334 
				<%End If%>
 334 
                </tr>
335 
				<!-- +++++++++++++++++++++++++++++++++ -->
 335 
				<%End If%>
336
336 
				<!-- +++++++++++++++++++++++++++++++++ -->
337
337
338 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
 338
339 
				<%If parAction = "" Then%>
 339 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
340 
				<tr>
 340 
				<%If parAction = "" Then%>
341 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
 341 
				<tr>
342 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 342 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
343 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 343 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
344 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 344 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
345 
                </tr>
 345 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
346 
				<%End If%>
 346 
                </tr>
347 
				<!-- +++++++++++++++++++++++++++++++++ -->
 347 
				<%End If%>
348
348 
				<!-- +++++++++++++++++++++++++++++++++ -->
349 
              </table></td>
 349
350 
            </tr>
 350 
              </table></td>
351 
		  <%=objPMod.ComposeHiddenTags()%>
 351 
            </tr>
352 
		  <input type="hidden" name="doit" value="true">
 352 
		  <%=objPMod.ComposeHiddenTags()%>
353 
		  </form>
 353 
		  <input type="hidden" name="doit" value="true">
354 
          </table>
 354 
		  </form>
355 
          </td>
 355 
          </table>
356 
        <td valign="top"></td>
 356 
          </td>
357 
        </tr>
 357 
        <td valign="top"></td>
358 
    </table>
 358 
        </tr>
359 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 359 
    </table>
360 
	</td>
 360 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
361 
  </tr>
 361 
	</td>
362 
  <tr>
 362 
  </tr>
363 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
 363 
  <tr>
364 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 364 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
365 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 365 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
366 
  </tr>
 366 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
367 
  <tr>
 367 
  </tr>
368 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 368 
  <tr>
369 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 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>
 370 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
371 
  </tr>
 371 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
372 
</table>
 372 
  </tr>
373 
<!-- FOOTER ++++++++++++++++ -->
 373 
</table>
374 
<!--#include file="_footer.asp"-->
 374 
<!-- FOOTER ++++++++++++++++ -->
375 
<!-- +++++++++++++++++++++++ -->
 375 
<!--#include file="_footer.asp"-->
376 
</body>
 376 
<!-- +++++++++++++++++++++++ -->
377 
</html>
 377 
</body>
378 
<%
 378 
</html>
379 
'------------ RUN AFTER PAGE RENDER -----------
 379 
<%
380 
Set objPMod = Nothing
 380 
'------------ RUN AFTER PAGE RENDER -----------
381 
Set objTabControl = Nothing
 381 
Set objPMod = Nothing
382 
'----------------------------------------------
 382 
Set objTabControl = Nothing
383 
%><!--#include file="common/globals_destructor.asp"-->
 383 
'----------------------------------------------
- 
 
 384 
%><!--#include file="common/globals_destructor.asp"-->