mensaje de error al no tener NC

Ventas/ClientesAbonar.aspx.vb

@@ -1585,6 +1585,7 @@ Partial Class Ventas_ClientesAbonar
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                     If MsgError = "" Then
+                        If ListaFacturasGenerarNC.Count > 0 Then
                             Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
                             If Resp.CveVenta > 0 Then
                                 NCGeneradas.Add(Resp)
@@ -1593,6 +1594,7 @@ Partial Class Ventas_ClientesAbonar
                             End If
                         End If
                     End If
+                End If
 
                 If MsgError = "" Then
                     'se agregan las pólizas de Armonización Contable
@@ -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