diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 01d781401..ad367eea6 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -106,12 +106,22 @@ Partial Class Inventarios_RepAnomalias
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
                         str.AppendFormat("{0},", dr("Clasificacion"))
                     Next
-                    LblClasif.Text = str.ToString
+                    If str.ToString.Length > 500 Then
+                        LblClasif.Text = str.ToString.Substring(0, 500)
+                        LblClasif.ToolTip = str.ToString
+                    Else
+                        LblClasif.Text = If(str.ToString <> "", str.ToString, "Todos")
+                    End If
                     str.Clear()
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows
                         str.AppendFormat("{0},", dr("Clasificacion"))
                     Next
-                    LblClasificacionesExcluidas.Text = str.ToString
+                    If str.ToString.Length > 500 Then
+                        LblClasificacionesExcluidas.Text = str.ToString.Substring(0, 500)
+                        LblClasificacionesExcluidas.ToolTip = str.ToString
+                    Else
+                        LblClasificacionesExcluidas.Text = str.ToString
+                    End If
                 End If
 
             End If
@@ -123,12 +133,22 @@ Partial Class Inventarios_RepAnomalias
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
                         str.AppendFormat("{0},", dr("CodigoPS"))
                     Next
-                    LblProductos.Text = If(str.ToString <> "", str.ToString, "Todos")
+                    If str.ToString.Length > 500 Then
+                        LblProductos.Text = str.ToString.Substring(0, 500)
+                        LblProductos.ToolTip = str.ToString
+                    Else
+                        LblProductos.Text = If(str.ToString <> "", str.ToString, "Todos")
+                    End If
                     str.Clear()
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows
                         str.AppendFormat("{0},", dr("CodigoPS"))
                     Next
-                    LblProductosExcluidos.Text = str.ToString
+                    If str.ToString.Length > 500 Then
+                        LblProductosExcluidos.Text = str.ToString.Substring(0, 500)
+                        LblProductosExcluidos.ToolTip = str.ToString
+                    Else
+                        LblProductosExcluidos.Text = str.ToString
+                    End If
                 End If
 
             End If
@@ -140,7 +160,12 @@ Partial Class Inventarios_RepAnomalias
                     For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
                         str.AppendFormat("{0},", dr("RazonSocial"))
                     Next
-                    LblProveedores.Text = str.ToString
+                    If str.ToString.Length > 500 Then
+                        LblProveedores.Text = str.ToString.Substring(0, 500)
+                        LblProveedores.ToolTip = str.ToString
+                    Else
+                        LblProveedores.Text = If(str.ToString <> "", str.ToString, "Todos")
+                    End If
                     str.Clear()
                 End If