Subversion Repositories DevTools

Rev

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

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

            224