-option explicit

Ashx/CargaEventos.ashx

@@ -92,7 +92,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
     Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date, Optional CveOS As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional context As HttpContext = Nothing) As Boolean
         Dim ObjEventos As New ClsOIEventos
-        Dim ErrorEventos = False
+        Dim ErrorEventos As Boolean = False
         Dim CveEmpresaCRM As Integer = 0
 
         Dim DT_SubProyectos As New System.Data.DataTable
@@ -100,7 +100,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
         DT_SubProyectos.Columns.Add("backgroundColor")
 
-        Dim DT_EstatusOS = New DataTable
+        Dim DT_EstatusOS As New DataTable
         DT_EstatusOS.Columns.Add("", GetType(Integer))
 
 
@@ -126,8 +126,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
             If DtTempSubproyectos.Rows.Count > 0 Then
                 For Each drow As DataRow In DtTempSubproyectos.Rows
 
-
-                    Dim Subrow = DT_SubProyectos.NewRow
+                    Dim Subrow As DataRow = DT_SubProyectos.NewRow
                     Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero
                     Subrow("backgroundColor") = Colores(ColorIndex)
 
@@ -278,9 +277,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
                                 'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
 
-                                Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
+                                Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero
                                 Dim FI As DateTime, FF As DateTime, FT As DateTime
-                                Dim DiasSemana = cevent.diassemana.Split(","c)
+                                Dim DiasSemana As String() = cevent.diassemana.Split(","c)
                                 FI = cevent.start.ToDateTime
                                 FF = cevent.end.ToDateTime
 
@@ -311,7 +310,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                 Do
                                     If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
                                         For Each drDias As String In DiasSemana
-                                            Dim FIT = FI, FFT = FF
+                                            Dim FIT As Date = FI, FFT As Date = FF
 
                                             FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
                                             FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
@@ -376,9 +375,6 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                         cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
                                         cevent.Prospecto = dr("Prospecto").ToString
 
-
-
-
                                         '11/05/2018 - Evento Gasto Recurrente
                                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
                                         If cevent.CveTipoEvento = 10 Then
@@ -415,11 +411,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
                                 Loop Until FI > FT
                             End If
-
-
                         End If
-
-
                     Next
                 Catch ex As Exception
                     GuardaLog(ex.ToString())