From d6270982ac3381b47ec0bf8e5f8123ea9233e689 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 11 Aug 2023 13:22:10 -0700
Subject: [PATCH] envio correo

---
 Ventas/Ventas.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f95461772..f8b132830 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3201,6 +3201,8 @@ Partial Class Ventas
                     ChkEnviarFactura.Checked = False
                     ChkEnviarFactura.Visible = True
                     LblEnviarMail.Visible = True
+
+                    If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente
                 Else
                     ChkEnviarFactura.Checked = EnviarCorreoCliente
                     ChkEnviarFactura.Visible = True
@@ -10329,7 +10331,7 @@ Partial Class Ventas
                             Try
                                 'MANDA CORREO
                                 Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                                Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
+                                Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
                                 Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                                 Hilo.Start()
                             Catch ex As Exception
@@ -16574,7 +16576,7 @@ Partial Class Ventas
                     Try
                         'MANDA CORREO
                         Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
+                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
                         Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                         Hilo.Start()
                     Catch ex As Exception
@@ -17339,6 +17341,7 @@ Partial Class Ventas
                     ChkEnviarFactura.Visible = True
                     LblEnviarMail.Visible = True
 
+                    If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente
                 End If
 
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "PA", "Pd2") AndAlso (ReceptorRFC = "XAXX010101000" Or LblRFC.Text = "XAXX010101000") Then