19 lines
744 B
VB.net
19 lines
744 B
VB.net
Imports System
|
|
Imports System.Data.SqlClient
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Persistent.AuditTrail
|
|
Public Class TimeStamp
|
|
Implements IAuditTimestampStrategy
|
|
Private cachedTimestamp As DateTime
|
|
Public Function GetTimestamp(ByVal auditDataItem As AuditDataItem) As DateTime _
|
|
Implements IAuditTimestampStrategy.GetTimestamp
|
|
Return cachedTimestamp
|
|
End Function
|
|
Public Sub OnBeginSaveTransaction(ByVal session As Session) _
|
|
Implements IAuditTimestampStrategy.OnBeginSaveTransaction
|
|
Dim command As SqlCommand = New SqlCommand("select getdate()", _
|
|
CType(session.Connection, SqlConnection))
|
|
cachedTimestamp = CDate(command.ExecuteScalar())
|
|
End Sub
|
|
End Class
|