GDiaz- 2024.04.18 Kardex Filtro Marca, proveedor

App_Code/ClsInventarios.vb

@@ -1588,7 +1588,7 @@ Public Class ClsInventarios
     End Function
 
     Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-                              Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
+                              Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1", Optional CveMarca As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexGet")
@@ -1607,6 +1607,8 @@ Public Class ClsInventarios
             .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen
             .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
 
         End With
 
@@ -1626,7 +1628,8 @@ Public Class ClsInventarios
     End Function
 
     Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-                                          Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                          Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1", Optional CveMarca As Integer = -1,
+                                          Optional CveProveedor As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1647,6 +1650,8 @@ Public Class ClsInventarios
             .Add("@Siguiente", SqlDbType.Bit).Value = Siguiente
             .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
             .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
 
         End With
 

Inventarios/Kardex.aspx

@@ -194,7 +194,7 @@
                                 </div>
                                 
                             </div>
-                            <label class="col-md-1 " style="max-width: 70px;">Fecha Fin:</label>
+                            <label class="col-md-1 " style="max-width: 85px;">Fecha Fin:</label>
                             <div class="col-md-1" style="min-width: 115px;">
                                 <div style="display: inline-block; vertical-align: text-bottom;">
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 105px !important; padding: 0px;">
@@ -228,7 +228,7 @@
                         </asp:DropDownList>
                     </div>
 
-                    <label class="col-md-1 truncate">Unidad Medida:</label>
+                    <label class="col-md-1 truncate" style="max-width: 80px;">Unidad Medida:</label>
                     <div class="col-md-2">
                         <asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
                             <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
@@ -260,8 +260,19 @@
                 <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
                     <div class="col-md-1">Código Inicio:</div>
                     <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
-                    <div class="col-md-1">Código Fin:</div>
+                    <div class="col-md-1" style="max-width: 80px;">Código Fin:</div>
                     <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
+                    <div class="col-md-1" style="max-width: 85px;">Marca</div>
+                    <div class="col-md-1" style="min-width: 150px;">
+                        <asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" CssStyle="width: 100%;" Width="100%" runat="server" DataTextField="Marca" DataValueField="CveMarca" >
+                            <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+                    <div class="col-md-1" style="max-width: 85px;">Proveedor:</div>
+                    <div class="col-md-1" style="min-width: 150px;">
+                        <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                    </div>
+                    
                     <div class="col-md-1" runat="server" id="DVNavegar"  >
                         <div class="row">
                             <div class="col-md-5">

Inventarios/Kardex.aspx.vb

@@ -118,7 +118,27 @@ Partial Class Inventarios_Kardex
                 item.Selected = True
             End If
         Next
+
+
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            CargarMarcas()
+        End If
+
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
+
     End Sub
+
+    Protected Sub CargarMarcas()
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
+    End Sub
+
     Private Sub CargaFuncionalidad105()
         ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
@@ -333,7 +353,7 @@ Partial Class Inventarios_Kardex
 
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                    ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+                                    ChkAgruparAlmacen.Checked, Serie, CveAlmacenes, CveMarca:=DdlMarca.SelectedValue.ToEntero, CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
         ObjInventarios.Dispose()
@@ -608,7 +628,7 @@ Partial Class Inventarios_Kardex
 
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin, CveMarca:=DdlMarca.SelectedValue.ToEntero, CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
         ObjInventarios.Dispose()
@@ -618,6 +638,7 @@ Partial Class Inventarios_Kardex
             ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
             ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
             ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargaDatos()
             UPFiltros.Update()
             UPDatos.Update()
         End If