Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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