From 16440a0fc846c5c8907140042458d81f46bcb8d0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 16 Mar 2024 12:41:06 -0700
Subject: [PATCH] -- mejora

---
 Ventas/Clientes.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 48457315e..7ece57268 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1230,7 +1230,8 @@ Partial Class Clientes
     End Sub
     Private Sub CargaPrecioLista()
         'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS
-        If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+        Dim dtt As DataTable = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
+        If dtt Is Nothing OrElse dtt.Rows.Count = 0 Then
             DdlSubProyecto.AutoPostBack = False
             DivPrecioLista.Visible = False
         End If