2026-01-30-v2

2026-01-30 11:10:56 +01:00
parent 12039e9ae4
commit 6034845e65
46 changed files with 9717 additions and 356 deletions
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwCuentas.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwCuentas.xaml.vb
@@ -0,0 +1,85 @@
+
+Imports bdGrupoSanchoToro
+Imports DevExpress.Xpf.Core
+Imports System.Data.Entity
+Public Class dxwCuentas
+    Friend _bd As tscGrupoSanchoToro
+    Private _idEjercicio As Integer
+    Public idCuenta As Integer
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        If gc.CurrentItem IsNot Nothing Then
+            idCuenta = DirectCast(gc.CurrentItem, bdGrupoSanchoToro.db.vf_cuentas).idCuenta
+            Me.DialogResult = True
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
+        Me.DialogResult = False
+        Me.Close()
+    End Sub
+
+    Private Sub dxwEntidades_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        Try
+            teBusqueda.Focus()
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        Finally
+        End Try
+    End Sub
+
+    'Public Sub New(bd As m3academiaEntities, Existentes As List(Of Integer?))
+    Public Sub New(bd As tscGrupoSanchoToro, idEjercicio As Integer)
+
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        _bd = bd
+        _idEjercicio = idEjercicio
+    End Sub
+
+
+    Private Sub dxw_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles Me.PreviewKeyDown
+        If e.Key = Key.Enter Then
+            btAceptar_Click(Nothing, Nothing)
+        End If
+    End Sub
+
+    Private Sub tv_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs) Handles tv.MouseDoubleClick
+        btAceptar_Click(Nothing, Nothing)
+    End Sub
+
+
+
+    Private Sub btBuscar_Click(sender As Object, e As RoutedEventArgs)
+        Dim ctas As List(Of bdGrupoSanchoToro.db.vf_cuentas)
+        Try
+            If Not DXSplashScreen.IsActive Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
+            DXSplashScreen.SetState("Cargando Datos ...")
+            Dim TextoBusqueda = Me.teBusqueda.Text.Trim
+            Dim ExpresionBusqueda As String = ""
+            If TextoBusqueda <> "" Then
+                'Dim CamposBusquedaNumericos() As String = {"TotalDebe", "TotalHaber"}
+                Dim CamposBusquedaAlfabeticos() As String = {"Denominacion", "Mote"}
+                Dim CamposBusquedaAlfabeticosPorComienzo() As String = {"NumeroCuenta"}
+                ExpresionBusqueda = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Nothing, CamposBusquedaAlfabeticos, Nothing, CamposBusquedaAlfabeticosPorComienzo)
+            End If
+            ctas = bdGrupoSanchoToro.db.vf_cuentas.Obtiene_vf_cuentas(_bd, {_idEjercicio}, 8, ExpresionBusqueda)
+            DXSplashScreen.Close()
+            Select Case ctas.Count
+                Case 0
+                    DXMessageBox.Show("No se han encontrado cuentas con los datos suministrados", "Atención")
+                Case 1
+                    idCuenta = ctas.First.idCuenta
+                    Me.DialogResult = True
+                    Me.Close()
+                Case Else
+                    Me.gc.ItemsSource = ctas
+                    Me.gc.Focus()
+            End Select
+        Catch ex As Exception
+            '     If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+End Class