Public Sub Import_BeforeImportRecord(ByVal sImportName As String, ByVal lImportType As bbVBAImportTypes, ByVal oDataObject As Object, bCancel As Boolean, sExceptionMessage As String)

'sImportName : name of the import being run
'lImportType : type of import being run
'oDataObject : data object receiving the imported information
'bCancel : set to true to cancel the import of this record
'sExceptionMessage : set this parameter to describe the reason this record did not import

If TypeOf oDataObject Is CGift Then
    Dim oGift As CGift
    Set oGift = oDataObject
   
        oGift.Fields(GIFT_fld_Batch_Number) = 123456
    
    oGift.Save
    Set oGift = Nothing
End If

End Sub