diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 6d33bd8f3..68a050d1a 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -5028,10 +5028,85 @@ Public Class ClsGPS OnError("Ocurrió un error al obtener los clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno - End Function - + End Function + #End Region - + +#Region "G A S T O S" + Public Function AddGasto(Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime, TipoGasto As Integer, CveCliente As Integer, Optional CveDispositvo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_GPS_GastosAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@Precio", SqlDbType.Money).Value = Precio + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@TipoGasto", SqlDbType.TinyInt).Value = TipoGasto + .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@CveTrayecto", SqlDbType.Int).Value = CveTrayecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function GetGastos(CveGPSGasto As Integer, CveCliente As Integer, Optional CveDispositvo As Integer = -1, Optional CveTrayecto As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_GPS_RutasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGPSGasto", SqlDbType.Int).Value = CveGPSGasto + .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@CveTrayecto", SqlDbType.Int).Value = CveTrayecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function UpdateGasto(CveGPSGasto As Integer, Cantidad As Decimal, Precio As Decimal, Descripcion As String, Observaciones As String, Fecha As DateTime) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_GPS_GastosUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGPSGasto", SqlDbType.Int).Value = CveGPSGasto + .Add("@Cantidad", SqlDbType.Float).Value = Cantidad + .Add("@Precio", SqlDbType.Money).Value = Precio + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function RemoveGasto(CveGPSGasto As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_GPS_GastosRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveGPSGasto", SqlDbType.Int).Value = CveGPSGasto + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el gasto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function +#End Region + #Region "F R E I G H T V E R I F Y A P I" Public Function AddShipment(CveDispositivo As Integer, Transmitir As Boolean, Customer As String, ShipmentID As String, AssetID As String, RouteID As String, TrailerID As String, Obs As String, CveCliente As Integer) As Integer Dim retorno As Integer = -1 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ef2772013..4588d1c1e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4019,9 +4019,11 @@ Public Class ClsPaginas PaginaDict.Add("/GPS/CatRutas.aspx".ToUpper(), 640) PaginaDict.Add("/GPS/CatGrupos.aspx".ToUpper(), 641) PaginaDict.Add("/GPS/Notificaciones.aspx".ToUpper(), -1) - PaginaDict.Add("/GPS/Shipments.aspx".ToUpper(), 673) + PaginaDict.Add("/GPS/Shipments.aspx".ToUpper(), 673) + PaginaDict.Add("/GPS/RepGastos.aspx".ToUpper(), 685) + #End Region - 'INVENTARIOS + 'INVENTARIOS #Region "Inventarios" PaginaDict.Add("/Inventarios/Fletes.aspx".ToUpper(), 550) PaginaDict.Add("/Inventarios/RepFletes.aspx".ToUpper(), 551) diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx new file mode 100644 index 000000000..e7f2621e1 --- /dev/null +++ b/Ashx/SIGPolizaVirtual.ashx @@ -0,0 +1,197 @@ +<%@ WebHandler Language="VB" Class="SIGPolizaVirtual" %> + +Imports System +Imports System.Web +Imports System.Net.Http +Imports System.Web.Http +Imports System.Data +Imports Newtonsoft.Json +Imports Newtonsoft.Json.Linq +Imports Extensiones +Imports System.IO + +Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState + + Protected ReadOnly Property User As String = "cslth.2809@jcilink.com" + Protected ReadOnly Property Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076" + + Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest + context.Response.ContentType = "application/json" + EnviarPolizaVentaWS(context) + EnviarPolizaVentaLTHWSD(context) + EnviarPolizaIndicadores(context) + End Sub + + Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable + Get + Return False + End Get + End Property + + Private Sub EnviarPolizaVentaLTHWSD(ByVal context As HttpContext) + Dim Retorno As String = "[]" + Try + Using wc As New HttpClient() + Dim Url = New Uri("http://polizavirtual.com.mx/lthwsd/api/Venta") + + Dim Parametros = New List(Of KeyValuePair(Of String, String)) + + Parametros.Add(New KeyValuePair(Of String, String)("User", User)) + Parametros.Add(New KeyValuePair(Of String, String)("password", Password)) + Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE VIZCARA RENDON")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "Prueba")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "Prueba")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "5417543010")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "elunap@gmail.com")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174200")) + Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187")) + Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True")) + Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25")) + Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1")) + Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015")) + Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860")) + + Dim content As New FormUrlEncodedContent(Parametros) + Dim response = wc.PostAsync(Url, content).Result + + Retorno = response.Content.ReadAsStringAsync().Result + End Using + + Catch ex As Exception + ex.GuardaLog(ex.Message) + End Try + + context.Response.Write(Retorno) + End Sub + + Private Sub EnviarPolizaVentaWS(ByVal context As HttpContext) + Dim Retorno As String = "[]" + Try + Using wc As New HttpClient() + Dim Url = New Uri("http://polizavirtual.com.mx/webservice/api/Venta") + + Dim Parametros = New List(Of KeyValuePair(Of String, String)) + + Parametros.Add(New KeyValuePair(Of String, String)("User", User)) + Parametros.Add(New KeyValuePair(Of String, String)("password", Password)) + Parametros.Add(New KeyValuePair(Of String, String)("customer_name", "JOSE ENRIQUE ")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name1", "VIZCARA")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_last_name2", "RENDON")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_birthday", "1900-01-01 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_phone", "8186545256")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_email", "mail@mail.com")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_gender", "02")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_advertising", "False")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_date", "2018-07-24 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_paidby", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_type", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_type_service", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("product_code", "174925")) + Parametros.Add(New KeyValuePair(Of String, String)("product_unique_code", "65047187")) + Parametros.Add(New KeyValuePair(Of String, String)("product_sale_type", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_total", "0")) + Parametros.Add(New KeyValuePair(Of String, String)("used_product", "True")) + Parametros.Add(New KeyValuePair(Of String, String)("used_brand", "01")) + Parametros.Add(New KeyValuePair(Of String, String)("used_bci", "25")) + Parametros.Add(New KeyValuePair(Of String, String)("used_month", "1")) + Parametros.Add(New KeyValuePair(Of String, String)("used_year", "2015")) + Parametros.Add(New KeyValuePair(Of String, String)("used_sale_date", "2018-07-24 00:00:00")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_brand", "36")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_model", "741")) + Parametros.Add(New KeyValuePair(Of String, String)("customer_car_year", "2015")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_discount", "0")) + Parametros.Add(New KeyValuePair(Of String, String)("sale_id", "32860")) + + Dim content As New FormUrlEncodedContent(Parametros) + Dim response = wc.PostAsync(Url, content).Result + + Retorno = response.Content.ReadAsStringAsync().Result + End Using + + Catch ex As Exception + ex.GuardaLog(ex.Message) + End Try + + context.Response.Write(Retorno) + End Sub + + Private Sub EnviarPolizaIndicadores(ByVal context As HttpContext) + Dim Retorno As String = "[]" + Try + Using wc As New HttpClient() + Dim Url = New Uri("http://polizavirtual.com.mx/webservice/api/Indicadores") + + Dim Parametros = New List(Of KeyValuePair(Of String, String)) + + Parametros.Add(New KeyValuePair(Of String, String)("User", User)) + Parametros.Add(New KeyValuePair(Of String, String)("password", Password)) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_optima", "1")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_fullpower", "2")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_hitec", "3")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_agm", "4")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_suv", "5")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_taxi", "6")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_america", "7")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_lth", "8")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_cronos", "9")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_diener", "10")) + Parametros.Add(New KeyValuePair(Of String, String)("v_b_heavyduty", "11")) + Parametros.Add(New KeyValuePair(Of String, String)("v_m_lth", "12")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_filtros", "13")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub1", "14")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_lubgalon", "15")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_lub5", "16")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_aa", "17")) + Parametros.Add(New KeyValuePair(Of String, String)("v_o_aaa", "18")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_optima", "19")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_fullpower", "20")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_hitec", "21")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_agm", "22")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_suv", "23")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_taxi", "24")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_america", "25")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_lth", "26")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_cronos", "27")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_diener", "28")) + Parametros.Add(New KeyValuePair(Of String, String)("g_b_heavyduty", "29")) + Parametros.Add(New KeyValuePair(Of String, String)("g_m_lth", "30")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_optima", "31")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_fullpower", "32")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_hitec", "33")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_agm", "34")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_suv", "35")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_taxi", "36")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_america", "37")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_lth", "38")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_cronos", "39")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_diener", "40")) + Parametros.Add(New KeyValuePair(Of String, String)("a_b_heavyduty", "41")) + + Dim content As New FormUrlEncodedContent(Parametros) + Dim response = wc.PostAsync(Url, content).Result + + Retorno = response.Content.ReadAsStringAsync().Result + End Using + + Catch ex As Exception + ex.GuardaLog(ex.Message) + End Try + + context.Response.Write(Retorno) + End Sub + +End Class \ No newline at end of file diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx index aa5b05634..9ad04ede6 100644 --- a/GPS/TrayectoDetalle.aspx +++ b/GPS/TrayectoDetalle.aspx @@ -1,386 +1,461 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrayectoDetalle.aspx.vb" Inherits="GPS_TrayectoDetalle" %> - - - - - - - - - - - - -
  • - - - Terminar Trayecto - - -
  • -
    - - - - - - -
    -
    -
    -
    -
    - - Recorrido de la unidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    - - Datos del Trayecto: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Historial de Estatus: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - - <%-- --%> - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    + }*/ + + .pac-container.pac-logo { + z-index: 100000; + } + + .v-center { + display: flex; + align-items: center; + } + + + + + + + + +
  • + + + Terminar Trayecto + + +
  • +
    + + + + + + +
    +
    +
    +
    +
    + + Recorrido de la unidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    + + Datos del Trayecto: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Historial de Estatus: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + <%-- --%> + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    - Eventos de la unidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    - - Ralentí: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Excesos de Velocidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    - - Igniciones -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - + fa-car font-green"> + Eventos de la unidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    + + Ralentí: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Excesos de Velocidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Igniciones +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Combustible +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + - - - + + + diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb index 66b257ead..2b2344fa1 100644 --- a/GPS/TrayectoDetalle.aspx.vb +++ b/GPS/TrayectoDetalle.aspx.vb @@ -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