From 161614b687fd83c1a58057ba8a6edfcb36a9fb84 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Dec 2023 19:07:35 -0700 Subject: [PATCH] =?UTF-8?q?-=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/CargaEventos.ashx | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index cbf40551d..e46aabf4d 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -1,12 +1,7 @@ <%@ WebHandler Language="VB" Class="CargaEventos" %> -Option Explicit On +Option Explicit Off Option Strict On -Imports System -Imports System.Web -Imports System.Collections -Imports System.Collections.Generic -Imports System.Web.SessionState Imports System.Data Imports Extensiones @@ -17,8 +12,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "text/plain" - Dim CveUsuario = -1 - Dim CveEmpresa = -1 + Dim CveUsuario As Integer = -1 + Dim CveEmpresa As Integer = -1 Dim FI As Date Dim FF As Date @@ -425,7 +420,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario Get - UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG", Nothing)), Usuario) + UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario) End Get End Property