-- mejora

2025-04-23 20:38:18 -07:00
parent 97063dc656
commit ef0f7c3350
3 changed files with 52 additions and 33 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7697,7 +7697,7 @@ Public Class ClsVentas
    End Function


-    Public Function GetSMSIndicadores(Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveVendedor As Integer, CveUsuarioTecnico As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetSMSIndicadores(Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveVendedor As Integer, CveGerenteVendedor As Integer, CveUsuarioTecnico As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_SMS_IndicadoresGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -7706,6 +7706,7 @@ Public Class ClsVentas
            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveGerenteVendedor", SqlDbType.Int).Value = CveGerenteVendedor
            .Add("@CveUsuarioTecnico", SqlDbType.Int).Value = CveUsuarioTecnico
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -553,7 +553,7 @@
                         <ContentTemplate>
                             <div class="row" >
                                 <div class="col-md-1">Opción:</div>
-                                 <div class="col-md-3">
+                                 <div class="col-md-1">
                                      <asp:DropDownList ID="DdlSMSOpciones" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlSMSOpciones_SelectedIndexChanged">
                                         <asp:ListItem Text="Vendedor" Value="1" />
                                         <asp:ListItem Text="Gerente Ventas" Value="2" Selected="True" />
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -181,19 +181,38 @@ 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 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 = 3964 Or 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.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
-                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 
+                If UsuarioActual.CveUsuario = 3964 Then
+                    DdlSMSOpciones.SelectedValue = "2"
+                    DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
+                    DdlSMSVendedores.DataBind()
                End If
-                CargaKPICirugias(Opcion, CveVendedor, CveUsuarioTecnico)
+                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()
+                End If
+                CargaSMSKPI()
+
            End If

            If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
@@ -1437,7 +1456,6 @@ Partial Class Inicio
        RegistraScript("$('#DvUnoaUno').modal('hide')")
    End Sub

-
 #Region "DOCUMENTACION"

    Private Sub CargaDocumentacion()
@@ -1494,19 +1512,12 @@ Partial Class Inicio

 #End Region

-
-
-
    Protected Sub LnkInconsistencias_Click1(sender As Object, e As EventArgs)
        MuestraInconsistencias()
    End Sub

-
-
-
    Private Sub IniializaDdlsOpcionesAgenda()
        'CLIENTES
-
        DdlClientesWS.setEsWebService(True)

        'PROVEEDORES
@@ -1523,14 +1534,8 @@ Partial Class Inicio
        DdlPersonal.DataBind()
        DdlPersonal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))

-
        CargaDdlEmpresaCRM()
-
-
        RBLAgendaOpcion_SelectedIndexChanged(Nothing, Nothing)
-
-
-
    End Sub

    Private Sub CargaDdlEmpresaCRM()
@@ -1614,7 +1619,7 @@ Partial Class Inicio


 #Region "S M S   -  I N D I C A D O R E S"
-    Private Sub CargaKPICirugias(Opcion As Integer, Optional CveVendedor As Integer = -1, Optional CveUsuarioTecnico As Integer = -1)
+    Private Sub CargaKPICirugias(Opcion As Integer, Optional CveVendedor As Integer = -1, Optional CveUsuarioTecnico As Integer = -1, Optional CveGerenteVendedor As Integer = -1)

        DivIndicadores.InnerHtml = ""
        Dim dtIndicadores As DataTable = Nothing
@@ -1625,7 +1630,7 @@ Partial Class Inicio
        Dim FechaI As Date = Now.FirstDayOfMonth
        Dim FechaF As Date = Now.LastDayOfMonth

-        If Gral.GetSMSIndicadores(Opcion, FechaI, FechaF, UsuarioActual.CveUsuario, CveVendedor, CveUsuarioTecnico, UsuarioActual.CveEmpresa) Then
+        If Gral.GetSMSIndicadores(Opcion, FechaI, FechaF, UsuarioActual.CveUsuario, CveVendedor, CveGerenteVendedor, CveUsuarioTecnico, UsuarioActual.CveEmpresa) Then
            ds = Gral.DataSetResultados
        End If
        '0-ventas totales, 1-comisiones totales, 2-medicos sin consumo, 3-top10medicos, 4-top5marcas, 5-num pacientes
@@ -2513,14 +2518,22 @@ Partial Class Inicio

 #End Region

-    Protected Sub DdlSMSOpciones_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Private Sub CargaSMSKPI(Optional CveGerente As Integer = -1)
        If DdlSMSOpciones.SelectedValue = "1" Then
-            DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatus=1")
-            DdlSMSVendedores.DataBind()
            DdlSMSVendedores.Visible = True
            DdlSMSTecnico.Visible = False
            Dim CveUsuarioTecnico As Integer = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {DdlSMSVendedores.SelectedValue}").ToEntero
            CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero, CveUsuarioTecnico)
+
+        ElseIf DdlSMSOpciones.SelectedValue = "2" Then ' ROL DE GERENTE DE VENTAS
+            Dim CveGerenteVendedor As Integer = -1
+            If UsuarioActual.CveRol = 1639 Then
+                If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 ' daniela 
+                If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 'jesus alvarez 
+            End If
+            DdlSMSVendedores.Visible = False
+            CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, CveGerenteVendedor:=CveGerenteVendedor)
+
        ElseIf DdlSMSOpciones.SelectedValue = "4" Then
            DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
            DdlSMSTecnico.DataBind()
@@ -2533,9 +2546,14 @@ Partial Class Inicio
            DdlSMSTecnico.Visible = False
            CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero)
        End If
-
    End Sub

+    Protected Sub DdlSMSOpciones_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaSMSKPI()
+    End Sub
+
+
+
    Protected Sub DdlSMSVendedores_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim CveUsuarioTecnico As Integer = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {DdlSMSVendedores.SelectedValue}").ToEntero
        CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero, CveUsuarioTecnico)