<% '=================================================================== ' State Options '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- Dim rsMenuOptions Dim moQuery Dim objPopupMenuStateOptions Dim ItemName Dim aStateOptionList Dim AM_StaticObjName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objPopupMenuStateOptions = New PopupMenuControl objPopupMenuStateOptions.PopupMenuStyle ReadFile( Server.MapPath("scripts/popup_menu_styles.html") ), "StyleWinXP" '---------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '---------------------------------------------- %> <% Select Case CInt( StateTypeEnum ) Case enumDB_STATE_TYPE_BOM_CREATOR aStateOptionList = Array( "pmiUnDeployView", _ enumSEPARATOR_LABEL, _ "pmiNewBom", _ "pmiDestroyBom", _ enumSEPARATOR_LABEL, _ "pmiLockBom", _ "pmiUnlockBom", _ enumSEPARATOR_LABEL, _ "pmiVersionTree", _ "pmiImportExportBom", _ enumSEPARATOR_LABEL, _ "pmiReleaseTo" ) AM_StaticObjName = "pmoCreator" Case enumDB_STATE_TYPE_BOM_INTEGRATOR aStateOptionList = Array( "pmiNewBom", _ "pmiDestroyBom", _ enumSEPARATOR_LABEL, _ "pmiLockBom", _ "pmiUnlockBom", _ enumSEPARATOR_LABEL, _ "pmiVersionTree", _ "pmiImportExportBom", _ enumSEPARATOR_LABEL, _ "pmiReleaseTo" ) AM_StaticObjName = "pmoIntegrator" Case enumDB_STATE_TYPE_BOM_LOCAL_TESTER aStateOptionList = Array( "pmiAcceptBom", _ "pmiRejectBom", _ enumSEPARATOR_LABEL, _ "pmiVersionTree", _ enumSEPARATOR_LABEL, _ "pmiReleaseTo" ) AM_StaticObjName = "pmoTester" Case enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER aStateOptionList = Array( _ "pmiAcceptBom", _ "pmiRejectBom", _ enumSEPARATOR_LABEL, _ "pmiVersionTree", _ enumSEPARATOR_LABEL, _ "pmiReleaseTo" ) AM_StaticObjName = "pmoExternalTester" Case enumDB_STATE_TYPE_BOM_PRODUCTION aStateOptionList = Array( _ "pmiAcceptBom", _ "pmiRejectBom", _ enumSEPARATOR_LABEL, _ "pmiVersionTree" ) AM_StaticObjName = "pmoProduction" End Select If objAccessControl.IsVisible ( AM_StaticObjName ) Then moQuery = GetQuery ("PopupMenuItemsList.sql") moQuery = Replace ( moQuery, "%ITEM_LIST%", Join( aStateOptionList, "','") ) Set rsMenuOptions = OraDatabase.DbCreateDynaset( moQuery , ORADYN_DEFAULT ) If ((NOT rsMenuOptions.BOF) AND (NOT rsMenuOptions.EOF)) Then With objPopupMenuStateOptions .LoadRows rsMenuOptions.GetRows() Response.write "" '.AllActive = objAccessControl.UserStaticPermissionValue ( AM_StaticObjName, enumDB_PERMISSION_TYPE_ACTIVE ) ' ACCESS CONTROL .RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName End With End If rsMenuOptions.Close End If %> <% '------------ RUN AFTER CONTROL RENDER -------- Set objPopupMenuStateOptions = Nothing Set rsMenuOptions = Nothing '---------------------------------------------- %>