Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5355 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5646 dpurdie 5 
'|                    wAddProdNew                    |
5355 dpurdie 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 objFormCollector
25 
Dim sMessage
26 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
28 
sMessage = NULL
29 
parBom_id = Request("bom_id")
30 
parOs_id = Request("os_id")
31 
Set objFormCollector = CreateObject("Scripting.Dictionary")
32 
'------------ CONDITIONS ----------------------
33 
'----------------------------------------------
34 
%>
35 
<%
36 
'--------------------------------------------------------------------------------------------------------------------------
37 
Sub SortProd ()
5646 dpurdie 38 
    Dim sProdOrderList
39 
 
40 
    If Request("newOrder") = "" Then Exit Sub
41 
 
42 
    '-- Replace pipe separated values with comma for database use
43 
    sProdOrderList = Replace( Request("newOrder") , "|", "," )
44 
 
45 
 
46 
    On Error Resume Next
47 
 
48 
    OraDatabase.Parameters.Add "PROD_ORDER",    sProdOrderList,         ORAPARM_INPUT, ORATYPE_VARCHAR2
49 
    OraDatabase.Parameters.Add "OS_ID",         Request("os_id"),           ORAPARM_INPUT, ORATYPE_NUMBER
50 
    OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,            ORAPARM_INPUT, ORATYPE_NUMBER
51 
 
52 
 
53 
    objEH.TryORA ( OraSession )
54 
 
55 
    OraDatabase.ExecuteSQL _
56 
    "BEGIN   pk_Product.Sort_Products ( :PROD_ORDER, :OS_ID, :USER_ID );   END;"
57 
 
58 
    objEH.CatchORA ( OraSession )
59 
 
60 
 
61 
    OraDatabase.Parameters.Remove "PROD_ORDER"
62 
    OraDatabase.Parameters.Remove "OS_ID"
63 
    OraDatabase.Parameters.Remove "USER_ID"
5355 dpurdie 64 
End Sub
65 
 
66 
'--------------------------------------------------------------------------------------------------------------------------
67 
%>
68 
<%
69 
'------------ RUN BEFORE PAGE RENDER ----------------
70 
'----------------------------------------------------
71 
 
72 
If CBool(Request("action")) Then
5646 dpurdie 73 
    '-- Sort Product
74 
    Call SortProd()
5355 dpurdie 75 
 
5646 dpurdie 76 
    If objEH.Finally Then
77 
        Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") )
78 
        Call CloseWindow()
79 
    End If
5355 dpurdie 80 
 
5646 dpurdie 81 
End If
5355 dpurdie 82 
 
83 
'----------------------------------------------
84 
%>
85 
<html>
86 
<head>
87 
<title>Deployment Manager</title>
88 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
89 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
90 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 91 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
5355 dpurdie 92 
 
6663 dpurdie 93 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 94 
 
95 
<!-- Drag and Drop modules +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6663 dpurdie 96 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/core.js?ver=<%=VixVerNum%>"></script>
97 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/events.js?ver=<%=VixVerNum%>"></script>
98 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/css.js?ver=<%=VixVerNum%>"></script>
99 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/coordinates.js?ver=<%=VixVerNum%>"></script>
100 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/drag.js?ver=<%=VixVerNum%>"></script>
101 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js?ver=<%=VixVerNum%>"></script>
102 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 103 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
104 
 
105 
<script language="JavaScript" type="text/javascript"><!--
5646 dpurdie 106 
    var dragsort = ToolMan.dragsort()
107 
    var junkdrawer = ToolMan.junkdrawer()
5355 dpurdie 108 
 
5646 dpurdie 109 
    window.onload = function() {
110 
        self.focus();
5355 dpurdie 111 
 
5646 dpurdie 112 
        dragsort.makeListSortable(document.getElementById("list"),
113 
                verticalOnly, saveOrder);
114 
    }
5355 dpurdie 115 
 
5646 dpurdie 116 
    function verticalOnly(item) {
117 
        item.toolManDragGroup.verticalOnly()
118 
    }
5355 dpurdie 119 
 
5646 dpurdie 120 
    function saveOrder(item) {
121 
        var group = item.toolManDragGroup
122 
        var list = group.element.parentNode
123 
        var id = list.getAttribute("id")
124 
        if (id == null) return
125 
        group.register('dragend', function() {
126 
            var el = MM_findObj('newOrder');
127 
            el.value = junkdrawer.serializeList(list);
128 
        })
129 
    }
130 
 
131 
    //-->
5355 dpurdie 132 
</script>
133 
</head>
134 
 
135 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0">
136 
 
137 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
138 
  <tr>
139 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Sort Products </span> <br>
140 
    Drag Products to Sort and then click Submit.
141 
      </td>
142 
  </tr>
143 
<%
144 
'-- FROM START --------------------------------------------------------------------------------------------------------------
145 
objFormComponent.FormName = "FormName"
146 
objFormComponent.Action = SCRIPT_NAME
147 
objFormComponent.OnSubmit = "ShowProgress();"
148 
Call objFormComponent.FormStart()
149 
%>
150 
  <tr>
151 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
152 
      <tr>
153 
        <td><%=ProgressBar()%></td>
154 
        <td align="right">        &nbsp;&nbsp;
155 
          <input name="btn" type="submit" class="form_btn" value="Submit">
156 
            <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr>
157 
    </table></td>
158 
  </tr>
159 
  <tr>
160 
    <td>
5646 dpurdie 161 
    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
162 
    <!--#include file="messages/_msg_inline.asp"-->
5355 dpurdie 163 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
5646 dpurdie 164 
    <!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
165 
    <ul id="list" class="boxy">
166 
    <%
167 
    OraDatabase.Parameters.Add "OS_ID",     parOs_id,       ORAPARM_INPUT, ORATYPE_NUMBER
168 
 
169 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT )
170 
 
171 
    OraDatabase.Parameters.Remove "OS_ID"
172 
 
173 
 
174 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
175 
    %>
176 
 
177 
        <li id="<%=rsQry("prod_id")%>"><%=GetProductIcon(rsQry)  &  rsQry("pkg_name") &"&nbsp;"& rsQry("pkg_version") %></li>
178 
 
179 
    <%rsQry.MoveNext%>
180 
    <%
181 
    WEnd
182 
 
183 
    rsQry.Close()
184 
    Set rsQry = Nothing
185 
    %>
186 
    </ul>
187 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
188 
    </td>
5355 dpurdie 189 
  </tr>
190 
  <%=objPMod.ComposeHiddenTags()%>
191 
  <input type="hidden" name="action" value="true">
5646 dpurdie 192 
  <input type="hidden" name="newOrder" value="">
5355 dpurdie 193 
<%
194 
Call objFormComponent.FormEnd()
195 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
196 
%>
197 
</table>
198 
 
199 
</body>
200 
</html>
5958 dpurdie 201 
<!--#include file="common/globals_destructor.asp"-->