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

Compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-23 20:37:37 -07:00
parent de83379635
commit 6c94dc331c
5 changed files with 33 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
GPS/RepCombustible.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class GPS_RepCombustible
If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then
Dim Arow As DataRow = GPS.DtResultados.Rows(0)
Dim TotalKilometros As Decimal = (Arow("Distancia").ToString().ToDecimal()) / 1000
Dim CombustibleConsumido As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}"
Dim CombustibleConsumido As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}".ToDecimal
Dim RendBruto As Decimal = If(CombustibleConsumido > 0, TotalKilometros / CombustibleConsumido, 0) '2.8
Dim CostoCombustible As Decimal = GlobalDTDispositivos(-1).FiltroPrimeroValor("CostoCombustible", $"CveDispositivo = {DdlDispositivo.SelectedValue}").ToDecimal
LtlDistancia.Text = TotalKilometros.ToString().FormatoNumero()
@@ -117,7 +117,7 @@ Partial Class GPS_RepCombustible
LtlCostoConsumo.Text = $"${((CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}"
LtlCostoCombustibleF.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}"
LtlCostoInicial.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleInicial").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}"
lblMuerto.Text = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString() - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs."
lblMuerto.Text = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime) - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs."
lblMovimiento.Text = $"{(GPS.DtResultados.Rows(0)("Horas").ToString().ToDecimal / 60).ToString().FormatoNumero()} Hrs"
LtlRalenti.Text = $"{GPS.DtResultados.Rows(0)("TiempoRalentiHoras").ToString().FormatoNumero()} Hrs. ({GPS.DtResultados.Rows(0)("TiempoRalentiMinutos").ToString()} Minutos)"
CargaHistorico(GPS)
@@ -138,10 +138,12 @@ Partial Class GPS_RepCombustible
Dim json As New StringBuilder
json.Append("data=[")
Dim color As String = ""
Dim encencido As Int16 = -1
Dim encencidoC As Int16 = -1
Dim encencido As Integer = -1
Dim encencidoC As Integer = -1
For Each gvrow As DataRow In GPS.DtResultados.Rows
encencidoC = gvrow("Encendido").ToString().ToEntero()
If encencido <> encencidoC Then
If encencidoC = 1 Then
color = ",lineColor:""#2498d2"""
@@ -328,11 +330,11 @@ Partial Class GPS_RepCombustible
libro.Cell(5, 4).Value = txtFechaF.Text
Dim cRow As Integer = 9
Dim FechaI As String = txtFechaI.Text.ToDateTime
Dim FechaF As String = txtFechaF.Text.ToDateTime
Dim FechaI As Date = txtFechaI.Text.ToDateTime
Dim FechaF As Date = txtFechaF.Text.ToDateTime
Using GPS As New ClsGPS()
For Each item In DdlDispositivo.Items
CveDispositivo = item.value.ToString().ToEntero()
For Each item As ListItem In DdlDispositivo.Items
CveDispositivo = item.Value.ToString().ToEntero()
If CveDispositivo > 0 Then
cRow = cRow + 1
@@ -363,14 +365,14 @@ Partial Class GPS_RepCombustible
Dim Arow As DataRow = GPS.DtResultados.Rows(0)
Dim TotalKilometros As Decimal = (Arow("Distancia").ToString().ToDecimal()) / 1000
Dim CostoCombustible As Decimal = GlobalDTDispositivos(-1).FiltroPrimeroValor("CostoCombustible", $"CveDispositivo = {CveDispositivo}").ToDecimal
Dim CombustibleConsumidoCC As Decimal = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}"
Dim CombustibleConsumidoCC As Decimal = $"{ (Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}".ToDecimal
VelocidadMaxima = $"{GPS.DtResultados.Rows(0)("VelocidadMaxima").ToString().FormatoNumero():N2}"
Rendimiento = $"{If(CombustibleConsumidoCC > 0, TotalKilometros / CombustibleConsumidoCC, 0):N2}"
KMRecorridos = $"{TotalKilometros:N2}"
CombustibleConsumido = $"{(Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal():N2}"
Ralenti = $"{GPS.DtResultados.Rows(0)("TiempoRalentiHoras").ToString().FormatoNumero()} Hrs. ({GPS.DtResultados.Rows(0)("TiempoRalentiMinutos").ToString()} Minutos)"
TiempoMovto = $"{(GPS.DtResultados.Rows(0)("Horas").ToString().ToDecimal / 60).ToString().FormatoNumero()} Hrs"
TiempoMuerto = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString() - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs."
TiempoMuerto = $"{((DateDiff(DateInterval.Minute, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime).ToString().ToDecimal - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs."
CILts = $"{Arow("CombustibleInicial").ToString().ToDecimal():N2}"
CITotal = $"{(GPS.DtResultados.Rows(0)("CombustibleInicial").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}"
CFLts = GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().FormatoNumero()
@@ -382,8 +384,8 @@ Partial Class GPS_RepCombustible
DesCargaLts = $"{Arow("SumaDescargas").ToString().ToDecimal():N2}"
DesCargaTotal = $"{Arow("SumaDescargas").ToString().ToDecimal() * CostoCombustible:N2}"
RecorridoValor = TotalKilometros.ToString().FormatoNumero()
RecorridoLts = $"{(CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()):N2}"
RecorridoTotal = $"{((CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}"
RecorridoLts = $"{(CombustibleConsumido.ToDecimal - Arow("SumaDescargas").ToString().ToDecimal()):N2}"
RecorridoTotal = $"{((CombustibleConsumido.ToDecimal - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}"
End If
libro.Cell(cRow, 1).Value = vehiculo