GDiaz- 2024.04.18 Kardex Filtro Marca, proveedor

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