jj: licensestate

EDMI_ClientSuite/State/LicenseState.vb

@@ -1,7 +1,25 @@
 Public Class LicenseState
-    Public Modules As List(Of ModuleState)
+    Public Modules As List(Of LicenseModule)
-
-    Public Sub New()
-        Modules = New List(Of ModuleState)
-    End Sub
 End Class
+
+Public Class LicenseModule
+    Public Name As String
+    Public ValidUntil As Date
+    Public Users As List(Of LicenseUser)
+End Class
+
+Public Class LicenseUser
+    Public Type As UserType
+    Public Count As Integer
+    Public Test As Boolean
+    Public ValidUntil As Date
+End Class
+
+Public Enum UserType
+    PowerUser
+    [ReadOnly]
+    [WriteOnly]
+    ReadWrite
+End Enum
+
+

EDMI_ClientSuite/State/ModuleState.vb

@@ -1,7 +0,0 @@
-Public Class ModuleState
-    Public Name As String
-
-    Public Sub New(Name As String)
-        Me.Name = Name
-    End Sub
-End Class