| Line 15... |
Line 15... |
| 15 |
Dim objPMod
|
15 |
Dim objPMod
|
| 16 |
Dim objEH
|
16 |
Dim objEH
|
| 17 |
Dim objTabControl
|
17 |
Dim objTabControl
|
| 18 |
Dim aPersistList
|
18 |
Dim aPersistList
|
| 19 |
Dim isPopupWindow
|
19 |
Dim isPopupWindow
|
| 20 |
Dim DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID
|
20 |
Dim DB_PROJ_ID, DB_PROJ_NAME ' Extracted from Request(proj_id)
|
| - |
|
21 |
Dim DB_RTAG_ID, DB_RTAG_NAME ' Extracted from Request(rtag_id)
|
| - |
|
22 |
Dim DB_PV_ID ' Extracted from Request(pv_id)
|
| 21 |
Dim TIMER_VALUE
|
23 |
Dim TIMER_VALUE
|
| 22 |
Dim rmDebug ' Will display text in the footer area
|
24 |
Dim rmDebug ' Will display text in the footer area
|
| 23 |
Dim sJqueryIformCancel ' ID of Cancel Button in Iframe
|
25 |
Dim sJqueryIformCancel ' ID of Cancel Button in Iframe
|
| 24 |
Dim bJqueryDataTables ' Include datatable support
|
26 |
Dim bJqueryDataTables ' Include datatable support
|
| 25 |
Dim bJqueryForms ' Include Jquery Form support
|
27 |
Dim bJqueryForms ' Include Jquery Form support
|
| Line 32... |
Line 34... |
| 32 |
isPopupWindow = FALSE
|
34 |
isPopupWindow = FALSE
|
| 33 |
parRtag_id = QStrPar("rtag_id") : If parRtag_id = "" Then parRtag_id = Empty
|
35 |
parRtag_id = QStrPar("rtag_id") : If parRtag_id = "" Then parRtag_id = Empty
|
| 34 |
Set objAccessControl = New AccessControl
|
36 |
Set objAccessControl = New AccessControl
|
| 35 |
Set objPMod = New PersistanceModule
|
37 |
Set objPMod = New PersistanceModule
|
| 36 |
Set objEH = New ExceptionHandler
|
38 |
Set objEH = New ExceptionHandler
|
| 37 |
Call GetCurrentParameters( DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID ) ' These parameters are used
|
39 |
Call GetCurrentParameters( DB_PROJ_ID, DB_PROJ_NAME, DB_RTAG_ID, DB_RTAG_NAME, DB_PV_ID ) ' These parameters are used
|
| 38 |
'-- rmDebug = rmDebug & "Proj:" & DB_PROJ_ID & ",Rtag:" & DB_RTAG_ID & ",Pvid:" & DB_PV_ID
|
40 |
'-- rmDebug = rmDebug & "Proj:" & DB_PROJ_ID & ",Rtag:" & DB_RTAG_ID & ",Pvid:" & DB_PV_ID
|
| 39 |
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now ) ' Find number of minutes since some very old point in time
|
41 |
TIMER_VALUE = DateDiff("N", "1/1/1900 00:00:00 AM", Now ) ' Find number of minutes since some very old point in time
|
| 40 |
bJqueryDataTables = FALSE
|
42 |
bJqueryDataTables = FALSE
|
| 41 |
bJqueryForms = FALSE
|
43 |
bJqueryForms = FALSE
|
| 42 |
bJqueryVix = TRUE
|
44 |
bJqueryVix = TRUE
|