seleccionar multiples marcas

App_Code/ClsInventarios.vb

@@ -1472,7 +1472,7 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
-    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
+    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1491,7 +1491,7 @@ Public Class ClsInventarios
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
             .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
             .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
         End With
 
         Try

Inventarios/KardexAlmacenHorizontal.aspx

@@ -117,16 +117,6 @@
                             <div class="col-md-2">
                                 <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%; "></ADS:Dropdownlost>
                             </div>
-                            <div class="col-md-2">
-                                <div class="row">
-                                    <label class="col-md-2 truncate">Marca:</label>
-                                    <div class="col-md-10">
-                                        <asp:DropDownList ID="DdlMarca" runat="server" CssClass="select2me " Style="width: 100px !important;" DataTextField="Marca" DataValueField="CveMarca">
-                                            <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
-                            </div>
                             <label class="col-md-1 textfilter">Fecha Fin:</label>
                             <div class="col-md-1" style="min-width: 110px;">
                                 <div style="display: inline-block; vertical-align: text-bottom;">
@@ -140,9 +130,9 @@
                                     <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                 </div>
                             </div>
-                            <label class="col-md-1 truncate textfilter2">Producto:</label>
-                            <div class="col-md-1">
-                                <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
+                            <label class="col-md-1 truncate">Producto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
                                     <asp:ListItem Text="Con existencia" Value="2" />
                                     <asp:ListItem Text="Sin existencia" Value="3" />
                                 </asp:DropDownList>
@@ -194,6 +184,16 @@
                                 <asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-3">
+                            <div class="row">
+                                <label class="col-md-3 truncate">Marca:</label>
+                                <div class="col-md-9">
+                                    <asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%; height:50px !important;">
+                                        <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
+                                    </asp:ListBox>
+                                </div>
+                            </div>
+                        </div>
                     </asp:Panel>
                 </div>
             </div>
@@ -223,6 +223,7 @@
                                     <HeaderTemplate>
                                         Código
                                    
+                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <div class='truncate' style='width: 200px;'>
@@ -234,6 +235,7 @@
                                     <HeaderTemplate>
                                         Producto
                                    
+                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <div class='truncate' style='width: 200px;'>

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -22,9 +22,6 @@ Partial Class Inventarios_KardexAlmacen
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
         End If
     End Sub
-    Private Function isWithFamily() As Boolean
-        Return (UsuarioActual.CveEmpresa = 66)
-    End Function
     Private Sub CargaCombos()
 
         CargaFuncionalidad105()
@@ -57,9 +54,6 @@ Partial Class Inventarios_KardexAlmacen
     Private Sub CargaClasificaciones()
         Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1")
 
-        If isWithFamily() Then
-            DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
-        Else
         Dim ObjClasificaciones As New ClsClasificaciones
         If UsuarioActual.Empresa.UsaAC Then
             If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
@@ -73,7 +67,6 @@ Partial Class Inventarios_KardexAlmacen
             End If
         End If
         ObjClasificaciones.Dispose()
-        End If
 
         DdlClasificacion.DataBind()
         DdlClasificacion.SelectedValueExist(CveClasificacion)
@@ -139,8 +132,9 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaF As Date = TxtFechaF.Text.ToDate
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
+        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)