Imports System Imports System.Data Imports Microsoft.VisualBasic Imports DBMotoPublic Imports DBMotoScript Imports DBRS.GlobalScript Namespace DBRS Public Class ReplicationScript : Inherits IReplicationScript Public Overrides Sub Record_onBeforeMapping(recSource As IRecord, ByRef AbortRecord As Boolean) Dim date1 as DateTime = new DateTime (2012,12,26) Dim date2 as DateTime = new DateTime (2013,1,1) If recSource.OperationType = enmOperationType.Insert Or recSource.OperationType = enmOperationType.Update Then If (recSource.GetValueAfter("upd_date_time") Is Nothing OR IsDBNull(recSource.GetValueAfter("upd_date_time"))) Return End if If DateTime.Compare (recSource.GetValueAfter("upd_date_time"), date1) < 0 OR DateTime.Compare (recSource.GetValueAfter("upd_date_time"), date2) > 0 Then AbortRecord=True End If End If If recSource.OperationType = enmOperationType.Delete Then If (recSource.GetValueBefore("upd_date_time") Is Nothing OR IsDBNull(recSource.GetValueBefore("upd_date_time"))) Return End if If DateTime.Compare (recSource.GetValueBefore("upd_date_time"), date1) < 0 OR DateTime.Compare (recSource.GetValueBefore("upd_date_time"), date2) > 0 Then AbortRecord=True End If End If End Sub End Class End Namespace