Namespace MyDomain

    Public Class Employee
        Implements _
            MatsSoft.NPersist.Framework.IContextHolder, _
            MatsSoft.NPersist.Framework.IObjectHelper

        Private m_ContextManager As MatsSoft.NPersist.Framework.IContextManager = Nothing

        Private m_Id As Long
        Private m_FirstName As System.String
        Private m_LastName As System.String

        Public Overridable Property Id() As Long
            Get
                Return m_Id
            End Get
            Set(ByVal Value As Long)
                Dim ctxMngr As MatsSoft.NPersist.Framework.IContextManager = CType(Me, MatsSoft.NPersist.Framework.IContextHolder).GetContextManager
                If Not ctxMngr Is Nothing Then ctxMngr.NotifyPropertySet(Me, "Id", Value)
                m_Id = Value
            End Set
        End Property

        Public Overridable Property FirstName() As System.String
            Get
                Return m_FirstName
            End Get
            Set(ByVal Value As System.String)
                Dim ctxMngr As MatsSoft.NPersist.Framework.IContextManager = CType(Me, MatsSoft.NPersist.Framework.IContextHolder).GetContextManager
                If Not ctxMngr Is Nothing Then ctxMngr.NotifyPropertySet(Me, "FirstName", Value)
                m_FirstName = Value
            End Set
        End Property

        Public Overridable Property LastName() As System.String
            Get
                Return m_LastName
            End Get
            Set(ByVal Value As System.String)
                Dim ctxMngr As MatsSoft.NPersist.Framework.IContextManager = CType(Me, MatsSoft.NPersist.Framework.IContextHolder).GetContextManager
                If Not ctxMngr Is Nothing Then ctxMngr.NotifyPropertySet(Me, "LastName", Value)
                m_LastName = Value
            End Set
        End Property



        Private Function IContextHolder_GetContextManager() As MatsSoft.NPersist.Framework.IContextManager Implements MatsSoft.NPersist.Framework.IContextHolder.GetContextManager
            Return m_ContextManager
        End Function

        Private Sub IContextHolder_SetContextManager(ByVal value As MatsSoft.NPersist.Framework.IContextManager) Implements MatsSoft.NPersist.Framework.IContextHolder.SetContextManager
            m_ContextMa