diff --git a/Ventas/FacturacionAcarreos.aspx.vb b/Ventas/FacturacionAcarreos.aspx.vb
index 550ef5cf8..25db0c7ba 100644
--- a/Ventas/FacturacionAcarreos.aspx.vb
+++ b/Ventas/FacturacionAcarreos.aspx.vb
@@ -109,21 +109,30 @@ Partial Class Ventas_FacturacionAcarreos
             Try
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each row As DataRow In dt.Rows
-                    Dim msg As String = ObjVentas.AddFacturacionAcarreos(row("Sucursal").ToString(), row("RFC").ToString(), row("Cantidad").ToString().ToDecimal(), row("ProductoGeneral").ToString(),
-                                                                         row("Origen").ToString(), row("Destino").ToString(), row("FechaSalida").ToString().ToDateTime(), row("FechaLlegada").ToString().ToDateTime(),
-                                                                         row("Unidad").ToString(), row("Chofer").ToString(), row("Configuración").ToString(), row("Remolque1").ToString(), row("Remolque2").ToString(),
-                                                                         row("Distancia").ToString().ToDecimal(), UsuarioActual.CveEmpresa)
+                    Dim FechaSalida As DateTime = MinFecha
+                    Dim FechaLlegada As DateTime = MinFecha
+
+                    If row("FechaSalida").ToString().ToDateTime() > FechaSalida Then
+                        FechaSalida = row("FechaSalida").ToString().ToDateTime()
+                    End If
+                    If row("FechaLlegada").ToString().ToDateTime() > FechaLlegada Then
+                        FechaLlegada = row("FechaLlegada").ToString().ToDateTime()
+                    End If
+
+                    Dim msg As String = ObjVentas.AddFacturacionAcarreos(row("Sucursal").ToString(), row("RFC").ToString(), row("Cantidad").ToString().ToDecimal(), row("ProductoGeneral").ToString(), row("Origen").ToString(),
+                                                                         row("Destino").ToString(), FechaSalida, FechaLlegada, row("Unidad").ToString(), row("Chofer").ToString(), row("Configuración").ToString(),
+                                                                         row("Remolque1").ToString(), row("Remolque2").ToString(), row("Distancia").ToString().ToDecimal(), UsuarioActual.CveEmpresa)
                     If msg = "Correcto" Then
                         RowsCargados += 1
                     Else
                         TieneError = True
-                        MsgFacturacionAcarreos.AppendFormat("{0}", msg)
+                        MsgFacturacionAcarreos.AppendFormat("Ocurrió un error en la fila: {0}<br/>{1}", dt.Rows.IndexOf(row) + 2, msg)
                         RowsNoCargados += 1
                         Exit For
                     End If
                 Next
             Catch ex As Exception
-                OnError("Ocurrió un error al cargar los precios.", ex)
+                OnError("Ocurrió un error al cargar los datos.", ex)
             Finally
                 Dim MensajeFinal As New StringBuilder()
                 If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then