diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index bf2fd5e44..f4a83b584 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8041,5 +8041,24 @@ Public Class ClsPaginas
     End Sub
 #End Region
 
+    Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label)
+        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+            Case 1
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                LblSubProyecto.Text = "Centro Costo"
+            Case 2
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                LblSubProyecto.Text = "Sucursal"
+            Case 3
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                LblSubProyecto.Text = "Proyecto"
+            Case 4
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
+                LblSubProyecto.Text = "Subproyecto"
+            Case 5
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
+                LblSubProyecto.Text = "Sucursal"
+        End Select
+    End Sub
 End Class
 
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index ecbbb6b28..781193794 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -613,7 +613,7 @@
                                                     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:Literal ID="LitHProyecto" runat="server" Text="Proyecto<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"></asp:Literal><asp:Label runat="server" ID="LblSubProyectoHeader" Text="SubProyecto"></asp:Label>&nbsp;
+                                                    <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
                                                    
                                                    
 
@@ -653,7 +653,7 @@
                                                             <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 />
+                                                            <%--<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>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 9092932ce..816d8cd42 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1535,26 +1535,27 @@ Partial Class Compras_Compras
                 DivConsignaciones.Visible = False
             End If
 
+            CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
             If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                LitHProyecto.Text = "Proyecto"
-                LthProyectoP.Text = "Proyecto"
+                '    LitHProyecto.Text = "Proyecto"
+                '    LthProyectoP.Text = "Proyecto"
 
-                LblSubProyectoHeader.Text = ""
-                LblSubProyectoPHeader.Text = ""
+                '    LblSubProyectoHeader.Text = ""
+                '    LblSubProyectoPHeader.Text = ""
 
-                LblSubProyecto.InnerText = "Proyecto"
-                'LblSubProyectoDivAplica.InnerText = "Proyecto"
+                '    LblSubProyecto.InnerText = "Proyecto"
+                '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
 
                 DdlSubProyecto.Items.Clear()
-                'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+                '    '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
@@ -1562,57 +1563,57 @@ Partial Class Compras_Compras
                 DdlProyecto.Items(0).Text = ""
 
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                LitHProyecto.Text = "Sucursal"
-                LthProyectoP.Text = "Sucursal"
+                '    LitHProyecto.Text = "Sucursal"
+                '    LthProyectoP.Text = "Sucursal"
 
-                LblSubProyectoHeader.Text = ""
-                LblSubProyectoPHeader.Text = ""
+                '    LblSubProyectoHeader.Text = ""
+                '    LblSubProyectoPHeader.Text = ""
 
-                LblSubProyecto.InnerText = "Sucursal"
-                'LblSubProyectoDivAplica.InnerText = "Sucursal"
+                '    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.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()
 
 
diff --git a/GPS/RecursoConfiableTracking.aspx.vb b/GPS/RecursoConfiableTracking.aspx.vb
index f88665cbe..1981c4ce8 100644
--- a/GPS/RecursoConfiableTracking.aspx.vb
+++ b/GPS/RecursoConfiableTracking.aspx.vb
@@ -25,11 +25,13 @@ Partial Class GPS_RecursoConfiableTracking
 
     Public Sub CargaDispositivos()
 
-        DdlDispositivoFiltro.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        Dim DtDispositivos As DataTable = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND PlacasVehiculo IS NOT NULL AND PlacasVehiculo <> ''")
+
+        DdlDispositivoFiltro.DataSource = DtDispositivos
         DdlDispositivoFiltro.DataBind()
         DdlDispositivoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlDispositivo.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("PlacasVehiculo IS NOT NULL AND PlacasVehiculo <> ''")
+        DdlDispositivo.DataSource = DtDispositivos
         DdlDispositivo.DataBind()
         DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx
index b3891f3aa..8412bda47 100644
--- a/General/PopUpPaqueteriasGuias.aspx
+++ b/General/PopUpPaqueteriasGuias.aspx
@@ -205,6 +205,8 @@
                     <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td>
                     <td align="left" valign="top" style="width: 200px;">
                         <asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                        <asp:RequiredFieldValidator ID="RfvPaqueteriaGuiaTipo" runat="server" ControlToValidate="DdlPaqueteriaGuiaTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Documento''</b> es necesario." ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
+                        <ajax:ValidatorCalloutExtender ID="VcePaqueteriaGuiaTipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvPaqueteriaGuiaTipo" Width="220px" PopupPosition="Left"></ajax:ValidatorCalloutExtender>
                     </td>
                 </tr>
 
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 180918c6d..9d5447314 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -738,8 +738,8 @@
                                                 <th scope="col">Unidad</th>
                                                 <th scope="col">Observación</th>
                                                 <th scope="col">
-                                                    <asp:Label ID="TtituloProyecto" Text="Proyecto" runat="server" /><br />
-                                                    <asp:Label ID="TituloSubProyecto" Text="SubProyecto" runat="server" />
+                                                    <asp:Label ID="TtituloProyecto" Text="" runat="server" />
+                                                    <asp:Label ID="TituloSubProyecto" Text="" runat="server" />
                                                 </th>
                                                 <th scope="col" id="ThActivoFijo" runat="server">Activo Fijo</th>
                                                 <th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 793816bbb..8ee126486 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -697,8 +697,8 @@ Partial Class OC
 
             If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
                 DdlProyecto.Visible = False
-                TituloSubProyecto.Text = ""
-                TtituloProyecto.Text = "Sucursal"
+                'TituloSubProyecto.Text = ""
+                'TtituloProyecto.Text = "Sucursal"
                 DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
                 DdlSubProyecto.DataBind()
                 DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -710,8 +710,8 @@ Partial Class OC
                 LblSubProyecto.Text = "Sucursal"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
                 DdlProyecto.Visible = False
-                TituloSubProyecto.Text = ""
-                TtituloProyecto.Text = "Proyecto"
+                'TituloSubProyecto.Text = ""
+                'TtituloProyecto.Text = "Proyecto"
                 DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
                 DdlSubProyecto.DataBind()
                 DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -722,19 +722,20 @@ Partial Class OC
                 DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
                 LblSubProyecto.Text = "Proyecto"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-                TtituloProyecto.Text = "Sucursal"
-                TituloSubProyecto.Text = "Proyecto"
+                'TtituloProyecto.Text = "Sucursal"
+                'TituloSubProyecto.Text = "Proyecto"
 
                 LblSubProyecto.Text = "Proyecto"
                 LblProyecto.Text = "Sucursal"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-                TtituloProyecto.Text = "Proyecto"
-                TituloSubProyecto.Text = "Sucursal"
+                'TtituloProyecto.Text = "Proyecto"
+                'TituloSubProyecto.Text = "Sucursal"
 
                 LblSubProyecto.Text = "Sucursal"
                 LblProyecto.Text = "Proyecto"
             End If
 
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
 
             'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
             If Not CveOrdenCompra > 0 Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 21d8a1652..e744b495e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2452,7 +2452,7 @@ Partial Class Ventas
             CargaFletes()
 
             If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                DdlProyecto.Visible = False
+                'DdlProyecto.Visible = False
                 BrSubProyecto.Visible = False
                 DdlProyectoPyME.Visible = False
                 LblProyectoHeader.Text = "Sucursal"
@@ -2476,7 +2476,7 @@ Partial Class Ventas
                 dttSub.Dispose()
 
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                DdlProyecto.Visible = False
+                'DdlProyecto.Visible = False
                 BrSubProyecto.Visible = False
                 DdlProyectoPyME.Visible = False
                 LblProyectoHeader.Text = "Proyecto"
@@ -2509,6 +2509,8 @@ Partial Class Ventas
 
             End If
 
+            CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto)
+
             'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
             If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
                 ImgOtrosConceptos.Visible = False