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