-- mejora

Ashx/CargaEventos.ashx

@@ -494,6 +494,10 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         Dim CveContratoEstatus As Integer = If(context.Request("CveContratoEstatus") IsNot Nothing, context.Request("CveContratoEstatus").ToEntero, -1)
         Dim CveTipoActivoFijo As Integer = If(context.Request("CveTipoActivoFijo") IsNot Nothing, context.Request("CveTipoActivoFijo").ToEntero, -1)
         Dim CvePersonal As Integer = If(context.Request("CvePersonal") IsNot Nothing, context.Request("CvePersonal").ToEntero, -1)
+        Dim FI As DateTime, FF As DateTime, FT As DateTime
+        FI = context.Request("start").ToDate
+        FF = context.Request("end").ToDate
+
 
         If Not cveContrato > 0 Then
             cveContrato = -1
@@ -503,7 +507,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
             CveCliente = -1
         End If
 
-        If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34, CveCliente:=CveCliente, CveEstatus:=CveContratoEstatus) Then
+        If ObjContratos.GetContratosReporte(usuarioActual_.CveEmpresa, FI.ToString.ToDate, FF.ToString.ToDate, CveCliente:=CveCliente, CveTipoAF:=CveTipoActivoFijo,
+                    CveTipoContrato:=34, CveEstatus:=CveContratoEstatus) Then
 
             'CveTipoAF
             'CveChofer, CveChofer2
@@ -589,7 +594,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                             'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
 
                             Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero
-                            Dim FI As DateTime, FF As DateTime, FT As DateTime
+
                             Dim DiasSemana As String() = cevent.diassemana.Split(","c)
                             FI = cevent.start.ToDateTime
                             FF = cevent.end.ToDateTime