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/ucGrupoEnumeraciones.xaml.vb
+++ b/GestionGrupoSanchoToro/ucGrupoEnumeraciones.xaml.vb
@@ -0,0 +1,124 @@
+
+Imports bdGrupoSanchoToro.db
+Imports System.Data.Entity
+Imports DevExpress.Xpf.Core
+Imports tsWPFCore
+Imports System.Collections
+Imports DevExpress.Xpf.Bars
+Imports System.Threading.Tasks
+Imports System.Linq.Dynamic
+Imports bdGrupoSanchoToro.db.Utilidades
+Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
+Imports tsUtilidades
+
+Public Class ucGrupoEnumeraciones
+    ''Faltan funciones que no me deja crear (ej EstadoCambiado) cuando se arregle reviso
+
+    Private bd As tscGrupoSanchoToro
+    Private _idGrupo As Integer?
+
+    Public Sub New(Optional idGrupo As Integer? = Nothing)
+
+        ' Esta llamada es exigida por el diseñador.
+        _idGrupo = idGrupo
+        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 "GrupoEnumeraciones.Nuevo"
+            Else
+                Return "GrupoEnumeraciones." & DirectCast(Me.DataContext, gruposenumeraciones).idGrupoEnumeracion.ToString
+            End If
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Grupo Enumeraciones"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "gruposenumeraciones"
+        End Get
+    End Property
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
+            Dim mv As gruposenumeraciones = Me.DataContext
+            Me.docpanel.Caption = "Grupo Enumeraciones " & mv.Grupo.ToString
+        Else
+            Me.docpanel.Caption = "Grupo Enumeraciones. Nuevo"
+
+        End If
+    End Sub
+
+    Public Overrides Sub Cargado()
+        Me.Tipo_ucControlBusqueda = GetType(ucGruposEnumeraciones)
+    End Sub
+
+    Private Sub ucGrupoEnumeraciones_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
+        Dim gr As gruposenumeraciones = Me.DataContext
+        _idGrupo = gr.idGrupoEnumeracion
+    End Sub
+
+    Dim ra As gruposenumeraciones
+    ' Private WithEvents blenumeraciones As ComponentModel.BindingList(Of db.enumeraciones)
+    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
+
+        If FuerzaNuevo OrElse _idGrupo Is Nothing Then
+            ra = New gruposenumeraciones
+            NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
+        Else
+            Dim id As Integer = _idGrupo
+            ra = bd.gruposenumeraciones.First(Function(X) X.idGrupoEnumeracion = id)
+            NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
+        End If
+        Me.DataContext = ra
+        '    blenumeraciones = tsWPFCore.tsUserControl.Obtienebl(ra.enumeraciones.ToList)
+        Me.gcEnumeraciones.ItemsSource = ra.enumeraciones ' blenumeraciones
+
+        Return NuevoEstado
+    End Function
+
+
+
+    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
+        Return Comun.ObtienePermisos(Me.bd, "AP.ADMINISTRADOR", idUsuario)
+    End Function
+
+    Public Overrides Function ObtieneBD() As ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto
+        Return bd
+    End Function
+
+    Private Sub tvEnumeraciones_CellValueChanged(sender As Object, e As DevExpress.Xpf.Grid.CellValueChangedEventArgs) Handles tvEnumeraciones.CellValueChanged
+        Select Case e.Column.FieldName.ToLower
+            Case "codigo"
+                If e.Value.ToString.Length > 0 AndAlso ra.Grupo.Length > 0 Then
+                    If Not e.Value.ToString.StartsWith(ra.Grupo & ".") Then
+                        Dim enu As bdGrupoSanchoToro.db.enumeraciones = e.Row
+                        enu.Codigo = ra.Grupo & "." & e.Value.ToString
+
+                    End If
+                End If
+        End Select
+    End Sub
+
+    Private Sub gcEnumeraciones_AntesEliminar(gc As tsGridControl, ByRef Cancelar As Boolean) Handles gcEnumeraciones.AntesEliminar
+        Dim enu As enumeraciones = gcEnumeraciones.CurrentItem
+        '  enu.idEnumeracion = 1
+        Debug.Write("aqui")
+    End Sub
+End Class
+