diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 154097b80..5b4bd4c6b 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -567,7 +567,7 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1) As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -707,6 +707,8 @@ Public Class ClsClientes
             .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen
             .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
 
+            .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
+
 
         End With
         Try
@@ -755,7 +757,7 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1) As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -910,7 +912,7 @@ Public Class ClsClientes
             .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen
             .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
 
-
+            .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
 
         End With
         Try
diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index 568713257..a16f069eb 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -3231,7 +3231,7 @@ Public Class ClsGPS
         Return retorno
     End Function
 
-    Public Function DispositivosUsuariosGet(CveDispositivo As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
+    Public Function DispositivosUsuariosGet(CveDispositivo As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1, Optional CveUsuario As Integer = -1, Optional ConcatenarDispuestos As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_DispositivosUsuariosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -3240,6 +3240,7 @@ Public Class ClsGPS
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@ConcatenarDispuestos", SqlDbType.Bit).Value = ConcatenarDispuestos
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5105,6 +5106,41 @@ Public Class ClsGPS
         Return retorno
     End Function
 
+    Public Function UpdateUnidadesDispuestas(CveDispositivo As Integer, Dispuesta As Boolean) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_GPS_UnidadesDispuestasUpdate", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@Dispuesta", SqlDbType.Bit).Value = Dispuesta
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las unidades dispuestas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function GetUnidadesDispuestas(CveDispositivo As Integer, CveCliente As Integer, CveEmpresa As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_GPS_UnidadesDispuestasGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las unidades dispuestas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
 #End Region
 
 #Region "G A S T O S"
diff --git a/GPS/Trayectos.aspx b/GPS/Trayectos.aspx
index c07974719..5f12e5d13 100644
--- a/GPS/Trayectos.aspx
+++ b/GPS/Trayectos.aspx
@@ -104,7 +104,7 @@
                         <ul class="list-inline" style="font-size: 12px;">
                             <li>Vehículo:              
                                 
-                                <asp:DropDownList ID="DdlDispositivoFiltro" runat="server" Width="200px" DataTextField="Display" DataValueField="CveDispositivo" CssClass="form-control input-sm select2me">
+                                <asp:DropDownList ID="DdlDispositivoFiltro" runat="server" Width="200px" DataTextField="DisplayCliente" DataValueField="CveDispositivo" CssClass="form-control input-sm select2me">
                                 </asp:DropDownList>
                             </li>
                             <li>Estatus:              
@@ -209,7 +209,7 @@
                             <div class="row">
                                 <div class="col-md-6">
                                     <div class="form-group form-md-line-input input-iconright">
-                                        <asp:DropDownList ID="DdlDispositivo" DataTextField="Display" DataValueField="CveDispositivo" CssClass="form-control select2me" runat="server"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlDispositivo" DataTextField="DisplayCliente" DataValueField="CveDispositivo" CssClass="form-control select2me" runat="server" Width="100%"></asp:DropDownList>
                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" InitialValue="-1" CssClass="help-block errorimput" ControlToValidate="DdlDispositivo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dispositivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTrayecto"></asp:RequiredFieldValidator>
                                         <label for="<%= DdlDispositivo.ClientID.ToString()%>" style="width: 50%">Vehículo:</label>
                                     </div>
@@ -318,7 +318,7 @@
                                 <label for="<%=DdlTrayecto.ClientID.ToString()%>">Trayecto:</label>
                             </div>
                             <div class="form-group form-md-line-input input-iconright">
-                                <asp:DropDownList ID="DdlDispositivoNuevo" DataTextField="Display" DataValueField="CveDispositivo" CssClass="form-control select2me" runat="server"></asp:DropDownList>
+                                <asp:DropDownList ID="DdlDispositivoNuevo" DataTextField="DisplayCliente" DataValueField="CveDispositivo" CssClass="form-control select2me" runat="server" Width="100%"></asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" InitialValue="-1" CssClass="help-block errorimput" ControlToValidate="DdlDispositivoNuevo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dispositivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpNuevo"></asp:RequiredFieldValidator>
                                 <label for="<%= DdlDispositivoNuevo.ClientID.ToString()%>" style="width: 50%">Vehículo:</label>
                             </div>
diff --git a/GPS/Trayectos.aspx.vb b/GPS/Trayectos.aspx.vb
index e473a0319..bc8ed7985 100644
--- a/GPS/Trayectos.aspx.vb
+++ b/GPS/Trayectos.aspx.vb
@@ -56,16 +56,24 @@ Partial Class GPS_Trayectos
         CargaTrayectos()
     End Sub
     Public Sub CargaDispositivos()
-        DdlDispositivo.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        Dim DtDispositivos As DataTable = Nothing
+
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.DispositivosUsuariosGet(-1, 1, UsuarioActual.CveCliente, CveUsuario:=UsuarioActual.CveUsuario, ConcatenarDispuestos:=True) Then
+                DtDispositivos = ObjGPS.DtResultados.Copy
+            End If
+        End Using
+
+        DdlDispositivo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
         DdlDispositivo.DataBind()
         DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlDispositivoNuevo.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        DdlDispositivoNuevo.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
         DdlDispositivoNuevo.DataBind()
         DdlDispositivoNuevo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
-        DdlDispositivoFiltro.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
+        DdlDispositivoFiltro.DataSource = DtDispositivos 'GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario)
         DdlDispositivoFiltro.DataBind()
         DdlDispositivoFiltro.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 80259f113..4362af25c 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -173,10 +173,9 @@
         }
 
 
-        .orange{
-            color:orange;
-            background-color:orange;
-
+        .orange {
+            color: orange;
+            background-color: orange;
         }
     </style>
 </asp:Content>
@@ -879,6 +878,56 @@
                                         </asp:UpdatePanel>
                                     </div>
                                 </div>
+                                <div class="portlet light xspadding bordered" id="DivTrayectos" runat="server" visible="false">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">CONFIGURACIÓN DE TRAYECTOS:</span>
+                                        </div>
+                                        <div class="actions">
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body form">
+                                        <asp:UpdatePanel runat="server" ID="UpTrayectos" UpdateMode="Conditional">
+                                            <ContentTemplate>
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:DropDownList ID="DdlAdminTrayecto" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlAdminTrayecto_SelectedIndexChanged" AutoPostBack="true">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        <asp:ListItem Value="1" Text="Administrador de Trayectos"></asp:ListItem>
+                                                        <asp:ListItem Value="2" Text="Solo dispone unidades"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RFVAdminTrayecto" runat="server" InitialValue="-1" ControlToValidate="DdlAdminTrayecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Administración''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <label for="<%= DdlAdminTrayecto.ClientID.ToString()%>">Tipo Administración:</label>
+                                                    <i></i>
+                                                </div>
+                                                <div id="DivUnidadesDisponibles" class="row" runat="server" visible="false">
+                                                    <div class="col-md-12">
+                                                        <div class="portlet light xspadding bordered">
+                                                            <div class="portlet-title">
+                                                                <div class="caption font-green">
+                                                                    <i class="icon-pin font-green"></i>
+                                                                    <span class="caption-subject bold uppercase">UNIDADES DISPONIBLES:</span>
+                                                                </div>
+                                                                <div class="tools">
+                                                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                                                </div>
+                                                            </div>
+                                                            <div class="portlet-body form">
+                                                                <asp:GridView ID="GvUnidadesDisponibles" runat="server" AutoGenerateColumns="False" Width="100%"
+                                                                    EmptyDataText="No se encontraron registros de documentos" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
+                                                                    <Columns>
+                                                                        <asp:BoundField DataField="Display" ItemStyle-Width="40%" HeaderText="Vehículo" ItemStyle-HorizontalAlign="Left" />
+                                                                        <asp:BoundField DataField="Cliente" ItemStyle-Width="60%" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" />
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </div>
                             </div>
                         </div>
 
@@ -3222,8 +3271,8 @@
                                         </Triggers>--%>
                                     </asp:UpdatePanel>
 
-                                    <div style="text-align:right;">
-                                       <span id="Contadorgps"><%=GvDatosGPS.Rows.Count %> </span> dispositivos
+                                    <div style="text-align: right;">
+                                        <span id="Contadorgps"><%=GvDatosGPS.Rows.Count %> </span>dispositivos
                                         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                     </div>
@@ -3233,7 +3282,7 @@
                                 <ContentTemplate>
                                     <asp:HiddenField ID="hdnArrayDispositivo" runat="server" Value="" ClientIDMode="Static" />
                                     <asp:Button ID="btnCargaArrayDisp" runat="server" Text="" Style="display: none" ClientIDMode="Static"></asp:Button>
-                                    <asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo,CveModelo,CveProveedorComunicacionCuenta,Display,Modelo,IMEI"
+                                    <asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo,CveModelo,CveProveedorComunicacionCuenta,Display,Modelo,IMEI,Dispuesto"
                                         CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
                                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Dispositivos">
                                         <Columns>
@@ -3255,6 +3304,17 @@
                                                     <asp:Label ID="LblEstatus" runat="server" Text=""></asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
+                                            <%--                                            <asp:TemplateField HeaderText="Dispuesto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle" FooterStyle-VerticalAlign="Middle" Visible="false">
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LblDisponible" runat="server" Text=""></asp:Label>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>--%>
+                                            <asp:TemplateField HeaderText="Disponible Trayectos" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" Visible="false">
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LblDisponible" runat="server" Text=""></asp:Label>
+                                                    <asp:LinkButton ID="imgDisponer" OnClick="imgDisponer_Click" HeaderText="Disponer" runat="server" AlternateText="Disponer" CssClass="" Text="" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Editar" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgE" HeaderText="Eliminar" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
@@ -3960,7 +4020,7 @@
                                                                 </asp:TemplateField>
 
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
-                                                                    <ItemTemplate>                                                                       
+                                                                    <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="DownLoad_ClickDocumentacion" runat="server"
                                                                             Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" />
                                                                     </ItemTemplate>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 83de68f2e..7f3ac85e9 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -715,7 +715,7 @@ Partial Class Clientes
                 TdBusqueda.Visible = True
                 HyperLink7.Visible = False
                 ChkSist.Visible = False
-
+                DivTrayectos.Visible = True
                 CargaEmpresasUsuario(UsuarioActual.CveEmpresa)
             End If
 
@@ -1633,14 +1633,15 @@ Partial Class Clientes
                 End If
 
                 DdlMotivoTraslado.SelectedValueExist(ObjClientes.CveMotivoTraslado)
-                TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
-
-
-                'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
-                'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
-                'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
-
-                'DIAS DE PAGO
+                TxtNumRegIdTrib.Text = ObjClientes.NumRegIdTrib
+
+                DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
+                DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
+                'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
+                'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
+                'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
+
+                'DIAS DE PAGO
                 If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
                     Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
                     If array(0) = "1" Then ChkLunes.Checked = True
@@ -2573,7 +2574,7 @@ Partial Class Clientes
                                     CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2668,7 +2669,7 @@ Partial Class Clientes
                                         CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
-                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
+                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=DdlAdminTrayecto.SelectedValue.ToEntero()) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -5124,7 +5125,11 @@ Partial Class Clientes
             GvDatosGPS.DataSource = Nothing
         End If
         ObjGPS.Dispose()
-        GvDatosGPS.DataBind()
+        GvDatosGPS.DataBind()
+
+        GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
+        'GvDatosGPS.Columns(10).Visible = DdlAdminTrayecto.SelectedValue = "2"
+
         UpDispositivos.Update()
     End Sub
     Private Sub CargaGlobalDispositos()
@@ -5153,8 +5158,22 @@ Partial Class Clientes
                 e.Row.FCLabel("LblEstatus").Text = "Inactivo"
                 e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
                 e.Row.FindControl("imgD").Visible = False
+            End If
+
+            If CBool(e.Row.DBCampo("Dispuesto")) Then
+                e.Row.FCLabel("LblDisponible").Text = "Si"
+                e.Row.FCLabel("LblDisponible").CssClass = "label label-success"
+
+                e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm red"
+                e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
+            Else
+                e.Row.FCLabel("LblDisponible").Text = "No"
+                e.Row.FCLabel("LblDisponible").CssClass = "label label-default"
+
+                e.Row.FCLinkButton("imgDisponer").CssClass = "btn btn-circle btn-sm blue"
+                e.Row.FCLinkButton("imgDisponer").Text = "<i class='fa fa-refresh'></i>"
+            End If
 
-            End If
             e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString()}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
         End If
     End Sub
@@ -10577,6 +10596,36 @@ Partial Class Clientes
         End Using
 
         Return retorno
-    End Function
+    End Function
+    Protected Sub DdlAdminTrayecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DivUnidadesDisponibles.Visible = DdlAdminTrayecto.SelectedValue = "1"
+
+        GvDatosGPS.Columns(9).Visible = DdlAdminTrayecto.SelectedValue = "2"
+
+        If DivUnidadesDisponibles.Visible AndAlso Me.CveCliente > 0 Then
+            Using ObjGPS As New ClsGPS
+                If ObjGPS.GetUnidadesDispuestas(-1, -1, UsuarioActual.CveEmpresa) Then
+                    GvUnidadesDisponibles.DataSource = ObjGPS.DtResultados
+                End If
+            End Using
+            GvUnidadesDisponibles.DataBind()
+        End If
+
+        UpTrayectos.Update()
+        UpDispositivos.Update()
+    End Sub
+    Protected Sub imgDisponer_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveDispositivo As Integer = GvRow.DataKey("CveDispositivo").ToEntero()
+        Dim ValorDisposicion As Boolean = CBool(GvRow.DataKey("Dispuesto"))
+
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.UpdateUnidadesDispuestas(CveDispositivo, Not ValorDisposicion) Then
+                Alert("Se cambió el estatus de disposición")
+            End If
+        End Using
+
+        CargaDispositivos(DdlEstatusDispositivos.SelectedValue.ToEntero())
+    End Sub
 End Class