diff --git a/Modules.Interfaces/ActiveDirectoryInterface.vb b/Modules.Interfaces/ActiveDirectoryInterface.vb index 8356fbfa..d3617f4e 100644 --- a/Modules.Interfaces/ActiveDirectoryInterface.vb +++ b/Modules.Interfaces/ActiveDirectoryInterface.vb @@ -64,11 +64,6 @@ Public Class ActiveDirectoryInterface Return Nothing End Try - If oUsers.Count = 0 Then - _logger.Debug("Group {0} does not contain any users.", GroupName) - Return oUsers - End If - ' Do the actual sync into firebird If Firebird IsNot Nothing Then oSyncedUsersFirebird = oFirebirdSync.SyncUsers(GroupName, oUsers, AttributeMappings) diff --git a/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb b/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb index ee2ca471..2ce5183e 100644 --- a/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb +++ b/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb @@ -113,6 +113,7 @@ Namespace SyncUsers ' Delete users that are assigned to the group but no longer exist in active directory Dim oUserIdString = String.Join(",", oSyncedUserIds) If oSyncedUserIds.Count = 0 Then + _logger.Info("Group {0} does not contain any users.", GroupName) oUserIdString = 0 End If Dim oSQL As String = $"DELETE FROM TBDD_GROUPS_USER WHERE USER_ID NOT IN ({oUserIdString}) AND GROUP_ID = {oGroupId}" diff --git a/Modules.Interfaces/My Project/AssemblyInfo.vb b/Modules.Interfaces/My Project/AssemblyInfo.vb index c4220b41..0e85f009 100644 --- a/Modules.Interfaces/My Project/AssemblyInfo.vb +++ b/Modules.Interfaces/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Service.JobRunner/My Project/Settings.Designer.vb b/Service.JobRunner/My Project/Settings.Designer.vb index 188bdcb7..592b0e32 100644 --- a/Service.JobRunner/My Project/Settings.Designer.vb +++ b/Service.JobRunner/My Project/Settings.Designer.vb @@ -117,6 +117,15 @@ Namespace My End Get End Property + _ + Public ReadOnly Property TEST_CONFIG() As String + Get + Return CType(Me("TEST_CONFIG"),String) + End Get + End Property + _ @@ -135,15 +144,6 @@ Namespace My Return CType(Me("ADSYNC_CONFIG"),String) End Get End Property - - _ - Public ReadOnly Property TEST_CONFIG() As String - Get - Return CType(Me("TEST_CONFIG"),String) - End Get - End Property End Class End Namespace