<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProdNew | '| | '===================================================== %> <% 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") parOs_id = Request("os_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub SortProd () Dim sProdOrderList If Request("newOrder") = "" Then Exit Sub '-- Replace pipe separated values with comma for database use sProdOrderList = Replace( Request("newOrder") , "|", "," ) On Error Resume Next OraDatabase.Parameters.Add "PROD_ORDER", sProdOrderList, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Product.Sort_Products ( :PROD_ORDER, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROD_ORDER" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------------- '---------------------------------------------------- If CBool(Request("action")) Then '-- Sort Product Call SortProd() 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 Products Drag Products to Sort and then click Submit.

<%=ProgressBar()%>

<% OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "OS_ID" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> "><%=GetProductIcon(rsQry) & rsQry("pkg_name") &" "& rsQry("pkg_version") %> <%rsQry.MoveNext%> <% WEnd rsQry.Close() Set rsQry = Nothing %>