From 373b6481d766481c1eb4316fd009e20e75bbdb2d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 4 Feb 2025 13:06:19 -0700 Subject: [PATCH] - solo mostrar unidades activas --- Transportes/RepContratosCalendario.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 3fa4603f2..ba4c43fb8 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/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()