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