-- mejora

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