From ea7b2f48b9a56cd416cdb635efac634701512969 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 17 Jul 2024 09:30:04 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20el=20proceso=20de=20cancelac?=
 =?UTF-8?q?i=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1b81cae90..e2b369327 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8423,7 +8423,7 @@ Partial Class Ventas
                 ObjClientes.Dispose()
 
                 Me.ObjFacturaNC = Nothing
-                Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False)
+                Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False, VerificaAlmacen:=False)
 
                 DdlNCFactura.DataSource = DTFacNC
                 DdlNCFactura.DataBind()
@@ -25367,6 +25367,8 @@ Partial Class Ventas
                     End If
                 Else
                     PermiteCancelar = False
+                    'si hay error para obtener información que no continue.
+                    Exit Sub
                 End If
 
             End Using