Imports Extensiones Imports System.Data Imports System.IO Partial Class Sistemas_Registro Inherits Page #Region "PROPIEDADES" Private Property Nombre As String Get Nombre = ViewState("Nombre").ToString End Get Set(value As String) ViewState("Nombre") = value End Set End Property Private Property RFC As String Get RFC = ViewState("RFC").ToString End Get Set(value As String) ViewState("RFC") = value End Set End Property Private Property Email As String Get Email = ViewState("Email").ToString End Get Set(value As String) ViewState("Email") = value End Set End Property Private Property MetodoPago As String Get MetodoPago = ViewState("MetodoPago").ToString End Get Set(value As String) ViewState("MetodoPago") = value End Set End Property Private Property Liga As String Get Liga = ViewState("Liga").ToString End Get Set(value As String) ViewState("Liga") = value End Set End Property Private Property CveEmpresaTemp As Integer Get CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString End Get Set(value As Integer) ViewState("CveEmpresaTemp") = value End Set End Property #End Region Protected Sub btnGuardar_Click(sender As Object, e As EventArgs) Dim objEmpresa As New ClsSisEmpresas() Nombre = txtNombre.Text() RFC = TxtRFC.Text() Email = TxtEmail.Text() MetodoPago = DdlMetodoPago.SelectedValue Try CveEmpresaTemp = objEmpresa.AddEmpresaTemp(Nombre, RFC, Email, MetodoPago.ToEntero) If CveEmpresaTemp > 0 Then Alert("Su solicitud ha sido enviada", TipoMensaje.MsgInformacion) Liga = String.Format("sig.adsistemas.mx/Sistemas/WizardRegistro.aspx?CveEmpresaTemp={0}", Encripta(String.Format("{0}", CveEmpresaTemp))) EnviaCorreo() RegistraScript("$('#C_DivRegistro').css('display', 'none')") RegistraScript("$('#C_DvFinalizado').css('display', '')") UpRegistro.Update() End If Catch ex As Exception Alert("La Empresa se guardó correctamente", TipoMensaje.MsgError) End Try End Sub Protected Sub REVContactoEmail_Load(sender As Object, e As EventArgs) RegistraScript("$('#FirstEmail').addClass('has-error');$('#helpMail').css('color', 'red')") End Sub Protected Sub EnviaCorreo() Dim objMail As New ClsSisMail() Dim body = GeneraCorreo(Nombre) objMail.SendMail(ClsPaginas.EmpresaNotificaciones, Email, "Activación de empresa", body) End Sub Private Function GeneraCorreo(Nombre As String) As String Dim strBody As New StringBuilder strBody.Append("") strBody.Append(" ") strBody.Append("") strBody.Append("") strBody.Append("

") strBody.Append("

") strBody.Append(" Completar Registro") strBody.Append("

") strBody.Append("

") strBody.Append(" ") strBody.Append(" ") strBody.Append(" ") strBody.Append(" ") strBody.Append(" ") strBody.AppendFormat(" ", Nombre) strBody.Append(" ") strBody.Append(" ") strBody.Append(" ") strBody.Append("", Liga) strBody.Append("

Fecha	") strBody.Append(DateTime.Now.ToString("dd/MM/yy")) strBody.Append("
Buen día, {0}	") strBody.Append("
Para continuar con el proceso de registro y activación, por favor haga click en la siguiente liga:
") 'strBody.Append(Liga) strBody.AppendFormat("{0}

") strBody.Append("

") strBody.Append(" ") strBody.Append("") strBody.Append("") Return strBody.ToString End Function End Class