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

Cambios en reporte de kilometraje

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-05-19 10:17:00 -07:00
parent 68c6d1b3d1
commit c95d771d77
1 changed files with 51 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
GPS/Rastreo.aspx.vb
View File

@@ -1599,16 +1599,60 @@ Partial Class GPS_Rastreo
Else
Dim filtros As String = $"Fechas: {FechaI.ToString("dd/MM/yyyy")} a {FechaF.ToString("dd/MM/yyyy")}"
If DtDatos.Rows.Count > 0 AndAlso String.IsNullOrEmpty(DtDatos.Rows(0)("Vehiculo").ToString()) Then
DtDatos.Rows(0)("Vehiculo") = "Total Kilometros Recorridos"
Dim DtImprimir As DataTable = DtDatos.Copy
'DtImprimir.Columns.Add("DistSTR", GetType(String))
'DtImprimir.Columns.Add("TiempoOperativoSTR", GetType(String))
'DtImprimir.Columns.Add("TiempoOperativoHRSTR", GetType(String))
If DtImprimir.Rows.Count > 0 AndAlso String.IsNullOrEmpty(DtImprimir.Rows(0)("Vehiculo").ToString()) Then
DtImprimir.Rows(0)("Vehiculo") = "Total Kilometros Recorridos"
'DtImprimir.Rows(0)("TiempoOperativoSTR") = Decimal.Round(DtImprimir.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal / 60, 1).ToString("###,###,##0.##")
'DtImprimir.Rows(0)("TiempoOperativoHRSTR") = Decimal.Round(DtImprimir.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal, 1).ToString("#,##0.##")
'DtImprimir.Rows(0)("DistSTR") = Decimal.Round(DtImprimir.SUM("Dist", "Vehiculo IS NOT NULL").ToDecimal, 2).ToString("###,###,##0.00")
'For Each Row As DataRow In DtImprimir.Rows
' Row("TiempoOperativoSTR") = Decimal.Round(Row("TiempoOperativo").ToString().ToDecimal(), 1).ToString("N2")
' Row("TiempoOperativoHRSTR") = Decimal.Round(Row("TiempoOperativoHR").ToString().ToDecimal(), 1).ToString("N2")
' Row("DistSTR") = Decimal.Round(Row("Dist").ToString().ToDecimal(), 1).ToString("N2")
'Next
'e.Row.Cells(1).Text = $"{Decimal.Round(DtDatos.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal / 60, 1).ToString("###,###,##0.##")} Hrs ({DtDatos.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal.ToString("#,##0.##")} minutos)"
DtImprimir.Rows(0)("Dist") = DtDatos.SUM("Dist", "Vehiculo IS NOT NULL").ToDecimal
DtImprimir.Rows(0)("TiempoOperativo") = DtDatos.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal
DtImprimir.Rows(0)("TiempoOperativoHR") = DtDatos.SUM("TiempoOperativoHR", "Vehiculo IS NOT NULL").ToDecimal
'DtImprimir.Rows(0)("TiempoOperativo") = Decimal.Round(DtImprimir.SUM("TiempoOperativo", "Vehiculo IS NOT NULL").ToDecimal, 1)
'DtImprimir.Rows(0)("TiempoOperativoHR") = Decimal.Round(DtImprimir.SUM("TiempoOperativoHR", "Vehiculo IS NOT NULL").ToDecimal, 1)
'DtImprimir.Rows(0)("Dist") = Decimal.Round(DtImprimir.SUM("Dist", "Vehiculo IS NOT NULL").ToDecimal, 2)
For Each Row As DataRow In DtImprimir.Rows
Row("TiempoOperativo") = Decimal.Round(Row("TiempoOperativo").ToString().ToDecimal(), 1).ToString("N2")
Row("TiempoOperativoHR") = Decimal.Round(Row("TiempoOperativoHR").ToString().ToDecimal(), 1).ToString("N2")
Row("Dist") = Decimal.Round(Row("Dist").ToString().ToDecimal(), 1).ToString("N2")
Next
End If
DtDatos.Columns.RemoveAt(0)
DtDatos.Columns("Vehiculo").ColumnName = "Vehículo"
DtDatos.Columns("TiempoOperativo").ColumnName = "Tiempo Operativo"
DtDatos.Columns("Dist").ColumnName = "Kilometros Recorridos"
DtImprimir.Columns.RemoveAt(0)
DtImprimir.Columns("Vehiculo").ColumnName = "Vehículo"
ImprimirExcelG(DtDatos, "ReporteKMRecorridos.xlsx", "Reporte de Kilometros Recorridos", filtros, NombreHoja:="RepKM")
'DtImprimir.Columns.Remove(DtImprimir.Columns("TiempoOperativoHR"))
'DtImprimir.Columns.Remove(DtImprimir.Columns("TiempoOperativo"))
'DtImprimir.Columns.Remove(DtImprimir.Columns("Dist"))
'DtImprimir.Columns("TiempoOperativoHRSTR").ColumnName = "Tiempo Operativo (HR)"
'DtImprimir.Columns("TiempoOperativoSTR").ColumnName = "Tiempo Operativo (Min)"
'DtImprimir.Columns("DistSTR").ColumnName = "Kilometros Recorridos"
DtImprimir.Columns("TiempoOperativoHR").ColumnName = "Tiempo Operativo (HR)"
DtImprimir.Columns("TiempoOperativo").ColumnName = "Tiempo Operativo (Min)"
DtImprimir.Columns("Dist").ColumnName = "Kilometros Recorridos"
ImprimirExcelG(DtImprimir, "ReporteKMRecorridos.xlsx", "Reporte de Kilometros Recorridos", filtros, NombreHoja:="RepKM")
DtImprimir.Dispose()
End If
Else