'------------------------------------------------------------------------------ ' ' Este código se generó a partir de una plantilla. ' ' Los cambios manuales en este archivo pueden causar un comportamiento inesperado de la aplicación. ' Los cambios manuales en este archivo se sobrescribirán si se regenera el código. ' '------------------------------------------------------------------------------ Imports System Imports System.ComponentModel Imports System.Data.EntityClient Imports System.Data.Objects Imports System.Data.Objects.DataClasses Imports System.Linq Imports System.Runtime.Serialization Imports System.Xml.Serialization #Region "Metadatos de relaciones en EDM" #End Region #Region "Contextos" ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class tsl5Entities Inherits ObjectContext #Region "Constructores" ''' ''' Inicializa un nuevo objeto tsl5Entities usando la cadena de conexión encontrada en la sección 'tsl5Entities' del archivo de configuración de la aplicación. ''' Public Sub New() MyBase.New("name=tsl5Entities", "tsl5Entities") MyBase.ContextOptions.LazyLoadingEnabled = true OnContextCreated() End Sub ''' ''' Inicializar un nuevo objeto tsl5Entities. ''' Public Sub New(ByVal connectionString As String) MyBase.New(connectionString, "tsl5Entities") MyBase.ContextOptions.LazyLoadingEnabled = true OnContextCreated() End Sub ''' ''' Inicializar un nuevo objeto tsl5Entities. ''' Public Sub New(ByVal connection As EntityConnection) MyBase.New(connection, "tsl5Entities") MyBase.ContextOptions.LazyLoadingEnabled = true OnContextCreated() End Sub #End Region #Region "Métodos parciales" Partial Private Sub OnContextCreated() End Sub #End Region #Region "Propiedades de ObjectSet" ''' ''' No hay documentación de metadatos disponible. ''' Public ReadOnly Property excepcionesmenus() As ObjectSet(Of excepcionesmenus) Get If (_excepcionesmenus Is Nothing) Then _excepcionesmenus = MyBase.CreateObjectSet(Of excepcionesmenus)("excepcionesmenus") End If Return _excepcionesmenus End Get End Property Private _excepcionesmenus As ObjectSet(Of excepcionesmenus) ''' ''' No hay documentación de metadatos disponible. ''' Public ReadOnly Property grupobd() As ObjectSet(Of grupobd) Get If (_grupobd Is Nothing) Then _grupobd = MyBase.CreateObjectSet(Of grupobd)("grupobd") End If Return _grupobd End Get End Property Private _grupobd As ObjectSet(Of grupobd) ''' ''' No hay documentación de metadatos disponible. ''' Public ReadOnly Property gruposmenus() As ObjectSet(Of gruposmenus) Get If (_gruposmenus Is Nothing) Then _gruposmenus = MyBase.CreateObjectSet(Of gruposmenus)("gruposmenus") End If Return _gruposmenus End Get End Property Private _gruposmenus As ObjectSet(Of gruposmenus) ''' ''' No hay documentación de metadatos disponible. ''' Public ReadOnly Property menus() As ObjectSet(Of menus) Get If (_menus Is Nothing) Then _menus = MyBase.CreateObjectSet(Of menus)("menus") End If Return _menus End Get End Property Private _menus As ObjectSet(Of menus) ''' ''' No hay documentación de metadatos disponible. ''' Public ReadOnly Property usuarios() As ObjectSet(Of usuarios) Get If (_usuarios Is Nothing) Then _usuarios = MyBase.CreateObjectSet(Of usuarios)("usuarios") End If Return _usuarios End Get End Property Private _usuarios As ObjectSet(Of usuarios) #End Region #Region "Métodos AddTo" ''' ''' Método desusado para agregar un nuevo objeto al EntitySet excepcionesmenus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. ''' Public Sub AddToexcepcionesmenus(ByVal excepcionesmenus As excepcionesmenus) MyBase.AddObject("excepcionesmenus", excepcionesmenus) End Sub ''' ''' Método desusado para agregar un nuevo objeto al EntitySet grupobd. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. ''' Public Sub AddTogrupobd(ByVal grupobd As grupobd) MyBase.AddObject("grupobd", grupobd) End Sub ''' ''' Método desusado para agregar un nuevo objeto al EntitySet gruposmenus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. ''' Public Sub AddTogruposmenus(ByVal gruposmenus As gruposmenus) MyBase.AddObject("gruposmenus", gruposmenus) End Sub ''' ''' Método desusado para agregar un nuevo objeto al EntitySet menus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. ''' Public Sub AddTomenus(ByVal menus As menus) MyBase.AddObject("menus", menus) End Sub ''' ''' Método desusado para agregar un nuevo objeto al EntitySet usuarios. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. ''' Public Sub AddTousuarios(ByVal usuarios As usuarios) MyBase.AddObject("usuarios", usuarios) End Sub #End Region End Class #End Region #Region "Entidades" ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class excepcionesmenus Inherits EntityObject #Region "Método de generador" ''' ''' Crear un nuevo objeto excepcionesmenus. ''' ''' Valor inicial de la propiedad idExcepcionesMenus. Public Shared Function Createexcepcionesmenus(idExcepcionesMenus As Global.System.Int32) As excepcionesmenus Dim excepcionesmenus as excepcionesmenus = New excepcionesmenus excepcionesmenus.idExcepcionesMenus = idExcepcionesMenus Return excepcionesmenus End Function #End Region #Region "Propiedades simples" ''' ''' No hay documentación de metadatos disponible. ''' Public Property idExcepcionesMenus() As Global.System.Int32 Get Return _idExcepcionesMenus End Get Set If (_idExcepcionesMenus <> Value) Then OnidExcepcionesMenusChanging(value) ReportPropertyChanging("idExcepcionesMenus") _idExcepcionesMenus = StructuralObject.SetValidValue(value, "idExcepcionesMenus") ReportPropertyChanged("idExcepcionesMenus") OnidExcepcionesMenusChanged() End If End Set End Property Private _idExcepcionesMenus As Global.System.Int32 Private Partial Sub OnidExcepcionesMenusChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidExcepcionesMenusChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idMenu() As Nullable(Of Global.System.Int32) Get Return _idMenu End Get Set OnidMenuChanging(value) ReportPropertyChanging("idMenu") _idMenu = StructuralObject.SetValidValue(value, "idMenu") ReportPropertyChanged("idMenu") OnidMenuChanged() End Set End Property Private _idMenu As Nullable(Of Global.System.Int32) Private Partial Sub OnidMenuChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnidMenuChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idUsuario() As Nullable(Of Global.System.Int32) Get Return _idUsuario End Get Set OnidUsuarioChanging(value) ReportPropertyChanging("idUsuario") _idUsuario = StructuralObject.SetValidValue(value, "idUsuario") ReportPropertyChanged("idUsuario") OnidUsuarioChanged() End Set End Property Private _idUsuario As Nullable(Of Global.System.Int32) Private Partial Sub OnidUsuarioChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnidUsuarioChanged() End Sub #End Region #Region "Propiedades de navegación" ''' ''' No hay documentación de metadatos disponible. ''' Public Property menus() As menus Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus").Value End Get Set CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus").Value = value End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property menusReference() As EntityReference(Of menus) Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus", value) End If End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property usuarios() As usuarios Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios").Value End Get Set CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios").Value = value End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property usuariosReference() As EntityReference(Of usuarios) Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios", value) End If End Set End Property #End Region End Class ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class grupobd Inherits EntityObject #Region "Método de generador" ''' ''' Crear un nuevo objeto grupobd. ''' ''' Valor inicial de la propiedad idGrupoBD. Public Shared Function Creategrupobd(idGrupoBD As Global.System.Int32) As grupobd Dim grupobd as grupobd = New grupobd grupobd.idGrupoBD = idGrupoBD Return grupobd End Function #End Region #Region "Propiedades simples" ''' ''' No hay documentación de metadatos disponible. ''' Public Property idGrupoBD() As Global.System.Int32 Get Return _idGrupoBD End Get Set If (_idGrupoBD <> Value) Then OnidGrupoBDChanging(value) ReportPropertyChanging("idGrupoBD") _idGrupoBD = StructuralObject.SetValidValue(value, "idGrupoBD") ReportPropertyChanged("idGrupoBD") OnidGrupoBDChanged() End If End Set End Property Private _idGrupoBD As Global.System.Int32 Private Partial Sub OnidGrupoBDChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidGrupoBDChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Descripcion() As Global.System.String Get Return _Descripcion End Get Set OnDescripcionChanging(value) ReportPropertyChanging("Descripcion") _Descripcion = StructuralObject.SetValidValue(value, true, "Descripcion") ReportPropertyChanged("Descripcion") OnDescripcionChanged() End Set End Property Private _Descripcion As Global.System.String Private Partial Sub OnDescripcionChanging(value As Global.System.String) End Sub Private Partial Sub OnDescripcionChanged() End Sub #End Region #Region "Propiedades de navegación" ''' ''' No hay documentación de metadatos disponible. ''' Public Property usuarios() As EntityCollection(Of usuarios) Get Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of usuarios)("tsl5Model.Usuarios_Grupobd", "usuarios") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of usuarios)("tsl5Model.Usuarios_Grupobd", "usuarios", value) End If End Set End Property #End Region End Class ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class gruposmenus Inherits EntityObject #Region "Método de generador" ''' ''' Crear un nuevo objeto gruposmenus. ''' ''' Valor inicial de la propiedad idGruposMenus. Public Shared Function Creategruposmenus(idGruposMenus As Global.System.Int32) As gruposmenus Dim gruposmenus as gruposmenus = New gruposmenus gruposmenus.idGruposMenus = idGruposMenus Return gruposmenus End Function #End Region #Region "Propiedades simples" ''' ''' No hay documentación de metadatos disponible. ''' Public Property idGruposMenus() As Global.System.Int32 Get Return _idGruposMenus End Get Set If (_idGruposMenus <> Value) Then OnidGruposMenusChanging(value) ReportPropertyChanging("idGruposMenus") _idGruposMenus = StructuralObject.SetValidValue(value, "idGruposMenus") ReportPropertyChanged("idGruposMenus") OnidGruposMenusChanged() End If End Set End Property Private _idGruposMenus As Global.System.Int32 Private Partial Sub OnidGruposMenusChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidGruposMenusChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Descripcion() As Global.System.String Get Return _Descripcion End Get Set OnDescripcionChanging(value) ReportPropertyChanging("Descripcion") _Descripcion = StructuralObject.SetValidValue(value, true, "Descripcion") ReportPropertyChanged("Descripcion") OnDescripcionChanged() End Set End Property Private _Descripcion As Global.System.String Private Partial Sub OnDescripcionChanging(value As Global.System.String) End Sub Private Partial Sub OnDescripcionChanged() End Sub #End Region #Region "Propiedades de navegación" ''' ''' No hay documentación de metadatos disponible. ''' Public Property menus() As EntityCollection(Of menus) Get Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of menus)("tsl5Model.Menus_GruposMenus", "menus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of menus)("tsl5Model.Menus_GruposMenus", "menus", value) End If End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property usuarios() As EntityCollection(Of usuarios) Get Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of usuarios)("tsl5Model.usuarios_gruposmenus", "usuarios") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of usuarios)("tsl5Model.usuarios_gruposmenus", "usuarios", value) End If End Set End Property #End Region End Class ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class menus Inherits EntityObject #Region "Método de generador" ''' ''' Crear un nuevo objeto menus. ''' ''' Valor inicial de la propiedad idMenus. Public Shared Function Createmenus(idMenus As Global.System.Int32) As menus Dim menus as menus = New menus menus.idMenus = idMenus Return menus End Function #End Region #Region "Propiedades simples" ''' ''' No hay documentación de metadatos disponible. ''' Public Property idMenus() As Global.System.Int32 Get Return _idMenus End Get Set If (_idMenus <> Value) Then OnidMenusChanging(value) ReportPropertyChanging("idMenus") _idMenus = StructuralObject.SetValidValue(value, "idMenus") ReportPropertyChanged("idMenus") OnidMenusChanged() End If End Set End Property Private _idMenus As Global.System.Int32 Private Partial Sub OnidMenusChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidMenusChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Texto() As Global.System.String Get Return _Texto End Get Set OnTextoChanging(value) ReportPropertyChanging("Texto") _Texto = StructuralObject.SetValidValue(value, true, "Texto") ReportPropertyChanged("Texto") OnTextoChanged() End Set End Property Private _Texto As Global.System.String Private Partial Sub OnTextoChanging(value As Global.System.String) End Sub Private Partial Sub OnTextoChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Ayuda() As Global.System.String Get Return _Ayuda End Get Set OnAyudaChanging(value) ReportPropertyChanging("Ayuda") _Ayuda = StructuralObject.SetValidValue(value, true, "Ayuda") ReportPropertyChanged("Ayuda") OnAyudaChanged() End Set End Property Private _Ayuda As Global.System.String Private Partial Sub OnAyudaChanging(value As Global.System.String) End Sub Private Partial Sub OnAyudaChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Accion() As Global.System.String Get Return _Accion End Get Set OnAccionChanging(value) ReportPropertyChanging("Accion") _Accion = StructuralObject.SetValidValue(value, true, "Accion") ReportPropertyChanged("Accion") OnAccionChanged() End Set End Property Private _Accion As Global.System.String Private Partial Sub OnAccionChanging(value As Global.System.String) End Sub Private Partial Sub OnAccionChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Orden() As Nullable(Of Global.System.Int32) Get Return _Orden End Get Set OnOrdenChanging(value) ReportPropertyChanging("Orden") _Orden = StructuralObject.SetValidValue(value, "Orden") ReportPropertyChanged("Orden") OnOrdenChanged() End Set End Property Private _Orden As Nullable(Of Global.System.Int32) Private Partial Sub OnOrdenChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnOrdenChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idMenuPadre() As Nullable(Of Global.System.Int32) Get Return _idMenuPadre End Get Set OnidMenuPadreChanging(value) ReportPropertyChanging("idMenuPadre") _idMenuPadre = StructuralObject.SetValidValue(value, "idMenuPadre") ReportPropertyChanged("idMenuPadre") OnidMenuPadreChanged() End Set End Property Private _idMenuPadre As Nullable(Of Global.System.Int32) Private Partial Sub OnidMenuPadreChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnidMenuPadreChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idGrupoMenu() As Nullable(Of Global.System.Int32) Get Return _idGrupoMenu End Get Set OnidGrupoMenuChanging(value) ReportPropertyChanging("idGrupoMenu") _idGrupoMenu = StructuralObject.SetValidValue(value, "idGrupoMenu") ReportPropertyChanged("idGrupoMenu") OnidGrupoMenuChanged() End Set End Property Private _idGrupoMenu As Nullable(Of Global.System.Int32) Private Partial Sub OnidGrupoMenuChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnidGrupoMenuChanged() End Sub #End Region #Region "Propiedades de navegación" ''' ''' No hay documentación de metadatos disponible. ''' Public Property excepcionesmenus() As EntityCollection(Of excepcionesmenus) Get Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_menus", "excepcionesmenus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_menus", "excepcionesmenus", value) End If End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property gruposmenus() As gruposmenus Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus").Value End Get Set CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus").Value = value End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property gruposmenusReference() As EntityReference(Of gruposmenus) Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus", value) End If End Set End Property #End Region End Class ''' ''' No hay documentación de metadatos disponible. ''' Public Partial Class usuarios Inherits EntityObject #Region "Método de generador" ''' ''' Crear un nuevo objeto usuarios. ''' ''' Valor inicial de la propiedad idUsuarios. ''' Valor inicial de la propiedad Usuario. ''' Valor inicial de la propiedad idGrupobd. Public Shared Function Createusuarios(idUsuarios As Global.System.Int32, usuario As Global.System.String, idGrupobd As Global.System.Int32) As usuarios Dim usuarios as usuarios = New usuarios usuarios.idUsuarios = idUsuarios usuarios.Usuario = usuario usuarios.idGrupobd = idGrupobd Return usuarios End Function #End Region #Region "Propiedades simples" ''' ''' No hay documentación de metadatos disponible. ''' Public Property idUsuarios() As Global.System.Int32 Get Return _idUsuarios End Get Set If (_idUsuarios <> Value) Then OnidUsuariosChanging(value) ReportPropertyChanging("idUsuarios") _idUsuarios = StructuralObject.SetValidValue(value, "idUsuarios") ReportPropertyChanged("idUsuarios") OnidUsuariosChanged() End If End Set End Property Private _idUsuarios As Global.System.Int32 Private Partial Sub OnidUsuariosChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidUsuariosChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property Usuario() As Global.System.String Get Return _Usuario End Get Set OnUsuarioChanging(value) ReportPropertyChanging("Usuario") _Usuario = StructuralObject.SetValidValue(value, false, "Usuario") ReportPropertyChanged("Usuario") OnUsuarioChanged() End Set End Property Private _Usuario As Global.System.String Private Partial Sub OnUsuarioChanging(value As Global.System.String) End Sub Private Partial Sub OnUsuarioChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property SHA1Passwd() As Global.System.String Get Return _SHA1Passwd End Get Set OnSHA1PasswdChanging(value) ReportPropertyChanging("SHA1Passwd") _SHA1Passwd = StructuralObject.SetValidValue(value, true, "SHA1Passwd") ReportPropertyChanged("SHA1Passwd") OnSHA1PasswdChanged() End Set End Property Private _SHA1Passwd As Global.System.String Private Partial Sub OnSHA1PasswdChanging(value As Global.System.String) End Sub Private Partial Sub OnSHA1PasswdChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idGrupobd() As Global.System.Int32 Get Return _idGrupobd End Get Set OnidGrupobdChanging(value) ReportPropertyChanging("idGrupobd") _idGrupobd = StructuralObject.SetValidValue(value, "idGrupobd") ReportPropertyChanged("idGrupobd") OnidGrupobdChanged() End Set End Property Private _idGrupobd As Global.System.Int32 Private Partial Sub OnidGrupobdChanging(value As Global.System.Int32) End Sub Private Partial Sub OnidGrupobdChanged() End Sub ''' ''' No hay documentación de metadatos disponible. ''' Public Property idGrupomenus() As Nullable(Of Global.System.Int32) Get Return _idGrupomenus End Get Set OnidGrupomenusChanging(value) ReportPropertyChanging("idGrupomenus") _idGrupomenus = StructuralObject.SetValidValue(value, "idGrupomenus") ReportPropertyChanged("idGrupomenus") OnidGrupomenusChanged() End Set End Property Private _idGrupomenus As Nullable(Of Global.System.Int32) Private Partial Sub OnidGrupomenusChanging(value As Nullable(Of Global.System.Int32)) End Sub Private Partial Sub OnidGrupomenusChanged() End Sub #End Region #Region "Propiedades de navegación" ''' ''' No hay documentación de metadatos disponible. ''' Public Property excepcionesmenus() As EntityCollection(Of excepcionesmenus) Get Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_usuarios", "excepcionesmenus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_usuarios", "excepcionesmenus", value) End If End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property grupobd() As grupobd Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd").Value End Get Set CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd").Value = value End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property grupobdReference() As EntityReference(Of grupobd) Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd", value) End If End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property gruposmenus() As gruposmenus Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus").Value End Get Set CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus").Value = value End Set End Property ''' ''' No hay documentación de metadatos disponible. ''' Public Property gruposmenusReference() As EntityReference(Of gruposmenus) Get Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus") End Get Set If (Not value Is Nothing) CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus", value) End If End Set End Property #End Region End Class #End Region