--validaciones de acarreos

Ventas/FacturacionAcarreos.aspx.vb

@@ -107,7 +107,12 @@ Partial Class Ventas_FacturacionAcarreos
             ObjVentas.IniciaTransacSQL()
             Dim TieneError As Boolean = False
             Try
-                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+                If dt.Rows.Count = 0 Then
+                    TieneError = True
+                    MsgFacturacionAcarreos.Append("No hay datos para procesar")
+                    RowsNoCargados += 1
+                End If
+
                 For Each row As DataRow In dt.Rows
                     Dim FechaSalida As DateTime = MinFecha
                     Dim FechaLlegada As DateTime = MinFecha
@@ -156,7 +161,6 @@ Partial Class Ventas_FacturacionAcarreos
 
             CargaDatos()
 
-
         End If
     End Sub