Subversion Repositories DevTools

Rev

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

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