Subversion Repositories DevTools

Rev

Rev 5958 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wEditBom					 	 |
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/_popup_window_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector, objProjCollector
24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
26 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
27 
parBom_id = Request("bom_id")
28 
Set objFormCollector = CreateObject("Scripting.Dictionary")
29 
Set	objProjCollector = CreateObject("Scripting.Dictionary")
30 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
32 
%>
33 
<%
34 
'-----------------------------------------------------------------------------------------------------------------
35 
Sub GetProjectCollection ( nProj_id, ByRef outobjDetails )
36 
	Dim rsQry, query
37 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
38 
 
39 
	query = _
40 
	" SELECT pr.*"&_
41 
	"   FROM DM_PROJECTS pr"&_
42 
	"  WHERE pr.PROJ_ID = :PROJ_ID"
43 
 
44 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
45 
 
46 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
47 
		outobjDetails.Item ("proj_id")   = rsQry("proj_id")
48 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
49 
		outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
50 
		outobjDetails.Item ("is_hidden") = rsQry("is_hidden")
51 
 
52 
	'Else
53 
	'	Err.Raise 8, "Sub GetProjectCollection", "Empty record set returned. nProj_id="& nProj_id
54 
 
55 
	End If
56 
 
57 
	OraDatabase.Parameters.Remove "PROJ_ID"
58 
	rsQry.Close
59 
	Set rsQry = Nothing
60 
End Sub
61 
'-----------------------------------------------------------------------------------------------------------------
62 
'--------------------------------------------------------------------------------------------------------------------------
63 
Sub GetFormDetails ( nBomId, ByRef outobjDetails )
64 
 
65 
	Call GetBomDetails ( nBomId, outobjDetails )
66 
 
67 
	outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
68 
 
69 
End Sub
70 
'--------------------------------------------------------------------------------------------------------------------------
71 
Function GetRMReleaseList ( nRtagId, nProjId )
72 
	Dim rsQry, query
73 
	OraDatabase.Parameters.Add "RTAG_ID", nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
74 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
75 
 
76 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMReleasesCombo.sql"), ORADYN_DEFAULT )
77 
 
78 
	If rsQry.RecordCount > 0 Then
79 
		GetRMReleaseList = rsQry.GetRows()
80 
 
81 
	Else
82 
		GetRMReleaseList = NULL
83 
 
84 
	End If
85 
 
86 
	OraDatabase.Parameters.Remove "RTAG_ID"
87 
	OraDatabase.Parameters.Remove "PROJ_ID"
88 
 
89 
	rsQry.Close
90 
	Set rsQry = Nothing
91 
End Function
92 
'--------------------------------------------------------------------------------------------------------------------------
93 
Sub UpdateBom ()
94 
	On Error Resume Next
95 
 
96 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id_fk"), 		ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "BOM_COMMENTS",  Request("bom_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
 
101 
 
102 
	objEH.TryORA ( OraSession )
103 
 
104 
	OraDatabase.ExecuteSQL _
105 
	"BEGIN pk_Bom.Update_Bom ( :BOM_ID, :RTAG_ID, :BOM_COMMENTS, :USER_ID ); END;"
106 
 
107 
	objEH.CatchORA ( OraSession )
108 
 
109 
 
110 
	OraDatabase.Parameters.Remove "BOM_ID"
111 
	OraDatabase.Parameters.Remove "RTAG_ID"
112 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
113 
	OraDatabase.Parameters.Remove "USER_ID"
114 
End Sub
115 
'--------------------------------------------------------------------------------------------------------------------------
116 
%>
117 
<%
118 
'------------ RUN BEFORE PAGE RENDER ----------
119 
' --- Get Form details from DB ---
120 
Call GetFormDetails ( parBom_id, objFormCollector )
121 
Call GetProjectCollection ( dbPARproj_id, objProjCollector )
122 
 
123 
' --- Load Validation Rules ---
124 
Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase )		' Load Validation Rules
125 
 
126 
' --- Enter Form Validation Rule Changes here... ----
127 
'----------------------------------------------------
128 
 
129 
If CBool(Request("action")) Then
130 
	If objForm.IsValidOnPostBack Then
131 
		' --- Form is Valid ---
132 
		Call UpdateBom()
133 
 
134 
		If objEH.Finally Then
135 
			Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
136 
			Call CloseWindow()
137 
		End If
138 
 
139 
	End If
140 
End If
141 
 
142 
'----------------------------------------------
143 
%>
144 
<html>
145 
<head>
146 
<title>Deployment Manager</title>
147 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
148 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
149 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 150 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
151 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 152 
</head>
153 
 
154 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bom_comments.focus();">
155 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
156 
  <tr>
157 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;BOM</span> <br>
158 
    Enter optional comments.
159 
    </td>
160 
  </tr>
161 
  <%
162 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
163 
  objFormComponent.FormName = "FormName"
164 
  objFormComponent.Action = SCRIPT_NAME
165 
  objFormComponent.OnSubmit = "ShowProgress();"
166 
  Call objFormComponent.FormStart()
167 
  %>
168 
  <tr>
169 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
170 
      <tr>
171 
        <td><%=ProgressBar%></td>
172 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
173 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
174 
      </tr>
175 
    </table></td>
176 
  </tr>
177 
  <tr>
178 
    <td>
179 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
180 
	<!--#include file="messages/_msg_inline.asp"-->
181 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
182 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
183 
      <tr>
184 
        <td nowrap class="form_iname" valign="top">Bom Version </td>
185 
        <td valign="top"><%=objFormComponent.TextBox ( "bom_full_version", objFormCollector.Item("bom_full_version"), "size='60' class='form_ivalue' disabled" )%></td>
186 
		<td valign="top"></td>
187 
      </tr>
188 
	  <tr>
189 
        <td nowrap class="form_iname" valign="top">Release Manager Reference</td>
190 
        <td valign="top"><%=objFormComponent.Combo ( "rtag_id_fk", GetRMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), objProjCollector.Item ("proj_id") ), TRUE, "class='form_ivalue'" )%></td>
191 
		<td valign="top"></td>
192 
      </tr>
193 
      <tr>
194 
        <td valign="top" nowrap class="form_iname">Bom Comments</td>
195 
        <td valign="top"><%=objFormComponent.TextArea ( "bom_comments", objForm.GetValue( "bom_comments", objFormCollector.Item("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 
  <%=objPMod.ComposeHiddenTags()%>
206 
  <input type="hidden" name="action" value="true">
207 
  <%
208 
  Call objFormComponent.FormEnd()
209 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
210 
  %>
211 
</table>
212 
</body>
213 
</html>
5958 dpurdie 214 
<!--#include file="common/globals_destructor.asp"-->