AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- corrección

Browse Source
This commit is contained in:
rrene
2024-10-14 18:30:02 -07:00
parent 896a6f6af9
commit 77e609baeb
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

@@ -11150,11 +11150,11 @@ Public Class ClsPaginas
End If End If
Contenido.AppendFormat("<br/> {0}<br/>", TextoFinal) 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(" </body>")
Contenido.Append("</html>") Contenido.Append("</html>")
CorreoDestino = "rene.molina@adssistemas.mx" 'CorreoDestino = "rene.molina@adssistemas.mx"
If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then

2
App_Code/modExtensiones.vb
View File

@@ -3699,7 +3699,7 @@ Namespace Extensiones
Return New DateTime(Fecha.Year, Fecha.Month, 1) Return New DateTime(Fecha.Year, Fecha.Month, 1)
End Function End Function
<Runtime.CompilerServices.Extension()> <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 = "" Dim Retorno As String = ""
' Separar por ";" para obtener cada par clave:valor ' Separar por ";" para obtener cada par clave:valor
Dim pairs() As String = TextoArreglo.Trim.Split(Delimitador) Dim pairs() As String = TextoArreglo.Trim.Split(Delimitador)