<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wSortBase | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim objFormCollector Dim sMessage Dim parBase_id Dim BaseEnvId '------------ CONSTANTS DECLARATION ----------- 'Const LIMG_PRODUCT = "" 'Const LIMG_PRODUCT_UNPACKAGED = "" '------------ VARIABLE INIT ------------------- sMessage = NULL parBom_id = Request("bom_id") parOs_id = Request("os_id") parBase_id = Request("base_env_id") BaseEnvId = objOsCollector.Item("base_env_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub SortProd () Dim sProdOrderList '-- Check cookie for new soring list If Request.Cookies("sort-list") = "" Then Exit Sub '-- Replace pipe separated values with comma for database use sProdOrderList = Replace( Request.Cookies("sort-list") , "|", "," ) On Error Resume Next OraDatabase.Parameters.Add "PROD_ORDER", sProdOrderList, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BASE_ENV", BaseEnvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Base_Env.Sort_Products ( :PROD_ORDER, :BASE_ENV, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROD_ORDER" OraDatabase.Parameters.Remove "BASE_ENV" 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 OraDatabase.Parameters.Add "BASE_ENV_ID", parBase_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BaseEnvContents.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "BASE_ENV_ID" 'OraDatabase.Parameters.Remove "BOM_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 %>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- %>