-

Transportes/RepContratosCalendario.aspx.vb

@@ -48,21 +48,21 @@ Partial Class RepContratosCalendario
         If CveCliente = 0 Then CveCliente = -1
 
         If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
-            DtAvance = ObjContratos.DtResultados.Copy()
+            DtAvance = ObjContratos.DtResultados.Copy()
+            CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
         End If
         GvContratos.DataSource = DtAvance
 
         ObjContratos.Dispose()
         GvContratos.DataBind()
         UpTitulos.Update()
-
-        CargaCronograma()
+
     End Sub
 
-    Private Sub CargaCronograma()
+    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"})
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", " SubTipoActivoFijo DESC ", {"Codigo", "CveActivoFijo"})
 
             'For Each Row As DataRow In DtAvance.Rows
             '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
@@ -76,6 +76,7 @@ Partial Class RepContratosCalendario
             Dim random = New Random()
 
             'DATOS
+            Dim strAF As New StringBuilder
             For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''").Rows
                 Dim obj As New JObject(
                     New JProperty("category", Row("CodigoAF")),
@@ -87,8 +88,13 @@ Partial Class RepContratosCalendario
                     New JProperty("task", Row("NombreAF"))
                 )
                 jsonData.Add(obj)
+                strAF.AppendFormat("{0},", Row("CveAF"))
             Next
 
+            If TipoVista = 1 Then 'solo con viajes
+                DtUnidades = DtUnidades.FiltraParametros($"CveActivoFijo IN ({strAF.ToString})")
+            End If
+
             'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES
             For Each Row As DataRow In DtUnidades.Rows
                 Dim obj As New JObject(
@@ -98,6 +104,7 @@ Partial Class RepContratosCalendario
             Next
 
             RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()});", "A1")
+            UPPGantt.Update()
         End If
     End Sub
     Private Sub InicializaCalendar()
@@ -253,4 +260,8 @@ Partial Class RepContratosCalendario
         InicializaCalendar()
         CargaCronograma()
     End Sub
+
+    Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
+    End Sub
 End Class