Subversion Repositories DevTools

Rev

Rev 27 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27 Rev 29
Line 34... Line 34...
34 
Set objAccessControl = New AccessControl
 34 
Set objAccessControl = New AccessControl
35 
Set objPMod = New PersistanceModule
 35 
Set objPMod = New PersistanceModule
36 
Set objEH = New ExceptionHandler
 36 
Set objEH = New ExceptionHandler
37 
Set oEnumStateTypeNames = CreateObject("Scripting.Dictionary")
 37 
Set oEnumStateTypeNames = CreateObject("Scripting.Dictionary")
38 
 
 38 
 
39 
Const enumDB_STATE_TYPE_BOM_CREATOR = 1				' Used in [STATES] table
 39 
Const enumDB_STATE_TYPE_BOM_CREATOR = 1			' Used in [STATES] table
40 
Const enumDB_STATE_TYPE_BOM_LOCAL_TESTER = 2		' Used in [STATES] table
 40 
Const enumDB_STATE_TYPE_BOM_LOCAL_TESTER = 2	' Used in [STATES] table
41 
Const enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER = 3		' Used in [STATES] table
 41 
Const enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER = 3	' Used in [STATES] table
- 
 
 42 
Const enumDB_STATE_TYPE_BOM_INTEGRATOR = 4		' Used in [STATES] table
- 
 
 43 
Const enumDB_STATE_TYPE_BOM_PRODUCTION = 5		' Used in [STATES] table
42 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_CREATOR)), "BOM CREATORS"
 44 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_CREATOR)), "BOM CREATORS"
43 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_LOCAL_TESTER)), "INTERNAL TESTERS"
 45 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_LOCAL_TESTER)), "INTERNAL TESTERS"
44 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER)), "EXTERNAL TESTERS"
 46 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER)), "EXTERNAL TESTERS"
- 
 
 47 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_INTEGRATOR)), "INTEGRATORS"
- 
 
 48 
oEnumStateTypeNames.Add (CStr(enumDB_STATE_TYPE_BOM_PRODUCTION)), "PRODUCTION"
45 
 
 49 
 
46 
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
 50 
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
47 
 
 51 
 
48 
Const enumPAR_PROJ_ID 	= 0
 52 
Const enumPAR_PROJ_ID 	= 0
49 
Const enumPAR_BRANCH_ID = 1
 53 
Const enumPAR_BRANCH_ID = 1