MS

app/DD-Record-Organiser/frmLicense.vb

@@ -1,5 +1,6 @@
 Imports DLLLicenseManager
 Public Class frmLicense
+    Dim CLIENT_ID As Integer
     Public _lizenzManager As ClassLicenseManager
     Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
         OpenLicenseManager()
@@ -12,6 +13,23 @@ Public Class frmLicense
                 Me.lblPW.Visible = False
                 Me.txtPW.Visible = False
                 Me.btnPW_check.Visible = False
+                If DT_CLIENT_USER.Rows.Count > 1 Then
+                    lblClient.Visible = True
+                    cmbClients.Visible = True
+                    Try
+                        cmbClients.DataSource = DT_CLIENT_USER
+                        cmbClients.DisplayMember = DT_CLIENT_USER.Columns("CLIENT_NAME").ColumnName
+                        cmbClients.ValueMember = DT_CLIENT_USER.Columns("CLIENT_ID").ColumnName
+                    Catch ex As Exception
+                        MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
+                    lblClient.Visible = False
+                    cmbClients.Visible = False
+                    CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
+                End If
+
+
             Else
                 Me.grbBoxlicense.Visible = False
                 MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
@@ -23,13 +41,13 @@ Public Class frmLicense
 
     Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
         Try
+            _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
             If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then
                 'Encode the license
                 Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked, "#DigitalData35452!#")
 
-                Dim sql As String = "UPDATE TBDD_MODULES SET LICENSE = '" & result & "'  WHERE UPPER(NAME) = UPPER('Record-Organizer')"
+                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
                 If ClassDatabase.Execute_non_Query(sql, True) = True Then
-                    txtlicensekey.Text = result
                     Refresh_Licence(True)
                 End If
 
@@ -40,52 +58,31 @@ Public Class frmLicense
         End Try
     End Sub
     Sub Refresh_Licence(Neu As Boolean)
-        Dim lizenzzahl As Integer
         Try
-            Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
-            Dim sql As String = "SELECT LICENSE FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')"
+            ClassLicence.Refresh_Licence(CLIENT_ID)
 
-            Dim lic As String = ClassDatabase.Execute_Scalar(sql, True)
-            Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
-
-            Dim split() = licString.ToString.Split("#")
-
-            If lic <> "" Then
-                lizenzzahl = split(0)
-                LICENSE_COUNT = lizenzzahl
-            Else
-                lizenzzahl = "0"
-            End If
-            txtNewlicences.Text = lizenzzahl
-            dtpGueltig_GI.Value = split(1)
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
-                License_Expired = True
-            Else
-                License_Expired = False
-            End If
-
-            txtDossierCount.Text = split(2)
-            LICENSE_COUNT = CInt(txtNewlicences.Text)
-
-            LICENSE_DOSSIER_COUNT = split(2)
-            txtDossierCount.Text = split(2)
+            txtNewlicences.Text = LICENSE_COUNT
+            dtpGueltig_GI.Value = LICENSE_DATE
+            txtDossierCount.Text = LICENSE_DOSSIER_COUNT
             Try
-                LICENSE_SAP_Connect = CBool(split(3))
+
                 chkSAPConnect.Checked = LICENSE_SAP_Connect
             Catch ex As Exception
                 ClassLogger.Add(">> Could not read License for SAP-Connect: " & ex.Message, False)
                 LICENSE_SAP_Connect = False
                 chkSAPConnect.Checked = False
             End Try
-
-            Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl
             If Neu = True Then
-                If CInt(lizenzzahl) > 0 Then
-                    MsgBox("Die Lizenz wurde aktualisiert!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                If CInt(LICENSE_COUNT) > 0 Then
+                    Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
+                    If USER_LANGUAGE <> "de-DE" Then
+                        msg = "The license was renewed!" & vbNewLine & Now
+                    End If
+                    MsgBox(msg, MsgBoxStyle.Information, "License renewed:")
                 End If
             End If
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
         End Try
     End Sub
 
@@ -108,4 +105,16 @@ Public Class frmLicense
             End If
         End If
     End Sub
+
+    Private Sub cmbClients_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbClients.SelectedIndexChanged
+        If cmbClients.SelectedIndex <> -1 Then
+            Try
+                CLIENT_ID = cmbClients.SelectedValue
+                Refresh_Licence(False)
+            Catch ex As Exception
+                CLIENT_ID = 99
+            End Try
+
+        End If
+    End Sub
 End Class