20180920

DPMLizenzmanagement/DPMLizenzmanagement/Form1.Designer.vb

@@ -156,9 +156,9 @@ Partial Class Form1
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.Location = New System.Drawing.Point(272, 161)
         Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(89, 17)
+        Me.CheckBox4.Size = New System.Drawing.Size(148, 17)
         Me.CheckBox4.TabIndex = 11
-        Me.CheckBox4.Text = "Demo-Modus"
+        Me.CheckBox4.Text = "Dokumentenmanagement"
         Me.CheckBox4.UseVisualStyleBackColor = True
         '
         'CheckBox5
@@ -166,9 +166,9 @@ Partial Class Form1
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.Location = New System.Drawing.Point(272, 184)
         Me.CheckBox5.Name = "CheckBox5"
-        Me.CheckBox5.Size = New System.Drawing.Size(81, 17)
+        Me.CheckBox5.Size = New System.Drawing.Size(44, 17)
         Me.CheckBox5.TabIndex = 12
-        Me.CheckBox5.Text = "CheckBox5"
+        Me.CheckBox5.Text = "n.a."
         Me.CheckBox5.UseVisualStyleBackColor = True
         '
         'CheckBox6

DPMLizenzmanagement/DPMLizenzmanagement/Form1.vb

@@ -99,7 +99,7 @@ Public Class Form1
         r(3) = "Multi-Database;1"
         r(4) = "Report-Designer;1"
         r(5) = "Firmendaten;1"
-        r(6) = "n.a.;0"
+        r(6) = "Dokumentenmanagement;0"
         r(7) = "n.a.;0"
         r(8) = "Demo-Modus;0"
         t.Rows.Add(r)

DPMLizenzmanagement/DPMLizenzmanagement/bin/Debug/keygendata.xml

@@ -7,9 +7,9 @@
     <Option1>Multi-Database;1</Option1>
     <Option2>Report-Designer;1</Option2>
     <Option3>Firmendaten;1</Option3>
-    <Option4>n.a.;0</Option4>
+    <Option4>Dokumentenmanagement;1</Option4>
     <Option5>n.a.;0</Option5>
-    <Option6>n.a.;0</Option6>
+    <Option6>Demo-Modus;0</Option6>
   </Produkte>
   <Produkte>
     <Produktname>DPM - 2 - Dental Practice Manager</Produktname>
@@ -18,9 +18,9 @@
     <Option1>Multi-Database;1</Option1>
     <Option2>Report-Designer;0</Option2>
     <Option3>Firmendaten;0</Option3>
-    <Option4>n.a.;0</Option4>
+    <Option4>Dokumentenmanagement;0</Option4>
     <Option5>n.a.;0</Option5>
-    <Option6>n.a.;0</Option6>
+    <Option6>Demo-Modus;0</Option6>
   </Produkte>
   <Produkte>
     <Produktname>DPM - 2 - Dental Practice Manager</Produktname>

DPMLizenzmanagement/SHUKeyGen/clsKeyGen.vb

@@ -12,6 +12,17 @@ Public Class clsKeyGen
             m_demomode = value
         End Set
     End Property
+
+    Dim m_dms As Boolean
+    Property DMS As Boolean
+        Get
+            Return m_dms
+
+        End Get
+        Set(value As Boolean)
+            m_dms = value
+        End Set
+    End Property
     Dim m_delimiter As String
     Property Delimiter As String
         Get
@@ -122,6 +133,7 @@ Public Class clsKeyGen
         End Get
         Set(value As Boolean)
             m_option4 = value
+            If m_option4 = True Then Me.DMS = True
         End Set
     End Property