From 8492e0e75bb84432b7fb4e3725ad0933e4642d40 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 20 Jan 2024 18:41:49 -0700
Subject: [PATCH] -- mejora

---
 Ashx/E119.ashx | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx
index 36d4258df..d9fc7099f 100644
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler
             End If
 
             If Metodo = "RegistraRemision" Then
+
                 context.Response.ContentType = "application/json"
                 Dim Auth As AuthMessage = ValidarSolicitud(context)
-
+                MsgLog.AppendLine("Validado:" & Auth.IsSuccess)
                 If Auth.IsSuccess Then
-                    retorno = RegistraRemision(context)
+                    retorno = RegistraRemision(context, MsgLog)
                 Else
                     context.Response.StatusCode = Auth.StatusCode
                     retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
@@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler
         End If
     End Function
 
-    Private Function RegistraRemision(ByVal context As HttpContext) As String
+    Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String
 
         Dim TieneError As Boolean = False
         Dim JsonRequest As JObject = Nothing
         Dim Respuesta As New ResponseMsg
         Dim RespuestaError As New ResponseMsgError
-        Dim MsgLog As New StringBuilder
-        Try
 
+        Try
             MsgLog.AppendLine("1.0 Registra")
             If context.Request.InputStream IsNot Nothing Then
                 Using reader As New StreamReader(context.Request.InputStream)
@@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler
                             TieneError = True
                         End If
                     Else
+                        MsgLog.AppendLine("json:" & json)
                         TieneError = True
                     End If
                 End Using
@@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler
 
             MsgLog.AppendLine("1.1 accedido")
             If TieneError Then
-                RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado"
+                RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)"
                 context.Response.StatusCode = 200
                 Return JsonConvert.SerializeObject(RespuestaError)
             End If
@@ -528,9 +529,10 @@ Public Class E119 : Implements IHttpHandler
 
         Catch ex As Exception
             TieneError = True
+        Finally
+            MsgLog.ToString.GuardaLogAD("LogE119")
         End Try
 
-        MsgLog.ToString.GuardaLogAD("LogE119")
         If TieneError Then
             context.Response.StatusCode = 200
             Return JsonConvert.SerializeObject(RespuestaError)