Informacion de combustible en trayectos
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
197
Ashx/SIGPolizaVirtual.ashx
Normal file
197
Ashx/SIGPolizaVirtual.ashx
Normal file
@@ -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
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user