-- desactivación de servicio POG

This commit is contained in:
2023-07-03 07:32:00 -07:00
parent cd43daddec
commit 5807857cb7

View File

@@ -100,18 +100,18 @@ Public Class E119 : Implements IHttpHandler
Try Try
Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
'OBTENER EXISTENCIAS 'OBTENER EXISTENCIAS
If Metodo = "BASF_POG40" Then 'If Metodo = "BASF_POG40" Then
context.Response.ContentType = "application/json" ' context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context) ' Dim Auth = ValidarSolicitud(context)
If Auth.IsSucces Then ' If Auth.IsSucces Then
retorno = ConsultaDatos(context) ' retorno = ConsultaDatos(context)
Else ' Else
context.Response.StatusCode = Auth.StatusCode ' context.Response.StatusCode = Auth.StatusCode
retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) ' retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
End If ' End If
End If 'End If
context.Response.Write(retorno) context.Response.Write(retorno)