merge commit

app/DD_Clipboard_Searcher/ClassDataASorDB.vb

@@ -75,6 +75,7 @@ Public Class ClassDataASorDB
                     ElseIf oMode.StartsWith("NOMATCH_INFO") Then
                         Try
                             Dim oResult = oMode.Replace("NOMATCH_INFO=", "")
+                            Logger.Info($"NOMATCH_INFO will be set to {oResult}")
                             NOMATCH_INFO = CBool(oResult)
                         Catch ex As Exception
                             NOMATCH_INFO = False

app/DD_Clipboard_Searcher/ClassLicense.vb

@@ -32,15 +32,39 @@ Public Class ClassLicense
 
             If lic_string <> "" Then
                 LICENSE_COUNT = split(0)
-                LICENSE_DATE = CDate(split(1))
+                Try
+                    Dim cultureInfo As System.Globalization.CultureInfo
+                    cultureInfo = New System.Globalization.CultureInfo("de-DE")
+                    cultureInfo.DateTimeFormat.ShortDatePattern = "dd.MM.yyyy"
+                    Try
+                        Dim oLicDate As Date = Convert.ToDateTime(split(1), cultureInfo)
+                        LICENSE_DATE = oLicDate
+                    Catch ex As Exception
+                        Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
+                    End Try
+
+                Catch ex As Exception
+                    LICENSE_DATE = split(1)
+                    Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
+                End Try
+
             End If
 
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
-                MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
-                LICENSE_EXPIRED = True
-                LICENSE_COUNT = 0
-                ERROR_INIT = "NO LICENSE"
-            End If
+            Try
+                If Not IsNothing(LICENSE_DATE) Then
+                    If CDate(LICENSE_DATE.ToShortDateString) < CDate(Now.ToShortDateString) Then
+                        MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & LICENSE_DATE.ToString & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
+                        LICENSE_EXPIRED = True
+                        LICENSE_COUNT = 0
+                        ERROR_INIT = "NO LICENSE"
+                    End If
+                End If
+
+
+            Catch ex As Exception
+                Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
+            End Try
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
         End Try

app/DD_Clipboard_Searcher/frmLicense.vb

@@ -1,4 +1,5 @@
-Imports DD_LIB_Standards
+Imports System.Globalization
+Imports DD_LIB_Standards
 Public Class frmLicense
     Dim CLIENT_ID As Integer
     Public _lizenzManager As clsLicenseManager
@@ -49,7 +50,9 @@ Public Class frmLicense
             _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
             If Me.txtNewlicences.Text <> "" Then
                 'Encode the license
-                Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#")
+                Dim oDate = CDate(dtpGueltig_GI.Value)
+                Dim oDateddMMyyyy = oDate.ToString("dd.MM.yyyy", CultureInfo.InvariantCulture)
+                Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
 
                 Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
                 If Database.ExecuteNonQuery(sql) = False Then