From d8b65c8e76b4229fe38bf6acb7e7dc443127c12e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 15 Jul 2025 16:36:57 -0700 Subject: [PATCH] -- sms, nuevo usuario en indicadores --- Inicio.aspx.vb | 194 ++++++++++++++++++++++++------------------------- 1 file changed, 97 insertions(+), 97 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 90526571d..3b435f7ef 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -141,112 +141,112 @@ Partial Class Inicio If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer() If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() - MuestraAniversarioLaboral() + If UsuarioActual.CveRol = 1 Then MuestraAniversarioLaboral() If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso - (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then + (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960, 4527) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then + ',4527-pamela + divsms1.Visible = True + txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString + txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString + If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960, 4527) Then 'diego de la concha + DdlSMSOpciones.SelectedValue = "2" + DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ") + DdlSMSVendedores.DataBind() + DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") + DdlSMSTecnico.DataBind() + End If + If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas + DdlSMSOpciones.SelectedValue = "2" + DdlSMSOpciones.Items.RemoveAt(4) + DdlSMSOpciones.Items.RemoveAt(3) + DdlSMSOpciones.Items.RemoveAt(2) + Dim CveGerenteVendedor As Integer = -1 + If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela + If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez - divsms1.Visible = True - txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString - txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString - If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha - DdlSMSOpciones.SelectedValue = "2" - DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ") - DdlSMSVendedores.DataBind() - DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") - DdlSMSTecnico.DataBind() - End If - If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas - DdlSMSOpciones.SelectedValue = "2" - DdlSMSOpciones.Items.RemoveAt(4) - DdlSMSOpciones.Items.RemoveAt(3) - DdlSMSOpciones.Items.RemoveAt(2) - Dim CveGerenteVendedor As Integer = -1 - If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela - If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez + DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ") + DdlSMSVendedores.DataBind() + DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1")) + End If + If UsuarioActual.CveRol = 1577 Then 'vendedores + DdlSMSOpciones.SelectedValue = "1" + DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString)) + DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString + DdlSMSVendedores.Enabled = False + DdlSMSOpciones.Enabled = False + End If + If UsuarioActual.CveRol = 1578 Then 'almacenista + DdlSMSOpciones.SelectedValue = "3" + DdlSMSOpciones.Enabled = False + End If + If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos + DdlSMSOpciones.SelectedValue = "5" + DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") + DdlSMSTecnico.DataBind() + DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0) - DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ") - DdlSMSVendedores.DataBind() - DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1")) - End If - If UsuarioActual.CveRol = 1577 Then 'vendedores - DdlSMSOpciones.SelectedValue = "1" - DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString)) - DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString - DdlSMSVendedores.Enabled = False - DdlSMSOpciones.Enabled = False - End If - If UsuarioActual.CveRol = 1578 Then 'almacenista - DdlSMSOpciones.SelectedValue = "3" - DdlSMSOpciones.Enabled = False - End If - If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos - DdlSMSOpciones.SelectedValue = "5" - DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") - DdlSMSTecnico.DataBind() - DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0) + ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos + DdlSMSOpciones.SelectedValue = "4" + DdlSMSOpciones.Enabled = False + DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString)) + DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString + DdlSMSTecnico.Enabled = False + End If + + CargaSMSKPI() - ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos - DdlSMSOpciones.SelectedValue = "4" - DdlSMSOpciones.Enabled = False - DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString)) - DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString - DdlSMSTecnico.Enabled = False End If - CargaSMSKPI() + If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then + CargaGraficas() + End If + + CargaTareas() + If UsuarioActual.CveRol = 1 Then + divInd.Visible = True + CargaSubProyectos() + End If + + 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD + + InicializaCalendar() + + If UsuarioActual.CveEmpresa = 72 Then + DivDirectorioTelefonico.Visible = True + CargaDirectorioTelefonico() + Else + DivDirectorioTelefonico.Visible = False + End If + + 'CARGA COMUNICADO + If UsuarioActual.TienePermisoProceso(224) Then + LnkAgregar.Visible = True + End If + + CargaComunicado() + + 'Evaluacion del proveedor + CargaEvaluacionProveedor() + + CargaDocumentacion() + + + If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then + LnkInconsistencias.Visible = True + End If + + + + + IniializaDdlsOpcionesAgenda() + + + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + DVTareas.Visible = True + End If End If - If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then - CargaGraficas() - End If - - CargaTareas() - If UsuarioActual.CveRol = 1 Then - divInd.Visible = True - CargaSubProyectos() - End If - - 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD - - InicializaCalendar() - - If UsuarioActual.CveEmpresa = 72 Then - DivDirectorioTelefonico.Visible = True - CargaDirectorioTelefonico() - Else - DivDirectorioTelefonico.Visible = False - End If - - 'CARGA COMUNICADO - If UsuarioActual.TienePermisoProceso(224) Then - LnkAgregar.Visible = True - End If - - CargaComunicado() - - 'Evaluacion del proveedor - CargaEvaluacionProveedor() - - CargaDocumentacion() - - - If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then - LnkInconsistencias.Visible = True - End If - - - - - IniializaDdlsOpcionesAgenda() - - - If UsuarioActual.CveEmpresa.Contiene(13, 83) Then - DVTareas.Visible = True - End If - - End If - End Sub Public Function GetFacturasCanceladasPendientesWS(objventas As ClsVentas, RFC As String, CveEmpresa As Integer, Optional showalert As Boolean = True) As Boolean