seleccionar multiples marcas

2020-03-10 19:50:00 -07:00
parent 16dc8cc966
commit 6444292d6c
3 changed files with 271 additions and 275 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/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
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/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>
@@ -186,14 +176,24 @@
                    </div>
                    <asp:Panel ID="pnlOrden" runat="server" CssClass="row">
                        <label class="col-md-1 truncate">Orden:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
-                                    <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
-                                    <asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
-                                    <asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
-                                    <asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
-                                </asp:DropDownList>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
+                                <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
+                                <asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
+                                <asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
+                                <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;'>
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/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,23 +54,19 @@ 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")
+        Dim ObjClasificaciones As New ClsClasificaciones
+        If UsuarioActual.Empresa.UsaAC Then
+            If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+                DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+                DdlClasificacion.DataBind()
+            End If
        Else
-            Dim ObjClasificaciones As New ClsClasificaciones
-            If UsuarioActual.Empresa.UsaAC Then
-                If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
-                    DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
-                    DdlClasificacion.DataBind()
-                End If
-            Else
-                If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
-                    DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
-                    DdlClasificacion.DataBind()
-                End If
+            If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+                DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+                DdlClasificacion.DataBind()
            End If
-            ObjClasificaciones.Dispose()
        End If
+        ObjClasificaciones.Dispose()

        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)