AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio para mostrar menos productos

Browse Source
This commit is contained in:
Hector
2021-07-26 13:10:26 -07:00
parent ea0de2235a
commit 9ec273c851
1 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Inventarios/RepAnomalias.aspx.vb
View File

@@ -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