diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx
index 19bb2ae96..16774b5f1 100644
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -331,7 +331,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         If DtEmpresas IsNot Nothing Then
             For Each Row As DataRow In DtEmpresas.Rows
                 Dim Usuario As Usuario = ValidaUsuarioSistema(Row("CveEmpresa").ToString().ToEntero())
-                Dim obj = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente)
+                Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente)
 
                 Retorno.Add(obj)
             Next
@@ -893,8 +893,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
 
 #Region "S C O R E C A R D"
     Private Sub CargaScoreCard(ByVal context As HttpContext, pCveEmpresa As Integer, FechaEnvio As DateTime)
-        Dim Usuario = ValidaUsuarioSistema(pCveEmpresa)
-        Dim obj = EjecutarEnvioScoreCard(Usuario, FechaEnvio)
+        Dim Usuario As Usuario = ValidaUsuarioSistema(pCveEmpresa)
+        Dim obj As Boolean = EjecutarEnvioScoreCard(Usuario, FechaEnvio)
 
     End Sub
 
@@ -977,7 +977,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         Dim PDFSucursales As Byte() = GenerarScoredCardDirectivo(UsuarioActual, DtGrupoSucursales)
         Dim PDFVendedores As Byte() = GenerarScoredCardDirectivo(UsuarioActual, DtGrupoVendedores)
 
-        For Each UsuarioEnviar In ListaDirectivos
+        For Each UsuarioEnviar As MUsuarioEnviar In ListaDirectivos
             Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
 
             If UsuarioEnviar.ReporteEnviar.Empresa Then
@@ -1028,7 +1028,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         'GERMAN LUNA
         ListaVendedores.Add(New MUsuarioEnviar(DtUsuarios.FiltroPrimero($"CveUsuario = {3354} AND CveSubProyecto > 0"), TipoUsuarioEnviar.Vendedor))
 
-        For Each UsuarioEnviar In ListaVendedores
+        For Each UsuarioEnviar As MUsuarioEnviar In ListaVendedores
             Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
             Dim DtReporteVendedor As DataTable = Nothing