ivanszabo/SISBusiness
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reconfigure for GIT

Browse Source
This commit is contained in:
ivanszabo
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SISBusiness.RabbitMQ.Module/AuditTrailHandler.vb
+19
View File
@@ -0,0 +1,19 @@
Imports DevExpress.Xpo
Imports DevExpress.Persistent.AuditTrail
Imports DevExpress.Persistent.BaseImpl
Public Module AuditTrailHandler
Public Sub InitAuditTrail(_uow As UnitOfWork)
AuditTrailService.Instance.SetXPDictionary(_uow.Dictionary)
AuditTrailService.Instance.AuditDataStore = New AuditDataStore(Of AuditDataItemPersistent, AuditedObjectWeakReference)()
AuditTrailService.Instance.BeginSessionAudit(_uow, AuditTrailStrategy.OnObjectChanged, ObjectAuditingMode.Full)
AddHandler AuditTrailService.Instance.QueryCurrentUserName, AddressOf AuditTrailService_Instance_QueryCurrentUserName
End Sub
Public Sub SaveAuditTrail(_uow As UnitOfWork)
AuditTrailService.Instance.SaveAuditData(_uow)
End Sub
Private Sub AuditTrailService_Instance_QueryCurrentUserName(sender As Object, e As QueryCurrentUserNameEventArgs)
e.CurrentUserName = "SysAdmin"
End Sub
End Module