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 
'|			          BOM_AcceptReject			 	 |
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 parIs_rejected
24 
Dim parBom_id_list
25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
27 
parIs_rejected = Request("is_rejected")
28 
parBom_id_list = Request("bom_id_list")
29 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
31 
%>
32 
<%
33 
'--------------------------------------------------------------------------------------------------------------------------
34 
Sub AcceptRejectBOM ()
35 
	On Error Resume Next
36 
 
37 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id_list"), 		ORAPARM_INPUT, ORATYPE_NUMBER
38 
	OraDatabase.Parameters.Add "IS_REJECTED", 	Request("is_rejected"), 		ORAPARM_INPUT, ORATYPE_CHAR
39 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
40 
	OraDatabase.Parameters.Add "STATE_ID", 		Request("state_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
41 
	OraDatabase.Parameters.Add "COMMENTS", 		Request("reject_note"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
42 
 
43 
 
44 
	objEH.TryORA ( OraSession )
45 
 
46 
	OraDatabase.ExecuteSQL _
47 
	"BEGIN   pk_Bom.Accept_Reject ( :BOM_ID, :IS_REJECTED, :COMMENTS, :STATE_ID, :USER_ID );   END;"
48 
 
49 
	objEH.CatchORA ( OraSession )
50 
 
51 
 
52 
	OraDatabase.Parameters.Remove "BOM_ID"
53 
	OraDatabase.Parameters.Remove "USER_ID"
54 
	OraDatabase.Parameters.Remove "STATE_ID"
55 
	OraDatabase.Parameters.Remove "COMMENTS"
56 
	OraDatabase.Parameters.Remove "IS_REJECTED"
57 
 
58 
End Sub
59 
'--------------------------------------------------------------------------------------------------------------------------
60 
%>
61 
<%
62 
'------------ RUN BEFORE PAGE RENDER ----------
63 
' --- Get Form details from DB ---
64 
 
65 
' --- Load Validation Rules ---
66 
Call objForm.LoadValidationRules ( Array("reject_note"), OraDatabase )		' Load Validation Rules
67 
 
68 
' --- Enter Form Validation Rule Changes here... ----
69 
'----------------------------------------------------
70 
 
71 
' --- RUN onPostBack ---
72 
If Request("action") <> "" Then
73 
	If objForm.IsValidOnPostBack Then
74 
		' --- Form is Valid ---
75 
		Call AcceptRejectBOM()
76 
 
77 
		If objEH.Finally Then
78 
			Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
79 
		End If
80 
 
81 
	End If
82 
End If
83 
 
84 
'----------------------------------------------
85 
%>
86 
<html>
87 
<head>
88 
<title>Deployment Manager</title>
89 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
90 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
91 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 92 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
93 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 94 
 
95 
</head>
96 
<body background="images/bg_lite_blue.gif" leftmargin="0" topmargin="0" onLoad="FormName.reject_note.focus();">
97 
<!-- HEADER ++++++++++++++++ -->
98 
<!--#include file="_header.asp"-->
99 
<!-- +++++++++++++++++++++++ -->
100 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
101 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
102 
  <tr>
103 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
104 
  </tr>
105 
  <tr>
106 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
107 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
108 
    <table width="570" border="0" cellspacing="0" cellpadding="1">
109 
        <tr>
110 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
111 
            <tr>
112 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
113 
                <tr>
114 
                  <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1">
115 
				  <%If parIs_rejected = enumDB_NO Then%>
116 
				  <img src="icons/mi_accept.gif" width="13" height="13" align="absmiddle" border="0">&nbsp;Accept BOM
117 
				  <%Else%>
118 
				  <img src="icons/mi_reject.gif" width="13" height="13" align="absmiddle" border="0">&nbsp;Reject BOM
119 
				  <%End If%></span> <br>
120 
      			Enter optional comments and click Submit.</td>
121 
                </tr>
122 
                <tr>
123 
                  <td background="images/bg_bage_0.gif"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
124 
                      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
125 
                      <%If NOT objEH.Finally Then%>
126 
                      <tr>
127 
                        <td class="form_iname">&nbsp;</td>
128 
                        <td>
129 
                          <%objEH.DisplayMessage()%>
130 
                        </td>
131 
                        <td class="val_err"></td>
132 
                      </tr>
133 
                      <%End If%>
134 
                      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
135 
                      <tr>
136 
                        <td valign="top" nowrap class="form_iname">Comments</td>
137 
                        <td valign="top"><textarea name="reject_note" cols="60" rows="14" class="form_ivalue"><%=Request("reject_note")%></textarea></td>
138 
                        <td valign="top"><%=objForm.Validate ("reject_note")%> </td>
139 
                      </tr>
140 
                      <tr>
141 
                        <td width="10%" class="form_iname">&nbsp;</td>
142 
                        <td width="1%">&nbsp;</td>
143 
                        <td width="90%" class="val_err"></td>
144 
                      </tr>
145 
                  </table></td>
146 
                </tr>
147 
				<tr>
148 
                  <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
149 
                      <tr>
150 
                        <td></td>
151 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
152 
                            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='<%=Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile")%>';"></td>
153 
                      </tr>
154 
                  </table></td>
155 
                </tr>
156 
                <%=objPMod.ComposeHiddenTags()%>
157 
				<input type="hidden" name="is_rejected" value="<%=parIs_rejected%>">
158 
                <input type="hidden" name="bom_id_list" value="<%=parBom_id_list%>">
159 
                <input type="hidden" name="action" value="true">
160 
              </table>                </td>
161 
            </tr>
162 
          </table></td>
163 
        </tr>
164 
      </table>
165 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	  </td>
166 
  </tr>
167 
  <tr>
168 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
169 
  </tr>
170 
</form>
171 
</table>
172 
<!-- FOOTER ++++++++++++++++++++++ -->
173 
<!--#include file="_footer.asp"-->
174 
<!-- +++++++++++++++++++++++++++++ -->
175 
</body>
176 
</html>