2026-01-30-v2

GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwAsientosModelo.xaml.vb

@@ -0,0 +1,54 @@
+
+Imports bdGrupoSanchoToro
+Imports bdGrupoSanchoToro.db
+Imports DevExpress.Xpf.Core
+Imports System.Data.Entity
+Public Class dxwAsientosModelo
+    Friend _bd As tscGrupoSanchoToro
+    Public idAsientoModelo As Integer
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        If gc.CurrentItem IsNot Nothing Then
+            idAsientoModelo = DirectCast(gc.CurrentItem, asientosmodelos).idAsientoModelo
+            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
+            If Not DXSplashScreen.IsActive Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
+            DXSplashScreen.SetState("Cargando Datos ...")
+            Me.gc.ItemsSource = _bd.asientosmodelos.OrderBy(Function(x) x.Descripcion).ToList
+        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
+End Class