diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a04b7132b..e5e692298 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8053,12 +8053,18 @@ Public Class ClsPaginas
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
                 LblSubProyecto.Text = "Proyecto"
             Case 4
-                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
                 LblSubProyecto.Text = "Subproyecto"
             Case 5
-                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
                 LblSubProyecto.Text = "Sucursal"
         End Select
+        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
+        DdlProyecto.DataBind()
+
+        DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 End Class
 
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 781193794..82abd140c 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -613,9 +613,8 @@
                                                     Producto o Servicio<asp:HyperLink ID="HyperLink1" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " data-placement="top" ToolTip="Agregar Producto o Servicio" NavigateUrl="/Ventas/CatPS.aspx" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink></th>
                                                 <th style="width: 200px">Observación</th>
                                                 <th style="width: 150px">
-                                                    <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
-                                                   
-                                                   
+                                                    <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label>
+                                                    <asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
 
                                                     <asp:LinkButton ID="ImgActualizarProyecto" CssClass="btn btn-default btn-circle" data-toggle="tooltip" data-placement="top" ToolTip="Actualizar Cambios" runat="server" Visible="False"><i class="fa fa-arrow-circle-down" aria-hidden="true"></i></asp:LinkButton>
                                                     <span data-toggle="collapse" data-target="#DivReclasifica">
@@ -650,13 +649,21 @@
                                                 <th>
                                                     <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpReclasificarSubProyecto">
                                                         <ContentTemplate>
-                                                            <asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                            </asp:DropDownList>
-                                                            <%--<br />--%>
-                                                            <asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                            </asp:DropDownList>
+                                                            <div class="row">
+                                                                <div class="col-md-1" style="width:100%">
+                                                                    <asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
+                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                </div>
+                                                                <%--<br runat="server" id="brProyectoSubProyecto" style="display:none"/>--%>
+                                                            </div>
+                                                            <div class="row">
+                                                                <div class="col-md-1" style="width:100%">
+                                                                    <asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                </div>
+                                                            </div>
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
                                                 </th>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 816d8cd42..9782d8da6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1546,11 +1546,11 @@ Partial Class Compras_Compras
                 '    LblSubProyecto.InnerText = "Proyecto"
                 '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
 
-                DdlSubProyecto.Items.Clear()
-                '    'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                'DdlSubProyecto.Items.Clear()
+                ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+                'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+                'DdlSubProyecto.DataBind()
+                'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
                 '    'DdlAsignaSubProyecto.Items.Clear()
                 '    'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
@@ -1572,48 +1572,48 @@ Partial Class Compras_Compras
                 '    LblSubProyecto.InnerText = "Sucursal"
                 '    'LblSubProyectoDivAplica.InnerText = "Sucursal"
 
-                DdlSubProyecto.Items.Clear()
-            'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                'DdlSubProyecto.Items.Clear()
+                ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+                'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+                'DdlSubProyecto.DataBind()
+                'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-            '    'DdlAsignaSubProyecto.Items.Clear()
-            '    'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-            '    'DdlAsignaSubProyecto.DataBind()
-            '    'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                '    'DdlAsignaSubProyecto.Items.Clear()
+                '    'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+                '    'DdlAsignaSubProyecto.DataBind()
+                '    'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-            divproyecto.Visible = False
-            'divasignaproyecto.Visible = False
-            DdlProyecto.Visible = False
-            DdlProyecto.Items(0).Text = ""
+                divproyecto.Visible = False
+                'divasignaproyecto.Visible = False
+                DdlProyecto.Visible = False
+                DdlProyecto.Items(0).Text = ""
 
-            'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            '    LitHProyecto.Text = "Sucursal"
-            '    LthProyectoP.Text = "Sucursal"
+                'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+                '    LitHProyecto.Text = "Sucursal"
+                '    LthProyectoP.Text = "Sucursal"
 
-            '    LblSubProyectoHeader.Text = "Proyecto"
-            '    LblSubProyectoPHeader.Text = "Proyecto"
+                '    LblSubProyectoHeader.Text = "Proyecto"
+                '    LblSubProyectoPHeader.Text = "Proyecto"
 
-            '    'LblSubProyectoDivAplica.InnerText = "Sucursal"
-            '    'LblProyectoDivAplica.InnerText = "Proyecto"
-            '    LblSubProyecto.InnerText = "Sucursal"
-            '    LblProyecto.InnerText = "Proyecto"
+                '    'LblSubProyectoDivAplica.InnerText = "Sucursal"
+                '    'LblProyectoDivAplica.InnerText = "Proyecto"
+                '    LblSubProyecto.InnerText = "Sucursal"
+                '    LblProyecto.InnerText = "Proyecto"
 
-            'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            '    LitHProyecto.Text = "Proyecto"
-            '    LthProyectoP.Text = "Proyecto"
+                'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+                '    LitHProyecto.Text = "Proyecto"
+                '    LthProyectoP.Text = "Proyecto"
 
-            '    LblSubProyectoHeader.Text = "Sucursal"
-            '    LblSubProyectoPHeader.Text = "Sucursal"
+                '    LblSubProyectoHeader.Text = "Sucursal"
+                '    LblSubProyectoPHeader.Text = "Sucursal"
 
-            '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
-            '    'LblProyectoDivAplica.InnerText = "Sucursal"
-            '    LblSubProyecto.InnerText = "Proyecto"
-            '    LblProyecto.InnerText = "Sucursal"
-        End If
+                '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
+                '    'LblProyectoDivAplica.InnerText = "Sucursal"
+                '    LblSubProyecto.InnerText = "Proyecto"
+                '    LblProyecto.InnerText = "Sucursal"
+            End If
 
-        CargaGvPersonal()
+            CargaGvPersonal()
             CargaDdlPersonal()