Reconfigure for GIT

SISBusiness.Module/BusinessObjects/GeneralObjects/TimeStamp.vb

@@ -0,0 +1,18 @@
+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