From 67b22d2f2b3d3a0d029554a8e8db3723a9e050fb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 20:33:52 -0700 Subject: [PATCH] option explicit --- Ashx/E141.ashx | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 72879ad20..cea15c20e 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Dim retorno As String = "" Try - Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString()) - Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString()) + Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString()) + Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString()) Dim ParametrosNuevos As Boolean = False If Not String.IsNullOrEmpty(ParamsV) Then @@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler Else - Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) + Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) 'OBTENER EXISTENCIAS If Metodo = "GetExistencia" Then context.Response.ContentType = "application/json" - Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString()) + Dim Codigo As String = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString()) retorno = GetExistencia(context, Codigo) ElseIf Metodo = "ConsultarRFC" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = ConsultaRFC(context) @@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler ElseIf Metodo = "ValidarCarrito" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = ValidarCarrito(context) @@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler ElseIf Metodo = "RegistrarPedido" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = RegistrarPedido(context)