AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GPS - Administracion de Trayectos por otros clientes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-14 13:35:23 -07:00
parent 3a93cb4a87
commit 7507057a04
6 changed files with 187 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
GPS/Trayectos.aspx
View File

@@ -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>

14
GPS/Trayectos.aspx.vb
View File

@@ -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"))