From 76d45f5af0fa68ec6859b280156c9e66e14b694d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Nov 2023 15:54:31 -0700 Subject: [PATCH] - option explicit --- App_Code/modExtensiones.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index f0f2001cf..7ca31a268 100644 --- a/App_Code/modExtensiones.vb +++ b/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()