Agregar archivos de proyecto.

GestionGrupoSanchoToro/ucExtractoBancario.xaml.vb

@@ -0,0 +1,121 @@
+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