From 5c45d5ee4efa986d1ab1339c5b25af2395f4ac0f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 16 Nov 2022 16:03:38 -0700
Subject: [PATCH] -- cambio en liga

---
 Ventas/Clientes.aspx.vb | 65 ++++++++++++++++++++---------------------
 1 file changed, 32 insertions(+), 33 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 071a23b5c..84c7b3b23 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2299,7 +2299,6 @@ Partial Class Clientes
                     End If
                 End If
 
-
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
@@ -2308,9 +2307,9 @@ Partial Class Clientes
                 End If
 
                 If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
-                    If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml") Then
-                        Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
-                        Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
+                    Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
+                    Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
+                    If File.Exists(PDF) AndAlso File.Exists(XML) Then
 
                         Dim ResultadoMail As Integer = 0
                         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
@@ -2344,38 +2343,38 @@ Partial Class Clientes
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
                     End If
-                ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
-                    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
-                        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
+                    'ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
+                    '    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
+                    '        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
 
-                        Dim ResultadoMail As Integer = 0
-                        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
-                        If Dr("Adjunto").ToString() <> "" Then
-                            Adjunto = Dr("Adjunto").ToString()
-                            Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
-                            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
-                        End If
+                    '        Dim ResultadoMail As Integer = 0
+                    '        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+                    '        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
+                    '        If Dr("Adjunto").ToString() <> "" Then
+                    '            Adjunto = Dr("Adjunto").ToString()
+                    '            Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
+                    '            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
+                    '        End If
 
-                        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
-                        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
-                            ResultadoMail = 1
-                            TxtCC.Text = ""
-                            TxtBody.Text = ""
-                            RegistraScript("$('#ModalDivMail').modal('hide');")
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                            CargaHistorial()
-                            UpnHistorial.Update()
-                        Else
-                            ResultadoMail = 3
-                        End If
+                    '        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
+                    '        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
+                    '            ResultadoMail = 1
+                    '            TxtCC.Text = ""
+                    '            TxtBody.Text = ""
+                    '            RegistraScript("$('#ModalDivMail').modal('hide');")
+                    '            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                    '            CargaHistorial()
+                    '            UpnHistorial.Update()
+                    '        Else
+                    '            ResultadoMail = 3
+                    '        End If
 
-                        Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
-                        ObjVentas.Dispose()
-                    Else
-                        Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
-                    End If
+                    '        Dim ObjVentas As New ClsVentas
+                    '        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
+                    '        ObjVentas.Dispose()
+                    '    Else
+                    '        Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
+                    '    End If
                 ElseIf HdnTipoDocto.Value = "Cot" Then
                     If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") Then
                         Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"