Informacion de combustible en trayectos

This commit is contained in:
2019-09-06 23:02:09 -07:00
parent 05d4056aba
commit 9a0e7d03fc
5 changed files with 838 additions and 481 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -73,15 +73,20 @@ Partial Class GPS_TrayectoDetalle
LtlDispositivo.Text = RowEstatus("Vehiculo").ToString()
LtlFechaI.Text = If(String.IsNullOrEmpty(RowEstatus("FechaInicio").ToString()), "No ha ingresado a la geocerca de inicio", String.Format("{0:dd/MM/yyyy HH:mm tt}", RowEstatus("FechaInicio").ToString().ToDateTime()))
LtlFechaF.Text = If(String.IsNullOrEmpty(RowEstatus("FechaFin").ToString()), "No ha Terminado", String.Format("{0:dd/MM/yyyy HH:mm tt}", RowEstatus("FechaFin").ToString().ToDateTime()))
LtlVMedia.Text = String.Format("{0:N2}", RowEstatus("VMedia"))
LtlVMax.Text = String.Format("{0:N2}", RowEstatus("VMax"))
LtlVMedia.Text = String.Format("{0:N2} KM/H", RowEstatus("VMedia"))
LtlVMax.Text = String.Format("{0:N2} KM/H", RowEstatus("VMax"))
LtlTiempo.Text = String.Format("{0}", RowEstatus("TiempoOperativo"))
LtlKM.Text = String.Format("{0:N2}", RowEstatus("Dist"))
LtlKM.Text = String.Format("{0:N2} KM", RowEstatus("Dist"))
LtlExcesosVelo.Text = String.Format("{0}", RowEstatus("ExcesosVelocidad"))
LtlCombustibleI.Text = If(String.IsNullOrEmpty(RowEstatus("CombustibleInicial").ToString()), "No Disponible", String.Format("{0:N2}", RowEstatus("CombustibleInicial")))
LtlCombustibleF.Text = If(String.IsNullOrEmpty(RowEstatus("CombustibleFinal").ToString()), "No Disponible", String.Format("{0:N2}", RowEstatus("CombustibleFinal")))
LtlCargas.Text = String.Format("{0:N0}", RowEstatus("Cargas"))
LtlDescargas.Text = String.Format("{0:N0}", RowEstatus("Descargas"))
LtlCombustibleConsumido.Text = String.Format("{0:N2} L", RowEstatus("CombustibleConsumido"))
LtlRendimiento.Text = String.Format("{0:N2} KM/L", RowEstatus("Rendimiento"))
GvIgnicion.DataSource = ObjGPS.DtSetResultados.Tables(1)
GvIgnicion.DataBind()
@@ -90,6 +95,9 @@ Partial Class GPS_TrayectoDetalle
GvRalenti.DataSource = ObjGPS.DtSetResultados.Tables(3)
GvRalenti.DataBind()
GvCombustible.DataSource = ObjGPS.DtSetResultados.Tables(4)
GvCombustible.DataBind()
End If
End If
Dim count = 0