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

This commit is contained in:
Antonio Gonzalez
2020-11-27 09:42:53 -07:00
parent 60e48b5d95
commit 65423715d8
14 changed files with 58 additions and 39 deletions

View File

@@ -25,8 +25,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
DdlClasificaciones.DataBind()
DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
GvD.Columns(4).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
GvD.Columns(10).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Nueva Fecha Elaboración", "Nueva Fecha Caducidad")
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvD.Columns(4).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) : GvD.Columns(10).HeaderText = String.Format("Nueva {0}", UsuarioActual.Empresa.Funcionalidad(147))
End Sub