Agregar archivos de proyecto.

GestionGrupoSanchoToro/ucGruposEnumeraciones.xaml.vb

@@ -0,0 +1,155 @@
+
+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 DevExpress.Xpf.Grid
+Imports tsUtilidades
+
+Public Class ucGruposEnumeraciones
+
+
+    Dim bd As tscGrupoSanchoToro
+
+    Public Overrides Sub Cargado()
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "GruposEnumeraciones"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Grupos 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()
+        Me.docpanel.Caption = "Grupos de Enumeraciones"
+    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 grs = (From g In bd.gruposenumeraciones Select g Where g.Oculto = False)
+            DataContext = grs
+            Me.gc.ItemsSource = grs
+
+        Catch ex As Exception
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
+    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.ADMINISTRADOR", idUsuario)
+    End Function
+
+    Private Sub ucGruposEnumeraciones_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
+        Dim ra = DirectCast(Me.gc.CurrentItem, gruposenumeraciones)
+        Dim id As Integer = ra.idGrupoEnumeracion
+        FuncionesDinamicas.AbrirAP(New ucGrupoEnumeraciones(id), OtrosParametros)
+    End Sub
+
+    Public Overrides Function ObtieneBD() As ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto
+        Return bd
+    End Function
+
+    Private Sub ucGruposEnumeraciones_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
+        FuncionesDinamicas.AbrirAP(New ucGrupoEnumeraciones, OtrosParametros)
+    End Sub
+
+    'Private WithEvents ApLineas As tsWPFCore.ApLineas
+    'Public ReadOnly Property Titulo As String Implements tsWPFCore.IApLineas.Titulo
+    '    Get
+    '        Return "Grupos de Enumeraciones"
+    '    End Get
+    'End Property
+
+
+    'Private Sub ApLineas_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles ApLineas.Enlazar
+    '    If Defecto Then
+    '        Dim id As Integer = Me.gc.SelectedItems(0).idGrupoEnumeracion
+    '        Dim ucgrupo As New ucGrupoEnumeraciones
+    '        FuncionesDinamicas.AbrirUcCL(ucgrupo, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, id)
+    '    Else
+    '        Dim grupo As gruposenumeraciones = Celda.RowData.Row
+    '        Dim gr As New ucGrupoEnumeraciones
+    '        FuncionesDinamicas.AbrirUcCL(gr, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, grupo.idGrupoEnumeracion)
+    '    End If
+    'End Sub
+
+    'Public Sub EstableceDataContext(ByRef DataContext As Object, Optional BackGround As Boolean = False) Implements tsWPFCore.IApLineas.EstableceDataContext
+    '    Try
+    '        Dim grs = (From g In bd.gruposenumeraciones Select g Where g.Oculto = False)
+    '        DataContext = grs
+    '        Me.gc.ItemsSource = grs
+    '    Catch ex As Exception
+    '        If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+    '        DXMessageBox.Show(ex.Message, "Error")
+    '    End Try
+    'End Sub
+
+    'Public ReadOnly Property NombreTablaBase As String Implements tsWPFCore.IApLineas.NombreTablaBase
+    '    Get
+    '        Return "gruposenumeraciones"
+    '    End Get
+    'End Property
+
+    'Public Sub Nuevo() Implements tsWPFCore.IApLineas.Nuevo
+
+    '    Dim ucGrupo As New ucGrupoEnumeraciones
+    '    FuncionesDinamicas.AbrirUcCL(ucGrupo, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, Nothing)
+    'End Sub
+
+
+
+    'Public Sub EstableceApLin(ApLin As tsWPFCore.ApLineas) Implements tsWPFCore.IApLineas.EstableceApLin
+    '    Me.ApLineas = ApLin
+    'End Sub
+
+    'Public Function ObtieneContexto(dcn As tsUtilidades.Datos.DatosConexionCliente) As System.Data.Objects.ObjectContext Implements tsWPFCore.IApLineas.ObtieneContexto
+    '    bd = tscGrupoSanchoToro.NuevoContexto
+    '    Return bd
+    'End Function
+
+    'Public Function ObtienePermisos() As tsUtilidades.Permisos Implements tsWPFCore.IApLineas.ObtienePermisos
+    '    Return Comun.ObtienePermisos(Me.bd, "AP.GRUPOSENUMERACIONES", Me.ApLineas.dsc.idUsuario)
+    'End Function
+
+    'Public Function ObtieneRejilla() As tsWPFCore.tsGridControl Implements tsWPFCore.IApLineas.ObtieneRejilla
+    '    Return Me.gc
+    'End Function
+
+    'Public Function ObtieneCampoIndice() As String Implements tsWPFCore.IApLineas.ObtieneCampoIndice
+    '    Return "idGrupoEnumeracion"
+    'End Function
+End Class