From 16a604afbae0542816d8b7020b496b64dab339d5 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 4 Feb 2021 00:41:17 -0700 Subject: [PATCH 1/2] --- App_Code/ClsSisUsuarios.vb | 3 ++- Compras/eFacturas.aspx | 12 ++++++------ Compras/eFacturas.aspx.vb | 4 ++-- LogIn.aspx.vb | 4 ++-- vwd.webinfo | 2 ++ 5 files changed, 14 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb index c1f9e640a..d1ff35a2d 100644 --- a/App_Code/ClsSisUsuarios.vb +++ b/App_Code/ClsSisUsuarios.vb @@ -191,7 +191,7 @@ Public Class ClsSisUsuarios End Try Return Retorno End Function - Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1) As Usuario + Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional CvePlataforma As Integer = -1) As Usuario Dim Retorno As Usuario = Nothing DataAdapter("PA_Sis_UsuariosGet") With SqlAdapter.SelectCommand.Parameters @@ -199,6 +199,7 @@ Public Class ClsSisUsuarios .Add("@CveRol", SqlDbType.Int).Value = -1 .Add("@Usuario", SqlDbType.VarChar).Value = Usuario .Add("@Contraseña", SqlDbType.VarChar).Value = Password + .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma .Add("@EsLogIn", SqlDbType.Bit).Value = 1 End With Try diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 3f7b5b01f..89b63605c 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -210,7 +210,7 @@ - + @@ -236,7 +236,7 @@ <%----%> - + @@ -250,7 +250,7 @@ <%----%> - + @@ -324,7 +324,7 @@ - + @@ -348,7 +348,7 @@ - + @@ -361,7 +361,7 @@ - + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 3b39e3541..ff7b71be6 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -898,7 +898,7 @@ Partial Class Compras_eFacturas End If If e.Row.DBCampo("CveCompra") <> "" Then - e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml + e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml End If If e.Row.DBCampo("CveProveedor") = "" Then @@ -1059,7 +1059,7 @@ Partial Class Compras_eFacturas End If If e.Row.DBCampo("CveCompra") <> "" Then - e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml + e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml End If If e.Row.DBCampo("CveProveedor") = "" Then diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index bff8ad86f..7235394c6 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -198,13 +198,13 @@ Partial Class LogIn Dim Usuario As Usuario = Nothing 'Dim UsuarioAsignaciones As Usuario = Nothing - Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI) + Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) + Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, 1)) 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) ADSSessionConfig.sessionUser = Usuario ADSSessionConfig.sessionDpage = False ObjUsuario.Dispose() - Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) If Usuario IsNot Nothing AndAlso ( Usuario.CveRol = 1 OrElse ( (isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse diff --git a/vwd.webinfo b/vwd.webinfo index 37b42e3cc..d553518ff 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -174,6 +174,8 @@ + + From 76c0c6bdcacbb7a05f782d7c742f5c82a5819893 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 4 Feb 2021 01:25:49 -0700 Subject: [PATCH 2/2] --- GPS/WizardDispositivos.aspx.cs | 10 ++++++++-- LogIn.aspx.vb | 7 +------ 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs index d82f32cbb..d5d2dcbf0 100644 --- a/GPS/WizardDispositivos.aspx.cs +++ b/GPS/WizardDispositivos.aspx.cs @@ -153,7 +153,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas if (CveDispositivo < 0) { TabContainer.ActiveTabIndex = 0; - Alert("Debe guardar el dispositivo primero"); + Alert("Debe guardar el dispositivo primero",ModExtensiones.TipoMensaje.MsgAdvertencia ); } } @@ -376,7 +376,13 @@ public partial class GPS_WizardDispositivos : ClsPaginas CargaDatos(CveDispositivo); Updatos.Update(); string script = ""; - if (GPSNEW == 1) { TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})"; } + if (GPSNEW == 1) { + TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})"; + ClsSisMail correo = new ClsSisMail(); + Correo.SendMail(UsuarioActual.EmpresaNotificaciones, "paola@adssistemas.mx;Caudillo.90d@gmail.com", "Alta nuevo dispositivo", + $"se le informa la alta de un nuevo dispositivo en la empresa \"{UsuarioActual.Empresa.Empresa}\"\r\nIMEI : \"{IMEI}\"\r\nSerie : \"{Serie}\"\r\nModelo : \"{modelo}\""); + + } Alert("El dispositivo y sus configuraciones, se han guardado correctamente", ModExtensiones.TipoMensaje.MsgInformacion, script); if (TipoDispositivo == 2) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index 7235394c6..e82ce6868 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -205,12 +205,7 @@ Partial Class LogIn ADSSessionConfig.sessionUser = Usuario ADSSessionConfig.sessionDpage = False ObjUsuario.Dispose() - If Usuario IsNot Nothing AndAlso ( - Usuario.CveRol = 1 OrElse ( - (isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse - ((Not isgps) AndAlso (Usuario.CvePlataforma <> 3 AndAlso Usuario.CveRol <> 1200)) - ) - ) Then + If Usuario IsNot Nothing Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then CreaObjetoEmpresa(Usuario)