From 87f7ff34ef4519574803297a790e0ce48d8513dc Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 13 Apr 2024 12:00:47 -0700 Subject: [PATCH] --codigo de af, acomodo de diagrama de grantt --- Transportes/RepContratosCalendario.aspx | 13 ++----------- Transportes/RepContratosCalendario.aspx.vb | 12 ++++++------ 2 files changed, 8 insertions(+), 17 deletions(-) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 61673bc96..b8ab0b757 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -280,17 +280,8 @@
-
-
-
-
-

 

-
-
-
-
-
-
+
+
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index b1986a163..91813e109 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -63,8 +63,8 @@ Partial Class RepContratosCalendario If DtAvance IsNot Nothing Then For Each Row As DataRow In DtAvance.Rows - If String.IsNullOrEmpty(Row("NoSerie").ToString()) Then - Row("NoSerie") = "Unidad no asignada" + If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then + Row("CodigoAF") = "Unidad no asignada" End If Next @@ -74,9 +74,9 @@ Partial Class RepContratosCalendario Dim random = New Random() 'DATOS - For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''").Rows + For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''").Rows Dim obj As New JObject( - New JProperty("category", Row("NoSerie")), + New JProperty("category", Row("CodigoAF")), New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()), New JProperty("toDate", Row("FechaFinal").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()), New JProperty("columnSettings", New JObject( @@ -88,9 +88,9 @@ Partial Class RepContratosCalendario Next 'CATEGORIAS - For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''", "", {"NoSerie"}).Rows + For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows Dim obj As New JObject( - New JProperty("category", Row("NoSerie")) + New JProperty("category", Row("CodigoAF")) ) jsonCategorias.Add(obj) Next