--Actualizar eventos desde diagrama de grantt

Ashx/CargaEventos.ashx

@@ -1,4 +1,4 @@
-<%@ WebHandler Language="VB" Class="CargaEventos" %>
+<%@ WebHandler Language="VB" Class="CargaEventos" %>
 Option Explicit Off
 Option Strict On
 
@@ -488,7 +488,13 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         DT_SubProyectos.Columns.Add("backgroundColor")
         DT_EstatusOS.Columns.Add("", GetType(Integer))
 
-        If ObjContratos.GetContratos(-1, usuarioActual_.CveEmpresa, TipoContrato:=34) Then
+        Dim cveContrato As Integer = -1
+
+        If context.Request("cveContrato") IsNot Nothing Then
+            cveContrato = context.Request("cveContrato").ToEntero()
+        End If
+
+        If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34) Then
 
             If ObjContratos.DtResultados.Rows.Count > 0 Then