From c21d0641c99a871de928d1d1d5458bb6e500e616 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 27 Oct 2023 10:34:27 -0700
Subject: [PATCH] =?UTF-8?q?mejora=20en=20validaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepVentasUtilidadPadre.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 83879613c..ebf3144c8 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -136,7 +136,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
             GvDatos.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If
-        If DtDatos.Rows.Count > 0 Then
+        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
             Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble
             Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble
             Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble