diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx
index 7dca31588..37ac85984 100644
--- a/Sistemas/UsuarioDetalle.aspx
+++ b/Sistemas/UsuarioDetalle.aspx
@@ -1453,7 +1453,7 @@
                                                         </tr>
                                                     </table>
                                                     <div style="max-height: 300px; overflow-y: auto;">
-                                                        <asp:GridView ID="GvClasificacion" DataKeyNames="CveClasificacion" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de clasificaciones del Usuario" CssClass="table table-striped table-hover Widthall" GridLines="None">
+                                                        <asp:GridView ID="GvClasificacion" DataKeyNames="CveClasificacion" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de clasificaciones del Usuario" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None">
                                                             <Columns>
                                                                 <asp:TemplateField>
                                                                     <ItemTemplate>
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index e00a7dc2f..5ea3af3d8 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1556,16 +1556,12 @@ Partial Class Sistemas_UsuarioDetalle
             If UsuarioControlado Then
                 DdlProyecto.DataSource = GetProyectosSinGV(DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}"))
             Else
-                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}))
+                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero))
             End If
         End If
         DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-
-        'CARGA SOLO PROYECTO (SUBRPOYECTOS)
-        If DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66 Then
-            SoloSubProyectos()
-        End If
+        DdlProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
+
     End Sub
     Private Function GetSubProyectosSinGV() As String
         Dim SB As New StringBuilder