From 5bcae3416fbb7b9dd1e967cfe7b1a73fa905c38d Mon Sep 17 00:00:00 2001
From: OlgunR <OlgunR@DD-PC-ENT05N>
Date: Tue, 7 Oct 2025 09:05:20 +0200
Subject: [PATCH] Support-Link wird aus der Datenbank geholt - frmConfig_Basic

---
 app/DD_Clipboard_Searcher/frmConfig_Basic.vb | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb
index e8ce007..607f4ee 100644
--- a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb
+++ b/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