en varias páginas se consulta la funcion 147 de manera mas logica y se agregaron nuevos parametros en los documentos para personal

Inventarios/EntregaAlmacen.aspx.vb

@@ -10,8 +10,8 @@ Imports Microsoft.Reporting.WebForms
 Imports Stimulsoft.Base.Indicator
 
 Partial Class Inventarios_EntregaAlmacen
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property CveVentaAD As Integer
         Get
@@ -261,10 +261,10 @@ Partial Class Inventarios_EntregaAlmacen
         Set(value As Integer)
             ViewState("FormaPaqueteria") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -849,13 +849,14 @@ Partial Class Inventarios_EntregaAlmacen
             If AplicaSeccion Then GvDatos.Columns(7).Visible = True
             If AplicaLote Then GvDatos.Columns(8).Visible = True
             If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
-            GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
-
-            'SugerirFecha()
+            If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvDatos.Columns(9).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
+
+            'SugerirFecha()
             If DdlAlmacen.SelectedValue.ToEntero > 0 Then
                 SugiereLoteCaducidad(DdlAlmacen.SelectedValue.ToEntero)
-            End If
-        End If
+            End If
+        End If
         GvDatos.DataSource = DtDatos
 
         GvDatos.DataBind()