##DIRECTIVE START_TAG=<% END_TAG=%>
##DIRECTIVE MAP_TYPE String=String
##DIRECTIVE MAP_TYPE Integer=Integer
##DIRECTIVE MAP_TYPE Long=Integer
##DIRECTIVE MAP_TYPE Double=Double
##DIRECTIVE MAP_TYPE Date=Date
##DIRECTIVE MAP_TYPE Boolean=Boolean
##DIRECTIVE MAP_TYPE Variant=Object
##DIRECTIVE MAP_TYPE Object=Object
##DIRECTIVE MAP_TYPE Decimal=Decimal
'
'ClassGenerator Template Version 01.00.01
'
Public Class <%CLASS_NAME%>
    Inherits IVSpace.DataClass.BasePropertyFacadeClass

<%FOREACH PROPERTY PROPERTY_TYPE COUNTER PROPERTY_DB_TYPE PROPERTY_IS_NUMERIC IN PROPERTIES PROPERTIES_TYPES COUNTER PROPERTY_DB_TYPE PROPERTY_IS_NUMERIC%>
<%IF PROPERTY_DB_TYPE <> timestamp THEN%>
<%IF PROPERTY_TYPE = String THEN%>
    Protected m<%PROPERTY%> As <%PROPERTY_TYPE%> = ""
<%ELSE IF PROPERTY_TYPE = Boolean THEN%>
    Protected m<%PROPERTY%> As <%PROPERTY_TYPE%> = False
<%ELSE IF PROPERTY_TYPE = Date THEN%>
    Protected m<%PROPERTY%> As <%PROPERTY_TYPE%> = Nothing
<%ELSE IF PROPERTY_IS_NUMERIC = True THEN%>
    Protected m<%PROPERTY%> As <%PROPERTY_TYPE%> = 0
<%ELSE%>
    Protected m<%PROPERTY%> As <%PROPERTY_TYPE%>
<%END IF%>
<%END IF%>
<%END FOREACH%>

<%IF HAS_MASTER_DETAIL_CLASSES = True THEN%>
<%FOREACH MD_CLASS_NAME MD_TABLE_NAME IN MD_CLASSES_NAMES MD_TABLES_NAMES%>
    Protected m<%MD_CLASS_NAME%>s As <%MD_CLASS_NAME%>List
<%END FOREACH%>
<%END IF%>

<%IF HAS_MASTER_DETAIL_CLASSES = True THEN%>
<%FOREACH MD_CLASS_NAME MD_TABLE_NAME IN MD_CLASSES_NAMES MD_TABLES_NAMES%>
    Public ReadOnly Property <%MD_CLASS_NAME%>s() As DABO<%MD_CLASS_NAME%>List
        Get
            If m<%MD_CLASS_NAME%>s Is Nothing Then
                m<%MD_CLASS_NAME%>s = New <%MD_CLASS_NAME%>List
            End If
            Return m<%MD_CLASS_NAME%>s
        End Get
    End Property
<%END FOREACH%>
<%END IF%>

<%FOREACH PROPERTY PROPERTY_TYPE COUNTER PROPERTY_DB_TYPE IN PROPERTIES PROPERTIES_TYPES COUNTER PROPERTY_DB_TYPE%>
<%IF PROPERTY_DB_TYPE <> timestamp THEN%>
    Public Property <%PROPERTY%>() As <%PROPERTY_TYPE%>
        Get
            Return m<%PROPERTY%>
        End Get
        Set(ByVal Value As <%PROPERTY_TYPE%>)
            mHasChanged = Not (m<%PROPERTY%> = Value)
            m<%PROPERTY%> = Value
        End Set
    End Property

<%END IF%>
<%END FOREACH%>

    Public Overrides ReadOnly Property PKFields() As String()
        Get
            Return New String() { _
<%FOREACH PK_FIELD IN PK_FIELDS%>
<%IF ITEM_IS_LAST = True THEN%>
                "<%PK_FIELD%>" _
<%ELSE%>
                "<%PK_FIELD%>", _
<%END IF%>
<%END FOREACH%>
                }
        End Get
    End Property

    Public Sub New()
    End Sub
    
End Class


#Region " <%CLASS_NAME%>List "
    Public Class <%CLASS_NAME%>List
        Inherits CollectionBase

        Default Public Property Item(ByVal index As Integer) As <%CLASS_NAME%>
            Get
                Return CType(List(index), <%CLASS_NAME%>)
            End Get
            Set(ByVal Value As <%CLASS_NAME%>)
                List(index) = Value
            End Set
        End Property

        Public Function Add(ByVal value As <%CLASS_NAME%>) As Integer
            Add = List.Add(value)
        End Function

        Public Sub Insert(ByVal index As Integer, ByVal value As <%CLASS_NAME%>)
            List.Insert(index, value)
        End Sub

        Public Function IndexOf(ByVal value As <%CLASS_NAME%>) As Integer
            Return List.IndexOf(value)
        End Function

        Public Function Contains(ByVal value As <%CLASS_NAME%>) As Boolean
            Return List.Contains(value)
        End Function

        Public Sub Remove(ByVal value As <%CLASS_NAME%>)
            List.Remove(value)
        End Sub

        Public Sub CopyTo(ByVal array() As <%CLASS_NAME%>, ByVal index As Integer)
            List.CopyTo(array, index)
        End Sub

    End Class
#End Region 
<%END IF%>