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

GPS. Limitacion de fecha en trayectos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-01-03 20:30:58 -07:00
parent 2790239a8a
commit eaffa36d61
1 changed files with 81 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
GPS/Trayectos.aspx.vb
View File

@@ -43,6 +43,7 @@ Partial Class GPS_Trayectos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
CargaDatos() CargaDatos()
TimmerRefresh.Enabled = ChkTimmer.Checked TimmerRefresh.Enabled = ChkTimmer.Checked
End If End If
@@ -95,13 +96,16 @@ Partial Class GPS_Trayectos
Dim FechaI As String = If(IsDate(txtFechaI.Text), txtFechaI.Text, "-1") Dim FechaI As String = If(IsDate(txtFechaI.Text), txtFechaI.Text, "-1")
Dim FechaF As String = If(IsDate(txtFechaF.Text), txtFechaF.Text, "-1") Dim FechaF As String = If(IsDate(txtFechaF.Text), txtFechaF.Text, "-1")
Dim CveEstatus As Integer = -1
If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then
CveEstatus = -2
Else
CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero()
End If
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, DdlEstatusTrayecto.SelectedValue.ToEntero(), FechaI, FechaF) Then If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then
If ChkActivas.Checked Then GvBarra.DataSource = ObjGPS.DtResultados
GvBarra.DataSource = ObjGPS.DtResultados.FiltraParametros($"EsFin = False")
Else
GvBarra.DataSource = ObjGPS.DtResultados
End If
End If End If
ObjGPS.Dispose() ObjGPS.Dispose()
GvBarra.DataBind() GvBarra.DataBind()