From f5ae88b1f861092b6e6d134a27d4b4f03783036e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 Feb 2021 13:07:44 -0700 Subject: [PATCH] filtrar indirectos con entradas de almacen --- App_Code/ClsInventarios.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4f6329ac5..0fd71e90d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4602,7 +4602,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean + Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha, Optional OpcionInventario As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_FletesGet") With SqlAdapter.SelectCommand.Parameters @@ -4614,6 +4614,7 @@ Public Class ClsInventarios .Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@OpcionInventario", SqlDbType.Int).Value = OpcionInventario End With Try SqlAdapter.Fill(Data)