diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index dbafeca6b..51d1e7939 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -62,7 +62,7 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
         If DtAvance IsNot Nothing Then
 
-            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", " SubTipoActivoFijo DESC ", {"Codigo", "CveActivoFijo"})
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", Orderby:=" SubTipoActivoFijo DESC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
 
             'For Each Row As DataRow In DtAvance.Rows
             '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then