--V&A Cambios en cronograma

Transportes/RepContratosCalendario.aspx.vb

@@ -62,11 +62,13 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            For Each Row As DataRow In DtAvance.Rows
-                If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
-                    Row("CodigoAF") = "Unidad no asignada"
-                End If
-            Next
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"})
+
+            'For Each Row As DataRow In DtAvance.Rows
+            '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
+            '        Row("CodigoAF") = "Unidad no asignada"
+            '    End If
+            'Next
 
             Dim jsonData As New JArray()
             Dim jsonCategorias As New JArray()
@@ -87,10 +89,10 @@ Partial Class RepContratosCalendario
                 jsonData.Add(obj)
             Next
 
-            'CATEGORIAS
-            For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows
+            'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES
+            For Each Row As DataRow In DtUnidades.Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("CodigoAF"))
+                    New JProperty("category", Row("Codigo"))
                 )
                 jsonCategorias.Add(obj)
             Next