-- mejora en el proceso de cancelación

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