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 DBMotoPublic.IRecord, ByRef AbortRecord As System.Boolean, ByRef DisableReplication As System.Boolean)
            Dim objName as object
            If (recSource.OperationType = EnmOperationType.Update) Then
                objName = recSource.GetValueBefore("ID")
                recSource.SetValueAfter("ID", Nothing)
            End If
        End Sub

    End Class
End Namespace