<%
'=====================================================
'					 GLOBALS
'=====================================================
%>
<!--#include file="../class/classPersistanceModule.asp"-->
<!--#include file="../class/classAccessControl.asp"-->
<!--#include file="../class/classExceptionHandler.asp"-->
<%
' -- VARIABLE DEFINITION ------------------------------
Dim parProj_id			' This par has the value of Request( par )
Dim parBranch_id		' This par has the value of Request( par )
Dim parBom_id			' This par has the value of Request( par )
Dim parNode_id			' This par has the value of Request( par )
Dim parOs_id			' This par has the value of Request( par )
Dim parProd_id			' This par has the value of Request( par )
Dim dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id		' These pars has -1 if Request( par ) is empty. Used mostly by DB bind params.
Dim objPMod		' Persistance Module
Dim objEH		' Exception Handler
Dim objCrumbs	' Crumbs
Dim objAccessControl	' Access Control
Dim aPersistList
Dim AT_BOM_LEVEL
Dim AT_NODE_LEVEL
Dim AT_OS_LEVEL
Dim AT_PROD_LEVEL
Dim isPopupWindow
Dim aAdminZones
Dim oEnumStateTypeNames
Dim TIMER_VALUE
' -- INITIALISATION ----------------------------------
isPopupWindow = FALSE

Set objAccessControl = New AccessControl
Set objPMod = New PersistanceModule
Set objEH = New ExceptionHandler
Set oEnumStateTypeNames = CreateObject("Scripting.Dictionary")

Const enumDB_STATE_TYPE_BOM_CREATOR = 1			' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_LOCAL_TESTER = 2	' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER = 3	' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_INTEGRATOR = 4		' Used in [STATES] table
Const enumDB_STATE_TYPE_BOM_PRODUCTION = 5		' Used in [STATES] table
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_CREATOR)), "BOM CREATORS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_LOCAL_TESTER)), "INTERNAL TESTERS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER)), "EXTERNAL TESTERS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_INTEGRATOR)), "INTEGRATORS"
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_PRODUCTION)), "PRODUCTION"

TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time

Const enumPAR_PROJ_ID 	= 0
Const enumPAR_BRANCH_ID = 1
Const enumPAR_BOM_ID 	= 2
Const enumPAR_NODE_ID 	= 3
Const enumPAR_OS_ID 	= 4
Const enumPAR_PROD_ID 	= 5
Const enumPAR_RFILE 	= 6
Const enumPAR_STATE_ID 	= 7
Const enumPAR_ROOT_VERSION 	= 8
Const enumPAR_BOM_NAME_ID 	= 9
aPersistList = Array( "proj_id","branch_id","bom_id","node_id","os_id","prod_id","rfile","state_id","root_version","bom_name_id" )

Const enumADMIN_ZONE_PROJECTS = 0
Const enumADMIN_ZONE_PRODUCTION_MANAGER = 1
Const enumADMIN_ZONE_VALIDATION_RULES = 2
Const enumADMIN_ZONE_ACTION_TRAIL = 4
aAdminZones = Array( "Projects", "AdminProject_List.asp", _
					 "Production Manager", "AdminProductionManager.asp" )

' ----------------------------------------------------
%>