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 
'|			          wPasteItems                    |
 5 
'|			          wPasteItems                    |
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 rsQry
 23 
Dim rsQry
24 
Dim aProducts
 24 
Dim aProducts
25 
Dim numOfRows
 25 
Dim numOfRows
26 
Dim rowNum
 26 
Dim rowNum
27 
'------------ CONSTANTS DECLARATION -----------
 27 
'------------ CONSTANTS DECLARATION -----------
28 
'------------ VARIABLE INIT -------------------
 28 
'------------ VARIABLE INIT -------------------
29 
parBom_id = Request("bom_id")
 29 
parBom_id = Request("bom_id")
30 
'------------ CONDITIONS ----------------------
 30 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------------
 34 
'--------------------------------------------------------------------------------------------------------------------------------
35 
Sub PasteItems ()
 35 
Sub PasteItems ()
36
36
37 
	If Request("item_id_list") = "" Then Exit Sub
 37 
	If Request("item_id_list") = "" Then Exit Sub
38
38
39
39
40 
	On Error Resume Next
 40 
	On Error Resume Next
41
41
42 
	OraDatabase.Parameters.Add "ITEM_ID_LIST", Request("item_id_list"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 42 
	OraDatabase.Parameters.Add "ITEM_ID_LIST", Request("item_id_list"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
43 
	OraDatabase.Parameters.Add "FROM_ID", 	  Session( enumSESSION_COPY_FROM ), 		ORAPARM_INPUT, ORATYPE_NUMBER
 43 
	OraDatabase.Parameters.Add "FROM_ID", 	  Session( enumSESSION_COPY_FROM ), 		ORAPARM_INPUT, ORATYPE_NUMBER
44
44
45
45
46
46
47 
	objEH.TryORA ( OraSession )
 47 
	objEH.TryORA ( OraSession )
48
48
49 
	Select Case Session( enumSESSION_COPY_TYPE )
 49 
	Select Case Session( enumSESSION_COPY_TYPE )
50 
		Case "prod_id_list"
 50 
		Case "prod_id_list"
51
51
52 
			If (Request("base_env_id") <> "") Then
 52 
			If (Request("base_env_id") <> "") Then
53 
				OraDatabase.Parameters.Add "TO_ID", Request("base_env_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 53 
				OraDatabase.Parameters.Add "TO_ID", Request("base_env_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
54
54
55 
				OraDatabase.ExecuteSQL _
 55 
				OraDatabase.ExecuteSQL _
56 
				"BEGIN   pk_Utils.Paste_Products_To_Base_Env ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
 56 
				"BEGIN   pk_Utils.Paste_Products_To_Base_Env ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
57
57
58 
			ElseIf (Request("os_id") <> "") Then
 58 
			ElseIf (Request("os_id") <> "") Then
59 
				OraDatabase.Parameters.Add "TO_ID", Request("os_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 59 
				OraDatabase.Parameters.Add "TO_ID", Request("os_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
60
60
61 
				OraDatabase.ExecuteSQL _
 61 
				OraDatabase.ExecuteSQL _
62 
				"BEGIN   pk_Utils.Paste_Products ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
 62 
				"BEGIN   pk_Utils.Paste_Products ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
63
63
64 
			End If
 64 
			End If
65
65
66 
		Case "os_id_list"
 66 
		Case "os_id_list"
67 
			OraDatabase.Parameters.Add "TO_ID", Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 67 
			OraDatabase.Parameters.Add "TO_ID", Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
68
68
69 
			OraDatabase.ExecuteSQL _
 69 
			OraDatabase.ExecuteSQL _
70 
			"BEGIN   pk_Utils.Paste_Os ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
 70 
			"BEGIN   pk_Utils.Paste_Os ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
71
71
72 
		Case "node_id_list"
 72 
		Case "node_id_list"
73 
			OraDatabase.Parameters.Add "TO_ID", Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 73 
			OraDatabase.Parameters.Add "TO_ID", Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
74
74
75 
			OraDatabase.ExecuteSQL _
 75 
			OraDatabase.ExecuteSQL _
76 
			"BEGIN   pk_Utils.Paste_Node ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
 76 
			"BEGIN   pk_Utils.Paste_Node ( :ITEM_ID_LIST, :FROM_ID, :TO_ID );   END;"
77
77
78 
	End Select
 78 
	End Select
79
79
80
80
81 
	objEH.CatchORA ( OraSession )
 81 
	objEH.CatchORA ( OraSession )
82
82
83
83
84 
	OraDatabase.Parameters.Remove "ITEM_ID_LIST"
 84 
	OraDatabase.Parameters.Remove "ITEM_ID_LIST"
85 
	OraDatabase.Parameters.Remove "FROM_ID"
 85 
	OraDatabase.Parameters.Remove "FROM_ID"
86 
	OraDatabase.Parameters.Remove "TO_ID"
 86 
	OraDatabase.Parameters.Remove "TO_ID"
87
87
88 
End Sub
 88 
End Sub
89 
'--------------------------------------------------------------------------------------------------------------------------
 89 
'--------------------------------------------------------------------------------------------------------------------------
90 
%>
 90 
%>
91 
<%
 91 
<%
92 
'------------ RUN BEFORE PAGE RENDER ----------
 92 
'------------ RUN BEFORE PAGE RENDER ----------
93 
If Request("action") <> "" Then
93 
If Request("action") <> "" Then
94 
	' --- Form is Valid ---
 94 
	' --- Form is Valid ---
95 
	Call PasteItems()
 95 
	Call PasteItems()
96
96
97 
	If objEH.Finally Then
 97 
	If objEH.Finally Then
98 
		Call OpenInParentWindow ( Request("rfile") &"?PASTE=OK"& objPMod.ComposeURLWithout("rfile") )
 98 
		Call OpenInParentWindow ( Request("rfile") &"?PASTE=OK"& objPMod.ComposeURLWithout("rfile") )
99 
		Call CloseWindow()
 99 
		Call CloseWindow()
100 
	End If
 100 
	End If
101 
End If
 101 
End If
102 
'----------------------------------------------
 102 
'----------------------------------------------
103 
%>
 103 
%>
104 
 
 104 
 
105 
<html>
 105 
<html>
106 
<head>
 106 
<head>
107 
<title>Deployment Manager</title>
 107 
<title>Deployment Manager</title>
108 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 108 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
109 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 109 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
110 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 110 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
111 
<script language="JavaScript" src="scripts/common.js"></script>
 111 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
112 
</head>
 112 
<script language="JavaScript" src="scripts/common.js"></script>
113 
 
 113 
</head>
114 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 114 
 
115 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 115 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
116 
  <tr>
 116 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
117 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/btn_paste.gif" align="absmiddle">&nbsp;Clipboard </span> <br>
 117 
  <tr>
118 
    Select items from the list and click Paste.
 118 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/btn_paste.gif" align="absmiddle">&nbsp;Clipboard </span> <br>
119 
    </td>
 119 
    Select items from the list and click Paste.
120 
  </tr>
120 
    </td>
121 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 121 
  </tr>
122 
  <tr>
 122 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
123 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 123 
  <tr>
124 
      <tr>
 124 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
125 
        <td>&nbsp;</td>
 125 
      <tr>
126
126 
        <td>&nbsp;</td>
127 
        <td align="right">
127
128 
        <input name="btn" type="submit" class="form_btn" value="Paste">
 128 
        <td align="right">
129 
        <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 129 
        <input name="btn" type="submit" class="form_btn" value="Paste">
130 
      </tr>
 130 
        <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
131 
    </table></td>
 131 
      </tr>
132 
  </tr>
 132 
    </table></td>
133 
  <tr>
 133 
  </tr>
134 
    <td>
 134 
  <tr>
135 
<!-- PASTE RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
135 
    <td>
136 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 136 
<!-- PASTE RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
137 
      <tr>
 137 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
138 
        <td width="100%" valign="top" nowrap class="body_txt">
 138 
      <tr>
139 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
139 
        <td width="100%" valign="top" nowrap class="body_txt">
140 
		  <!--#include file="messages/_msg_inline.asp"-->
 140 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
141 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 141 
		  <!--#include file="messages/_msg_inline.asp"-->
142 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 142 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
143 
            <tr>
 143 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
144 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Paste</td>
 144 
            <tr>
145 
              <td width="100%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col">Item</td>
 145 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Paste</td>
146 
			  <td><img src="images/spacer.gif" width="1" height="20"></td>
 146 
              <td width="100%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col">Item</td>
147 
            </tr>
 147 
			  <td><img src="images/spacer.gif" width="1" height="20"></td>
148 
		<%
 148 
            </tr>
149 
		'-- Exit if mixing apples with pairs
 149 
		<%
150 
		If Session( enumSESSION_COPY_TYPE ) = Request("copy_type") Then
 150 
		'-- Exit if mixing apples with pairs
151 
		%>
 151 
		If Session( enumSESSION_COPY_TYPE ) = Request("copy_type") Then
152 
			<%
 152 
		%>
153 
			OraDatabase.Parameters.Add "ITEM_ID_LIST", Session( enumSESSION_COPY_ITEMS ), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 153 
			<%
154 
			OraDatabase.Parameters.Add "FROM_ID", 	   Session( enumSESSION_COPY_FROM ), 		ORAPARM_INPUT, ORATYPE_NUMBER
 154 
			OraDatabase.Parameters.Add "ITEM_ID_LIST", Session( enumSESSION_COPY_ITEMS ), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
155
155 
			OraDatabase.Parameters.Add "FROM_ID", 	   Session( enumSESSION_COPY_FROM ), 		ORAPARM_INPUT, ORATYPE_NUMBER
156 
			Select Case Session( enumSESSION_COPY_TYPE )
 156
157 
				Case "prod_id_list"
 157 
			Select Case Session( enumSESSION_COPY_TYPE )
158 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteProductList.sql"), ORADYN_DEFAULT )
 158 
				Case "prod_id_list"
159 
				Case "os_id_list"
 159 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteProductList.sql"), ORADYN_DEFAULT )
160 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteOsList.sql"), ORADYN_DEFAULT )
 160 
				Case "os_id_list"
161 
				Case "node_id_list"
 161 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteOsList.sql"), ORADYN_DEFAULT )
162 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteNodeList.sql"), ORADYN_DEFAULT )
 162 
				Case "node_id_list"
163
163 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteNodeList.sql"), ORADYN_DEFAULT )
164 
			End Select
 164
165
165 
			End Select
166
166
167 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 167
168 
			%>
 168 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
169 
            <tr>
 169 
			%>
170 
              <td align="center" nowrap><input type="checkbox" name="item_id_list" value="<%=rsQry("item_id")%>" checked> </td>
 170 
            <tr>
171 
              <td nowrap class="body_row"><img hspace="4" src="icons/<%=rsQry("item_icon")%>" align="absmiddle" border="0"><%=rsQry("item_name")%></td>
 171 
              <td align="center" nowrap><input type="checkbox" name="item_id_list" value="<%=rsQry("item_id")%>" checked> </td>
172 
			  <td><img src="images/spacer.gif" width="1" height="1"></td>
 172 
              <td nowrap class="body_row"><img hspace="4" src="icons/<%=rsQry("item_icon")%>" align="absmiddle" border="0"><%=rsQry("item_name")%></td>
173 
            </tr>
 173 
			  <td><img src="images/spacer.gif" width="1" height="1"></td>
174 
			<tr>
 174 
            </tr>
175 
              <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 175 
			<tr>
176 
            </tr>
 176 
              <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
177 
            <%rsQry.MoveNext
 177 
            </tr>
178 
			Wend
 178 
            <%rsQry.MoveNext
179
179 
			Wend
180 
			OraDatabase.Parameters.Remove "ITEM_ID_LIST"
 180
181 
			OraDatabase.Parameters.Remove "FROM_ID"
 181 
			OraDatabase.Parameters.Remove "ITEM_ID_LIST"
182
182 
			OraDatabase.Parameters.Remove "FROM_ID"
183 
			rsQry.Close
 183
184 
			Set rsQry = Nothing
 184 
			rsQry.Close
185 
			%>
 185 
			Set rsQry = Nothing
186 
		<%
 186 
			%>
187 
		End If
 187 
		<%
188 
		%>
 188 
		End If
189 
			<tr>
 189 
		%>
190 
              <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
 190 
			<tr>
191 
            </tr>
 191 
              <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
192 
          </table></td>
 192 
            </tr>
193 
        </tr>
 193 
          </table></td>
194
194 
        </tr>
195 
    </table>
 195
196 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 196 
    </table>
197 
    </td>
 197 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
198 
  </tr>
 198 
    </td>
199 
  <%=objPMod.ComposeHiddenTags()%>
 199 
  </tr>
200 
  <input type="hidden" name="copy_type" value="<%=Request("copy_type")%>">
 200 
  <%=objPMod.ComposeHiddenTags()%>
201 
  <input type="hidden" name="base_env_id" value="<%=Request("base_env_id")%>">
 201 
  <input type="hidden" name="copy_type" value="<%=Request("copy_type")%>">
202 
  <input type="hidden" name="action" value="true">
 202 
  <input type="hidden" name="base_env_id" value="<%=Request("base_env_id")%>">
203 
  </form>
 203 
  <input type="hidden" name="action" value="true">
204 
</table>
 204 
  </form>
205 
</body>
 205 
</table>
206 
</html>
 206 
</body>
207 
<%
 207 
</html>
208 
'------------ RUN AFTER PAGE RENDER -----------
 208 
<%
209 
'----------------------------------------------
 209 
'------------ RUN AFTER PAGE RENDER -----------
210 
%><!--#include file="common/globals_destructor.asp"-->
 210 
'----------------------------------------------
- 
 
 211 
%><!--#include file="common/globals_destructor.asp"-->