diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb
index c6c79fd7c..2cf43ffaa 100644
--- a/GPS/Rastreo.aspx.vb
+++ b/GPS/Rastreo.aspx.vb
@@ -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