Grundeinstellungen nicht abhängig von Anzahl definierter Sprachen

This commit is contained in:
Developer01 2025-05-21 14:29:32 +02:00
parent 6945585ca3
commit 7d58223e3a
2 changed files with 3 additions and 2 deletions

View File

@ -281,7 +281,7 @@ Public Class frmAdministration
End Sub End Sub
Sub Refresh_Free_Groups(PROFILE_ID As Integer) Sub Refresh_Free_Groups(PROFILE_ID As Integer)
Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE INTERNAL = 0 AND GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID) Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID)
Dim oDataTable = MyDB_DDECM.GetDatatable(Sql) Dim oDataTable = MyDB_DDECM.GetDatatable(Sql)
Try Try

View File

@ -113,9 +113,10 @@ Public Class frmMain
RibbonPageGroup1.Visible = False RibbonPageGroup1.Visible = False
RibbonControl1.Minimized = True RibbonControl1.Minimized = True
End If End If
If BASEDATA_DT_LANGUAGE.Rows.Count > 1 Then If BASEDATA_DT_LANGUAGE.Rows.Count >= 1 Then
bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
Logger.Info("Keine Grundeinstellungen weil keine Sprachen definiert!")
bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtniKonfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If