-- personalización

App_Code/Usuario.vb

@@ -47,6 +47,7 @@ Public Class Usuario
     Public Property NombreAbreviatura As String
     Public Property SessionId As String
     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