- solo mostrar unidades activas

Transportes/RepContratosCalendario.aspx.vb

@@ -192,9 +192,9 @@ Partial Class RepContratosCalendario
             Dim strData As New StringBuilder
             Dim strAFData As New StringBuilder
 
-            Dim StrFiltro As String = ""
+            Dim StrFiltro As String = "" 'solo unidades activas
             If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
-            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND CveEstadoActivoFijo = 1 AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
             Dim jsonData As New JArray()
             Dim jsonCategorias As New JArray()
             Dim random = New Random()