Visual Basic - Generacion de archivos planos con resultado de un Stored Procedure en VB.net

Imports System.Data.SqlClient

Imports System.IO

Module Module1

    Public CadCon As String = "data source=172.23.1.117; Database=SIAT; User ID=usertaf;Password=marCtafUser5;integrated security = false"

    Public Proveedor As String '= "SELECT IdProv FROM sia.TMN_RepSemProvInven where Activo = 1"

    Public SPInv As String = "SPMN_GeneraRepInvSem"

    Public SPConsProv As String = "SPMN_GeneRepInvSem"

    Public FecCorte As String = "2018-08-20"

    Public TVtas As DataTable '= ConInvXProv()

    'Public TInv As DataTable = InvXProv(CadCon, FecCorte, Proveedor, datos)

    Public TProv As DataTable

    Public datos As DataSet

    Sub Main()

        'CreaTXT()

        ConInvXProv()

    End Sub

    Sub CreaTXT()

        'Dim path As String = "C:\Compartir\"

        Dim path As String = "C:\Compartir\" & Proveedor & " Inventario.txt", Tvtas ', "|"', True, False

        Dim TInv As DataTable '= ConInvXProv() '= InvXProv(CadCon, Proveedor, FecCorte) ', datos)

        Dim ResFIn As Boolean = True

        If File.Exists(path) = False Then

            ' Create a file to write to.

            For Each row As DataRow In TInv.Rows

                Using sw As StreamWriter = File.CreateText(path)

                    sw.WriteLine(Proveedor)

                    sw.Flush()

                End Using

            Next

        End If

        '' Open the file to read from.

        Using sr As StreamReader = File.OpenText(path)

            Do While sr.Peek() >= 0

                Console.WriteLine(sr.ReadLine())

            Loop

        End Using

        For Each row As DataRow In TProv.Rows

            Proveedor = CStr(row("proveedor"))

            'Ls_IdsProveedor = CStr(row("supplier_ids"))

            TInv = TotalInvPorProveedor().Tables(0) ' yyyy-mm-dd

            'tabla_inventario = BlProveedores.ObtenerInventario_PorProveedor(Gs_StrConexion, Ls_IdsProveedor).Tables(0)

            Dim bln_ventas As Boolean = CreateTextDelimiterFile("C:\Compartir\" & Proveedor & " Inventario.txt", TInv, "|", True, False)

            If bln_ventas = False Then

                ResFIn = False

                Exit For

            End If

        Next

    End Sub

    Sub NomProv()

        '("C:\Compartir\" & Proveedor & " Inventario.txt", Tvtas, "|", True, False)

        Dim Cadcon As New SqlConnection("data source=172.23.1.117; Database=SIAT; User ID=usertaf;Password=marCtafUser5;integrated security = false")

        Dim cmd As New SqlCommand

        Dim dr As SqlDataReader

        Try

            Cadcon.Open()

            cmd.CommandText = "SELECT IdProv FROM sia.TMN_RepSemProvInven where Activo = 1"

            cmd.CommandType = CommandType.Text

            cmd.ExecuteScalar()

            cmd.Connection = Cadcon

            dr = cmd.ExecuteReader

            Cadcon.Close()

        Catch ex As Exception

            MsgBox("Error en la conexion" & ex.Message)

        Finally

            Cadcon.Close()

        End Try

    End Sub

    Sub ConInvXProv()

        Dim Cadcon As New SqlConnection

        Dim cmd As New SqlCommand

        Dim dr As SqlDataReader

        Try

            Cadcon.Open()

            cmd.CommandText = "SELECT * FROM dbo.f_VentasPorProveedor(@FechaInicial, @FechaFinal, @Proveedor)"

            cmd.CommandType = CommandType.Text

            cmd.ExecuteScalar()

            cmd.Connection = Cadcon

            dr = cmd.ExecuteReader

            Cadcon.Close()

        Catch ex As Exception

            MsgBox("Error en la conexion" & ex.Message)

        Finally

            Cadcon.Close()

        End Try

    End Sub

    'Function NomArch(ByVal Proveedor As String, ByVal TVtas As DataTable) As DataSet

    '    'Dim dsDatos As DataSet

    'End Function

    'Public Sub InvXProv(ByVal CadCon As String, ByVal FecCorte As String, ByVal Proveedor As String) ', ByVal datos As DataSet)

    Public Sub InvXProv(CadCon, FecCorte, Proveedor) ', ByVal datos As DataSet)

        Dim Str(0) As String

        Str(0) = "@InvProv"

        Dim Parametros(1) As SqlClient.SqlParameter

        Parametros(0) = New SqlClient.SqlParameter("@FecCorte", FecCorte)

        Parametros(1) = New SqlClient.SqlParameter("@Proveedor", Proveedor)

        Dim Program As Object = Nothing

        Program.FillDataset(CadCon, CommandType.StoredProcedure, SPInv, Proveedor, Str, Parametros)

    End Sub

    Sub TotalInvPorProveedor()

        Dim CadCon, FecIni, FecFin, Proveedor As String

        Dim datos As DataSet

        Dim Str(0) As String

        Str(0) = "SELECT * FROM dbo.f_VentasPorProveedor(@FechaInicial, @FechaFinal, @Proveedor)"

        Dim Parametros(3) As SqlClient.SqlParameter

        Parametros(0) = New SqlClient.SqlParameter("@FechaInicial", FecIni)

        Parametros(1) = New SqlClient.SqlParameter("@FechaFinal", FecFin)

        Parametros(1) = New SqlClient.SqlParameter("@Proveedor", Proveedor)

        Dim Program As Object = Nothing

        Program.FillDataset(CadCon, CommandType.StoredProcedure, SPConsProv, Proveedor, Str, Parametros)

    End Sub

End Module