#Region " Events"

'---> Add events that mirror StrataFrame Events as they do not pass a sender so I can't tell which BO intitiated the event

Public Event AL_Navigated(ByVal sender As Object, ByVal e As MicroFour.StrataFrame.Business.NavigatedEventArgs)

Public Event AL_AfterAddNew(ByVal sender As Object, ByVal e As System.EventArgs)

Public Event AL_AfterDeleted(ByVal sender As Object, ByVal e As MicroFour.StrataFrame.Business.AfterDeleteEventArgs)

Public Event AL_BeforeDeleted(ByVal sender As Object, ByVal e As MicroFour.StrataFrame.Business.BeforeDeleteEventArgs)

#End Region

#Region " Wrapped Events"

''' <summary>

''' Wraps the After Add New event

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub BaseBiz_AfterAddNew(ByVal e As System.EventArgs) Handles Me.AfterAddNew

'Bubble up th SF event

RaiseEvent AL_AfterAddNew(Me, e)

End Sub

''' <summary>

''' Wraps the After Delete event

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub BaseBiz_AfterDelete(ByVal e As MicroFour.StrataFrame.Business.AfterDeleteEventArgs) Handles Me.AfterDelete

'Bubble up th SF event

RaiseEvent AL_AfterDeleted(Me, e)

End Sub

''' <summary>

''' Wraps the Befoew Delete event

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub BaseBiz_BeforeDelete(ByVal e As MicroFour.StrataFrame.Business.BeforeDeleteEventArgs) Handles Me.BeforeDelete

'Bubble up th SF event

RaiseEvent AL_BeforeDeleted(Me, e)

End Sub

Private Sub AL_BusinessObjectBase_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

End Sub

''' <summary>

''' Handle The is Dirty Changed Event to Enable Disable Buttons

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub AL_BusinessObjectBase_IsDirtyChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.IsDirtyChanged

'Nothing here for now this will enable us to trap for changes and then flip buttons

' Base.Common.MainForm.HandleEditingStateChanged()

End Sub

''' <summary>

''' Wraps the Navigated event

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub BaseBiz_Navigated(ByVal e As MicroFour.StrataFrame.Business.NavigatedEventArgs) Handles Me.Navigated

'Bubble up th SF event

RaiseEvent AL_Navigated(Me, e)

End Sub

#End Region