-

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()