´╗┐Option Explicit On
Option Strict On

Imports System
Imports System.Xml

'**********************************************************************************************
'* Copyright (c) 2001-2018 Liquid Technologies Limited. All rights reserved.
'* See www.liquid-technologies.com for product details.
'*
'* Please see products End User License Agreement for distribution permissions.
'*
'* WARNING: THIS FILE IS GENERATED
'* Changes made outside of ##HAND_CODED_BLOCK_START blocks will be overwritten
'*
'* Generation  :  by Liquid XML Data Binder 16.1.2.8409
'* Using Schema: D:\Development2018\Liquid\Tools\DataBindingSamples\Samples\SimpleSequence\Schema\SimpleSequence.xsd
'**********************************************************************************************

Namespace SimpleSequenceLib

    ''' <summary>
    ''' This class represents the Element DVD
    ''' </summary>
    <LiquidTechnologies.Runtime.Net45.XmlObjectInfo(LiquidTechnologies.Runtime.Net45.XmlObjectBase.XmlElementGroupType.Sequence, _
                                                    LiquidTechnologies.Runtime.Net45.XmlObjectBase.XmlElementType.Element, _
                                                    "DVD", "", true, false, false)> _
    Public Partial Class DVD
        Inherits SimpleSequenceLib.XmlCommonBase

        #Region "Constructors"
        ''' <summary>
        '''    Constructor for DVD
        ''' </summary>
        ''' <remarks>
        '''    The class is created with all the mandatory fields populated with the
        '''    default data. 
        '''    All Collection object are created.
        '''    However any 1-n relationships (these are represented as collections) are
        '''    empty. To comply with the schema these must be populated before the xml
        '''    obtained from ToXml is valid against the schema D:\Development2018\Liquid\Tools\DataBindingSamples\Samples\SimpleSequence\Schema\SimpleSequence.xsd
        ''' </remarks>
        Public Sub New()
            _elementName = "DVD"
            Init()
        End Sub
        
        Public Sub New(ByVal elementName As String)
            _elementName = elementName
            Init()
        End Sub
        #End Region

        #Region "Initialization methods for the class"
        ''' <summary>
        '''    Initializes the class
        ''' </summary>
        ''' <remarks>
        '''    This creates all the mandatory fields (populated with the default data) 
        '''    All Collection object are created.
        '''    However any 1-n relationships (these are represented as collections) are
        '''    empty. To comply with the schema these must be populated before the xml
        '''    obtained from ToXml is valid against the schema D:\Development2018\Liquid\Tools\DataBindingSamples\Samples\SimpleSequence\Schema\SimpleSequence.xsd.
        ''' </remarks>
        Protected Overrides Sub Init()
            SimpleSequenceLib.Registration.iRegistrationIndicator = 0 ' causes registration to take place
            _Genre = Nothing
            _Cost = 0
            _Title = ""
            _Description = ""
            _ReleaseDate = New LiquidTechnologies.Runtime.Net45.XmlDateTime(LiquidTechnologies.Runtime.Net45.XmlDateTime.DateType.date)

' ##HAND_CODED_BLOCK_START ID="Additional Inits"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS

' Add Additional initialization code here...

' ##HAND_CODED_BLOCK_END ID="Additional Inits"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
        End Sub

        #End Region

        #Region "ICloneable Interface"
        ''' <summary>
        '''    Allows the class to be copied
        ''' </summary>
        ''' <remarks>
        '''    Performs a 'deep copy' of all the data in the class (and its children)
        ''' </remarks>
        Public Overrides Function Clone() As Object
            Dim newObject As New SimpleSequenceLib.DVD(_elementName)
            Dim o As Object
            newObject._Genre = _Genre
            newObject._Cost = _Cost
            newObject._Title = _Title
            newObject._Description = _Description
            newObject._ReleaseDate = CType(_ReleaseDate.Clone(), LiquidTechnologies.Runtime.Net45.XmlDateTime)

            o = Nothing

' ##HAND_CODED_BLOCK_START ID="Additional clone"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS

' Add Additional clone code here...

' ##HAND_CODED_BLOCK_END ID="Additional clone"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS

            Return newObject
        End Function
        #End Region

        #Region "Member variables"

        Protected Overrides Readonly Property TargetNamespace() As String
            Get 
                Return ""
            End Get
        End Property

        #Region "Attribute - Genre"
        ''' <summary>
        ''' Represents an optional Attribute in the XML document
        ''' </summary>
        ''' <remarks>
        ''' This property is represented as an Attribute in the XML.
        ''' It is optional, initially it is not valid.
        ''' </remarks>
        <LiquidTechnologies.Runtime.Net45.AttributeInfoPrimitive("Genre", "", True, LiquidTechnologies.Runtime.Net45.Conversions.ConversionType.type_string, Nothing, LiquidTechnologies.Runtime.Net45.WhitespaceUtils.WhitespaceRule.Preserve, "", -1, -1, "", "", "", "", -1, -1, -1, Nothing)> _
        Public Property Genre() As String
            Get
                Return _Genre
            End Get
            Set(ByVal value As String)
                If value Is Nothing Then
                    _Genre = Nothing
                Else
                    ' Apply whitespace rules appropriately
                    value = LiquidTechnologies.Runtime.Net45.WhitespaceUtils.Preserve(value) 
                    _Genre = value
                End If
            End Set
        End Property
        Protected _Genre As String
        #End Region
    
        #Region "Attribute - Cost"
        ''' <summary>
        ''' Represents a mandatory Attribute in the XML document
        ''' </summary>
        ''' <remarks>
        ''' This property is represented as an Attribute in the XML.
        ''' It is mandatory and therefore must be populated within the XML.
        ''' It is defaulted to 0.
        ''' </remarks>
        <LiquidTechnologies.Runtime.Net45.AttributeInfoPrimitive("Cost", "", LiquidTechnologies.Runtime.Net45.Conversions.ConversionType.type_r8, Nothing, LiquidTechnologies.Runtime.Net45.WhitespaceUtils.WhitespaceRule.Collapse, "", -1, -1, "", "", "", "", -1, -1, -1, Nothing)> _
        Public Property Cost() As Double
            Get 
                Return _Cost
            End Get
            Set(ByVal value As Double)
                _Cost = value 
            End Set
        End Property
        Protected _Cost As Double

        #End Region
    
        #Region "Attribute - Title"
        ''' <summary>
        ''' Represents a mandatory Element in the XML document
        ''' </summary>
        ''' <remarks>
        ''' This property is represented as an Element in the XML.
        ''' It is mandatory and therefore must be populated within the XML.
        ''' It is defaulted to "".
        ''' </remarks>
        <LiquidTechnologies.Runtime.Net45.ElementInfoSeqPrimMnd("Title", "", Nothing, LiquidTechnologies.Runtime.Net45.Conversions.ConversionType.type_string, Nothing, LiquidTechnologies.Runtime.Net45.WhitespaceUtils.WhitespaceRule.Preserve, "", -1, -1, "", "", "", "", -1, -1, -1, Nothing)> _
        Public Property Title() As String
            Get 
                Return _Title
            End Get
            Set(ByVal value As String)
                ' Apply whitespace rules appropriately
                value = LiquidTechnologies.Runtime.Net45.WhitespaceUtils.Preserve(value) 
                _Title = value 
            End Set
        End Property
        Protected _Title As String

        #End Region
    
        #Region "Attribute - Description"
        ''' <summary>
        ''' Represents a mandatory Element in the XML document
        ''' </summary>
        ''' <remarks>
        ''' This property is represented as an Element in the XML.
        ''' It is mandatory and therefore must be populated within the XML.
        ''' It is defaulted to "".
        ''' </remarks>
        <LiquidTechnologies.Runtime.Net45.ElementInfoSeqPrimMnd("Description", "", Nothing, LiquidTechnologies.Runtime.Net45.Conversions.ConversionType.type_string, Nothing, LiquidTechnologies.Runtime.Net45.WhitespaceUtils.WhitespaceRule.Preserve, "", -1, -1, "", "", "", "", -1, -1, -1, Nothing)> _
        Public Property Description() As String
            Get 
                Return _Description
            End Get
            Set(ByVal value As String)
                ' Apply whitespace rules appropriately
                value = LiquidTechnologies.Runtime.Net45.WhitespaceUtils.Preserve(value) 
                _Description = value 
            End Set
        End Property
        Protected _Description As String

        #End Region
    
        #Region "Attribute - ReleaseDate"
        ''' <summary>
        ''' Represents a mandatory Element in the XML document
        ''' </summary>
        ''' <remarks>
        ''' This property is represented as an Element in the XML.
        ''' It is mandatory and therefore must be populated within the XML.
        ''' It is defaulted to New LiquidTechnologies.Runtime.Net45.XmlDateTime(LiquidTechnologies.Runtime.Net45.XmlDateTime.DateType.date).
        ''' </remarks>
        <LiquidTechnologies.Runtime.Net45.ElementInfoSeqPrimMnd("ReleaseDate", "", Nothing, LiquidTechnologies.Runtime.Net45.Conversions.ConversionType.type_date, Nothing, LiquidTechnologies.Runtime.Net45.WhitespaceUtils.WhitespaceRule.Collapse, "", -1, -1, "", "", "", "", -1, -1, -1, Nothing)> _
        Public Property ReleaseDate() As LiquidTechnologies.Runtime.Net45.XmlDateTime
            Get 
                Return _ReleaseDate
            End Get
            Set(ByVal value As LiquidTechnologies.Runtime.Net45.XmlDateTime)
                _ReleaseDate.SetDateTime(value, _ReleaseDate.Type) 
            End Set
        End Property
        Protected _ReleaseDate As LiquidTechnologies.Runtime.Net45.XmlDateTime

        #End Region
    
        #Region "Attribute - Namespace"
        Public Overrides Readonly Property [Namespace]() As String
            Get 
                Return ""
            End Get
        End Property
        #End Region

        #Region "Attribute - GetBase"
        Public Overrides Function GetBase() As LiquidTechnologies.Runtime.Net45.XmlObjectBase
            Return Me
        End Function
        #End Region
        #End Region


' ##HAND_CODED_BLOCK_START ID="Additional Methods"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS

' Add Additional Methods and members here...

' ##HAND_CODED_BLOCK_END ID="Additional Methods"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
    End Class
End Namespace