From 0cd353446a5dc722a4b922b8b6f27d8b620f371b Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 24 Dec 2022 14:03:59 -0700
Subject: [PATCH] Correcion en envio de correos en ventas

---
 Ventas/Ventas.aspx.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c3145cdcd..fcd6e3b9f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -592,12 +592,12 @@ Partial Class Ventas
     End Property
     Private ReadOnly Property Mail As String
         Get
-            Return ViewState("Mail").ToString()
+            Return IfNull(ViewState("Mail"), "").ToString()
         End Get
     End Property
     Private ReadOnly Property MailCC As String
         Get
-            Return ViewState("MailCC").ToString()
+            Return IfNull(ViewState("MailCC"), "").ToString()
         End Get
     End Property
     Private ReadOnly Property CveVenta As Integer
@@ -21148,17 +21148,17 @@ Partial Class Ventas
         Dim ObjMail As New ClsSisMail()
         Dim ResultadoMail As Integer = 0
 
-
-
         Dim CorreoDestino As String = ""
 
+        If Me.Mail.Trim.Length > 0 Then
+            CorreoDestino = Me.Mail
+        End If
+
         If CorreoContactoCRM.Trim.Length > 0 Then
             CorreoDestino = CorreoContactoCRM
             ViewState("MailCC") = ""
         End If
 
-
-
         Try
 
             Dim Asunto As String = String.Empty