Public Overrides Function Save(ByVal IsTransactional As Boolean) As MicroFour.StrataFrame.Data.SaveUndoResult

Try

Dim r As MicroFour.StrataFrame.Data.SaveUndoResult = MyBase.Save(IsTransactional)

If r = MicroFour.StrataFrame.Data.SaveUndoResult.AbortedWithBrokenRules Then

Call Utility.SystemUtilities.ErrHandler.BrokenRulesHandler(Me.BrokenRules)

ElseIf r = MicroFour.StrataFrame.Data.SaveUndoResult.FailedWithExceptions Then

Call Utility.SystemUtilities.ErrHandler.SaveFailedHandler(Me.TableName)

Else

Return r

End If

Catch ex As Exception

Call Utility.SystemUtilities.ErrHandler.SaveFailedHandler(ex)

End Try

End Function