86 lines
3.2 KiB
VB.net
86 lines
3.2 KiB
VB.net
|
|
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
|