Agregar archivos de proyecto.

GestionGrupoSanchoToro/ucGruposUsuarios.xaml.vb

@@ -0,0 +1,90 @@
+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