20180920

2018-09-20 21:50:15 +02:00
parent a98929c82a
commit b593e1f082
161 changed files with 2183 additions and 330736 deletions
--- a/DPMLizenzmanagement/SHUKeyGen/clsKeyGen.vb
+++ b/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