From cf895f018d28971a77f08290e9bc8964fc9396b3 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 3 Aug 2023 18:54:02 -0700
Subject: [PATCH] --validaciones de acarreos

---
 Ventas/FacturacionAcarreos.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Ventas/FacturacionAcarreos.aspx.vb b/Ventas/FacturacionAcarreos.aspx.vb
index 7af6ff40f..586a7d3df 100644
--- a/Ventas/FacturacionAcarreos.aspx.vb
+++ b/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