Subversion Repositories DevTools

Rev

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

Rev 23 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          AddBlankBom				 	 |
 5 
'|			          AddBlankBom				 	 |
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/_form_window_common.asp"-->
 16 
<!--#include file="common/_form_window_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 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
26 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
 26 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
27 
parProj_id = Request("proj_id")
 27 
parProj_id = Request("proj_id")
28 
parBranch_id = Request("branch_id")
 28 
parBranch_id = Request("branch_id")
29 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'--------------------------------------------------------------------------------------------------------------------------
 33 
'--------------------------------------------------------------------------------------------------------------------------
34 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 34 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
35 
	Dim rsQry, query
 35 
	Dim rsQry, query
36 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
36 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	NULL,			ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	NULL,			ORAPARM_INPUT, ORATYPE_NUMBER
38
38
39 
	'Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomBaseEnvList.sql"), ORADYN_DEFAULT )
 39 
	'Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomBaseEnvList.sql"), ORADYN_DEFAULT )
40
40
41 
	If rsQry.RecordCount > 0 Then
 41 
	If rsQry.RecordCount > 0 Then
42 
		outobjDetails.Item ("bom_base_env")  = TRUE
 42 
		outobjDetails.Item ("bom_base_env")  = TRUE
43
43
44 
	Else
 44 
	Else
45 
		outobjDetails.Item ("bom_base_env")  = FALSE
 45 
		outobjDetails.Item ("bom_base_env")  = FALSE
46
46
47 
	End If
 47 
	End If
48
48
49 
	OraDatabase.Parameters.Remove "BOM_ID"
 49 
	OraDatabase.Parameters.Remove "BOM_ID"
50 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 50 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
51
51
52 
	rsQry.Close
 52 
	rsQry.Close
53 
	Set rsQry = Nothing
 53 
	Set rsQry = Nothing
54 
End Sub
 54 
End Sub
55 
'--------------------------------------------------------------------------------------------------------------------------
 55 
'--------------------------------------------------------------------------------------------------------------------------
56 
Function GetRMReleaseList ( nRtagId, nProjId )
 56 
Function GetRMReleaseList ( nRtagId, nProjId )
57 
	Dim rsQry, query
 57 
	Dim rsQry, query
58
58
59 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
59 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
60 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
60 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
61
61
62 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
 62 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
63
63
64 
	If rsQry.RecordCount > 0 Then
 64 
	If rsQry.RecordCount > 0 Then
65 
		GetRMReleaseList = rsQry.GetRows()
 65 
		GetRMReleaseList = rsQry.GetRows()
66
66
67 
	Else
 67 
	Else
68 
		GetRMReleaseList = NULL
 68 
		GetRMReleaseList = NULL
69
69
70 
	End If
 70 
	End If
71
71
72 
	OraDatabase.Parameters.Remove "RTAG_ID"
 72 
	OraDatabase.Parameters.Remove "RTAG_ID"
73 
	OraDatabase.Parameters.Remove "PROJ_ID"
 73 
	OraDatabase.Parameters.Remove "PROJ_ID"
74
74
75 
	rsQry.Close
 75 
	rsQry.Close
76 
	Set rsQry = Nothing
 76 
	Set rsQry = Nothing
77 
End Function
 77 
End Function
78 
'--------------------------------------------------------------------------------------------------------------------------
 78 
'--------------------------------------------------------------------------------------------------------------------------
79 
Function GetBomNames ( nProj_id )
 79 
Function GetBomNames ( nProj_id )
80 
	Dim rsQry
 80 
	Dim rsQry
81
81
82 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 82 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
83
83
84 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BomNamesList.sql"), ORADYN_DEFAULT )
 84 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BomNamesList.sql"), ORADYN_DEFAULT )
85
85
86 
	If rsQry.RecordCount > 0 Then
 86 
	If rsQry.RecordCount > 0 Then
87 
		GetBomNames = rsQry.GetRows()
 87 
		GetBomNames = rsQry.GetRows()
88 
	Else
 88 
	Else
89 
		GetBomNames = NULL
 89 
		GetBomNames = NULL
90 
	End If
 90 
	End If
91
91
92 
	OraDatabase.Parameters.Remove "PROJ_ID"
 92 
	OraDatabase.Parameters.Remove "PROJ_ID"
93
93
94 
End Function
 94 
End Function
95 
'--------------------------------------------------------------------------------------------------------------------------
 95 
'--------------------------------------------------------------------------------------------------------------------------
96 
Sub AddBom ()
 96 
Sub AddBom ()
97 
	On Error Resume Next
 97 
	On Error Resume Next
98
98
99 
	OraDatabase.Parameters.Add "BOM_NAME", 		Request("bom_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 99 
	OraDatabase.Parameters.Add "BOM_NAME", 		Request("bom_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
100 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "BRANCH_ID", 	Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
101 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
101 
	OraDatabase.Parameters.Add "BOM_VERSION", 	Request("bom_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
102 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
102 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	Request("bom_lifecycle"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 103 
	OraDatabase.Parameters.Add "BOM_COMMENTS", 	Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
104 
	OraDatabase.Parameters.Add "RTAG_ID_FK", 	Request("rtag_id_fk"), 		ORAPARM_INPUT, ORATYPE_NUMBER
104 
	OraDatabase.Parameters.Add "RTAG_ID_FK", 	Request("rtag_id_fk"), 		ORAPARM_INPUT, ORATYPE_NUMBER
105 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
105 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
106
106
107 
	objEH.TryORA ( OraSession )
 107 
	objEH.TryORA ( OraSession )
108
108
109 
	OraDatabase.ExecuteSQL _
 109 
	OraDatabase.ExecuteSQL _
110 
	"BEGIN   pk_Bom.Add_Bom ( :BOM_NAME, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, NULL, :RTAG_ID_FK, :USER_ID );   END;"
 110 
	"BEGIN   pk_Bom.Add_Bom ( :BOM_NAME, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, NULL, :RTAG_ID_FK, :USER_ID );   END;"
111
111
112 
	objEH.CatchORA ( OraSession )
 112 
	objEH.CatchORA ( OraSession )
113
113
114 
	OraDatabase.Parameters.Remove "BOM_VERSION"
 114 
	OraDatabase.Parameters.Remove "BOM_VERSION"
115 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
115 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
116 
	OraDatabase.Parameters.Remove "BOM_NAME"
 116 
	OraDatabase.Parameters.Remove "BOM_NAME"
117 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 117 
	OraDatabase.Parameters.Remove "BRANCH_ID"
118 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
 118 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
119 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
 119 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
120 
	OraDatabase.Parameters.Remove "USER_ID"
 120 
	OraDatabase.Parameters.Remove "USER_ID"
121 
End Sub
 121 
End Sub
122 
'--------------------------------------------------------------------------------------------------------------------------
 122 
'--------------------------------------------------------------------------------------------------------------------------
123 
%>
 123 
%>
124 
<%
 124 
<%
125 
'------------ RUN BEFORE PAGE RENDER ----------
 125 
'------------ RUN BEFORE PAGE RENDER ----------
126 
objPMod.PersistInQryString ( Array("bom_id_list", "state_id") )
 126 
objPMod.PersistInQryString ( Array("bom_id_list", "state_id") )
127 
 
 127 
 
128 
' --- Get Form details from DB ---
 128 
' --- Get Form details from DB ---
129 
 
 129 
 
130 
' --- Load Validation Rules ---
 130 
' --- Load Validation Rules ---
131 
Call objForm.LoadValidationRules ( Array("bom_name","bom_comments"), OraDatabase )		' Load Validation Rules
 131 
Call objForm.LoadValidationRules ( Array("bom_name","bom_comments"), OraDatabase )		' Load Validation Rules
132 
Call objForm.LoadValidationRules ( Array("bom_version"), OraDatabase )		' Load Validation Rules
 132 
Call objForm.LoadValidationRules ( Array("bom_version"), OraDatabase )		' Load Validation Rules
133 
Call objForm.LoadValidationRules ( Array("bom_lifecycle"), OraDatabase )		' Load Validation Rules
 133 
Call objForm.LoadValidationRules ( Array("bom_lifecycle"), OraDatabase )		' Load Validation Rules
134 
 
 134 
 
135 
' --- Enter Form Validation Rule Changes here... ----
 135 
' --- Enter Form Validation Rule Changes here... ----
136 
'----------------------------------------------------
 136 
'----------------------------------------------------
137 
 
 137 
 
138 
' --- RUN onPostBack ---
 138 
' --- RUN onPostBack ---
139 
If Request("action") <> "" Then
 139 
If Request("action") <> "" Then
140 
	If objForm.IsValidOnPostBack Then
 140 
	If objForm.IsValidOnPostBack Then
141 
		' --- Form is Valid ---
 141 
		' --- Form is Valid ---
142 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_VERSION='"& Request("bom_version") &"' AND BRANCH_ID = "& Request("branch_id") &" AND BOM_LIFECYCLE='"& Request("bom_lifecycle") &"'" , ORADYN_DEFAULT )
 142 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_VERSION='"& Request("bom_version") &"' AND BRANCH_ID = "& Request("branch_id") &" AND BOM_LIFECYCLE='"& Request("bom_lifecycle") &"'" , ORADYN_DEFAULT )
143
143
144 
	If rsQry.RecordCount = 0 Then
144 
	If rsQry.RecordCount = 0 Then
145 
		Call AddBom()
 145 
		Call AddBom()
146
146
147 
		If objEH.Finally Then
 147 
		If objEH.Finally Then
148 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
 148 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
149 
		End If
 149 
		End If
150 
	Else
 150 
	Else
151 
		Call Messenger ("Cannot create SBOM! The selected sbom version and lifecycle exists in this branch.", 1, "100%")
 151 
		Call Messenger ("Cannot create SBOM! The selected sbom version and lifecycle exists in this branch.", 1, "100%")
152 
		rsQry.Close
 152 
		rsQry.Close
153 
		Set rsQry = nothing
153 
		Set rsQry = nothing
154 
	End If
 154 
	End If
155
155
156 
	End If
 156 
	End If
157
157
158 
End If
 158 
End If
159 
'----------------------------------------------
 159 
'----------------------------------------------
160 
%>
 160 
%>
161 
<html>
 161 
<html>
162 
<head>
 162 
<head>
163 
<title>Deployment Manager</title>
 163 
<title>Deployment Manager</title>
164 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 164 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
165 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 165 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
166 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 166 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
167 
<script language="JavaScript" src="scripts/common.js"></script>
 167 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
168 
 
 168 
<script language="JavaScript" src="scripts/common.js"></script>
169 
</head>
 169 
 
170 
<body background="images/bg_lite_blue.gif" leftmargin="0" topmargin="0" onLoad="FormName.bom_name.focus();">
 170 
</head>
171 
<!-- HEADER ++++++++++++++++ -->
 171 
<body background="images/bg_lite_blue.gif" leftmargin="0" topmargin="0" onLoad="FormName.bom_name.focus();">
172 
<!--#include file="_header.asp"-->
 172 
<!-- HEADER ++++++++++++++++ -->
173 
<!-- +++++++++++++++++++++++ -->
 173 
<!--#include file="_header.asp"-->
174 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 174 
<!-- +++++++++++++++++++++++ -->
175 
<%
 175 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
176 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 176 
<%
177 
objFormComponent.FormName = "FormName"
 177 
'-- FROM START ---------------------------------------------------------------------------------------------------------
178 
objFormComponent.Action = SCRIPT_NAME
 178 
objFormComponent.FormName = "FormName"
179 
objFormComponent.OnSubmit = "ShowProgress();"
 179 
objFormComponent.Action = SCRIPT_NAME
180 
Call objFormComponent.FormStart()
 180 
objFormComponent.OnSubmit = "ShowProgress();"
181 
%>
 181 
Call objFormComponent.FormStart()
182 
  <tr>
 182 
%>
183 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
 183 
  <tr>
184 
  </tr>
 184 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
185 
  <tr>
 185 
  </tr>
186 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
 186 
  <tr>
187 
	<!-- FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 187 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
188 
    <table width="600" border="0" cellspacing="0" cellpadding="1">
 188 
	<!-- FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
189 
        <tr>
 189 
    <table width="600" border="0" cellspacing="0" cellpadding="1">
190 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 190 
        <tr>
191 
            <tr>
 191 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
192 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
 192 
            <tr>
193 
				<tr>
 193 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
194 
				  <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src='icons/bi_new.gif' width='20' height='16' border='0' align='absmiddle'>&nbsp;New BOM </span> <br>
 194 
				<tr>
195 
				  Enter BOM Name or select from available BOM names.
 195 
				  <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src='icons/bi_new.gif' width='20' height='16' border='0' align='absmiddle'>&nbsp;New BOM </span> <br>
196 
				    </td>
 196 
				  Enter BOM Name or select from available BOM names.
197 
				</tr>
 197 
				    </td>
198 
                <tr>
 198 
				</tr>
199 
				    <td background="images/bg_bage_0.gif">
 199 
                <tr>
200 
					<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
200 
				    <td background="images/bg_bage_0.gif">
201 
					<!--#include file="messages/_msg_inline.asp"-->
 201 
					<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
202 
					<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 202 
					<!--#include file="messages/_msg_inline.asp"-->
203 
					<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 203 
					<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
204 
					  <tr>
 204 
					<table width="100%"  border="0" cellspacing="2" cellpadding="0">
205 
				        <td nowrap class="form_iname" valign="top">BOM Name </td>
 205 
					  <tr>
206 
				        <td valign="top" nowrap><%=objFormComponent.ComboWithText ( "bom_name", NULL, GetBomNames( parProj_id ), "class='form_ivalue' size='60'" )%></td>
 206 
				        <td nowrap class="form_iname" valign="top">BOM Name </td>
207 
				        <td valign="top"> <%=objForm.Validate ("bom_name")%> </td>
 207 
				        <td valign="top" nowrap><%=objFormComponent.ComboWithText ( "bom_name", NULL, GetBomNames( parProj_id ), "class='form_ivalue' size='60'" )%></td>
208 
				      </tr>
 208 
				        <td valign="top"> <%=objForm.Validate ("bom_name")%> </td>
209 
					  <tr>
 209 
				      </tr>
210 
				        <td nowrap class="form_iname" valign="top">BOM Version </td>
 210 
					  <tr>
211 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_version", Request("bom_version") , "class='form_ivalue' size='60' " )%></td>
 211 
				        <td nowrap class="form_iname" valign="top">BOM Version </td>
212 
						<td valign="top"><%=objForm.Validate ("bom_version")%></td>
 212 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_version", Request("bom_version") , "class='form_ivalue' size='60' " )%></td>
213 
				      </tr>
213 
						<td valign="top"><%=objForm.Validate ("bom_version")%></td>
214 
					  <tr>
 214 
				      </tr>
215 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
 215 
					  <tr>
216 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
 216 
				        <td nowrap class="form_iname" valign="top">BOM Lifecycle </td>
217 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
 217 
				        <td valign="top" nowrap><%=objFormComponent.TextBox ( "bom_lifecycle", Request("bom_lifecycle") , "class='form_ivalue' size='60' " )%></td>
218 
				      </tr>
218 
						<td valign="top"><%=objForm.Validate ("bom_lifecycle")%></td>
219 
					  <tr>
 219 
				      </tr>
220 
				        <td nowrap class="form_iname" valign="top">Release Manager Reference </td>
 220 
					  <tr>
221 
				        <td valign="top" nowrap><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), dbPARproj_id ) , TRUE, "class='form_ivalue' " )%></td>
 221 
				        <td nowrap class="form_iname" valign="top">Release Manager Reference </td>
222 
				      </tr>
222 
				        <td valign="top" nowrap><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), dbPARproj_id ) , TRUE, "class='form_ivalue' " )%></td>
223 
				      <tr>
 223 
				      </tr>
224 
				        <td valign="top" nowrap class="form_iname">Comments</td>
 224 
				      <tr>
225 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
 225 
				        <td valign="top" nowrap class="form_iname">Comments</td>
226 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
 226 
				        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", Request("bom_comments"), 10, 60, "class='form_ivalue'" )%></td>
227 
				      </tr>
 227 
						<td valign="top"><%=objForm.Validate ("bom_comments")%></td>
228 
				      <tr>
 228 
				      </tr>
229 
				        <td width="10%" class="form_iname">&nbsp;</td>
 229 
				      <tr>
230 
				        <td width="1%">&nbsp;</td>
 230 
				        <td width="10%" class="form_iname">&nbsp;</td>
231 
						<td width="90%" class="val_err"></td>
 231 
				        <td width="1%">&nbsp;</td>
232 
				      </tr>
 232 
						<td width="90%" class="val_err"></td>
233 
				    </table></td>
 233 
				      </tr>
234 
				</tr>
 234 
				    </table></td>
235 
				<tr>
 235 
				</tr>
236 
                  <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 236 
				<tr>
237 
                      <tr>
 237 
                  <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
238 
                        <td></td>
 238 
                      <tr>
239 
                        <td align="right">
 239 
                        <td></td>
240 
						<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 240 
                        <td align="right">
241 
						<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile") )%></td>
 241 
						<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
242 
                      </tr>
 242 
						<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile") )%></td>
243 
                  </table></td>
 243 
                      </tr>
244 
                </tr>
 244 
                  </table></td>
245 
                <%=objPMod.ComposeHiddenTagsWithout("branch_id")%>
 245 
                </tr>
246 
				<input type="hidden" name="branch_id" value="<%=parBranch_id%>">
 246 
                <%=objPMod.ComposeHiddenTagsWithout("branch_id")%>
247 
				<input type="hidden" name="action" value="true">
 247 
				<input type="hidden" name="branch_id" value="<%=parBranch_id%>">
248 
              </table>
 248 
				<input type="hidden" name="action" value="true">
249 
			 </td>
 249 
              </table>
250 
            </tr>
 250 
			 </td>
251 
          </table></td>
 251 
            </tr>
252 
        </tr>
 252 
          </table></td>
253 
      </table>
 253 
        </tr>
254 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	  </td>
 254 
      </table>
255 
  </tr>
 255 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	  </td>
256 
  <tr>
 256 
  </tr>
257 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
 257 
  <tr>
258 
  </tr>
 258 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
259 
<%
 259 
  </tr>
260 
Call objFormComponent.FormEnd()
 260 
<%
261 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 261 
Call objFormComponent.FormEnd()
262 
%>
262 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
263 
</table>
 263 
%>
264 
<!-- FOOTER ++++++++++++++++++++++ -->
 264 
</table>
265 
<!--#include file="_footer.asp"-->
 265 
<!-- FOOTER ++++++++++++++++++++++ -->
266 
<!-- +++++++++++++++++++++++++++++ -->
 266 
<!--#include file="_footer.asp"-->
267 
</body>
 267 
<!-- +++++++++++++++++++++++++++++ -->
268 
</html>
 268 
</body>
269 
<%
 269 
</html>
270 
'------------ RUN AFTER PAGE RENDER -----------
 270 
<%
271 
Set objPMod = Nothing
 271 
'------------ RUN AFTER PAGE RENDER -----------
272 
'----------------------------------------------
 272 
Set objPMod = Nothing
273 
%>
 273 
'----------------------------------------------
- 
 
 274 
%>
274 
<!--#include file="common/globals_destructor.asp"-->
 275 
<!--#include file="common/globals_destructor.asp"-->
275 

            276