MS ÄNDerungen wegen License

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -42,7 +42,12 @@ Public Class ClassInit
 
         Try
             Database = New MSSQLServer(LogConfig, MyConnectionString)
+            If Database.DBInitialized = True Then
                 Return True
+            Else
+                Return False
+            End If
+
         Catch ex As Exception
             Logger.Error(ex)
             Return False
@@ -86,6 +91,7 @@ Public Class ClassInit
         End If
     End Function
     Public Shared Function CheckModuleData()
+        Try
             Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
             Dim DT_CHECKUSER_MODULE As DataTable = Database.GetDatatable(sql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
@@ -120,6 +126,11 @@ Public Class ClassInit
                 MsgBox(msg, MsgBoxStyle.Exclamation)
                 Return False
             End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+
     End Function
     Public Shared Function InitUserLogin(Optional _User As String = "")
         Try

app/DD_Clipboard_Searcher/ClassLicense.vb

@@ -2,9 +2,18 @@
 Public Class ClassLicense
     Private Shared lic_string As String
     Private Shared Sub Get_License(CLIENT_ID As Integer)
-        Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
+        Try
-
+               Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
             lic_string = Database.GetScalarValue(sql)
+        Catch ex As Exception
+            Try
+                Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
+                lic_string = Database.GetScalarValue(sql)
+            Catch ex1 As Exception
+                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
+            End Try
+        End Try
+
     End Sub
     Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
         Try

app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.0")>
+<Assembly: AssemblyVersion("2.0.0.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_Clipboard_Searcher/frmAdministration.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdministration
-    Inherits DigitalData.GUIs.Common.Base.BaseRibbonForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm '.GUIs.Common.Base.BaseRibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -16,7 +16,7 @@ Public Class frmAdministration
     End Class
 
     Public Sub New()
-        MyBase.New(LogConfig)
+        MyBase.New()
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
     End Sub
@@ -98,7 +98,7 @@ Public Class frmAdministration
                 Status_Changed("Keine Änderung")
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            Logger.Error(ex)
             'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
@@ -628,7 +628,7 @@ Public Class frmAdministration
                 Status_Changed("Daten-Suche gespeichert")
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            Logger.Error(ex)
             'MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -662,7 +662,7 @@ Public Class frmAdministration
                 Status_Changed("Dokument-Suche gespeichert")
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            Logger.Error(ex)
         End Try
     End Sub
 

app/DD_Clipboard_Searcher/frmLicense.Designer.vb

@@ -34,6 +34,8 @@ Partial Class frmLicense
         Me.txtNewlicences = New System.Windows.Forms.TextBox()
         Me.lblnewlicenses = New System.Windows.Forms.Label()
         Me.btnPW_check = New System.Windows.Forms.Button()
+        Me.txtClient = New System.Windows.Forms.TextBox()
+        Me.lblClient1 = New System.Windows.Forms.Label()
         Me.grbBoxlicense.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -58,6 +60,8 @@ Partial Class frmLicense
         '
         'grbBoxlicense
         '
+        Me.grbBoxlicense.Controls.Add(Me.lblClient1)
+        Me.grbBoxlicense.Controls.Add(Me.txtClient)
         Me.grbBoxlicense.Controls.Add(Me.lblClient)
         Me.grbBoxlicense.Controls.Add(Me.cmbClients)
         Me.grbBoxlicense.Controls.Add(Me.Label5)
@@ -163,6 +167,23 @@ Partial Class frmLicense
         Me.btnPW_check.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnPW_check.UseVisualStyleBackColor = True
         '
+        'txtClient
+        '
+        Me.txtClient.Location = New System.Drawing.Point(307, 39)
+        Me.txtClient.Name = "txtClient"
+        Me.txtClient.ReadOnly = True
+        Me.txtClient.Size = New System.Drawing.Size(100, 21)
+        Me.txtClient.TabIndex = 20
+        '
+        'lblClient1
+        '
+        Me.lblClient1.AutoSize = True
+        Me.lblClient1.Location = New System.Drawing.Point(307, 22)
+        Me.lblClient1.Name = "lblClient1"
+        Me.lblClient1.Size = New System.Drawing.Size(38, 13)
+        Me.lblClient1.TabIndex = 21
+        Me.lblClient1.Text = "Label1"
+        '
         'frmLicense
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -196,4 +217,6 @@ Partial Class frmLicense
     Friend WithEvents btnnewLicenses As System.Windows.Forms.Button
     Friend WithEvents txtNewlicences As System.Windows.Forms.TextBox
     Friend WithEvents lblnewlicenses As System.Windows.Forms.Label
+    Friend WithEvents lblClient1 As Label
+    Friend WithEvents txtClient As TextBox
 End Class

app/DD_Clipboard_Searcher/frmLicense.vb

@@ -14,6 +14,8 @@ Public Class frmLicense
                 Me.txtPW.Visible = False
                 Me.btnPW_check.Visible = False
                 If DT_CLIENT_USER.Rows.Count > 1 Then
+                    lblClient1.Visible = False
+                    txtClient.Visible = False
                     lblClient.Visible = True
                     cmbClients.Visible = True
                     Try
@@ -24,9 +26,13 @@ Public Class frmLicense
                         MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
                     End Try
                 ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
+                    lblClient1.Visible = True
+                    txtClient.Visible = True
+
                     lblClient.Visible = False
                     cmbClients.Visible = False
                     CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
+                    txtClient.Text = CLIENT_ID
                 End If
 
 
@@ -45,9 +51,13 @@ Public Class frmLicense
                 'Encode the license
                 Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#")
 
-                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_DDCBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
+                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
-                If Database.ExecuteNonQuery(sql) = True Then
+                If Database.ExecuteNonQuery(sql) = False Then
+                    sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
+                    Database.ExecuteNonQuery(sql)
                     Refresh_Licence(True)
+                Else
+                    MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)
                 End If
 
                 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")

app/SetupWix/Product.wxs

@@ -125,7 +125,6 @@
         <File Id="DevExpress.XtraPrinting.v18.1" Name="DevExpress.XtraPrinting.v18.1.dll" />
         <File Id="DevExpress.XtraTreeList.v18.1" Name="DevExpress.XtraTreeList.v18.1.dll" />
         <File Id="DevExpress.XtraDialogs.v18.1" Name="DevExpress.XtraDialogs.v18.1.dll" />
-        <File Id="DevExpress.XtraRichEdit.v18.1" Name="DevExpress.XtraRichEdit.v18.1.dll" />
         <File Id="DevExpress.Dialogs.v18.1.Core" Name="DevExpress.Dialogs.v18.1.Core.dll" />
         <File Id="DevExpress.RichEdit.v18.1.Core" Name="DevExpress.RichEdit.v18.1.Core.dll" />
       </Component>