From 77e609baeb1cb8db772b689e8b7f5b3049594dce Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 14 Oct 2024 18:30:02 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb     | 4 ++--
 App_Code/modExtensiones.vb | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 0bdb1d53d..f8ce9cbce 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -11150,11 +11150,11 @@ Public Class ClsPaginas
         End If
         Contenido.AppendFormat("<br/> {0}<br/>", TextoFinal)
 
-        Contenido.AppendFormat("<br/>CorreoDestino: {0}<br/>", CorreoDestino)
+        'Contenido.AppendFormat("<br/>CorreoDestino: {0}<br/>", CorreoDestino)
         Contenido.Append("  </body>")
         Contenido.Append("</html>")
 
-        CorreoDestino = "rene.molina@adssistemas.mx"
+        'CorreoDestino = "rene.molina@adssistemas.mx"
 
         If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then
 
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 96c9a6d60..5164ca1f2 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -3699,7 +3699,7 @@ Namespace Extensiones
             Return New DateTime(Fecha.Year, Fecha.Month, 1)
         End Function
         <Runtime.CompilerServices.Extension()>
-        Public Function ListaBusquedaValor(TextoArreglo As String, ValorBuscado As String, Optional Delimitador As Char = ";"c) As String
+        Public Function ListaBusquedaValor(TextoArreglo As String, ValorBuscado As String, Optional Delimitador As Char = "|"c) As String
             Dim Retorno As String = ""
             ' Separar por ";" para obtener cada par clave:valor
             Dim pairs() As String = TextoArreglo.Trim.Split(Delimitador)