Skip Row - Script Transformation Editor

Howdy!

I am reading in a deliminated file. In the Script Transformation Editor, if the UPC does not past the checksum test, I want to throw the row out right then. I am not sure how to do that...but it is probably really simple.]
Thanks,
Linda



Here is my script:



' Microsoft SQL Server Integration Services user script component

' This is your new script component in Microsoft Visual Basic .NET

' ScriptMain is the entrypoint class for script components

'Option Strict Off

Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper

Imports Microsoft.SqlServer.Dts.Runtime.Wrapper



Public Class ScriptMain

Inherits UserComponent

Private Function DoubleTest(ByVal Value As String) As Boolean

Dim d As Double

If Not Double.TryParse(Value, d) Then

'Windows.Forms.MessageBox.Show(Value + " is not numeric")

Return False

End If

If Double.IsNaN(d) Then

'Windows.Forms.MessageBox.Show(Value + " is NaN")

Return False

End If

'Windows.Forms.MessageBox.Show(Value + " = " + d.ToString())

Return True

End Function

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)

Dim d As Double

Dim CheckDigit As Integer = 0

Dim CheckOdd As Integer

Dim CheckEven As Integer

' Copy each source column to the destination column

Row.WholesalerCode = Trim(Row.WholesalerCode)

If Row.UPCNumber.Length = 12 Then

' 12 Digit Checksum

CheckOdd = Convert.ToInt16(Row.UPCNumber.Substring(0, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(2, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(4, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(6, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(8, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(10, 1), 10) * 3

CheckEven = Convert.ToInt16(Row.UPCNumber.Substring(1, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(3, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(5, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(7, 1), 10) + Convert.ToInt16(Row.UPCNumber.Substring(9, 1), 10)

If ((CheckOdd + CheckEven) + 1.0) / 10.0 = Round(((CheckOdd + CheckEven) + 1.0) / 10.0, 0) Then CheckDigit = 1

If ((CheckOdd + CheckEven) + 2.0) / 10.0 = Round(((CheckOdd + CheckEven) + 2.0) / 10.0, 0) Then CheckDigit = 2

If ((CheckOdd + CheckEven) + 3.0) / 10.0 = Round(((CheckOdd + CheckEven) + 3.0) / 10.0, 0) Then CheckDigit = 3

If ((CheckOdd + CheckEven) + 4.0) / 10.0 = Round(((CheckOdd + CheckEven) + 4.0) / 10.0, 0) Then CheckDigit = 4

If ((CheckOdd + CheckEven) + 5.0) / 10.0 = Round(((CheckOdd + CheckEven) + 5.0) / 10.0, 0) Then CheckDigit = 5

If ((CheckOdd + CheckEven) + 6.0) / 10.0 = Round(((CheckOdd + CheckEven) + 6.0) / 10.0, 0) Then CheckDigit = 6

If ((CheckOdd + CheckEven) + 7.0) / 10.0 = Round(((CheckOdd + CheckEven) + 7.0) / 10.0, 0) Then CheckDigit = 7

If ((CheckOdd + CheckEven) + 8.0) / 10.0 = Round(((CheckOdd + CheckEven) + 8.0) / 10.0, 0) Then CheckDigit = 8

If ((CheckOdd + CheckEven) + 9.0) / 10.0 = Round(((CheckOdd + CheckEven) + 9.0) / 10.0, 0) Then CheckDigit = 9

If CheckDigit = Convert.ToInt16(Row.UPCNumber.Substring(11, 1), 10) Then

Row.UPCNumber = String.Concat("00", Row.UPCNumber)

Else

'Throw out row because checksum did not match. <=== what do i do here???????????????

End If



ElseIf Row.UPCNumber.Length = 14 Then

' 14 Digit Checksum

Else

' Throw out row because checksum did not match. <=== what do i do here???????????????

End If

If Not DoubleTest(Row.RetailPrice) Then

Row.RetailPrice_IsNull = True

'Row.RetailPrice = String.Empty

End If

End Sub

End Class