122 lines
4.0 KiB
VB.net
122 lines
4.0 KiB
VB.net
Imports DevExpress.Xpf.Editors
|
|
Imports DevExpress.Xpf.LayoutControl
|
|
Imports tsWPFCore
|
|
Imports System.ComponentModel
|
|
Imports System.Data
|
|
Imports DevExpress.Xpf.Editors.Validation
|
|
Imports DevExpress.Xpf.Editors.Helpers
|
|
Imports DevExpress.Xpf.Core
|
|
Imports tsWPFCore.modExtensiones
|
|
Imports System.Data.Common
|
|
Imports System.Data.Entity
|
|
Imports tsUtilidades.Datos
|
|
Imports DevExpress.Xpf.Bars
|
|
Imports System.Collections.ObjectModel
|
|
Imports DevExpress.Xpf.Grid
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
|
|
|
|
Public Class ucExtractoBancario
|
|
|
|
|
|
Private bd As tscGrupoSanchoToro
|
|
Friend _idExtracto As Nullable(Of Integer)
|
|
|
|
Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
|
|
|
|
|
|
Dim NuevoEstado As tsUtilidades.EstadosAplicacion
|
|
Dim ra As extractosbancarios
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo OrElse _idExtracto Is Nothing OrElse FuerzaNuevo Then
|
|
ra = New extractosbancarios
|
|
Me.DataContext = ra
|
|
_idExtracto = Nothing
|
|
ra.idUsuarioNavigation = bd.usuarios.First(Function(x) x.idUsuario = idUsuario)
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
|
|
Else
|
|
ra = bd.extractosbancarios.First(Function(x) x.idExtracto = _idExtracto.Value)
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
|
|
End If
|
|
Me.DataContext = ra
|
|
Me.gcMovimientos.ItemsSource = ra.movimientosbancarios
|
|
|
|
Return NuevoEstado
|
|
|
|
End Function
|
|
|
|
|
|
Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
|
|
bd = tscGrupoSanchoToro.NuevoContexto()
|
|
Return bd
|
|
End Function
|
|
|
|
Public Overrides ReadOnly Property NombreTablaBase As String
|
|
Get
|
|
Return "extractosbancarios"
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
|
|
Return "ExtractoBancario.Nuevo"
|
|
Else
|
|
Return "ExtractoBancario." & DirectCast(Me.DataContext, extractosbancarios).idExtracto.ToString
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property DescripcionRegistro As String
|
|
Get
|
|
Return "Extracto Bancario"
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub New(Optional idExtracto As Integer? = Nothing)
|
|
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
_idExtracto = idExtracto
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
|
|
Dim ext As extractosbancarios = Me.DataContext
|
|
Me.docpanel.Caption = "Extracto Bancario " & ext.idExtracto.ToString
|
|
Me.docpanel.Tag = "Extracto Bancario." & ext.idExtracto.ToString
|
|
Else
|
|
Me.docpanel.Caption = "Movimiento Bancario Nuevo"
|
|
Me.docpanel.Tag = "Movimiento Bancario.Nuevo"
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
|
|
Dim per = Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRATIVOS", idUsuario)
|
|
per.Nuevos = False
|
|
per.Modificar = False
|
|
Return per
|
|
End Function
|
|
|
|
|
|
Public Overrides Sub Cargado()
|
|
Me.Tipo_ucControlBusqueda = GetType(ucExtractosBancarios)
|
|
End Sub
|
|
|
|
Private Sub ucExtractoBancario_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
|
|
Dim ext As extractosbancarios = Me.DataContext
|
|
_idExtracto = ext.idExtracto
|
|
End Sub
|
|
End Class
|