'------------------------------------------------------------------------------
'
' 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