From f4f49948829b0267fb91eb51f4084ac7a0cef7b6 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 4 Feb 2020 09:02:53 -0700
Subject: [PATCH] mensaje de error al no tener NC

---
 Ventas/ClientesAbonar.aspx.vb | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 99e1f03d7..4b8a485f2 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1585,11 +1585,13 @@ Partial Class Ventas_ClientesAbonar
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                     If MsgError = "" Then
-                        Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
-                        If Resp.CveVenta > 0 Then
-                            NCGeneradas.Add(Resp)
-                        Else
-                            MsgError = "No se pudo generar la nota de credito"
+                        If ListaFacturasGenerarNC.Count > 0 Then
+                            Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
+                            If Resp.CveVenta > 0 Then
+                                NCGeneradas.Add(Resp)
+                            Else
+                                MsgError = "No se pudo generar la nota de credito"
+                            End If
                         End If
                     End If
                 End If
@@ -1911,7 +1913,7 @@ Partial Class Ventas_ClientesAbonar
 
         ObjFacturaDevolucion.DtVentasNC = DtVentasNC
         ObjFacturaDevolucion.GenerarPDFFactura = True
-        Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Trasac:=Trasac, ObjContPaqTransac:=ObjConta)
+        Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta)
         Return Resp
 
     End Function