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

- mejora, por sino viene el dato del RFC

Browse Source
This commit is contained in:
rrene
2024-01-31 11:26:30 -07:00
parent 19355ad69b
commit acff2d3b7d
1 changed files with 136 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ashx/E119.ashx
View File

@@ -427,8 +427,14 @@ Public Class E119 : Implements IHttpHandler
If Not String.IsNullOrEmpty(UsoCFDI) Then If Not String.IsNullOrEmpty(UsoCFDI) Then
CveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", $"UsoCFDI = '{UsoCFDI.Trim}'").ToEntero() CveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", $"UsoCFDI = '{UsoCFDI.Trim}'").ToEntero()
End If End If
Else
TieneError = True
Resp.Mensajes.Add("no existe cliente definido")
End If End If
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
@@ -437,7 +443,7 @@ Public Class E119 : Implements IHttpHandler
'Resp.Mensajes.Add("El RFC ya existe en el sistema") 'Resp.Mensajes.Add("El RFC ya existe en el sistema")
End If End If
End If End If
MsgLog.AppendLine("1.4 verificar cliente") MsgLog.AppendLine("1.4 verificar cliente.")
If CveCliente = 0 Then If CveCliente = 0 Then
@@ -478,7 +484,7 @@ Public Class E119 : Implements IHttpHandler
Else Else
MsgLog.AppendLine("1.5.9 sin datos cliente") MsgLog.AppendLine("1.5.9 sin datos cliente")
TieneError = True TieneError = True
Resp.Mensajes.Add("no existen datos del cliente") Resp.Mensajes.Add("no existen datos del cliente.")
End If End If
End If End If
@@ -562,7 +568,6 @@ Public Class E119 : Implements IHttpHandler
Resp.Mensajes.Add("no existen productos definidos") Resp.Mensajes.Add("no existen productos definidos")
End If End If
If ObjFactura IsNot Nothing AndAlso Not TieneError Then If ObjFactura IsNot Nothing AndAlso Not TieneError Then
MsgLog.AppendLine("1.7 agregar la remision") MsgLog.AppendLine("1.7 agregar la remision")
Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL())
@@ -578,7 +583,7 @@ Public Class E119 : Implements IHttpHandler
Respuesta.status = "success" Respuesta.status = "success"
Respuesta.data = data Respuesta.data = data
Else Else
MsgLog.AppendLine("1.8 error al agregar la remision") MsgLog.AppendLine("1.8 error al agregar la remision.")
TieneError = True TieneError = True
End If End If
@@ -597,6 +602,7 @@ Public Class E119 : Implements IHttpHandler
Next Next
RespuestaError.message = sb.ToString() RespuestaError.message = sb.ToString()
End If End If
End If
If TieneError Then If TieneError Then
ObjClientes.RollBack() ObjClientes.RollBack()