From 9ec273c85166c0f408249361c7e99c1d54515816 Mon Sep 17 00:00:00 2001 From: Hector Date: Mon, 26 Jul 2021 13:10:26 -0700 Subject: [PATCH] Cambio para mostrar menos productos --- Inventarios/RepAnomalias.aspx.vb | 35 +++++++++++++++++++++++++++----- 1 file changed, 30 insertions(+), 5 deletions(-) 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