Subversion Repositories DevTools

Rev

Rev 41 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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