diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index ed78666f4..42e76b85e 100644 --- a/Ashx/CargaEventos.ashx +++ b/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 diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 04147c7a9..bd09289db 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -94,10 +94,10 @@ <%-- Cliente --%>