Subversion Repositories DevTools

Rev

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