<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wSortNode | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim objFormCollector Dim sMessage '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL parBom_id = Request("bom_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub SortNode () Dim sNodedOrderList '-- Check cookie for new soring list If Request.Cookies("sort-list") = "" Then Exit Sub '-- Replace pipe separated values with comma for database use sNodedOrderList = Replace( Request.Cookies("sort-list") , "|", "," ) On Error Resume Next OraDatabase.Parameters.Add "NODE_ORDER", sNodedOrderList, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Network_Node.Sort_Nodes ( :NODE_ORDER, :BOM_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "NODE_ORDER" OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------------- '---------------------------------------------------- If CBool(Request("action")) Then '-- Sort Nodes Call SortNode() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?SORTED=OK"& objPMod.ComposeURLWithout("rfile") ) Call CloseWindow() End If End If '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = SCRIPT_NAME objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Sort Nodes Drag Nodes to Sort and then click Submit.

<%=ProgressBar()%>

<% OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeList.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "BOM_ID" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> ">" border="0" hspace="2"><%=rsQry("node_name")%> <%rsQry.MoveNext%> <% WEnd rsQry.Close() Set rsQry = Nothing %>