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