2026-01-30-v2

GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml.vb

@@ -0,0 +1,104 @@
+
+Imports System.CodeDom.Compiler
+Imports DevExpress.Xpf.Core
+Imports System.Reflection
+Imports DevExpress.Xpf.Bars
+Imports tsWPFCore
+Imports tsWPFCore.Comun
+Imports bdGrupoSanchoToro.db
+Imports bdGrupoSanchoToro.db.Utilidades
+
+Public Class ucEjerciciosContables
+
+
+    Private bd As tscGrupoSanchoToro
+
+
+    Public Overrides Sub Cargado()
+        '    AddHandler Me.ContenedorAplicacion.btNuevo.ItemClick, AddressOf Nuevo
+        '   ap.ContenedorAplicacion.btGuardar.IsVisible = False
+        ContenedorAplicacion.siEstado.IsVisible = False
+    End Sub
+
+    'Public Sub EstableceAplicacion(ap As tsWPF.Aplicacion) .EstableceAplicacion
+    '    Me.ap = ap
+    'End Sub
+
+    Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
+        Me.gcEjercicios.ItemsSource = bd.ejercicioscontables.ToList
+        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
+    End Function
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        If Me.docpanel Is Nothing Then
+            Dim w As Window = Window.GetWindow(Me)
+            w.Title = "Seleccione Ejercicio Contable"
+        Else
+            Me.docpanel.Caption = "Ejercicios Contables"
+        End If
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "EjerciciosContables"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "ejercicioscontables"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Ejercicios Contables"
+        End Get
+    End Property
+
+    Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto()
+        Return bd
+    End Function
+
+    'Public Overrides Function ObtieneConexionBD() As tsl5.Datos.BBDD
+    '    Return bdGrupoSanchoToro.gestionasegasaEntities.bdga
+    'End Function
+
+    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
+        Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRATIVOS", idUsuario)
+    End Function
+
+    Private Sub Nuevo() Handles Me.BotonNuevoPulsado
+        FuncionesDinamicas.AbrirAP(New ucEjercicioContable, OtrosParametros)
+    End Sub
+
+    Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
+
+        Dim id As Integer = DirectCast(Me.gcEjercicios.CurrentItem, ejercicioscontables).idEjercicio
+        '  Dim uc As New ucRamo
+        '   Dim dwi As dxwInicio = Window.GetWindow(Me)
+        FuncionesDinamicas.AbrirAP(New ucEjercicioContable(id), OtrosParametros)
+    End Sub
+
+    Private Sub ap_AntesGuardar(sender As Object, e As ItemClickEventArgs, ByRef Cancelar As Boolean, ByRef MensajesError As Hashtable, OpcionGuardado As Integer) Handles Me.AntesGuardar
+        Dim ra As ejercicioscontables = Me.DataContext
+        If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
+            If bd.ejercicioscontables.Any(Function(x) x.idEmpresa = ra.idEmpresa And ((x.FechaInicio >= ra.FechaInicio And x.FechaInicio <= ra.FechaFin) Or (x.FechaFin >= ra.FechaInicio And x.FechaFin <= ra.FechaFin))) Then
+                Cancelar = True
+
+            End If
+        End If
+    End Sub
+
+    'Private Sub TableView_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
+    '    If Window.GetWindow(Me).GetType Is GetType(tsWPF.dxwVentanaBusqueda) Then
+    '        Dim dxwvb = DirectCast(Window.GetWindow(Me), tsWPF.dxwVentanaBusqueda)
+    '        dxwvb.BtAceptar_Click(Nothing, Nothing)
+    '    End If
+    'End Sub
+End Class