Subversion Repositories DevTools

Rev

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

Rev 25 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wBomAddNote				 	 |
 5 
'|			          wBomAddNote				 	 |
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
 23 
Dim objFormCollector
24 
Dim parReject_seq
 24 
Dim parReject_seq
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
parBom_id = Request("bom_id")
 27 
parBom_id = Request("bom_id")
28 
parReject_seq = Request("reject_seq")
 28 
parReject_seq = Request("reject_seq")
29 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 29 
Set objFormCollector = CreateObject("Scripting.Dictionary")
30 
'------------ CONDITIONS ----------------------
 30 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------
 34 
'--------------------------------------------------------------------------------------------------------------------------
35 
Sub GetFormDetails ( nBom_id, nReject_seq, ByRef outobjDetails )
 35 
Sub GetFormDetails ( nBom_id, nReject_seq, ByRef outobjDetails )
36 
	Dim rsQry, query
 36 
	Dim rsQry, query
37 
	OraDatabase.Parameters.Add "ENTITY_ID", 		nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "ENTITY_ID", 		nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
38 
	OraDatabase.Parameters.Add "REJECT_SEQ", 		nReject_seq,ORAPARM_INPUT, ORATYPE_NUMBER
38 
	OraDatabase.Parameters.Add "REJECT_SEQ", 		nReject_seq,ORAPARM_INPUT, ORATYPE_NUMBER
39 
	OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_BOM",	ORAPARM_INPUT, ORATYPE_VARCHAR2
 39 
	OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", 	"enumENTITY_TYPE_BOM",	ORAPARM_INPUT, ORATYPE_VARCHAR2
40
40
41 
	query = _
 41 
	query = _
42 
	" SELECT rt.COMMENTS"&_
 42 
	" SELECT rt.COMMENTS"&_
43 
	"   FROM REJECTION_TRAIL rt "&_
 43 
	"   FROM REJECTION_TRAIL rt "&_
44 
	"  WHERE rt.ENUM_ENTITY_TYPE = GET_SYSTEM_VALUE( :ENUM_ENTITY_TYPE ) "&_
 44 
	"  WHERE rt.ENUM_ENTITY_TYPE = GET_SYSTEM_VALUE( :ENUM_ENTITY_TYPE ) "&_
45 
	"    AND rt.ENTITY_ID = :ENTITY_ID "&_
 45 
	"    AND rt.ENTITY_ID = :ENTITY_ID "&_
46 
	"    AND rt.REJECT_SEQ = :REJECT_SEQ  "
 46 
	"    AND rt.REJECT_SEQ = :REJECT_SEQ  "
47
47
48 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 48 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
49
49
50
50
51 
	outobjDetails.Item ("comments") = NULL
 51 
	outobjDetails.Item ("comments") = NULL
52 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 52 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
53 
		outobjDetails.Item ("comments")   = rsQry("comments")
 53 
		outobjDetails.Item ("comments")   = rsQry("comments")
54
54
55 
	End If
 55 
	End If
56
56
57 
	OraDatabase.Parameters.Remove "ENTITY_ID"
 57 
	OraDatabase.Parameters.Remove "ENTITY_ID"
58 
	OraDatabase.Parameters.Remove "REJECT_SEQ"
 58 
	OraDatabase.Parameters.Remove "REJECT_SEQ"
59 
	OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
 59 
	OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
60
60
61 
	rsQry.Close
 61 
	rsQry.Close
62 
	Set rsQry = Nothing
 62 
	Set rsQry = Nothing
63 
End Sub
 63 
End Sub
64 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
65 
Sub	BomCheck()
 65 
Sub	BomCheck()
66 
	On Error Resume Next
 66 
	On Error Resume Next
67 
	Dim	rsTemp
 67 
	Dim	rsTemp
68 
	Set	rsTemp	=	OraDatabase.DbCreateDynaset( "SELECT rt.IS_REJECTED INTO IsRejected"&_
 68 
	Set	rsTemp	=	OraDatabase.DbCreateDynaset( "SELECT rt.IS_REJECTED INTO IsRejected"&_
69 
			 	" FROM REJECTION_TRAIL rt"&_
 69 
			 	" FROM REJECTION_TRAIL rt"&_
70 
				" WHERE rt.ENTITY_ID = "&nBom_id&_
 70 
				" WHERE rt.ENTITY_ID = "&nBom_id&_
71 
				" AND rt.ENUM_ENTITY_TYPE = 1"&_
 71 
				" AND rt.ENUM_ENTITY_TYPE = 1"&_
72 
		   		"	AND ROWNUM = 1"&_
 72 
		   		"	AND ROWNUM = 1"&_
73 
		 	"ORDER BY rt.REJECT_SEQ", ORADYN_DEFAULT )
73 
		 	"ORDER BY rt.REJECT_SEQ", ORADYN_DEFAULT )
74 
 
 74 
 
75
75
76 
	If	IsNull(rsTemp("IsRejected"))	Then
 76 
	If	IsNull(rsTemp("IsRejected"))	Then
77
77
78 
	End	If
 78 
	End	If
79
79
80 
	rsTemp.Close()
 80 
	rsTemp.Close()
81 
	Set	rsTemp	=	Nothing
 81 
	Set	rsTemp	=	Nothing
82
82
83
83
84
84
85 
 
 85 
 
86 
End	Sub
 86 
End	Sub
87 
'--------------------------------------------------------------------------------------------------------------------------
 87 
'--------------------------------------------------------------------------------------------------------------------------
88 
Sub BomAddNote ()
 88 
Sub BomAddNote ()
89 
	On Error Resume Next
 89 
	On Error Resume Next
90
90
91 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
91 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "REJECT_SEQ", 	Request("reject_seq"), 	ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "REJECT_SEQ", 	Request("reject_seq"), 	ORAPARM_INPUT, ORATYPE_NUMBER
93 
	OraDatabase.Parameters.Add "COMMENTS", 		Request("reject_note"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 93 
	OraDatabase.Parameters.Add "COMMENTS", 		Request("reject_note"), ORAPARM_INPUT, ORATYPE_VARCHAR2
94 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
94 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
95
95
96
96
97 
	objEH.TryORA ( OraSession )
 97 
	objEH.TryORA ( OraSession )
98
98
99 
	OraDatabase.ExecuteSQL _
 99 
	OraDatabase.ExecuteSQL _
100
100
101 
	"BEGIN	pk_Utils.Log_Rejection_Trail ( 1, :BOM_ID, '', :USER_ID, :COMMENTS );	END;"
 101 
	"BEGIN	pk_Utils.Log_Rejection_Trail ( 1, :BOM_ID, '', :USER_ID, :COMMENTS );	END;"
102 
	'"BEGIN pk_Bom.Accept_Reject_Comments ( :BOM_ID, :REJECT_SEQ, :COMMENTS, :USER_ID ); END;"
102 
	'"BEGIN pk_Bom.Accept_Reject_Comments ( :BOM_ID, :REJECT_SEQ, :COMMENTS, :USER_ID ); END;"
103
103
104 
	objEH.CatchORA ( OraSession )
 104 
	objEH.CatchORA ( OraSession )
105
105
106
106
107 
	OraDatabase.Parameters.Remove "BOM_ID"
 107 
	OraDatabase.Parameters.Remove "BOM_ID"
108 
	OraDatabase.Parameters.Remove "REJECT_SEQ"
 108 
	OraDatabase.Parameters.Remove "REJECT_SEQ"
109 
	OraDatabase.Parameters.Remove "COMMENTS"
 109 
	OraDatabase.Parameters.Remove "COMMENTS"
110 
	OraDatabase.Parameters.Remove "USER_ID"
 110 
	OraDatabase.Parameters.Remove "USER_ID"
111
111
112 
End Sub
 112 
End Sub
113 
'--------------------------------------------------------------------------------------------------------------------------
 113 
'--------------------------------------------------------------------------------------------------------------------------
114 
%>
 114 
%>
115 
<%
 115 
<%
116 
'------------ RUN BEFORE PAGE RENDER ----------
 116 
'------------ RUN BEFORE PAGE RENDER ----------
117 
' --- Get Form details from DB ---
 117 
' --- Get Form details from DB ---
118 
Call GetFormDetails ( parBom_id, parReject_seq, objFormCollector )
 118 
Call GetFormDetails ( parBom_id, parReject_seq, objFormCollector )
119 
 
 119 
 
120 
' --- Load Validation Rules ---
 120 
' --- Load Validation Rules ---
121 
Call objForm.LoadValidationRules ( Array("reject_note"), OraDatabase )		' Load Validation Rules
 121 
Call objForm.LoadValidationRules ( Array("reject_note"), OraDatabase )		' Load Validation Rules
122 
 
 122 
 
123 
' --- Enter Form Validation Rule Changes here... ----
 123 
' --- Enter Form Validation Rule Changes here... ----
124 
'----------------------------------------------------
 124 
'----------------------------------------------------
125 
 
 125 
 
126 
If CBool(Request("action")) Then
 126 
If CBool(Request("action")) Then
127 
	If objForm.IsValidOnPostBack Then
 127 
	If objForm.IsValidOnPostBack Then
128 
		' --- Form is Valid ---
 128 
		' --- Form is Valid ---
129 
		'Call	BomCheck()
 129 
		'Call	BomCheck()
130 
		Call BomAddNote()
 130 
		Call BomAddNote()
131
131
132 
		If objEH.Finally Then
 132 
		If objEH.Finally Then
133 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 133 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
134 
			Call CloseWindow()
 134 
			Call CloseWindow()
135 
		End If
 135 
		End If
136
136
137 
	End If
 137 
	End If
138 
End If
 138 
End If
139 
 
 139 
 
140 
'----------------------------------------------
 140 
'----------------------------------------------
141 
%>
 141 
%>
142 
<html>
 142 
<html>
143 
<head>
 143 
<head>
144 
<title>Deployment Manager</title>
 144 
<title>Deployment Manager</title>
145 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 145 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
146 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 146 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
147 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 147 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
148 
<script language="JavaScript" src="scripts/common.js"></script>
 148 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
149 
</head>
 149 
<script language="JavaScript" src="scripts/common.js"></script>
150 
 
 150 
</head>
151 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.reject_note.focus();">
 151 
 
152 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 152 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.reject_note.focus();">
153 
  <tr>
 153 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
154 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Note</span> <br>
 154 
  <tr>
155 
    Enter note details and click submit.
155 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Note</span> <br>
156 
    </td>
 156 
    Enter note details and click submit.
157 
  </tr>
 157 
    </td>
158 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 158 
  </tr>
159 
  <tr>
 159 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
160 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 160 
  <tr>
161 
      <tr>
 161 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
162 
        <td><%=ProgressBar%></td>
 162 
      <tr>
163 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 163 
        <td><%=ProgressBar%></td>
164 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 164 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
165 
      </tr>
 165 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
166 
    </table></td>
 166 
      </tr>
167 
  </tr>
 167 
    </table></td>
168 
  <tr>
 168 
  </tr>
169 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 169 
  <tr>
170 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
170 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
171 
	  <%If NOT objEH.Finally Then%>
 171 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
172 
      <tr>
 172 
	  <%If NOT objEH.Finally Then%>
173 
        <td class="form_iname">&nbsp;</td>
 173 
      <tr>
174 
        <td>
 174 
        <td class="form_iname">&nbsp;</td>
175 
		 <%objEH.DisplayMessage()%>
 175 
        <td>
176 
		</td>
 176 
		 <%objEH.DisplayMessage()%>
177 
        <td class="val_err"></td>
 177 
		</td>
178 
      </tr>
 178 
        <td class="val_err"></td>
179 
	  <%End If%>
 179 
      </tr>
180 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 180 
	  <%End If%>
181 
      <tr>
 181 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
182 
        <td valign="top" nowrap class="form_iname">Note</td>
 182 
      <tr>
183 
        <td valign="top"><textarea name="reject_note" cols="80" rows="16" class="form_ivalue"><%=objForm.GetValue( "reject_note", objFormCollector.Item("comments")) %></textarea></td>
 183 
        <td valign="top" nowrap class="form_iname">Note</td>
184 
		<td valign="top">
 184 
        <td valign="top"><textarea name="reject_note" cols="80" rows="16" class="form_ivalue"><%=objForm.GetValue( "reject_note", objFormCollector.Item("comments")) %></textarea></td>
185 
		<%=objForm.Validate ("reject_note")%>
 185 
		<td valign="top">
186 
		</td>
 186 
		<%=objForm.Validate ("reject_note")%>
187 
      </tr>
 187 
		</td>
188 
      <tr>
 188 
      </tr>
189 
        <td width="10%" class="form_iname">&nbsp;</td>
 189 
      <tr>
190 
        <td width="1%">&nbsp;</td>
 190 
        <td width="10%" class="form_iname">&nbsp;</td>
191 
		<td width="90%" class="val_err"></td>
 191 
        <td width="1%">&nbsp;</td>
192 
      </tr>
 192 
		<td width="90%" class="val_err"></td>
193 
    </table></td>
 193 
      </tr>
194 
  </tr>
 194 
    </table></td>
195 
  <%=objPMod.ComposeHiddenTags()%>
 195 
  </tr>
196 
  <input type="hidden" name="reject_seq" value="<%=parReject_seq%>">
 196 
  <%=objPMod.ComposeHiddenTags()%>
197 
  <input type="hidden" name="action" value="true">
 197 
  <input type="hidden" name="reject_seq" value="<%=parReject_seq%>">
198 
  </form>
 198 
  <input type="hidden" name="action" value="true">
199 
</table>
 199 
  </form>
200 
</body>
 200 
</table>
201 
</html>
 201 
</body>
202 
<%
 202 
</html>
203 
'------------ RUN AFTER PAGE RENDER -----------
 203 
<%
204 
Set objFormCollector = Nothing
 204 
'------------ RUN AFTER PAGE RENDER -----------
205 
'----------------------------------------------
 205 
Set objFormCollector = Nothing
206 
%><!--#include file="common/globals_destructor.asp"-->
 206 
'----------------------------------------------
- 
 
 207 
%><!--#include file="common/globals_destructor.asp"-->