-- option explcit

Inicio.aspx.vb

@@ -1,16 +1,10 @@
 Imports System.Data
-Imports System.Globalization
 Imports Extensiones
 Imports System.Web.Services
 Imports Newtonsoft.Json
-Imports System.Drawing
 Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
-Imports Telerik.Web.UI.Scheduler.Views
-Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal
-
-'Imports System.Reflection
-'Imports Telerik.Web.UI
+Imports ADSNetLibrary.SIGAPI.Models.CRM.Response
 
 Partial Class Inicio
     Inherits ClsPaginas
@@ -31,7 +25,7 @@ Partial Class Inicio
                 theDataSet.ReadXml(theReader)
 
                 If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then
-                    Dim sb = New StringBuilder()
+                    Dim sb As New StringBuilder()
 
                     For Each item As DataRow In theDataSet.Tables(0).Rows
                         sb.AppendFormat("{0};", item("Uuid").ToString())
@@ -161,7 +155,7 @@ Partial Class Inicio
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
                 Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
                 If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then
-                    Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx")
+                    Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx")
                     NotificacionesPendientes(ObjNotificacion)
                 End If
                 ObjPolizas.Dispose()
@@ -172,7 +166,7 @@ Partial Class Inicio
                 Dim OC As New ClsOC
                 If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then
                     If (OC.DtResultados.Rows.Count > 0) Then
-                        Dim ObjNotificacion = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx")
+                        Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx")
                         NotificacionesPendientes(ObjNotificacion)
                     End If
                 End If
@@ -263,7 +257,7 @@ Partial Class Inicio
             If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then
                 If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then
                     Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?"
-                    Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
+                    Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
 
                     Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;")
                 End If
@@ -350,7 +344,7 @@ Partial Class Inicio
 
     Private Sub MuestraPsProximosAVencer()
 
-        Dim ObjInventarios = New ClsInventarios
+        Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
@@ -359,11 +353,9 @@ Partial Class Inicio
             Else
                 GvModalPSPorCaducar.DataSource = Nothing
             End If
-
         Else
             GvModalPSPorCaducar.DataSource = Nothing
         End If
-
         ObjInventarios.Dispose()
         GvModalPSPorCaducar.DataBind()
 
@@ -772,10 +764,8 @@ Partial Class Inicio
     Private Sub CargaDdlAcercamientoCRM()
         DdlAcercamientoCRM.Items.Clear()
 
-        Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
-
-
-        Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero)
+        Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+        Dim aceramientoGet As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero)
         Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet)
         If objAcercamiento.IsSuccess Then
             DdlAcercamientoCRM.DataSource = objAcercamiento.Result
@@ -788,8 +778,8 @@ Partial Class Inicio
     Private Sub CargaDdlContactoCRM()
         DdlContactoCRM.Items.Clear()
 
-        Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
-        Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
+        Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+        Dim contactoEmpresaCRM As New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
         Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM)
 
         If objServicio.IsSuccess Then
@@ -818,13 +808,13 @@ Partial Class Inicio
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
         Dim ObjEventos As New ClsOIEventos
 
-        Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime()
-        Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime()
-        Dim validacionesAgendaOpcionesOK = True
+        Dim FechaInicio As DateTime = TxtFechaInicioAgenda.Text.ToDateTime()
+        Dim FechaFin As DateTime = TxtFechaFinAgenda.Text.ToDateTime()
+        Dim validacionesAgendaOpcionesOK As Boolean = True
 
         RegistraScript("GetView();")
 
-        Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
+        Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1"
         If CheckRecurrencia.Checked Then
             RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero
             Frecuencia = TxtFrecuencia.Text.ToEntero
@@ -832,7 +822,7 @@ Partial Class Inicio
             'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA
             Select Case RecurrenciaTipo
                 Case 3
-                    Dim StringDias = ""
+                    Dim StringDias As String = ""
                     For Each item As ListItem In CheckDiasSemana.Items
                         If item.Selected Then
                             If StringDias.Length > 0 Then
@@ -1022,8 +1012,8 @@ Partial Class Inicio
     Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String
         Dim ObjEventos As New ClsOIEventos
 
-        Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime
-        Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime
+        Dim FechaInicio As DateTime = DateTimeOffset.Parse(ClsEvent.start).DateTime
+        Dim FechaFin As DateTime = DateTimeOffset.Parse(ClsEvent.end).DateTime
 
         If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then
         End If
@@ -1162,7 +1152,7 @@ Partial Class Inicio
                     If i = index Then
                         serie.name = row(i).ToString()
                     Else
-                        Dim actual = row(i).ToString().ToDouble
+                        Dim actual As Double = row(i).ToString().ToDouble
                         serie.data.Add(actual)
                         anterior = actual
                     End If
@@ -1450,7 +1440,7 @@ Partial Class Inicio
         If UsuarioActual.CveEmpresa = 140 Then
             DVDescargasBDH.Visible = True
 
-            Dim TmpDT = New DataTable()
+            Dim TmpDT As New DataTable()
 
             Dim ObjDoc As New ClsEdocumentacion
             If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then
@@ -1541,8 +1531,8 @@ Partial Class Inicio
 
     Private Sub CargaDdlEmpresaCRM()
 
-        Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
-        Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1)
+        Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+        Dim parametros As New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1)
         Dim objServicio = cRMService.GetEmpresasCRM(parametros)
 
         If objServicio.IsSuccess Then
@@ -1554,9 +1544,6 @@ Partial Class Inicio
             If objServicio.Result.Count > 0 Then
                 DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing)
             End If
-
-
-
         End If
 
     End Sub