From 4bcce25f557e5a73e7b18f7a0acf3b6e3863981d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 20 Feb 2023 20:16:02 -0700
Subject: [PATCH] =?UTF-8?q?correcci=C3=B3n=20en=20clasificaciones?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 1ece45ca0..990afa21c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -834,7 +834,7 @@ Public Class ClsPaginas
             End If
             Dim filtros As New List(Of String)
             If CveCategoria <> -1 Then filtros.Add($"CveCategoria = {CveCategoria}")
-            If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion = {UsoClasificacion}")
+            If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion IN ({UsoClasificacion},3)  ")
             If CveClasificacion <> -1 Then filtros.Add($"CveClasificacion = {CveClasificacion}")
             If filtros.Count > 0 Then
                 Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)