Assembly und Splashscreen aktualisiert

app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb

@@ -12,8 +12,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("easyFLOW")>
-<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("2.7.4.0")>
+<Assembly: AssemblyCopyright("Copyright © 2025")>
+<Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.4.2")>
+<Assembly: AssemblyVersion("2.7.6.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -281,7 +281,7 @@ Public Class frmAdministration
     End Sub
 
     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)
 
         Try

app/DD_Clipboard_Searcher/frmConfig_Basic.vb

@@ -129,8 +129,20 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        LinkLabel1.LinkVisited = True
-        Process.Start("http://www.didalog.de/Support")
+        Try
+            Me.LinkLabel1.LinkVisited = True
+
+            Dim oSql As String = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'DDSUPPORT_PORTAL'"
+            Dim oSupportLink As String = MyDB_DDECM.GetScalarValue(oSql)?.ToString()
+
+            If Not String.IsNullOrEmpty(oSupportLink) Then
+                Process.Start(oSupportLink)
+            Else
+                MsgBox("Support-Link nicht gefunden.", MsgBoxStyle.Information)
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen des Support-Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
     End Sub
 
     Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click

app/DD_Clipboard_Searcher/frmMain.vb

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