MS

app/DD-Record-Organizer/frmLicense.vb

@@ -1,7 +1,8 @@
 Imports DLLLicenseManager
 Public Class frmLicense
-    Dim CLIENT_ID As Integer
     Public _lizenzManager As ClassLicenseManager
+    Dim CLIENT_ID As Integer
+
     Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
         OpenLicenseManager()
     End Sub
@@ -41,10 +42,15 @@ Public Class frmLicense
 
     Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
         Try
+            If cmbClients.SelectedIndex = -1 Or CLIENT_ID = 99 Then
+                MsgBox("Please choose a valid client!", MsgBoxStyle.Critical)
+                Exit Sub
+            End If
             _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 & "#" & chkSiteProxy.Checked, "#DigitalData35452!#")
+                Dim ressultstring = txtNewlicences.Text & "#" & dtpGueltig_GI.Value.ToString("yyyy-MM-dd") & "#" & txtDossierCount.Text
+                Dim result As String = Me._lizenzManager.EncodeLicenseKey(ressultstring, "#DigitalData35452!#")
 
                 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 Then
@@ -61,17 +67,27 @@ Public Class frmLicense
         Try
             ClassLicence.Refresh_Licence(CLIENT_ID)
 
+            cmbAddOn.Items.Clear()
+
+            For Each row As DataRow In DT_LICENSE_ADDONS.Rows
+                cmbAddOn.Items.Add(row.Item("NAME"))
+            Next
+            DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
+            DataGridViewAddOns.Columns(0).Width = 200
+            DataGridViewAddOns.Columns(1).Visible = False
+            DataGridViewAddOns.Columns(2).Width = 100
+            GridColor()
             txtNewlicences.Text = LICENSE_COUNT
-            dtpGueltig_GI.Value = LICENSE_DATE
-            txtDossierCount.Text = LICENSE_DOSSIER_COUNT
             Try
-                chkSAPConnect.Checked = LICENSE_SAP_Connect
+                dtpGueltig_GI.Value = LICENSE_DATE
             Catch ex As Exception
-                ClassLogger.Add(">> Could not read License for SAP-Connect: " & ex.Message, False)
-                LICENSE_SAP_Connect = False
-                chkSAPConnect.Checked = False
+                Dim dateTime As String = LICENSE_DATE.ToString
+                Dim dt As DateTime = Convert.ToDateTime(dateTime)
+                Dim format As String = "yyyy-MM-dd"
+                dtpGueltig_GI.Value = CDate(dt)
             End Try
-            chkSiteProxy.Checked = LICENSE_SITE_PROXY
+
+            txtDossierCount.Text = LICENSE_DOSSIER_COUNT
             If Neu = True Then
                 If CInt(LICENSE_COUNT) > 0 Then
                     Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
@@ -117,4 +133,44 @@ Public Class frmLicense
 
         End If
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If CLIENT_ID <> 99 Then
+            Dim wrapper As New ClassEncryption("!35452didalog=")
+            Dim cipherText As String = wrapper.EncryptData(dtpLicenseAddon.Value.ToString("yyyy-MM-dd"))
+            Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer' AND UPPER(NAME) = UPPER('{1}')", CLIENT_ID, cmbAddOn.Text)
+            Dim count = ClassDatabase.Execute_Scalar(sql, False)
+            If count = 0 Then
+                sql = String.Format("INSERT INTO TBDD_LICENSE_ADD_ON (CLIENT_ID, MODULE,NAME,VALID_DATE) VALUES ({0},'Record-Organizer','{1}','{2}')", CLIENT_ID, cmbAddOn.Text, cipherText)
+                ClassDatabase.Execute_non_Query(sql)
+            Else
+                sql = String.Format("UPDATE TBDD_LICENSE_ADD_ON SET VALID_DATE = '{0}' WHERE CLIENT_ID = {1} AND UPPER(MODULE) = UPPER('Record-Organizer') AND UPPER(NAME) = UPPER('{2}')", cipherText, CLIENT_ID, cmbAddOn.Text)
+                ClassDatabase.Execute_non_Query(sql)
+            End If
+            Refresh_Licence(False)
+        Else
+            MsgBox("Please choose a Client!", MsgBoxStyle.Exclamation)
+        End If
+
+    End Sub
+
+    Sub GridColor()
+        Try
+            For i = 0 To DataGridViewAddOns.RowCount - 1
+                If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
+                    DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
+                Else
+                    DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
+                End If
+            Next
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub grbBoxlicense_Enter(sender As Object, e As EventArgs) Handles grbBoxlicense.Enter
+
+    End Sub
 End Class