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