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

14
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1585,11 +1585,13 @@ Partial Class Ventas_ClientesAbonar
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If MsgError = "" Then If MsgError = "" Then
Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC) If ListaFacturasGenerarNC.Count > 0 Then
If Resp.CveVenta > 0 Then Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
NCGeneradas.Add(Resp) If Resp.CveVenta > 0 Then
Else NCGeneradas.Add(Resp)
MsgError = "No se pudo generar la nota de credito" Else
MsgError = "No se pudo generar la nota de credito"
End If
End If End If
End If End If
End If End If
@@ -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