Kardex Horizontal opcion separado destino, Compras cabecera grid AF, Usuario link url correo usuario

Sistemas/UsuarioDetalle.aspx.vb

@@ -410,8 +410,9 @@ Partial Class Sistemas_UsuarioDetalle
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-
+        If Not IsPostBack Then
+
+
             ViewState("Orden") = ""
             ViewState("CveEmpresa") = "-1"
             'ViewState("CveSucursal") = ""
@@ -1404,8 +1405,13 @@ Partial Class Sistemas_UsuarioDetalle
         '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
         'End If
     End Sub
-    Private Sub EnviaCorreo()
-
+    Private Sub EnviaCorreo()
+
+        Dim UrlsitioUrlActual As String = ObtenerUrlCompleta()
+
+        Dim Solicitud As HttpRequest = HttpContext.Current.Request
+
+
         Try
             Dim Para As String = TxtCorreo.Text.Trim
             Dim Asunto As String = "ALTA DE CUENTA"
@@ -1438,7 +1444,7 @@ Partial Class Sistemas_UsuarioDetalle
             SBBody.Append("</div>")
             SBBody.Append("<div>")
             SBBody.Append("<div class='col1'> Acceso </div>")
-            SBBody.AppendFormat("<div class='col2'><a href='{0}login.aspx'>sig.adssistemas.mx</a></div>", UrlSitio)
+            SBBody.AppendFormat("<div class='col2'><a href='{0}login.aspx'>{1}</a></div>", UrlsitioUrlActual, Solicitud.Url.Host)
             SBBody.Append("</div>")
             SBBody.Append("</div>")
             SBBody.Append("</div>")
@@ -1447,7 +1453,7 @@ Partial Class Sistemas_UsuarioDetalle
             SBBody.Append("<div Class='nota'>")
             SBBody.Append("Nota Favor de NO responder este correo. ")
             SBBody.Append("</div><br/><br/>")
-            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlSitio)
+            SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlsitioUrlActual)
             SBBody.Append("</div>")
             SBBody.Append("</div>")
             'Termino Cuerpo del correo
@@ -1458,6 +1464,27 @@ Partial Class Sistemas_UsuarioDetalle
             OnError("Ocurrió error al mandar MAIL", ex)
         End Try
     End Sub
+
+
+    Public Function ObtenerUrlCompleta() As String
+
+        Dim Solicitud As HttpRequest = HttpContext.Current.Request
+        Dim url As String = Solicitud.Url.Scheme & "://" & Solicitud.Url.Host
+
+        If (Solicitud.Url.Port <> 80 AndAlso Solicitud.Url.Port <> 443) Then
+            url &= ":" & Solicitud.Url.Port
+        End If
+
+
+        url &= Solicitud.ApplicationPath
+
+        If Not url.EndsWith("/") Then
+            url &= "/"
+        End If
+
+        Return url
+    End Function
+
 #End Region