'------------------------------------------------------------------------------
'
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System.Xml.Serialization
'
'This source code was auto-generated by xsd, Version=4.6.1586.0.
'
'''
Partial Public Class LicenseSchema
Private modulesField() As LicenseModule
'''
Public Property Modules() As LicenseModule()
Get
Return Me.modulesField
End Get
Set
Me.modulesField = Value
End Set
End Property
End Class
'''
_
Partial Public Class LicenseModule
Private usersField() As LicenseModuleUser
Private nameField As String
Private validUntilField As Date
Private validUntilFieldSpecified As Boolean
'''
_
Public Property Users() As LicenseModuleUser()
Get
Return Me.usersField
End Get
Set
Me.usersField = value
End Set
End Property
'''
_
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
'''
_
Public Property ValidUntil() As Date
Get
Return Me.validUntilField
End Get
Set
Me.validUntilField = value
End Set
End Property
'''
_
Public Property ValidUntilSpecified() As Boolean
Get
Return Me.validUntilFieldSpecified
End Get
Set
Me.validUntilFieldSpecified = value
End Set
End Property
End Class
'''
_
Partial Public Class LicenseModuleUser
Private typeField As UserType
Private countField As String
Private testField As Boolean
Private validUntilField As Date
Private validUntilFieldSpecified As Boolean
Public Sub New()
MyBase.New
Me.testField = true
End Sub
'''
_
Public Property Type() As UserType
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''
_
Public Property Count() As String
Get
Return Me.countField
End Get
Set
Me.countField = value
End Set
End Property
'''
_
Public Property Test() As Boolean
Get
Return Me.testField
End Get
Set
Me.testField = value
End Set
End Property
'''
_
Public Property ValidUntil() As Date
Get
Return Me.validUntilField
End Get
Set
Me.validUntilField = value
End Set
End Property
'''
_
Public Property ValidUntilSpecified() As Boolean
Get
Return Me.validUntilFieldSpecified
End Get
Set
Me.validUntilFieldSpecified = value
End Set
End Property
End Class
'''
_
Public Enum UserType
'''
PowerUser
'''
[ReadOnly]
'''
[WriteOnly]
'''
ReadWrite
End Enum