From be0ef318284004d9c72451cdc59a388bb28d4fdf Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 9 Feb 2024 12:08:21 -0700 Subject: [PATCH] -- mejora en manejo de mensaje --- Ashx/E119.ashx | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 2e7da80a0..938ca01b6 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -368,7 +368,6 @@ Public Class E119 : Implements IHttpHandler Return JsonConvert.SerializeObject(RespuestaError) End If - If Not TieneError Then Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim ObjFactura As Modelos.Factura = Nothing @@ -399,7 +398,7 @@ Public Class E119 : Implements IHttpHandler If objVenta.GetVentaTerminal(IdEcommerce, MinFecha, CveSubProyecto, CveEmpresa) Then Dim dr As DataRow = objVenta.DtResultados.FiltroPrimero("") If dr IsNot Nothing Then - MsgLog.AppendLine("0.10 remisión registrada previamente") + Dim data As New JArray Dim objSucursal As New JObject( New JProperty("Cve", dr("CveVenta")), @@ -408,6 +407,8 @@ Public Class E119 : Implements IHttpHandler data.Add(objSucursal) Respuesta.status = "success" Respuesta.data = data + Respuesta.message = "Folio registrado previamente." + MsgLog.AppendLine("Folio registrado previamente.") Registrada = True End If End If @@ -434,7 +435,6 @@ Public Class E119 : Implements IHttpHandler If Not TieneError Then - 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then If ObjClientes.DtResultados.Rows.Count > 0 Then @@ -445,7 +445,6 @@ Public Class E119 : Implements IHttpHandler End If MsgLog.AppendLine("1.4 verificar cliente.") - If CveCliente = 0 Then ' 'DATOS DE BILLING MsgLog.AppendLine("1.5 crear cliente")