Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
62 rsolanki 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 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
90 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
91 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
92 
<script language="JavaScript" src="scripts/common.js"></script>
93 
 
94 
</head>
95 
<body background="images/bg_lite_blue.gif" leftmargin="0" topmargin="0" onLoad="FormName.reject_note.focus();">
96 
<!-- HEADER ++++++++++++++++ -->
97 
<!--#include file="_header.asp"-->
98 
<!-- +++++++++++++++++++++++ -->
99 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
100 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
101 
  <tr>
102 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
103 
  </tr>
104 
  <tr>
105 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
106 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
107 
    <table width="570" border="0" cellspacing="0" cellpadding="1">
108 
        <tr>
109 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
110 
            <tr>
111 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
112 
                <tr>
113 
                  <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1">
114 
				  <%If parIs_rejected = enumDB_NO Then%>
115 
				  <img src="icons/mi_accept.gif" width="13" height="13" align="absmiddle" border="0">&nbsp;Accept BOM
116 
				  <%Else%>
117 
				  <img src="icons/mi_reject.gif" width="13" height="13" align="absmiddle" border="0">&nbsp;Reject BOM
118 
				  <%End If%></span> <br>
119 
      			Enter optional comments and click Submit.</td>
120 
                </tr>
121 
                <tr>
122 
                  <td background="images/bg_bage_0.gif"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
123 
                      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
124 
                      <%If NOT objEH.Finally Then%>
125 
                      <tr>
126 
                        <td class="form_iname">&nbsp;</td>
127 
                        <td>
128 
                          <%objEH.DisplayMessage()%>
129 
                        </td>
130 
                        <td class="val_err"></td>
131 
                      </tr>
132 
                      <%End If%>
133 
                      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
134 
                      <tr>
135 
                        <td valign="top" nowrap class="form_iname">Comments</td>
136 
                        <td valign="top"><textarea name="reject_note" cols="60" rows="14" class="form_ivalue"><%=Request("reject_note")%></textarea></td>
137 
                        <td valign="top"><%=objForm.Validate ("reject_note")%> </td>
138 
                      </tr>
139 
                      <tr>
140 
                        <td width="10%" class="form_iname">&nbsp;</td>
141 
                        <td width="1%">&nbsp;</td>
142 
                        <td width="90%" class="val_err"></td>
143 
                      </tr>
144 
                  </table></td>
145 
                </tr>
146 
				<tr>
147 
                  <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
148 
                      <tr>
149 
                        <td></td>
150 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
151 
                            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='<%=Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile")%>';"></td>
152 
                      </tr>
153 
                  </table></td>
154 
                </tr>
155 
                <%=objPMod.ComposeHiddenTags()%>
156 
				<input type="hidden" name="is_rejected" value="<%=parIs_rejected%>">
157 
                <input type="hidden" name="bom_id_list" value="<%=parBom_id_list%>">
158 
                <input type="hidden" name="action" value="true">
159 
              </table>                </td>
160 
            </tr>
161 
          </table></td>
162 
        </tr>
163 
      </table>
164 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->	  </td>
165 
  </tr>
166 
  <tr>
167 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
168 
  </tr>
169 
</form>
170 
</table>
171 
<!-- FOOTER ++++++++++++++++++++++ -->
172 
<!--#include file="_footer.asp"-->
173 
<!-- +++++++++++++++++++++++++++++ -->
174 
</body>
175 
</html>
176 
<%
177 
'------------ RUN AFTER PAGE RENDER -----------
178 
Set objPMod = Nothing
179 
'----------------------------------------------
180 
%>
181 
<!--#include file="common/globals_destructor.asp"-->