Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -24,7 +24,15 @@ Partial Class Inventarios_KardexAlmacen
     Private Sub CargaCombos()
 
         CargaFuncionalidad105()
-        CargaPS()
+        CargaPS()
+
+        Using ObjPS As New ClsProductosServicios
+            If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+                DdlMarca.DataSource = ObjPS.DtResultados.Copy()
+            End If
+        End Using
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
 
         ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         ddlAlmacen.DataBind()
@@ -128,7 +136,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
 
-        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()) 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(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)