From 3fa454ddd91e82bd38e088219dbe86a5699fc5c9 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 31 Jul 2023 12:06:15 -0700 Subject: [PATCH] =?UTF-8?q?--=20personalizaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Usuario.vb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb index f7601a29b..dd88e9a40 100644 --- a/App_Code/Usuario.vb +++ b/App_Code/Usuario.vb @@ -46,7 +46,8 @@ Public Class Usuario Public Property ModoSimulacion As Boolean = False Public Property NombreAbreviatura As String Public Property SessionId As String - Private Property ListaSesion As Hashtable + Private Property ListaSesion As Hashtable + Private Property ListaPersonalizacion As Hashtable Public Property Acceso As Integer Public Property TipoControl As Integer @@ -100,6 +101,18 @@ Public Class Usuario End Set End Property + Public Property Personalizaciones(NombrePersonalizacion As String) As String + Get + If ListaPersonalizacion Is Nothing Then ListaPersonalizacion = New Hashtable + Personalizaciones = If(ListaPersonalizacion.Item(NombrePersonalizacion) IsNot Nothing, ListaPersonalizacion.Item(NombrePersonalizacion).ToString, "") + End Get + Set(value As String) + If ListaPersonalizacion Is Nothing Then ListaPersonalizacion = New Hashtable + 'Sino existe el valor, se crea. + If ListaPersonalizacion.Item(NombrePersonalizacion) IsNot Nothing Then ListaPersonalizacion.Item(NombrePersonalizacion) = value Else ListaPersonalizacion.Add(NombrePersonalizacion, value) + + End Set + End Property #End Region