MS

app/DD_PM_WINDREAM/ClassInit.vb

@@ -353,30 +353,6 @@ Public Class ClassInit
                 End Try
                 USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
 
-                'If Not IsNothing(BASEDATA_DT_TBDD_SQL_COMMANDS) Then
-                '    If BASEDATA_DT_TBDD_SQL_COMMANDS.Rows.Count > 0 Then
-                '        For Each oRow As DataRow In BASEDATA_DT_TBDD_SQL_COMMANDS.Rows
-                '            If oRow.Item("TITLE") = "LICENSE_COUNT_PM" Then
-                '                oSQL = oRow.Item("SQL_COMMAND")
-                '                Dim oResult = _Client.GetScalarValueFromECM(oSQL)
-                '                If oResult.OK Then
-                '                    USERCOUNT_LOGGED_IN = oResult.Scalar
-                '                Else
-                '                    USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
-                '                End If
-                '            End If
-                '        Next
-                '    Else
-                '        LOGGER.Warn("BASEDATA_DT_TBDD_SQL_COMMANDS.Rows = 0!")
-                '        USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
-                '    End If
-                'Else
-                '    LOGGER.Warn("BASEDATA_DT_TBDD_SQL_COMMANDS is nothing!")
-                '    USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
-                'End If
-
-
-
 
                 ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
 

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -458,7 +458,6 @@ Partial Class frmMain
         Me.bsiLicenses.Id = 9
         Me.bsiLicenses.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.key
         Me.bsiLicenses.Name = "bsiLicenses"
-        Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
         '
         'bsiUserLoggedIn
         '

app/DD_PM_WINDREAM/frmMain.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAdwBCAHcAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAeQBCAHkAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

app/DD_PM_WINDREAM/frmMain.vb

@@ -203,7 +203,13 @@ Public Class frmMain
 
         Try
             'DataASorDB = New ClassDataASorDB
+            If User.IsAdmin = True Then
                 bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT
+                bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            Else
+                bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            End If
+
             LOGGER.Debug("Initializing MainForm....")
 
             If ERROR_STATE = "NO USER" Then