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