Agregar archivos de proyecto.

2026-01-23 12:45:41 +01:00
parent 5ed4e0bc46
commit c8d1044267
237 changed files with 34721 additions and 0 deletions
--- a/GestionGrupoSanchoToro/ucPermiso.xaml.vb
+++ b/GestionGrupoSanchoToro/ucPermiso.xaml.vb
@@ -0,0 +1,125 @@
+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 ucPermiso
+    ''faltan cosas que pasar (ej: init row) no me dejan po el error base
+    Private bd As tscGrupoSanchoToro
+    Private _idPermiso As Integer?
+
+    Public Sub New(idPermiso As Integer?)
+
+        ' Esta llamada es exigida por el diseñador.
+        _idPermiso = idPermiso
+        InitializeComponent()
+
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
+                Return "Permiso.Nuevo"
+            Else
+                Return "Permiso." & DirectCast(Me.DataContext, bdGrupoSanchoToro.db.permisos).idPermiso.ToString
+            End If
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Permisos"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "permisos"
+        End Get
+    End Property
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+        Dim listagru = (From gru In bd.gruposusuarios Select gru).ToList
+        Me.cbGrupo.ItemsSource = listagru
+
+        Dim listausu = (From usu In bd.usuarios Select usu).ToList
+        Me.cbUsuario.ItemsSource = listausu
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        Me.docpanel.Caption = "Permiso"
+    End Sub
+
+    Public Overrides Sub Cargado()
+        Me.Tipo_ucControlBusqueda = GetType(ucPermisos)
+    End Sub
+
+    Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
+        Dim NuevoEstado As tsUtilidades.EstadosAplicacion
+        Dim ra As bdGrupoSanchoToro.db.permisos
+        If FuerzaNuevo OrElse _idPermiso Is Nothing Then
+            ra = New bdGrupoSanchoToro.db.permisos
+            NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
+        Else
+            Dim id As Integer = _idPermiso
+            ra = bd.permisos.First(Function(X) X.idPermiso = id)
+            NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
+        End If
+        Me.DataContext = ra
+        Me.AutorizacionesGruposGridControl.ItemsSource = ra.autorizacionesgrupos
+        Me.AutorizacionesUsuariosGridControl.ItemsSource = ra.autorizacionesusuarios
+        Return NuevoEstado
+    End Function
+
+    Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto
+        Return bd
+    End Function
+
+    'Public Overrides Function ObtieneConexionBD() As BBDD
+    '    Return bdGrupoSanchoToro.db.tscGrupoSanchoToro.bdga
+    'End Function
+
+    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
+        Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRADORES", idUsuario)
+    End Function
+
+    Private Sub tvAutorizacionesGrupos_InitNewRow(sender As Object, e As DevExpress.Xpf.Grid.InitNewRowEventArgs) Handles tvAutorizacionesGrupos.InitNewRow
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirConsultas", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirNuevos", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirModificaciones", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirEliminaciones", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirExportar", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirImpresiones", False)
+        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "OtrosPermisos", False)
+    End Sub
+
+    Private Sub tvAutorizacionesUsuarios_InitNewRow(sender As Object, e As DevExpress.Xpf.Grid.InitNewRowEventArgs) Handles tvAutorizacionesUsuarios.InitNewRow
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirConsultas", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirNuevos", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirModificaciones", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirEliminaciones", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirExportar", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirImpresiones", False)
+        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "OtrosPermisos", False)
+    End Sub
+
+
+End Class