Calendario de Viajes cronograma cambio a Amchart4

Transportes/RepContratosCalendario.aspx.vb

@@ -73,7 +73,8 @@ Partial Class RepContratosCalendario
                                                 CveChofer:=DdlChoferFiltro.SelectedValue.ToEntero) Then
             DtAvance = ObjContratos.DtResultados.Copy()
             CargaCronograma(DdlTipoVistaCalendario.SelectedValue.ToEntero)
-            CargaDiagramadeGant(DdlTipoVista.SelectedValue.ToEntero)
+            'CargaDiagramadeGant(DdlTipoVista.SelectedValue.ToEntero)
+            'CargaScheduler(DdlTipoVista.SelectedValue.ToEntero)
         End If
         GvContratos.DataSource = DtAvance
         DdlEstatusContrato.Enabled = UsuarioActual.TienePermisoProceso(173)
@@ -89,9 +90,112 @@ Partial Class RepContratosCalendario
     Public Shared Function GetLastDayOfMonth(ByVal dateTime As DateTime) As DateTime
         Return New DateTime(dateTime.Year, dateTime.Month, DateTime.DaysInMonth(dateTime.Year, dateTime.Month))
     End Function
+
+    Private Sub CargaScheduler(Optional TipoVista As Integer = -1)
+        '  var data = [
+        '{
+        'Id: 1,
+        'Subject: 'Board Meeting',
+        'Description: 'Meeting to discuss business goal of 2021.',
+        'StartTime: New Date(2021, 7, 1, 9, 0),
+        'EndTime: New Date(2021, 7, 2, 11, 0),
+        'RoomId: 1
+        '}]
+
+
+        '[ { text 'Room A', id: 1, color: '#98AFC7' },]
+
+        Dim StrFiltro As String = ""
+        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 jsonData As New JArray()
+        Dim jsonCategorias As New JArray()
+
+        Dim strAF As New StringBuilder
+        Dim strData As New StringBuilder
+        Dim strAFData As New StringBuilder
+
+        strData.AppendLine("[")
+        For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> '' AND TipoEstatus <> 3").Rows
+
+            Dim FI As Date = Row("FechaInicial").ToString.ToDate
+            Dim FF As Date = Row("FechaFinal").ToString.ToDate
+
+            Dim obj As New JObject(
+                   New JProperty("Id", Row("CveContrato").ToString),
+                   New JProperty("Subject", $"{Row("CodigoAF").ToString}"),
+                   New JProperty("Description", $"{Row("NombreAF")}"),
+                   New JProperty("StartTime", $"new Date({FI.Year},{FI.Month - 1},{FI.Day},{FI.Hour},{FI.Minute})"),
+                   New JProperty("EndTime", $"new Date({FF.Year},{FF.Month - 1},{FF.Day},{FF.Hour},{FF.Minute})"),
+                   New JProperty("IsBlock", "true"),
+                   New JProperty("RoomId", Row("CveAF").ToString)
+               )
+            jsonData.Add(obj)
+
+
+            strData.AppendLine("{")
+            strData.AppendLine($"Id: {Row("CveContrato").ToString},")
+            strData.AppendLine($"Subject: {$"'{Row("NumeroContrato").ToString}"}',")
+            strData.AppendLine($"StartTime: new Date({FI.Year},{FI.Month - 1},{FI.Day},{FI.Hour},{FI.Minute}),")
+            strData.AppendLine($"EndTime: new Date({FF.Year},{FF.Month - 1},{FF.Day},{FI.Hour},{FF.Minute}),")
+            strData.AppendLine($"RoomId: {Row("CveAF").ToString}")
+            strData.AppendLine("},")
+
+
+            strAF.AppendFormat("{0},", Row("CveAF"))
+
+        Next
+        strData.AppendLine("{}]")
+
+        If TipoVista = 1 Then 'solo con viajes
+            DtUnidades = DtUnidades.FiltraParametros($"CveActivoFijo IN ({strAF.ToString})")
+        End If
+
+
+        Dim random = New Random()
+        strAFData.AppendLine("[")
+        For Each Row As DataRow In DtUnidades.Rows
+            Dim obj As New JObject(
+                    New JProperty("text", Row("Codigo").ToString),
+                    New JProperty("id", Row("CveActivoFijo").ToString),
+                    New JProperty("color", String.Format("#{0:X6}", random.Next(16777216)))
+            )
+            jsonCategorias.Add(obj)
+
+            strAFData.AppendLine("{")
+            strAFData.AppendLine($"text: '{Row("Codigo").ToString}',")
+            strAFData.AppendLine($"id: {Row("CveActivoFijo").ToString},")
+            strAFData.AppendLine($"color: '{String.Format("#{0:X6}", random.Next(16777216))}'")
+            strAFData.AppendLine("},")
+
+        Next
+        strAFData.AppendLine("{}]")
+
+        'RegistraScript($"cargaScheduler({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", "A1")
+        'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$"new Date({txtFechaI.ToDate.ToString("yyyy, MM, dd, hh, MM")})"}, {$"new Date({txtFechaF.ToDate.ToString("yyyy, MM, dd, hh, MM")})"});", "A1")
+
+        Dim FechaInicio As Date = txtFechaI.Text.ToDate
+        Dim FechaFin As Date = txtFechaF.Text.ToDate
+
+        'strData.Append($",new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})")
+        'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})")
+
+        'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1")
+        RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
+
+        UPScheduler.Update()
+
+    End Sub
     Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
         If DtAvance IsNot Nothing Then
 
+
+            Dim strData As New StringBuilder
+            Dim strAFData As New StringBuilder
+
+
+
             'Dim separator As String = ""
             'Dim str As New StringBuilder()
             'str.AppendLine("datosGant=[")
@@ -112,6 +216,7 @@ Partial Class RepContratosCalendario
             Dim strAF As New StringBuilder
             'se quitan los estatus cancelados
             Dim randomNumber As New Random
+            strData.AppendLine("[")
             For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> '' AND TipoEstatus <> 3").Rows
 
                 Dim obj As New JObject(
@@ -127,6 +232,23 @@ Partial Class RepContratosCalendario
                     New JProperty("fechaFinalViaje", Row("FechaFinal").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm:ss"))
                 )
                 jsonData.Add(obj)
+
+                Dim FI As Date = Row("FechaInicial").ToString.ToDate
+                Dim FF As Date = Row("FechaFinal").ToString.ToDate
+
+                strData.AppendLine("{")
+                strData.AppendLine($"category: '{Row("CodigoAF").ToString}',")
+                strData.AppendLine($"fromDate: '{FI.ToString("yyyy-MM-dd HH:mm:ss")}',")
+                strData.AppendLine($"toDate: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}',")
+                'strData.AppendLine($"columnSettings: {{fill: '{String.Format("#{0:X6}", random.Next(16777216))}'}},")
+                strData.AppendLine($"unidad: '{Row("NombreAF").ToString}',")
+                strData.AppendLine($"color:  am4core.color('" & String.Format("#{0:X6}", random.Next(16777216)) & "'),")
+                strData.AppendLine($"cveContrato: {Row("CveContrato").ToString.ToEntero},")
+                strData.AppendLine($"contrato: '{Row("NumeroContrato").ToString}',")
+                strData.AppendLine($"fechaFinalViaje: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}'")
+                strData.AppendLine("},")
+
+
                 strAF.AppendFormat("{0},", Row("CveAF"))
 
                 'uniad contrato y duracion 
@@ -139,29 +261,29 @@ Partial Class RepContratosCalendario
                 'separator = ","
 
             Next
+            strData.AppendLine("{}]")
 
             If TipoVista = 1 Then 'solo con viajes
                 DtUnidades = DtUnidades.FiltraParametros($"CveActivoFijo IN ({strAF.ToString})")
             End If
 
             'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES
+            strAFData.AppendLine("[")
             For Each Row As DataRow In DtUnidades.Rows
                 Dim obj As New JObject(
                     New JProperty("category", Row("Codigo"))
                 )
                 jsonCategorias.Add(obj)
+
+                strAFData.AppendLine("{")
+                strAFData.AppendLine($"category: '{Row("Codigo").ToString}',")
+                strAFData.AppendLine("},")
+
             Next
-            Dim FechaI = txtFechaI.Text.ToDateTime()
+            strAFData.AppendLine("{}]")
-            Dim FechaF = txtFechaF.Text.ToDateTime()
 
-            'Dim ScriptZoomx = $"zoomAxis({FechaI.Year},{FechaI.Month - 1},{FechaI.Day},{FechaF.Year},{FechaF.Month - 1},{FechaF.Day});"
+            'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", $"{random.Next(16777216)}")
-            'Dim ScriptZoomy = $"zoomAxisy(0,{If(jsonCategorias.Count > 9, 9, jsonCategorias.Count - 1)});"
+            RegistraScript($"cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista});", $"{random.Next(16777216)}")
-            'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});{ScriptZoomx};{ScriptZoomy};", "A1")
-            'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", "A1")
-
-
-            'str.AppendLine("];loadGant();")
-            'RegistraScript(str.ToString())
 
             UPPGantt.Update()
             UPGat.Update()
@@ -722,8 +844,9 @@ Partial Class RepContratosCalendario
     End Sub
     Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
         InicializaCalendar()
-        CargaCronograma()
+        'CargaCronograma()
-        CargaDiagramadeGant()
+        'CargaDiagramadeGant()
+        CargaScheduler(DdlTipoVista.SelectedValue.ToEntero)
     End Sub
 
     Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -747,4 +870,6 @@ Partial Class RepContratosCalendario
     Protected Sub DdlTipoVistaCalendario_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaCronograma(DdlTipoVistaCalendario.SelectedValue.ToEntero)
     End Sub
+
+
 End Class