From ef0f7c3350d46b89caf12bc08fca8f3758f78e9b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 23 Apr 2025 20:38:18 -0700 Subject: [PATCH] -- mejora --- App_Code/ClsVentas.vb | 3 +- Inicio.aspx | 2 +- Inicio.aspx.vb | 80 ++++++++++++++++++++++++++----------------- 3 files changed, 52 insertions(+), 33 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 3a08f1200..223f40d59 100644 --- 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 diff --git a/Inicio.aspx b/Inicio.aspx index 140609925..6c15b06db 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -553,7 +553,7 @@
Opción:
-
+
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 018715c5f..142d887d8 100644 --- 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)