From f0306d57383cfd4db0cfdcf6e6da898f8dac4fca Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 2 Aug 2024 23:34:51 -0700
Subject: [PATCH] --Bandera verifica almacen por default en false

---
 App_Code/Modelos.vb                         | 2 +-
 Ventas/ClientesAbonar.aspx.vb               | 2 +-
 Ventas/RepCancelacionesPorRespuesta.aspx.cs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 898dfd815..ace453f1d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -439,7 +439,7 @@ Namespace Modelos
             End If
             Timbre = New CFDITimbre
         End Sub
-        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "", Optional EsCancelacion As Boolean = False, Optional CargaDTDetalle As Boolean = True, Optional CargaDatosCliente As Boolean = True, Optional CargaDatosRelacionados As Boolean = True, Optional VerificaAlmacen As Boolean = True)
+        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "", Optional EsCancelacion As Boolean = False, Optional CargaDTDetalle As Boolean = True, Optional CargaDatosCliente As Boolean = True, Optional CargaDatosRelacionados As Boolean = True, Optional VerificaAlmacen As Boolean = False)
             Me.UsuarioActual = UsuarioActual
             Me.CveVenta = CveVenta
             Me.CveEmpresa = CveEmpresa
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 78fc60a6d..9ecaeb674 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -909,7 +909,7 @@ Partial Class Ventas_ClientesAbonar
                             Dim EsAnticipoEspecial As Boolean = False
 
                             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                ObjFactura = New Modelos.Factura(UsuarioActual, gvr.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                                ObjFactura = New Modelos.Factura(UsuarioActual, gvr.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, VerificaAlmacen:=False)
                             End If
 
                             Dim VentaActual As New Venta(UsuarioActual)
diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
index 1849a60d6..ba4f8cd91 100644
--- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs
+++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
@@ -531,7 +531,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion, bool EsRefacturacion = false, string FolioSustitucion = "", int CveEstatusRefacturacion = 0, int CveMotivoCancelacion = 0)
     {
         Modelos.Factura.MCancelacionVentaMensaje retorno = null;
-        var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true);
+        var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true, VerificaAlmacen : true);
         
         if (factura.ErrorList.Count > 0) { retorno.HuboError = true;  return retorno; }