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)
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")