' Microsoft SQL Server Integration Services Script Component
' Write scripts using Microsoft Visual Basic 2008.
' ScriptMain is the entry point class of the script.

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

<Microsoft.SqlServer.Dts.Pipeline.SSISScriptComponentEntryPointAttribute> _
<CLSCompliant(False)> _
Public Class ScriptMain
    Inherits UserComponent
    Dim intRowCount As Integer
    Dim intRowCountFromFile As Integer
    Dim blnFailPackage As Boolean
    Dim i As Integer

    Public Overrides Sub PreExecute()
        MyBase.PreExecute()
        intRowCount = 0
        intRowCountFromFile = 0
        blnFailPackage = False
        i = 0
    End Sub

    Public Overrides Sub PostExecute()
        MyBase.PostExecute()
        'Me.intRowCountFromFile = intRowCountFromFile - 1
        Try
            If Me.Variables.intTotalRows - 2 = intRowCountFromFile Then
                MsgBox("Row counts matched - " & intRowCountFromFile & " data rows.")
            Else
                MsgBox("Row counts NOT matched - " & intRowCountFromFile & " data rows from file vs: " & Me.Variables.intTotalRows - 1 & " data rows actually counted.")
                blnFailPackage = True
                Throw New Exception("Rows Do Not Match")
            End If
        Catch e As Exception
            Console.WriteLine("Message: " & e.Message)
            MsgBox("Message: " & e.Message)
            While Not e.InnerException Is Nothing
                e = e.InnerException
                MsgBox(e.InnerException)
                'Me.ComponentMetaData.FireError(-1, "", "InnerException: " + e.Message, "", True)
            End While

        Finally
            Console.WriteLine( _
               "Finally executed in Throw Exception With Catch")
            Dts.TaskResult = Dts.Results.Failure
        End Try

        Console.WriteLine("End")
    End Sub

    Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
        If Mid(Row.Col0, 1, 2) = "TR" Then
            intRowCountFromFile = Int(Trim(Mid(Row.Col0, 4, 13)))
        End If
    End Sub
End Class