Subversion Repositories DevTools

Rev

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

Rev 5143 Rev 5190
Line 19... Line 19...
19
Dim DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID
19
Dim DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID
20
Dim TIMER_VALUE
20
Dim TIMER_VALUE
21
Dim rmDebug                                 ' Will display text in the footer area
21
Dim rmDebug                                 ' Will display text in the footer area
22
Dim bJqueryDataTables
22
Dim bJqueryDataTables
23
Dim bJqueryForms
23
Dim bJqueryForms
-
 
24
Dim bJqueryVix
24
' -- Variable Initialisation --------------------------
25
' -- Variable Initialisation --------------------------
25
rmDebug = ""
26
rmDebug = ""
26
isPopupWindow = FALSE
27
isPopupWindow = FALSE
27
parRtag_id = QStrPar("rtag_id")
28
parRtag_id = QStrPar("rtag_id")
28
Set objAccessControl = New AccessControl
29
Set objAccessControl = New AccessControl
Line 31... Line 32...
31
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID )	' These parameters are used
32
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID )	' These parameters are used
32
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID
33
'-- rmDebug = rmDebug &  "Proj:" &  DB_PROJ_ID  & ",Rtag:" &  DB_RTAG_ID & ",Pvid:" & DB_PV_ID
33
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
34
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now )	' Find number of minutes since some very old point in time
34
bJqueryDataTables = FALSE
35
bJqueryDataTables = FALSE
35
bJqueryForms = FALSE
36
bJqueryForms = FALSE
-
 
37
bJqueryVix = TRUE
36
' -- Constants ----------------------------------------
38
' -- Constants ----------------------------------------
37
Const enumPAR_PROJ_ID 	= 0
39
Const enumPAR_PROJ_ID 	= 0
38
Const enumPAR_RTAG_ID 	= 1
40
Const enumPAR_RTAG_ID 	= 1
39
Const enumPAR_PV_ID 	= 2
41
Const enumPAR_PV_ID 	= 2
40
Const enumPAR_RFILE 	= 3
42
Const enumPAR_RFILE 	= 3