- corrección

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 CveUsuario As Integer = -1
-        Dim CveEmpresa = -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