AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--codigo de af, acomodo de diagrama de grantt

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-13 12:00:47 -07:00
parent 96f51f3d63
commit 87f7ff34ef
2 changed files with 8 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -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