EDMIService: First version of GetAccessRight

Service.EDMIService/Scheduler.vb

@@ -20,20 +20,12 @@ Public Class Scheduler
 
     Private Const JOB_GROUP As String = "DatatableJobs"
 
-    Public ReadOnly Property DataSet As DataSet
-        Get
-            Return _JobListener.Dataset
-        End Get
-    End Property
-
-    Public Sub New(LogConfig As LogConfig, MSSQL_ECM As MSSQLServer)
+    Public Sub New(LogConfig As LogConfig, MSSQL_ECM As MSSQLServer, TableStore As DataSet)
         _LogConfig = LogConfig
         _Logger = LogConfig.GetLogger()
         _Factory = New StdSchedulerFactory(_Props)
         _MSSQL = MSSQL_ECM
-
-        Dim oDataSet As New DataSet()
-        _JobListener = New JobListener(LogConfig, _MSSQL, oDataSet)
+        _JobListener = New JobListener(LogConfig, _MSSQL, TableStore)
 
         Logging.LogProvider.SetCurrentLogProvider(New LogProvider(_Logger))
     End Sub