diff --git a/Inicio.aspx b/Inicio.aspx
index 06230281a..140609925 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -548,7 +548,7 @@
                     </div>
                 </div>
                  <br />                 
-                <div class="row" style="width: 95%; margin-right: 2.5%; margin-left: 2.5%;" runat="server" id="divsms1">
+                <div class="row" style="width: 95%; margin-right: 2.5%; margin-left: 2.5%;" runat="server" id="divsms1" visible="false">
                      <asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
                          <ContentTemplate>
                              <div class="row" >
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 91feb562f..89c36d9d4 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -190,10 +190,11 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso UsuarioActual.CveRol.Contiene(1577, 1639, 1573) Then
+            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
+                divsms1.Visible = True
                 If UsuarioActual.CveRol = 1577 Then
                     Opcion = 1 'vendedor
                     CveVendedor = UsuarioActual.CveVendedor
@@ -2524,7 +2525,6 @@ Partial Class Inicio
         If DdlSMSOpciones.SelectedValue = "1" Then
             DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatus=1")
             DdlSMSVendedores.DataBind()
-            DdlSMSVendedores.Items.Insert(0, New ListItem("Todos", "-1"))
             DdlSMSVendedores.Visible = True
             DdlSMSTecnico.Visible = False
             CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero)