diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index f472bb0b3..b792e8c86 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -304,7 +304,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean, + Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer, Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -315,7 +315,7 @@ Public Class ClsInventarios .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen - .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable + .Add("@Inventariable", SqlDbType.Int).Value = Inventariable .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index 3edf19640..f347f623e 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -143,8 +143,13 @@
+
Aplica Almacen
- + + + + +
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index e5c1795b3..9e335f2a6 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -60,7 +60,7 @@ Partial Class Inventarios_RepAlmacen Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero() - If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, + If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero, Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GVAlmacen.DataSource = objInv.DtResultados TmpDT = objInv.DtResultados