From 03331a963998bd17ce8998f0d3a26dfb00a491fa Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jul 2021 16:39:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejoras=20en=20columnas=20de=20comparaci?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RepAnomalias.aspx | 4 ++-- Inventarios/RepAnomalias.aspx.vb | 5 +++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 46a77b822..e42c6887d 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -204,7 +204,7 @@ - + @@ -239,7 +239,7 @@ - + diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 5ef0314de..28555943d 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -148,6 +148,10 @@ Partial Class Inventarios_RepAnomalias End If Inventario.Dispose() + If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(7).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) + If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(7).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) + + GvS.DataSource = dt.FiltraParametros("Diferencia < 0") Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0") GvS.DataBind() @@ -171,6 +175,7 @@ Partial Class Inventarios_RepAnomalias Script += "OrdenarGVS();" End If + RegistraScript(Script) UPAnomalias.Update()