From f217fcc4d1972a3ad7f4b662270789d7f0c68c64 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 22 Apr 2025 14:29:43 -0700
Subject: [PATCH] -- mejora

---
 Inicio.aspx.vb | 22 ++++++++--------------
 1 file changed, 8 insertions(+), 14 deletions(-)

diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 89c36d9d4..018715c5f 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -170,23 +170,14 @@ Partial Class Inicio
                 End If
                 OC.Dispose()
             End If
-
-
             ViewState("FechaSel") = NowADS().ToShortDateString
-            'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse
-
-
 
             'Ventas no timbradas por centro de costo
             If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto()
-
             'Ventas sin correo enviado
             If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
-
             If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
             If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
-
-
             If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
@@ -195,9 +186,10 @@ Partial Class Inicio
                 Dim CveVendedor As Integer = -1
                 Dim CveUsuarioTecnico As Integer = -1
                 divsms1.Visible = True
-                If UsuarioActual.CveRol = 1577 Then
-                    Opcion = 1 'vendedor
+                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
@@ -266,7 +258,7 @@ Partial Class Inicio
         If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
             Dim ObjProveedor As New ClsCompProveedores
             If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then
-                If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then
+                If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 And CveUsuario={UsuarioActual.CveUsuario}") > 0 Then
                     Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?"
                     Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
 
@@ -2527,7 +2519,8 @@ Partial Class Inicio
             DdlSMSVendedores.DataBind()
             DdlSMSVendedores.Visible = True
             DdlSMSTecnico.Visible = False
-            CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero)
+            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 = "4" Then
             DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
             DdlSMSTecnico.DataBind()
@@ -2544,7 +2537,8 @@ Partial Class Inicio
     End Sub
 
     Protected Sub DdlSMSVendedores_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero)
+        Dim CveUsuarioTecnico As Integer = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {DdlSMSVendedores.SelectedValue}").ToEntero
+        CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero, CveUsuarioTecnico)
     End Sub
 
     Protected Sub DdlSMSTecnico_SelectedIndexChanged(sender As Object, e As EventArgs)