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

mensaje de error al no tener NC

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-02-04 09:02:53 -07:00
parent 503d21f3c2
commit f4f4994882
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1585,6 +1585,7 @@ Partial Class Ventas_ClientesAbonar
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If MsgError = "" Then If MsgError = "" Then
If ListaFacturasGenerarNC.Count > 0 Then
Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
If Resp.CveVenta > 0 Then If Resp.CveVenta > 0 Then
NCGeneradas.Add(Resp) NCGeneradas.Add(Resp)
@@ -1593,6 +1594,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
End If End If
End If End If
End If
If MsgError = "" Then If MsgError = "" Then
'se agregan las pólizas de Armonización Contable 'se agregan las pólizas de Armonización Contable
@@ -1911,7 +1913,7 @@ Partial Class Ventas_ClientesAbonar
ObjFacturaDevolucion.DtVentasNC = DtVentasNC ObjFacturaDevolucion.DtVentasNC = DtVentasNC
ObjFacturaDevolucion.GenerarPDFFactura = True ObjFacturaDevolucion.GenerarPDFFactura = True
Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Trasac:=Trasac, ObjContPaqTransac:=ObjConta) Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta)
Return Resp Return Resp
End Function End Function