From 7d729bcdacb2954554ff75f3c69bfc81471f6e64 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 18 Aug 2020 17:19:55 -0700 Subject: [PATCH] - --- Inventarios/InventarioFisico.aspx | 4 ++-- Inventarios/InventarioFisico.aspx.vb | 9 ++++----- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/Inventarios/InventarioFisico.aspx b/Inventarios/InventarioFisico.aspx index aed516fe4..441bbb7c4 100644 --- a/Inventarios/InventarioFisico.aspx +++ b/Inventarios/InventarioFisico.aspx @@ -28,7 +28,7 @@
-
SubProyecto:
+
SubProyecto:
@@ -148,7 +148,7 @@
- + SubProyecto:
diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb index 8e9f7a024..3f8632f2d 100644 --- a/Inventarios/InventarioFisico.aspx.vb +++ b/Inventarios/InventarioFisico.aspx.vb @@ -88,6 +88,7 @@ Partial Class Inventarios_InventarioFisico Inventario.Dispose() gvIF.DataSource = dt gvIF.EditIndex = -1 + gvIF.Columns(1).HeaderText = LblSubProyecto.Text gvIF.DataBind() gvIF.Columns(6).Visible = UsuarioActual.TienePermisoProceso(178) End Sub @@ -125,11 +126,8 @@ Partial Class Inventarios_InventarioFisico UPPPSExcluye.Update() End Sub Private Sub CargaDdlSubProyectos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlFiltroSubProyecto.Items.Insert(0, New ListItem("Todas", "-1")) - DdlFiltroSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlFiltroSubProyecto.DataBind() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(Nothing, DdlFiltroSubProyecto, Nothing, LblFiltroSubProyecto) End Sub Private Sub CargaDdlClasificacion() DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) @@ -552,6 +550,7 @@ Partial Class Inventarios_InventarioFisico If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then gvIF.DataSource = ObjInventario.DtResultados gvIF.DataBind() + gvIF.Columns(1).HeaderText = LblSubProyecto.Text End If UppInventarioFisico.Update() ObjInventario.Dispose()