- option explicit

App_Code/modExtensiones.vb

@@ -326,7 +326,7 @@ Namespace Extensiones
         Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
             Dim ArchivoW As StreamWriter
 
-            Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, ClsPaginas.NowADS().ToString("dd/MM/yyyy HH:mm"))
+            Dim MensajeFormato As String = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, ClsPaginas.NowADS().ToString("dd/MM/yyyy HH:mm"))
 
             Try
                 ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
@@ -2893,7 +2893,7 @@ Namespace Extensiones
 
                     'CUERPO (TABLAS DEL REPORTE)
                     'Se tiene que convertir la salida en elementos y posteriormente agregarlos al documento para que se respeten los márgenes
-                    Dim els = HtmlConverter.ConvertToElements(sw.ToString(), properties)
+                    Dim els As IList(Of Element.IElement) = HtmlConverter.ConvertToElements(sw.ToString(), properties)
                     For Each el As Element.IBlockElement In els
                         document.Add(el)
                     Next
@@ -3867,19 +3867,19 @@ Namespace Extensiones
         End Sub
 
         Public Overrides Sub OnAuthorization(ByVal actionContext As HttpActionContext)
-            Dim authHeader = actionContext.Request.Headers.Authorization
+            Dim authHeader As Headers.AuthenticationHeaderValue = actionContext.Request.Headers.Authorization
             Dim noautorizado As Boolean = True
             If authHeader IsNot Nothing Then
                 If Left(actionContext.Request.RequestUri.AbsolutePath, 11).ToUpper() = SigfoxPath.ToUpper() Then
-                    Dim usernamePasswordArray = Encoding.UTF8.GetString(Convert.FromBase64String(authHeader.Parameter)).Split(":"c)
-                    Dim userName = usernamePasswordArray(0)
-                    Dim password = usernamePasswordArray(1)
+                    Dim usernamePasswordArray As String() = Encoding.UTF8.GetString(Convert.FromBase64String(authHeader.Parameter)).Split(":"c)
+                    Dim userName As String = usernamePasswordArray(0)
+                    Dim password As String = usernamePasswordArray(1)
                     noautorizado = Not (userName = Me.Usuario AndAlso password = Me.Contra)
                 Else
                     Try
 
                         If actionContext.Request.RequestUri.AbsolutePath.ToUpper() <> LoginPath.ToUpper() Then
-                            Dim dataArray = Extensiones.Decripta(authHeader.Parameter).Split("|"c)
+                            Dim dataArray As String() = Extensiones.Decripta(authHeader.Parameter).Split("|"c)
                             If dataArray.Length > 4 AndAlso IsNumeric(dataArray(0)) AndAlso IsNumeric(dataArray(1)) AndAlso IsNumeric(dataArray(4)) Then
 
                                 Dim CveUsuario As Integer = dataArray(0).ToEntero()