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

-- mejora en manejo de mensaje

Browse Source
This commit is contained in:
rrene
2024-02-09 12:08:21 -07:00
parent a1f4ce00ce
commit be0ef31828
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ashx/E119.ashx
View File

@@ -368,7 +368,6 @@ Public Class E119 : Implements IHttpHandler
Return JsonConvert.SerializeObject(RespuestaError) Return JsonConvert.SerializeObject(RespuestaError)
End If End If
If Not TieneError Then If Not TieneError Then
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Dim ObjFactura As Modelos.Factura = Nothing Dim ObjFactura As Modelos.Factura = Nothing
@@ -399,7 +398,7 @@ Public Class E119 : Implements IHttpHandler
If objVenta.GetVentaTerminal(IdEcommerce, MinFecha, CveSubProyecto, CveEmpresa) Then If objVenta.GetVentaTerminal(IdEcommerce, MinFecha, CveSubProyecto, CveEmpresa) Then
Dim dr As DataRow = objVenta.DtResultados.FiltroPrimero("") Dim dr As DataRow = objVenta.DtResultados.FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then
MsgLog.AppendLine("0.10 remisión registrada previamente")
Dim data As New JArray Dim data As New JArray
Dim objSucursal As New JObject( Dim objSucursal As New JObject(
New JProperty("Cve", dr("CveVenta")), New JProperty("Cve", dr("CveVenta")),
@@ -408,6 +407,8 @@ Public Class E119 : Implements IHttpHandler
data.Add(objSucursal) data.Add(objSucursal)
Respuesta.status = "success" Respuesta.status = "success"
Respuesta.data = data Respuesta.data = data
Respuesta.message = "Folio registrado previamente."
MsgLog.AppendLine("Folio registrado previamente.")
Registrada = True Registrada = True
End If End If
End If End If
@@ -434,7 +435,6 @@ Public Class E119 : Implements IHttpHandler
If Not TieneError Then If Not TieneError Then
'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE '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.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
@@ -445,7 +445,6 @@ Public Class E119 : Implements IHttpHandler
End If End If
MsgLog.AppendLine("1.4 verificar cliente.") MsgLog.AppendLine("1.4 verificar cliente.")
If CveCliente = 0 Then If CveCliente = 0 Then
' 'DATOS DE BILLING ' 'DATOS DE BILLING
MsgLog.AppendLine("1.5 crear cliente") MsgLog.AppendLine("1.5 crear cliente")