AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option explicit

Browse Source
This commit is contained in:
rrene
2024-01-09 20:33:52 -07:00
parent 535f1c7e78
commit 67b22d2f2b
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ashx/E141.ashx
View File

@@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim retorno As String = "" Dim retorno As String = ""
Try Try
Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString()) Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString()) Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
Dim ParametrosNuevos As Boolean = False Dim ParametrosNuevos As Boolean = False
If Not String.IsNullOrEmpty(ParamsV) Then If Not String.IsNullOrEmpty(ParamsV) Then
@@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler
Else 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 'OBTENER EXISTENCIAS
If Metodo = "GetExistencia" Then If Metodo = "GetExistencia" Then
context.Response.ContentType = "application/json" 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) retorno = GetExistencia(context, Codigo)
ElseIf Metodo = "ConsultarRFC" Then ElseIf Metodo = "ConsultarRFC" Then
context.Response.ContentType = "application/json" context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context) Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then If Auth.IsSucces Then
retorno = ConsultaRFC(context) retorno = ConsultaRFC(context)
@@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler
ElseIf Metodo = "ValidarCarrito" Then ElseIf Metodo = "ValidarCarrito" Then
context.Response.ContentType = "application/json" context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context) Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then If Auth.IsSucces Then
retorno = ValidarCarrito(context) retorno = ValidarCarrito(context)
@@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler
ElseIf Metodo = "RegistrarPedido" Then ElseIf Metodo = "RegistrarPedido" Then
context.Response.ContentType = "application/json" context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context) Dim Auth As AuthMessage = ValidarSolicitud(context)
If Auth.IsSucces Then If Auth.IsSucces Then
retorno = RegistrarPedido(context) retorno = RegistrarPedido(context)