AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- SMS activación dash, en roles de ventas,almacen,tecnico

Browse Source
This commit is contained in:
rrene
2025-05-15 06:12:47 -07:00
parent 2431ba0d05
commit 7465a53d6b
1 changed files with 32 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Inicio.aspx.vb
View File

@@ -8,7 +8,7 @@ Imports ADSNetLibrary.SIGAPI.Services.CRM
Partial Class Inicio
Inherits ClsPaginas
Private Dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}
'Private Dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -142,25 +142,18 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso (UsuarioActual.CveUsuario = 3964 OrElse UsuarioActual.CveRol = 1639) Then 'AndAlso UsuarioActual.CveRol.Contiene(1577, 1639, 1573) Then
'Dim Opcion As Integer = 1
'Dim CveVendedor As Integer = -1
'Dim CveUsuarioTecnico As Integer = -1
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
(UsuarioActual.CveUsuario.Contiene(3964, 3984) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
'If UsuarioActual.CveRol = 1577 Then 'vendedor
' Opcion = 1
' CveVendedor = UsuarioActual.CveVendedor
' CveUsuarioTecnico = UsuarioActual.CveUsuario 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuarioTecnico", $"CveVendedor = {CveVendedor}").ToEntero
'ElseIf UsuarioActual.CveRol.Contiene(1639, 1573) Then ' rol admin. 1573
' Opcion = 2 'gerente ventas
'End If
divsms1.Visible = True
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
If UsuarioActual.CveUsuario = 3964 Then
If UsuarioActual.CveUsuario = 3964 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"
@@ -173,7 +166,33 @@ Partial Class Inicio
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()
End If
@@ -2551,9 +2570,6 @@ Partial Class Inicio
CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, CveGerenteVendedor:=CveGerenteVendedor)
ElseIf DdlSMSOpciones.SelectedValue = "4" Then
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
DdlSMSTecnico.DataBind()
DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSMSTecnico.Visible = True
DdlSMSVendedores.Visible = False
CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, -1, DdlSMSTecnico.SelectedValue.ToEntero)