Option Strict On
Option Explicit On
Imports Extensiones
Imports System.Data
Partial Class GPS_CatDistribuidoresMaster
    Inherits ClsPaginas


#Region "Propiedades"
    Public Property CveEmpresa As Integer
        Get
            Return ViewState("CveEmpresa").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveEmpresa") = value
        End Set
    End Property
    Public Property EsEditar As Integer
        Get
            Return ViewState("EsEditar").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("EsEditar") = value
        End Set
    End Property

#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CveEmpresa = -1
            EsEditar = 0
            dvEstatusEv.Visible = False
            CargaDatos()

        End If
    End Sub


    Private Sub CargaDatos()
        Dim objEmpresas As New ClsSisEmpresas
        If objEmpresas.GetDistribuidorMaster(-1) Then
            GvDatos.DataSource = objEmpresas.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If
        objEmpresas.Dispose()
        GvDatos.DataBind()
    End Sub

    Protected Sub imgE_Click(sender As Object, e As EventArgs)
        Dim Boton = CType(sender, LinkButton)
        CveEmpresa = Boton.CommandArgument.ToEntero
        Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
        TxtEmpresa.Text = GvRow.DataKey("Empresa").ToString
        TxtRFC.Text = GvRow.DataKey("RFC").ToString
        TxtTelefono.Text = GvRow.DataKey("Telefono").ToString
        TxtContacto.Text = GvRow.DataKey("Contacto").ToString
        myModalLabel3.InnerHtml = "Actualizar Distribuidor Master"
        TxtMail.Text = GvRow.DataKey("Mail").ToString
        chkEstatus.Checked = CType(GvRow.DataKey("Estatus").ToString, Boolean)
        EsEditar = 1
        BtnAgregarDist.Text = "Actualizar"
        dvEstatusEv.Visible = True
        UpBody.Update()
        UpFooter.Update()
        UpdatePanel2.Update()
        RegistraScript("$('#divEmpresa').modal()")
    End Sub

    Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarDist.Click
        Dim objEmpresa As New ClsSisEmpresas
        Dim objUsuarios As New ClsSisUsuarios(objEmpresa.IniciaTransacSQL())
        Dim objP As New ClsProyectos(objEmpresa.IniciaTransacSQL)
        Dim objSP As New ClsSubProyectos(objEmpresa.IniciaTransacSQL)
        'Dim objSucursales As New ClsSucursales(objEmpresa.IniciaTransacSQL)
        Dim HuboError = False
        If EsEditar = 0 Then
            If Not objEmpresa.AddDistribuidorMaster(TxtRFC.Text, TxtEmpresa.Text, TxtTelefono.Text, TxtContacto.Text, TxtMail.Text, UsuarioActual.CveUsuario) Then
                HuboError = True
            End If
            If Not HuboError Then
                If objUsuarios.AddUsuario(TxtMail.Text, ContraseñaPredeterminadaEncriptada, TxtMail.Text.Split("@"c)(0), 1198, TxtMail.Text, -1, -1, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) = -1 Then
                    HuboError = True
                End If
            End If
            If Not HuboError Then
                Dim CveProyecto As Integer
                If objP.AddProyecto("Sin Proyecto", UsuarioActual.CveUsuario, objEmpresa.CveEmpresa) Then
                    CveProyecto = objP.CveProyecto
                End If
                If Not objSP.AddSubProyecto(CveProyecto, "Sin SubProyecto", 0, UsuarioActual.CveUsuario, objEmpresa.CveEmpresa) Then
                    HuboError = True
                End If
            End If
            If Not HuboError Then
                'Dim CveSucursal = objSucursales.AddSucursal("MATRIZ", "M", 0.16, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", "", "", "", "", "", "", "", "", 1)
                'If CveSucursal < 0 Then HuboError = True
            End If
            If Not HuboError Then
                    If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then
                        IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa))
                    End If
                    Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
                End If
            ElseIf EsEditar = 1 Then
                If objEmpresa.UpdateDistribuidorMaster(TxtRFC.Text, TxtEmpresa.Text, TxtTelefono.Text, TxtContacto.Text, TxtMail.Text, UsuarioActual.CveUsuario, chkEstatus.Checked, CveEmpresa) Then
                Alert("El distribuidor se editó correctamente", TipoMensaje.MsgInformacion)
            End If
            EsEditar = 0
            dvEstatusEv.Visible = False
            BtnAgregarDist.Text = "Agregar"
        End If
        RegistraScript("$('#divEmpresa').modal('hide')")
        If HuboError Then
            objEmpresa.RollBack()
        Else
            objEmpresa.Commit()
        End If
        objEmpresa.Dispose()
        RecargaGlobal()
        EnviaCorreoGPS()
        TxtEmpresa.Text = ""
        TxtContacto.Text = ""
        TxtMail.Text = ""
        TxtRFC.Text = ""
        TxtTelefono.Text = ""
        CargaDatos()
        UpDatos.Update()
        UpBody.Update()

    End Sub

    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        Dim objEmpresa As New ClsSisEmpresas
        Dim CveEmpresa As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveEmpresa").ToEntero
        If objEmpresa.DeleteDistribuidorMaster(CveEmpresa) Then
            Alert("El distribuidor se eliminó correctamente", TipoMensaje.MsgInformacion)
        End If
        objEmpresa.Dispose()
        CargaDatos()
        UpDatos.Update()
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.VerticalAlign = VerticalAlign.Middle
            e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEmpresa").ToString

            If CType(e.Row.DBCampo("Estatus"), Boolean) = True Then
                e.Row.FCLabel("LblEstatus").Text = "Activo"
                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green

            Else
                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
            End If

        End If
    End Sub

    Private Sub RecargaGlobal()
        Dim ObjEmpresas As New ClsSisEmpresas()
        If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
            GlobalDTEmpresas = ObjEmpresas.DtResultados
        Else
            Application("GlobalDTEmpresas") = Nothing
        End If
        Dim ObjUsuarios As New ClsSisUsuarios()
        If ObjUsuarios.GetUsuarios(-1, -1, -1) Then
            GlobalDTUsuarios = ObjUsuarios.DtResultados
        End If
        ObjUsuarios.Dispose()
        ObjEmpresas.Dispose()
    End Sub


    Protected Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles BtnOpenDiv.Click
        EsEditar = 0
        RegistraScript("$('#divEmpresa').modal()")
        BtnAgregarDist.Text = "Agregar"
        myModalLabel3.InnerHtml = "Agregar Distribuidor Master"
        TxtEmpresa.Text = ""
        TxtContacto.Text = ""
        TxtMail.Text = ""
        TxtRFC.Text = ""
        TxtTelefono.Text = ""
        dvEstatusEv.Visible = False
        UpdatePanel2.Update()
        UpBody.Update()
        UpFooter.Update()
    End Sub

    Protected Sub EnviaCorreoGPS()
        Dim objMail As New ClsSisMail()
        Dim body = GeneraCorreo()
        Dim archivos As New List(Of ClsSisMail.ArchivoMail)
        Dim ListArchivoMail As New List(Of ClsSisMail.ArchivoMail)
        Dim ArchivoMail As New ClsSisMail.ArchivoMail
        ArchivoMail.Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\Grales\LogoSinFondo.png"
        ArchivoMail.NombreArchivo = "LogoSinFondo.png"
        ListArchivoMail.Add(ArchivoMail)
        objMail.SendMail(ClsPaginas.EmpresaNotificaciones, TxtMail.Text, "Activación de empresa", body, "", ListArchivoMail)
        objMail = Nothing
    End Sub
    Private Function GeneraCorreo() 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 > div {font-family: Helvetica, sans-serif;}")
        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:100%;"">")
        strBody.Append("<div style='text-align:center; font-family: Helvetica, sans-serif;'><table><tr><td style='text-align:center'>   <h1> <img src='cid:LogoSinFondo.png' width='46' height='61'> AD Sistemas Soluciones en TI</h1>   </td></tr></table> </div> ")
        strBody.Append("            <div class=""portlet box red "" style=""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("                <div class=""portlet-title"" style="" font-family: Helvetica, sans-serif; background-color: #cb5a5e;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("                    <div class=""caption"" style=""padding: 11px 0 9px 0;float: left;display: inline-block;font-size: 24px;line-height: 18px;padding: 10px 0;"">")
        strBody.Append("                        <i class=""fa fa-user""></i>Información de Registro")
        strBody.Append("                    </div>")
        strBody.Append("                </div>")
        strBody.Append("                <div class=""portlet-body "" style=""font-family: Helvetica, sans-serif; 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;background-color: #fff;padding: 10px;"" >")
        strBody.Append("                    <table class=""mitablita"" style=""font-family: Helvetica, sans-serif;"">")
        strBody.Append("                        <tr>")
        strBody.Append("                            <td>Fecha: ")
        strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
        strBody.Append("                        </td>    <td>")
        strBody.Append("</td>                        </tr>")
        strBody.Append("                        <tr>")
        strBody.AppendFormat("                            <td><b>{0}<br/></b> <br/> </td>", TxtEmpresa.Text.Trim)
        strBody.Append("                            <td>")
        strBody.Append("</td>                        </tr>")
        strBody.Append(" <tr></tr> ")
        strBody.Append("                        <tr>")
        strBody.Append("                            <td>Se ha registrado como distribuidor master en SIG GPS</td>")
        strBody.Append("<tr><td colspan=""4"" >")
        'strBody.Append(Liga)
        strBody.AppendFormat("<a href='{0}'>Éste es su liga de acceso al sistema </a> <br/> <br/> </td></tr>", String.Format("{0}\Login.aspx", ModExtensiones.DirectorioBaseEmpresas))
        strBody.Append("<tr> <td> Sus Datos de Acceso son los siguientes: </td> </tr>")
        strBody.Append("<tr> <td>  ")
        strBody.Append("<ul>")
        strBody.AppendFormat("<li>Usuario: {0} </li>", TxtMail.Text)
        strBody.Append("<li> Contraseña: -acceso-   (La contraseña deberá ser cambiada después del primer inicio de sesión) </li> ")
        strBody.Append("</ul>")
        strBody.Append(" </td> </tr>")
        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