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

29
Inventarios/RepAnomalias.aspx.vb
View File

@@ -106,13 +106,23 @@ Partial Class Inventarios_RepAnomalias
For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
str.AppendFormat("{0},", dr("Clasificacion")) str.AppendFormat("{0},", dr("Clasificacion"))
Next 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() str.Clear()
For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows
str.AppendFormat("{0},", dr("Clasificacion")) str.AppendFormat("{0},", dr("Clasificacion"))
Next Next
If str.ToString.Length > 500 Then
LblClasificacionesExcluidas.Text = str.ToString.Substring(0, 500)
LblClasificacionesExcluidas.ToolTip = str.ToString
Else
LblClasificacionesExcluidas.Text = str.ToString LblClasificacionesExcluidas.Text = str.ToString
End If End If
End If
End If End If
If Inventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then If Inventario.GetInventarioFisicoDetallesProductosServicios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
@@ -123,13 +133,23 @@ Partial Class Inventarios_RepAnomalias
For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
str.AppendFormat("{0},", dr("CodigoPS")) str.AppendFormat("{0},", dr("CodigoPS"))
Next Next
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") LblProductos.Text = If(str.ToString <> "", str.ToString, "Todos")
End If
str.Clear() str.Clear()
For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows For Each dr As DataRow In dta.FiltraParametros("Incluye = 0").Rows
str.AppendFormat("{0},", dr("CodigoPS")) str.AppendFormat("{0},", dr("CodigoPS"))
Next Next
If str.ToString.Length > 500 Then
LblProductosExcluidos.Text = str.ToString.Substring(0, 500)
LblProductosExcluidos.ToolTip = str.ToString
Else
LblProductosExcluidos.Text = str.ToString LblProductosExcluidos.Text = str.ToString
End If End If
End If
End If End If
If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
@@ -140,7 +160,12 @@ Partial Class Inventarios_RepAnomalias
For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
str.AppendFormat("{0},", dr("RazonSocial")) str.AppendFormat("{0},", dr("RazonSocial"))
Next 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() str.Clear()
End If End If