268 lines
14 KiB
VB.net
268 lines
14 KiB
VB.net
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
|