2026-01-30-v2

GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwConceptosPredefinidos.xaml.vb

@@ -0,0 +1,87 @@
+
+Imports tsl5.Extensiones
+Imports bdGrupoSanchoToro
+Imports DevExpress.Xpf.Core
+Imports System.Data.Entity
+Imports bdGrupoSanchoToro.db
+Public Class dxwConceptosPredefinidos
+    Friend _bd As tscGrupoSanchoToro
+    Public idConcepto As Integer
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        If gc.CurrentItem IsNot Nothing Then
+            idConcepto = DirectCast(gc.CurrentItem, conceptosapuntes).idConcepto
+            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 dxw_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        Try
+            teBusqueda.Focus()
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        Finally
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+        End Try
+    End Sub
+
+    'Public Sub New(bd As m3academiaEntities, Existentes As List(Of Integer?))
+    Public Sub New(bd As tscGrupoSanchoToro)
+
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        _bd = bd
+
+    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)
+        Try
+            DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
+            DXSplashScreen.SetState("Cargando Datos ...")
+            Dim TextoBusqueda = Me.teBusqueda.Text.Trim
+            Dim ExpresionBusqueda As String = ""
+            If TextoBusqueda <> "" Then
+                Dim CamposBusquedaAlfabeticos() As String = {"Codigo", "Concepto"}
+                ExpresionBusqueda = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Nothing, CamposBusquedaAlfabeticos, Nothing, Nothing)
+            End If
+            Dim ctos As List(Of conceptosapuntes)
+            If ExpresionBusqueda <> "" Then
+                Dim parametros(0) As Object
+                ctos = _bd.conceptosapuntes.Where(ExpresionBusqueda, parametros).OrderBy(Function(x) x.Concepto).ToList
+            Else
+                ctos = _bd.conceptosapuntes.Where(Function(X) X.Concepto <> "").OrderBy(Function(x) x.Concepto).ToList
+            End If
+            DXSplashScreen.Close()
+            Select Case ctos.Count
+                Case 0
+                    DXMessageBox.Show("No se han encontrado conceptos con los datos suministrados", "Atención")
+                Case 1
+                    idConcepto = ctos.First.idConcepto
+                    Me.DialogResult = True
+                    Me.Close()
+                Case Else
+                    Me.gc.ItemsSource = ctos
+                    Me.gc.Focus()
+            End Select
+        Catch ex As Exception
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+        End Try
+    End Sub
+End Class