From 7465a53d6bc95d6d3dcf93972e0d644061f70171 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 15 May 2025 06:12:47 -0700
Subject: [PATCH] =?UTF-8?q?--=20SMS=20activaci=C3=B3n=20dash,=20en=20roles?=
 =?UTF-8?q?=20de=20ventas,almacen,tecnico?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inicio.aspx.vb | 48 ++++++++++++++++++++++++++++++++----------------
 1 file changed, 32 insertions(+), 16 deletions(-)

diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index b18897be0..570085ae2 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -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)