-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 As DataRow = DT_SubProyectos.NewRow
-                    Dim Subrow = 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())

Ashx/TareasProgramadas.ashx

@@ -330,7 +330,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
         If DtEmpresas IsNot Nothing Then
             For Each Row As DataRow In DtEmpresas.Rows
-                Dim Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero())
+                Dim Usuario As Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero())
                 Dim obj = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente)
 
                 Retorno.Add(obj)
@@ -350,8 +350,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
         Dim ObjUsuarios As New ClsSisUsuarios
         If ObjUsuarios.GetUsuarios(100) Then
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
-                Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
-                Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                 UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
@@ -402,7 +402,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                 Dim FechaF As String = "-1"
                 Dim FechaVI As String = "-1"
                 Dim FechaVF As String = "-1"
-                Dim TCEspecifico = -1
+                Dim TCEspecifico As Decimal = -1
 
                 Dim CveCobranzaEstatus As Integer = -1
                 Dim CveClienteClasificacion As Integer = -1
@@ -417,7 +417,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                 Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31)
 
                 If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
-                                 EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1, AplicaAnticiposPagados:=AplicaAnticipos) Then
+                                 EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1 ) Then
                     DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"})
                 End If
 
@@ -536,7 +536,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
             Dim Formato As String = "PDF"
             Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
             'OBTENEMOS LOS DATOS
             Dim DtCxCFact As DataTable = Nothing
 
@@ -672,7 +672,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
                 If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then
                     Dim dr As DataRow = DtCxCFact2.Rows(0)
-                    Dim lista = New List(Of CrystalParametro)
+                    Dim lista As New List(Of CrystalParametro)
                     lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
                     lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
                     lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
@@ -714,7 +714,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                         GuardaLog("Ocurrió un erro al obtener el CxC" + ex.ToString())
                     End Try
                 Else
-                    Dim lista = New List(Of CrystalParametro)
+                    Dim lista As New List(Of CrystalParametro)
                     lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
                     lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
                     lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
@@ -1082,7 +1082,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
     Protected Function GenerarScoredCard(UsuarioActual As Usuario, UsuarioEnviar As MUsuarioEnviar, DtDatos As DataTable) As Byte()
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
@@ -1108,7 +1108,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
     Protected Function GenerarScoredCardDirectivo(UsuarioActual As Usuario, DtDatos As DataTable) As Byte()
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))