91 lines
2.8 KiB
VB.net
91 lines
2.8 KiB
VB.net
Imports DevExpress.Xpf.Editors
|
|
Imports DevExpress.Xpf.LayoutControl
|
|
Imports tsWPFCore
|
|
Imports System.ComponentModel
|
|
Imports System.Data
|
|
Imports DevExpress.Xpf.Editors.Validation
|
|
Imports DevExpress.Xpf.Editors.Helpers
|
|
Imports DevExpress.Xpf.Core
|
|
Imports tsWPFCore.modExtensiones
|
|
Imports System.Data.Common
|
|
Imports System.Data.Entity
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports tsUtilidades.Datos
|
|
Imports DevExpress.Xpf.Bars
|
|
Imports DevExpress.Xpf.Grid
|
|
Imports System.Collections
|
|
Imports tsEFCore8.Extensiones
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
|
|
Imports System.Data.Objects.DataClasses
|
|
|
|
|
|
|
|
Public Class ucGruposUsuarios
|
|
|
|
|
|
Dim bd As tscGrupoSanchoToro
|
|
|
|
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
Return "GruposUsuarios"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property DescripcionRegistro As String
|
|
Get
|
|
Return "Grupos Usuarios"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property NombreTablaBase As String
|
|
Get
|
|
Return "gruposusuarios"
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
Me.docpanel.Caption = "Grupos de usuarios"
|
|
End Sub
|
|
|
|
Public Overrides Sub Cargado()
|
|
End Sub
|
|
|
|
Private Sub ucGruposUsuarios_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
|
|
Dim id As Integer = DirectCast(Me.gc.CurrentItem, gruposusuarios).idGrupo
|
|
FuncionesDinamicas.AbrirAP(New ucGrupoUsuarios(id), OtrosParametros)
|
|
End Sub
|
|
|
|
Private Sub ucGruposUsuarios_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
|
|
FuncionesDinamicas.AbrirAP(New ucGrupoUsuarios(Nothing), OtrosParametros)
|
|
End Sub
|
|
|
|
Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
|
|
Try
|
|
Dim gusus = (From g In bd.gruposusuarios Select g).ToList
|
|
DataContext = gusus
|
|
Me.gc.ItemsSource = gusus
|
|
Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
|
|
Catch ex As Exception
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
DXMessageBox.Show(ex.Message, "Error")
|
|
End Try
|
|
End Function
|
|
|
|
Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
|
|
bd = tscGrupoSanchoToro.NuevoContexto
|
|
Return bd
|
|
End Function
|
|
|
|
|
|
Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
|
|
Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRADORES", idUsuario)
|
|
End Function
|
|
|
|
End Class
|