Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          ReleaseTo				 	 |
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 parState_id
25 
Dim parBom_id_list
25 rsolanki 26 
Dim parParentBomId
13 rsolanki 27 
'------------ CONSTANTS DECLARATION -----------
28 
'------------ VARIABLE INIT -------------------
29 
parState_id = Request("state_id")
30 
parBom_id_list = Request("bom_id_list")
25 rsolanki 31 
parParentBomId = Request("parent_bom_id")
13 rsolanki 32 
'------------ CONDITIONS ----------------------
33 
'----------------------------------------------
34 
%>
35 
<%
36 
'--------------------------------------------------------------------------------------------------------------------------
37 
Sub GetFormDetails ( nState_id, ByRef outobjDetails )
38 
	Dim rsQry, query
39 
	OraDatabase.Parameters.Add "STATE_ID", 		nState_id,		ORAPARM_INPUT, ORATYPE_NUMBER
40 
 
41 
	query = _
42 
	" SELECT st.STATE_SEQ FROM STATES st WHERE st.STATE_ID = :STATE_ID"
43 
 
44 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
45 
 
46 
	If rsQry.RecordCount > 0 Then
47 
		outobjDetails.Item ("state_seq") = rsQry("state_seq")
48 
 
49 
	End If
50 
 
51 
	OraDatabase.Parameters.Remove "STATE_ID"
52 
 
53 
	rsQry.Close
54 
	Set rsQry = Nothing
55 
End Sub
56 
'--------------------------------------------------------------------------------------------------------------------------
57 
Sub ReleaseTo ()
58 
	On Error Resume Next
59 
 
60 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id_list"), 		ORAPARM_INPUT, ORATYPE_NUMBER
61 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "TOSTATE_ID", 	Request("tostate_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
63 
	OraDatabase.Parameters.Add "COMMENTS", 		Request("release_to_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
64 
 
65 
 
66 
	objEH.TryORA ( OraSession )
67 
 
68 
	OraDatabase.ExecuteSQL _
69 
	"BEGIN   pk_Bom.Release_To ( :BOM_ID, :USER_ID, :TOSTATE_ID, :COMMENTS );   END;"
70 
 
71 
	objEH.CatchORA ( OraSession )
72 
 
73 
 
74 
	OraDatabase.Parameters.Remove "BOM_ID"
75 
	OraDatabase.Parameters.Remove "USER_ID"
76 
	OraDatabase.Parameters.Remove "TOSTATE_ID"
77 
	OraDatabase.Parameters.Remove "COMMENTS"
78 
 
79 
End Sub
80 
'--------------------------------------------------------------------------------------------------------------------------
25 rsolanki 81 
Sub CheckPackages ()
82 
	'On Error Resume Next
83 
	Dim objWSH, IntReturn
84 
	Set objWSH = Server.CreateObject("WScript.Shell")
85 
 
29 jtweddle 86 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\CheckForPackageVersions.wsf /user_name:"&objAccessControl.UserName&" /bom_id:"& parBom_id_list&" /compare_bom_id:"&parParentBomId , 0, False
25 rsolanki 87 
 
88 
	Set objWSH = nothing
89 
 
90 
End Sub
91 
'--------------------------------------------------------------------------------------------------------------------------
13 rsolanki 92 
%>
93 
<%
94 
'------------ RUN BEFORE PAGE RENDER ----------
95 
' --- Get Form details from DB ---
96 
Call GetFormDetails ( Request("state_id"), objFormCollector )
97 
 
98 
' --- Load Validation Rules ---
99 
Call objForm.LoadValidationRules ( Array("release_to_comments"), OraDatabase )		' Load Validation Rules
100 
 
101 
' --- Enter Form Validation Rule Changes here... ----
102 
'----------------------------------------------------
103 
 
104 
' --- RUN onPostBack ---
105 
If Request("action") <> "" Then
106 
	If objForm.IsValidOnPostBack Then
107 
		' --- Form is Valid ---
108 
		Call ReleaseTo()
25 rsolanki 109 
		If Request("proj_id") = 122 Then
110 
			Call CheckPackages()
111 
		End If
112 
 
13 rsolanki 113 
		If objEH.Finally Then
114 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
115 
		End If
116 
 
117 
	End If
118 
End If
119 
 
120 
'----------------------------------------------
121 
%>
122 
<html>
123 
<head>
124 
<title>Deployment Manager</title>
125 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
126 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
127 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
128 
<script language="JavaScript" src="scripts/common.js"></script>
129 
 
130 
</head>
131 
<body background="images/bg_lite_blue.gif" leftmargin="0" topmargin="0" onLoad="FormName.release_to_comments.focus();">
132 
<!-- HEADER ++++++++++++++++ -->
133 
<!--#include file="_header.asp"-->
134 
<!-- +++++++++++++++++++++++ -->
135 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
136 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
25 rsolanki 137 
<%
138 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BOMS WHERE BOM_ID="&parBom_id_list, ORADYN_DEFAULT )
139 
	parParentBomId = rsQry("parent_bom_id")
140 
	rsQry.Close()
141 
	Set rsQry = nothing
142 
%>
143 
 
13 rsolanki 144 
  <tr>
145 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
146 
  </tr>
147 
  <tr>
148 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
149 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
150 
    <table width="570" border="0" cellspacing="0" cellpadding="1">
151 
        <tr>
152 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
153 
            <tr>
154 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
155 
                <tr>
156 
                  <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/mi_release_to.gif" width="19" height="19" align="absmiddle" border="0">&nbsp;Release BOM</span> <br>
157 
      			Select where do you want to release BOM.</td>
158 
                </tr>
159 
                <tr>
160 
                  <td background="images/bg_bage_0.gif"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
161 
                      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
162 
                      <%If NOT objEH.Finally Then%>
163 
                      <tr>
164 
                        <td class="form_iname">&nbsp;</td>
165 
                        <td>
166 
                          <%objEH.DisplayMessage()%>
167 
                        </td>
168 
                        <td class="val_err"></td>
169 
                      </tr>
170 
                      <%End If%>
171 
                      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
172 
                      <tr>
173 
                        <td valign="top" nowrap class="form_iname">Release To </td>
174 
                        <td valign="top" class="body_txt">
175 
                          <select name="tostate_id" class="form_ivalue" >
176 
                          <%
177 
						  OraDatabase.Parameters.Add "TOSTATE_ID",  Request("tostate_id"),					ORAPARM_INPUT, ORATYPE_NUMBER
178 
						  OraDatabase.Parameters.Add "PROJ_ID",   Request("proj_id"),					ORAPARM_INPUT, ORATYPE_NUMBER
179 
						  OraDatabase.Parameters.Add "STATE_SEQ", objFormCollector.Item("state_seq"),	ORAPARM_INPUT, ORATYPE_NUMBER
180 
 
181 
 
182 
						  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseToStateList.sql"), ORADYN_DEFAULT )
183 
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
184 
						  %>
185 
                            <option value="<%=rsQry("state_id")%>" <%=rsQry("selected")%>><%=rsQry("state_name").Value%></option>
186 
                          <%
187 
						  	rsQry.MoveNext
188 
						  WEnd
189 
						  rsQry.Close
190 
 
191 
						  OraDatabase.Parameters.Remove "TOSTATE_ID"
192 
						  OraDatabase.Parameters.Remove "PROJ_ID"
193 
						  OraDatabase.Parameters.Remove "STATE_SEQ"
194 
						  %>
195 
                          </select>
196 
                        </td>
197 
                        <td valign="top"></td>
198 
                      </tr>
199 
                      <tr>
200 
                        <td valign="top" nowrap class="form_iname">Comments</td>
201 
                        <td valign="top"><textarea name="release_to_comments" cols="60" rows="14" class="form_ivalue"><%=Request("release_to_comments")%></textarea></td>
202 
                        <td valign="top"><%=objForm.Validate ("release_to_comments")%> </td>
203 
                      </tr>
204 
                      <tr>
205 
                        <td width="10%" class="form_iname">&nbsp;</td>
206 
                        <td width="1%">&nbsp;</td>
207 
                        <td width="90%" class="val_err"></td>
208 
                      </tr>
209 
                  </table></td>
210 
                </tr>
211 
				<tr>
212 
                  <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
213 
                      <tr>
214 
                        <td></td>
215 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
216 
                            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='<%=Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile")%>';"></td>
217 
                      </tr>
218 
                  </table></td>
219 
                </tr>
220 
                <%=objPMod.ComposeHiddenTags()%>
221 
                <input type="hidden" name="bom_id_list" value="<%=parBom_id_list%>">
25 rsolanki 222 
				<input type="hidden" name="parent_bom_id" value="<%=parParentBomId%>">
13 rsolanki 223 
                <input type="hidden" name="action" value="true">
224 
              </table>                </td>
225 
            </tr>
226 
          </table></td>
227 
        </tr>
228 
      </table>
229 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	  </td>
230 
  </tr>
231 
  <tr>
232 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
233 
  </tr>
234 
</form>
235 
</table>
236 
<!-- FOOTER ++++++++++++++++++++++ -->
237 
<!--#include file="_footer.asp"-->
238 
<!-- +++++++++++++++++++++++++++++ -->
239 
</body>
240 
</html>
241 
<%
242 
'------------ RUN AFTER PAGE RENDER -----------
243 
Set objPMod = Nothing
244 
'----------------------------------------------
245 
%>
29 jtweddle 246 
<!--#include file="common/globals_destructor.asp"-->