-option explicit

2023-12-23 08:27:58 -07:00
parent f5df3eb372
commit 566eb06a62
2 changed files with 16 additions and 24 deletions
--- a/Ashx/CargaEventos.ashx
+++ b/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())
--- a/Ashx/TareasProgramadas.ashx
+++ b/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 Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").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))