SIG/Sistemas/Registro.aspx.vb

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("<!DOCTYPE html>")
        strBody.Append("<html lang=""en""> ")
        strBody.Append("<body class=""page-header-fixed page-quick-sidebar-over-content "">")
        strBody.Append("<style>")
        strBody.Append(".portlet {margin-top: 0px;margin-bottom: 25px;padding: 0px;-webkit-border-radius: 4px;-moz-border-radius: 4px;-ms-border-radius: 4px;-o-border-radius: 4px;border-radius: 4px;padding: 0px !important;border: 1px solid #d78184;border-top: 0;background-color: #cb5a5e;}")
        strBody.Append(".portlet > .portlet-title {border-bottom: 0px solid #eee;padding: 0 10px;margin-bottom: 0px;min-height: 41px;-webkit-border-radius: 4px 4px 0 0;-moz-border-radius: 4px 4px 0 0;-ms-border-radius: 4px 4px 0 0;-o-border-radius: 4px 4px 0 0;border-radius: 4px 4px 0 0;color: #fff;}")
        strBody.Append(".portlet > .portlet-title {background-color: #cb5a5e;}")
        strBody.Append(".portlet > .portlet-title > div {padding: 11px 0 9px 0;}")
        strBody.Append(".portlet > .portlet-title > div {float: left;display: inline-block;font-size: 24px;line-height: 18px;padding: 10px 0;}")
        strBody.Append(".portlet > .portlet-body {background-color: #fff;padding: 10px;} ")
        strBody.Append(".portlet > .portlet-body {clear: both;-webkit-border-radius: 0 0 4px 4px;-moz-border-radius: 0 0 4px 4px;-ms-border-radius: 0 0 4px 4px;-o-border-radius: 0 0 4px 4px;border-radius: 0 0 4px 4px;}")
        strBody.Append(".mitablita td:nth-child(1){width: 100px; font-weight:700;}")
        strBody.Append("a{ color: #666;padding: 3px 9px; line-height: 1.5;background-color: #fff;border: 1px solid #ccc; text-decoration: none;}a:hover{background-color: #ededed;}")
        strBody.Append(".mitablita tr:nth-child(5) td{ text-align: right;}td{min-width:100px; }")
        strBody.Append("</style>")
        strBody.Append("    <div style=""Width:400px;"">")
        strBody.Append("            <div class=""portlet box red"">")
        strBody.Append("                <div class=""portlet-title"">")
        strBody.Append("                    <div class=""caption"">")
        strBody.Append("                        <i class=""fa fa-cart-plus""></i>Completar Registro")
        strBody.Append("                    </div>")
        strBody.Append("                </div>")
        strBody.Append("                <div class=""portlet-body "">")
        strBody.Append("                    <table class=""mitablita"">")
        strBody.Append("                        <tr>")
        strBody.Append("                            <td>Fecha</td>")
        strBody.Append("                            <td>")
        strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
        strBody.Append("</td>                        </tr>")
        strBody.Append("                        <tr>")
        strBody.AppendFormat("                            <td>Buen día, {0} </td>", Nombre)
        strBody.Append("                            <td>")
        strBody.Append("</td>                        </tr>")
        strBody.Append("                        <tr>")
        strBody.Append("                            <td>Para continuar con el proceso de registro y activación, por favor haga click en la siguiente liga: </td>")

        strBody.Append("<tr><td colspan=""4"" >")
        'strBody.Append(Liga)
        strBody.AppendFormat("{0}</td></tr>", Liga)
        strBody.Append("                        </table>")
        strBody.Append("                </div>")
        strBody.Append("            </div>")
        strBody.Append("        </div>")
        strBody.Append("    </div>")
        strBody.Append("</body>")
        strBody.Append("</html>")
        Return strBody.ToString
    End Function

End Class