Agregar archivos de proyecto.

tsAplicacion/ContenedorTsAplicacion.xaml

@@ -0,0 +1,159 @@
+<UserControl x:Class="ContenedorTsAplicacion" 
+             x:ClassModifier="Public"
+             x:Name="ContenedorAplicacion"             
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:lc="http://schemas.devexpress.com/winfx/2008/xaml/layoutcontrol"
+             xmlns:ts="clr-namespace:tsWPF"
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"   
+             xmlns:My="clr-namespace:tsWPF"
+             xmlns:dxmvvm="http://schemas.devexpress.com/winfx/2008/xaml/mvvm"
+             xmlns:dxc="http://schemas.devexpress.com/winfx/2008/xaml/core"                          
+             mc:Ignorable="d" xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars" xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors" d:DesignHeight="497" d:DesignWidth="1280" xmlns:dxlc="http://schemas.devexpress.com/winfx/2008/xaml/layoutcontrol" xmlns:dxdo="http://schemas.devexpress.com/winfx/2008/xaml/docking" xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core" xmlns:dxn="http://schemas.devexpress.com/winfx/2008/xaml/navbar">    
+           
+    <UserControl.Resources>
+        <Storyboard x:Key="sbDesvanecer">
+            <DoubleAnimation Storyboard.TargetProperty="(TextBlock.Opacity)"
+                                                    From="1.0" To="0.0" Duration="0:0:2" 
+                                                    AutoReverse="False" />
+        </Storyboard>
+        <Style TargetType="dxdo:LayoutPanel" x:Key="estilomensaje">
+            <Setter Property="Appearance">
+                <Setter.Value>
+                    <dxdo:Appearance>
+                        <dxdo:Appearance.Normal>
+                            <dxdo:AppearanceObject Background="LightCoral" Foreground="White" />
+                        </dxdo:Appearance.Normal>
+
+                        <dxdo:Appearance.Active>
+                            <dxdo:AppearanceObject Background="LightCoral" Foreground="White" />
+                        </dxdo:Appearance.Active>
+                    </dxdo:Appearance>
+                </Setter.Value>
+            </Setter>
+        </Style>
+        <Storyboard x:Key="tsBlink">
+            <DoubleAnimation Storyboard.TargetProperty="(TextBlock.Opacity)"
+                                                    From="1.0" To="0.0" Duration="0:0:0.7" 
+                                                    AutoReverse="True" RepeatBehavior="Forever"  />
+        </Storyboard>
+    </UserControl.Resources>
+    
+    <Grid>
+        <dxb:BarManager Name="BarraBotones" x:FieldModifier="public" ShowScreenTips="true" AllowCustomization="False" AllowQuickCustomization="False">
+            <dxb:BarManager.Items>
+                <dxb:BarButtonItem Name="btGuardarYBuscar" Glyph="{dx:DXImageGrayscale Image=SaveAndClose_16x16.png}" x:FieldModifier="public" Focusable="true" ForceCursor="True" Hint="Guarda, cierra y busca otro registro (F1)"/>
+                <dxb:BarButtonItem Name="btGuardar" Glyph="{dx:DXImageGrayscale Image=Save_16x16.png}" x:FieldModifier="public" Focusable="true" ForceCursor="True" Hint="Guardar (F2)"  />
+                <dxb:BarButtonItem Name="btBuscar"  Glyph="{dx:DXImage GrayScaleImages/Find/Find_16x16.png}" x:FieldModifier="public" Focusable="true" ForceCursor="True" Hint="Buscar Otro Registro (F3)"  />
+                <dxb:BarButtonItem Name="btNuevo" Glyph="pack://application:,,,/DevExpress.Images.v23.2;component/GrayScaleImages/Actions/AddItem_32x32.png" x:FieldModifier="public" Focusable="True" Hint="Nuevo (F4)" />
+                <dxb:BarButtonItem Name="btActualizar" Glyph="pack://application:,,,/DevExpress.Images.v23.2;component/GrayScaleImages/Actions/Refresh_16x16.png" x:FieldModifier="public" Focusable="true" ForceCursor="True"  Hint="Cargar datos de nuevo (F5)" />
+                <dxb:BarSubItem Name="MenuExportar" Glyph="{dx:DXImageGrayscale Image=ExportFile_16x16.png}" x:FieldModifier="public" Focusable="False" Hint="Exportar/Imprimir">
+                    <dxb:BarButtonItem Name="btExportar" Glyph="{dx:DXImageGrayscale Image=ExportToXLSX_16x16.png}" x:FieldModifier="public" Focusable="False" Content="Exportar A Excel" ItemClick="BtExportar_ItemClick"/>
+                    <dxb:BarButtonItem Name="btCapturar" Content="Captura Pantalla" ItemClick="BtCapturar_ItemClick" Glyph="pack://application:,,/tsWPF;Component/Images/Icons/capture.png"  />
+                </dxb:BarSubItem>
+                <dxb:BarCheckItem Name="btSeleccionar" Glyph="pack://application:,,/tsWPF;Component/Images/Icons/checklist-25.png" x:FieldModifier="public" Focusable="False" CheckedChanged="btSeleccionar_CheckedChanged" Hint="Selección múltiple" />
+                <dxb:BarButtonItem Name="btEliminar" Glyph="pack://application:,,,/DevExpress.Images.v23.2;component/GrayScaleImages/Actions/DeleteItem_16x16.png" x:FieldModifier="public" Focusable="False" Hint="Eliminar Registro" />
+                <!--<dxb:BarButtonItem Name="btDiseño" Glyph="{dx:DXImageGrayscale Image=Fixed_Column_Width_32x32.png}" x:FieldModifier="public" Focusable="False" Hint="Ayuda" ItemClick="btDiseño_ItemClick" />-->
+                
+                <dxb:BarSubItem Name="MenuDiseño" Glyph="{dx:DXImageGrayscale Image=CustomizeGrid_16x16.png}" x:FieldModifier="public" Focusable="False" Hint="Diseño Columnas">
+                    <dxb:BarButtonItem Name="btDiseño" Glyph="{dx:DXImageGrayscale Image=CustomizeGrid_16x16.png}" x:FieldModifier="public" Focusable="False" Content="Guardar Diseño Columnas" ItemClick="btDiseño_ItemClick" />
+                    <dxb:BarButtonItem Name="btRestaurarDiseño" Glyph="{dx:DXImageGrayscale Image=Columns_16x16.png}" Content="Restaurar Diseño Columnas" ItemClick="btRestaurarDiseño_ItemClick" />
+                    <dxb:BarItemSeparator />
+                    <dxb:BarButtonItem Name="btAbrirDiseñoGuardado" Glyph="pack://application:,,/tsWPF;Component/Images/Icons/AbrirGrid.png" Content="Abrir Diseño Guardado" ItemClick="btAbrirDiseñoGuardado_ItemClick" />
+                    <dxb:BarButtonItem Name="btGuardarDiseñoComo" Glyph="pack://application:,,/tsWPF;Component/Images/Icons/GuardarGrid.png"  Content="Guardar Diseño Como ..." ItemClick="btGuardarDiseñoComo_ItemClick" />                    
+                </dxb:BarSubItem>
+                <dxb:BarButtonItem Name="btAyuda" Glyph="{dx:DXImageGrayscale Image=Index_16x16.png}" x:FieldModifier="public" Focusable="False" Hint="Ayuda" ItemClick="btAyuda_ItemClick" />
+                <dxb:BarStaticItem Name="siEstado" x:FieldModifier="public" Content="Operación Actual:" />
+                <dxb:BarEditItem Name="bePlantilla" x:FieldModifier="public" Focusable="true" IsEnabled="True" Hint="Modelo a Imprimir" ForceCursor="True"
+                                 EditWidth="300" EditValueChanged="bePlantilla_EditValueChanged"  >
+                    <dxb:BarEditItem.EditSettings>
+                        <dxe:ComboBoxEditSettings x:Name="cbPlantillaAImprimir" x:FieldModifier="Public" ValueMember="idPlantilla" DisplayMember="Descripcion">
+                        </dxe:ComboBoxEditSettings>
+                    </dxb:BarEditItem.EditSettings>
+                </dxb:BarEditItem>
+                <dxb:BarButtonItem Name="btImprimirPlantilla" Glyph="pack://application:,,,/DevExpress.Images.v23.2;component/GrayScaleImages/Print/Print_16x16.png" x:FieldModifier="public" IsEnabled="True" Focusable="True" ItemClick="btImprimirPlantilla_ItemClick" Hint="Imprimir" ForceCursor="True" />
+                <dxb:BarEditItem Name="beAcciones" x:FieldModifier="public" Focusable="True" ForceCursor="True" IsEnabled="True" Hint="Accion a Ejecutar" EditWidth="390" EditValueChanged="beAcciones_EditValueChanged" >
+                <dxb:BarEditItem.EditSettings>
+                        <dxe:ComboBoxEditSettings x:Name="cbAcciones" x:FieldModifier="Public" ValueMember="idAccion" DisplayMember="Descripcion" />
+                </dxb:BarEditItem.EditSettings>
+                </dxb:BarEditItem>
+                <dxb:BarButtonItem Name="btAcciones" Glyph="pack://application:,,,/DevExpress.Images.v23.2;component/GrayScaleImages/Arrows/Next_16x16.png" x:FieldModifier="public" IsEnabled="True" Focusable="True" ItemClick="btAcciones_ItemClick" Hint="Ejecutar Acción" ForceCursor="True"/>
+                <dxb:BarStaticItem Name="siMensaje" ShowBorder="False">
+                    <dxb:BarStaticItem.ContentTemplate>
+                        <DataTemplate>
+                            <TextBlock Text="{Binding}" Name="tbMensaje" FontWeight="ExtraBold" />
+                        </DataTemplate>
+                    </dxb:BarStaticItem.ContentTemplate>
+                </dxb:BarStaticItem>          
+            </dxb:BarManager.Items>
+            <dxb:BarManager.Bars>
+                <dxb:Bar AllowDrop="False" AllowHide="False" x:Name="BarraPrincipal" x:FieldModifier="public" AllowCustomizationMenu="False" AllowQuickCustomization="False" ShowDragWidget="False" ShowSizeGrip="False" AllowCollapse="False">
+                    <dxb:Bar.DockInfo>
+                        <dxb:BarDockInfo ContainerType="Top" />
+                    </dxb:Bar.DockInfo>
+                    <dxb:BarButtonItemLink BarItemName="btGuardarYBuscar" x:Name="ilGuardarYBuscar" x:FieldModifier="Public" />
+                    <dxb:BarButtonItemLink BarItemName="btGuardar" x:Name="ilGuardar" x:FieldModifier="Public" />
+                    <dxb:BarButtonItemLink BarItemName="btBuscar" x:Name="ilBuscar" x:FieldModifier="Public" />
+                    <dxb:BarButtonItemLink BarItemName="btNuevo" x:Name="ilNuevo" x:FieldModifier="Public" />
+                    <dxb:BarButtonItemLink BarItemName="btActualizar" x:Name="ilActualizar" x:FieldModifier="Public" />
+                    <dxb:BarSubItemLink BarItemName="MenuExportar" x:FieldModifier="Public" x:Name="ilExportar" />
+                    <dxb:BarCheckItemLink BarItemName="btSeleccionar" x:FieldModifier="Public" x:Name="ilSeleccionar" />
+                    <dxb:BarButtonItemLink BarItemName="btEliminar" x:Name="ilEliminar" x:FieldModifier="Public" />
+                    <dxb:BarItemLinkSeparator></dxb:BarItemLinkSeparator>
+                    <dxb:BarSubItemLink BarItemName="MenuDiseño" x:Name="ilDiseño" x:FieldModifier="Public" />                    
+                    <dxb:BarButtonItemLink BarItemName="btAyuda" x:Name="ilAyuda" x:FieldModifier="Public" />
+                    <dxb:BarItemLinkSeparator></dxb:BarItemLinkSeparator>                    
+                    <dxb:BarEditItemLink BarItemName="bePlantilla" x:FieldModifier="Public" x:Name="ilPlantilla" />
+                    <dxb:BarButtonItemLink BarItemName="btImprimirPlantilla" />
+                    <dxb:BarItemLinkSeparator></dxb:BarItemLinkSeparator>
+                    <dxb:BarEditItemLink BarItemName="beAcciones" x:FieldModifier="Public" x:Name="ilAcciones" />
+                    <dxb:BarButtonItemLink BarItemName="btAcciones" />
+                    <dxb:BarItemLinkSeparator></dxb:BarItemLinkSeparator>
+                    <dxb:BarStaticItemLink BarItemName="siEstado" x:FieldModifier="Public" x:Name="ilEstado" />
+                    <dxb:BarStaticItemLink BarItemName="siMensaje" x:FieldModifier="Public" x:Name="ilMensaje" />
+                </dxb:Bar>
+            </dxb:BarManager.Bars>
+            <Grid>
+                <dxdo:DockLayoutManager Name="dockManager" ClosedPanelsBarVisibility="Manual">
+                    <dxdo:DockLayoutManager.AutoHideGroups>
+                        <dxdo:AutoHideGroup DockType="Bottom">
+                            <dxdo:LayoutPanel x:Name="lpMensajes" Caption="Mensajes" AllowDockToDocumentGroup="False" AllowDrag="False" AllowFloat="False" AllowMove="False" Visibility="Collapsed" AllowHide="True" IsHitTestVisible="True" AllowDock="True" AllowClose="False" ItemHeight="160" Style="{StaticResource estilomensaje}" >
+                                <!--<dxdo:LayoutPanel.Appearance>
+                                    <dxdo:Appearance>
+                                        <dxdo:Appearance.Normal>
+                                            <dxdo:AppearanceObject Background="Red" />
+                                        </dxdo:Appearance.Normal>
+                                    </dxdo:Appearance>
+                                </dxdo:LayoutPanel.Appearance>-->
+
+                                <Grid>
+                                    <Border BorderThickness="1" Background="Beige" BorderBrush="Black" CornerRadius="10">
+                                        <Grid>
+                                            <dxg:GridControl x:Name="gcErrores" ItemsSource="{Binding}" AutoPopulateColumns="True">
+                                                <dxg:GridControl.Columns>
+                                                    <dxg:GridColumn Name="GridColumn1" FieldName="Column" Header="Errores" />
+                                                </dxg:GridControl.Columns>
+                                                <dxg:GridControl.View>
+                                                    <dxg:TableView Name="TableView1" ShowTotalSummary="True" AllowGrouping="False" ShowGroupPanel="False" ShowIndicator="True" ShowSearchPanelCloseButton="True" ShowHorizontalLines="True" AutoWidth="True" AllowEditing="False" />
+                                                </dxg:GridControl.View>
+                                            </dxg:GridControl>
+                                        </Grid>
+                                    </Border>
+                                </Grid>
+                            </dxdo:LayoutPanel>
+                        </dxdo:AutoHideGroup>
+                    </dxdo:DockLayoutManager.AutoHideGroups>
+                    <dxdo:LayoutGroup x:Name="RootGroup" Orientation="Horizontal">
+                        <dxdo:LayoutGroup Orientation="Vertical">
+                            <dxdo:LayoutPanel AllowFloat="False" AllowHide="False" AllowMove="False" ShowCloseButton="False" Name="lpContenido" ShowCaption="False">
+                                <Grid Name="contenido" />
+                            </dxdo:LayoutPanel>
+                        </dxdo:LayoutGroup>
+                    </dxdo:LayoutGroup>
+                </dxdo:DockLayoutManager>
+            </Grid>
+        </dxb:BarManager>
+    </Grid>
+</UserControl>

tsAplicacion/ContenedorTsAplicacion.xaml.vb

@@ -0,0 +1,419 @@
+Imports System.ComponentModel
+Imports DevExpress.Xpf.Core
+Imports DevExpress.Xpf.Docking
+Imports System.Windows.Media.Animation
+Imports DevExpress.Xpf.Core.Native
+Imports DevExpress.Xpf.Editors
+Imports System.IO
+Imports DevExpress.Xpf.Bars
+Imports Microsoft.Win32
+Imports DevExpress.Spreadsheet
+Imports DevExpress.Xpf.Grid
+Imports DevExpress.Mvvm.UI.Interactivity
+Imports tsl5.Extensiones
+Imports tsl5.Enumeraciones
+
+
+Public Class ContenedorTsAplicacion
+    Public _Aplicacion As tsAplicacion
+    Dim _DescripcionDiseño As String
+    Dim _TodosUsuariosDiseño As Boolean
+    Public Sub New(Ap As tsAplicacion)
+
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        _Aplicacion = Ap
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+
+
+    '  Private Sub mv_CurrentChanged(sender As Object, e As System.EventArgs) Handles mv.CurrentChanged
+    ' cabecera = Me.mv.CurrentEditItem
+    'End Sub
+
+    Public Sub Nuevo(sender As System.Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs) Handles btNuevo.ItemClick
+        Dim Respuesta As MsgBoxResult = MsgBoxResult.No
+        If _Aplicacion.Estado <> tsWPF.Comun.EstadosAplicacion.AplicacionSinIndice Then
+            Dim be As BaseEdit = Nothing
+            Try
+                be = LayoutHelper.FindParentObject(Of BaseEdit)(Keyboard.FocusedElement)
+            Catch ex As Exception
+            End Try
+
+            If Not be Is Nothing Then
+                Select Case be.GetType
+                    Case GetType(TextEdit), GetType(PasswordBoxEdit), GetType(ButtonEdit), GetType(DateEdit), GetType(ComboBoxEdit), GetType(DevExpress.Xpf.Grid.LookUp.LookUpEdit)
+                        Dim expression = be.GetBindingExpression(BaseEdit.EditValueProperty)
+                        If Configuracion.ComportamientoValidacion = Validation.InvalidValueBehavior.AllowLeaveEditor Then
+                            be.DoValidate()
+                            If Not expression Is Nothing AndAlso expression.IsDirty Then expression.UpdateSource()
+                        Else
+                            If Not expression Is Nothing AndAlso expression.IsDirty Then expression.UpdateSource()
+                            be.DoValidate()
+                        End If
+                    Case GetType(CheckEdit)
+                End Select
+            End If
+
+            Dim Cancelar As Boolean = False
+            For Each linea In Me._Aplicacion.Lineas
+                linea.View.CommitEditing()
+                If linea.View.HasValidationError Then Cancelar = True
+            Next
+            If Not Cancelar Then
+                Dim Preguntar As Boolean = _Aplicacion.Contexto.HayModificaciones
+                'If _Aplicacion.Contexto.GetType.BaseType Is GetType(ObjectContext) Then
+                '    Dim bd = DirectCast(_Aplicacion.Contexto, ObjectContext)
+                '    Preguntar = bd.ObjectStateManager.GetObjectStateEntries(System.Data.Entity.EntityState.Added + System.Data.Entity.EntityState.Deleted + System.Data.Entity.EntityState.Modified).Count > 0
+                'Else
+                '    'TODO: dbcontext 
+                'End If
+                If Preguntar Then
+                    If Configuracion.NuevosRapido = False OrElse _Aplicacion.Estado <> tsWPF.Comun.EstadosAplicacion.Nuevo Then
+                        Respuesta = DXMessageBox.Show("Atención el registro actual ha sido modificado. ¿Desea guardar los cambios antes de añadir uno nuevo?", "Atención", MessageBoxButton.YesNoCancel)
+                    Else
+                        Respuesta = MsgBoxResult.Yes
+                    End If
+                    If Respuesta = MsgBoxResult.Yes Then
+                        If _Aplicacion.Guardar(sender, e,,, 1) Then
+                            Respuesta = MsgBoxResult.Cancel
+                        End If
+                    End If
+                End If
+                If Respuesta <> MsgBoxResult.Cancel Then
+                    _Aplicacion.ValidarControles = False
+                    _Aplicacion.Estado = _Aplicacion.DCPrincipal(, True)
+                    If _Aplicacion.docpanel IsNot Nothing Then
+                        _Aplicacion.docpanel.Tag = _Aplicacion.idRegistroAplicacionActual
+                    End If
+                    _Aplicacion.EstableceTitulo()
+                    _Aplicacion.EstableceFocoPrimerControl()
+                    _Aplicacion.ValidarControles = True
+                End If
+            End If
+        End If
+        If Respuesta <> MsgBoxResult.Cancel Then _Aplicacion.LanzaBotonNuevoPulsado()
+
+    End Sub
+
+
+    Private Sub btEliminar_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs) Handles btEliminar.ItemClick
+        _Aplicacion.Eliminar(sender, e)
+    End Sub
+    Friend Sub IniciaAnimacion(Mensaje As String, Color As Color)
+        Try
+            Me.siMensaje.Content = Mensaje
+            Dim tbm As TextBlock = LayoutHelper.FindElementByName(Me.BarraBotones, "tbMensaje")
+            If tbm IsNot Nothing Then
+                tbm.Foreground = New SolidColorBrush(Color)
+                Dim sb As Storyboard = Me.FindResource("sbDesvanecer")
+                Storyboard.SetTarget(sb, tbm)
+                'sb.Begin 
+                BeginStoryboard(sb)
+            End If
+        Catch ex As Exception
+            Debug.Write(ex.Message)
+        End Try
+
+    End Sub
+    Friend Sub IniciaAnimacionBlink(Mensaje As String, Color As Color)
+        Try
+            Me.siMensaje.Content = Mensaje
+            Dim tbm As TextBlock = LayoutHelper.FindElementByName(Me.BarraBotones, "tbMensaje")
+            tbm.Foreground = New SolidColorBrush(Color)
+            Dim sb As Storyboard = Me.FindResource("tsBlink")
+            Storyboard.SetTarget(sb, tbm)
+            'sb.Begin 
+            BeginStoryboard(sb)
+
+        Catch ex As Exception
+            Debug.Write(ex.Message)
+        End Try
+
+    End Sub
+
+    Friend Sub btImprimirPlantilla_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        _Aplicacion.ValidaControlObjetoActual()
+        Dim idPlantilla As Integer = bePlantilla.EditValue
+        _Aplicacion.LanzaImprimirPlantilla(sender, e, idPlantilla)
+    End Sub
+
+    Private Sub btAcciones_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        _Aplicacion.ValidaControlObjetoActual()
+        Dim idAccion As Integer = beAcciones.EditValue
+        _Aplicacion.LanzaEjecutaAccion(sender, e, idAccion)
+    End Sub
+
+
+    Private Sub beAcciones_EditValueChanged(sender As Object, e As RoutedEventArgs)
+        Dim idAccion As Integer = beAcciones.EditValue
+        Dim acs As List(Of Accion) = Me.cbAcciones.ItemsSource
+        Dim ac As Accion = (From a In acs Where a.idAccion = idAccion).First
+        Me.btAcciones.Hint = ac.Descripcion
+    End Sub
+
+    Private Sub bePlantilla_EditValueChanged(sender As Object, e As RoutedEventArgs)
+        Dim idPlantilla As Integer = bePlantilla.EditValue
+        Dim plantillas As List(Of Plantilla) = Me.cbPlantillaAImprimir.ItemsSource
+        Dim pl As Plantilla = (From p In plantillas Where p.idPlantilla = idPlantilla).First
+        Me.btImprimirPlantilla.Hint = pl.Descripcion & " (F7) "
+    End Sub
+
+
+
+    Private Sub btAyuda_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        _Aplicacion.DelegadoAyuda.Invoke(_Aplicacion.GetType.ToString)
+    End Sub
+
+    Private Sub btDiseño_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        Try
+            Dim drs = ObtieneDiseñoActual()
+            _Aplicacion.DelegadoDiseño.Invoke(_Aplicacion.Contexto, OperacionDiseñoEnum.GUARDAR, _Aplicacion.GetType.ToString, _DescripcionDiseño, _TodosUsuariosDiseño, drs)
+        Catch ex As Exception
+            If _Aplicacion.DelegadoErrorNoControlado IsNot Nothing Then _Aplicacion.DelegadoErrorNoControlado.Invoke(_Aplicacion, ex)
+        End Try
+    End Sub
+
+    Friend Function ObtieneDiseñoActual() As Byte()
+        Dim ld As New DiseñoRejillas
+        Dim i As Integer
+        For Each l In _Aplicacion.Lineas
+            i += 1
+            If l.Name = "" Then l.Name = "tsRejilla-" & i.ToString
+            Dim dr As New DiseñoRejilla
+            dr.Nombre = l.Name
+            dr.Version = "1"
+            Dim ms As New MemoryStream
+            l.SaveLayoutToStream(ms)
+            dr.Diseño = ms.ToArray
+            ld.Rejillas.Add(dr)
+        Next
+        Dim drs = System.Text.Encoding.Unicode.GetBytes(tsl5.Utilidades.Serializar(ld))
+        Return drs
+    End Function
+
+
+    Private Sub btRestaurarDiseño_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+
+        If _Aplicacion.DiseñoOriginal IsNot Nothing Then
+            Try
+                Dim ld As New DiseñoRejillas
+                ld = tsl5.Utilidades.deserializar(System.Text.Encoding.Unicode.GetString(_Aplicacion.DiseñoOriginal), ld.GetType)
+                Dim i As Integer
+                For Each l In _Aplicacion.Lineas
+                    i += 1
+                    If l.Name = "" Then l.Name = "tsRejilla-" & i.ToString
+                    Try
+                        If ld.Rejillas.Any(Function(x) x.Nombre = l.Name) Then
+                            Dim dr As DiseñoRejilla = ld.Rejillas.Where(Function(x) x.Nombre = l.Name).First
+                            l.RestoreLayoutFromStream(New System.IO.MemoryStream(dr.Diseño))
+                        End If
+                    Catch ex As Exception
+                        If _Aplicacion.DelegadoErrorNoControlado IsNot Nothing Then _Aplicacion.DelegadoErrorNoControlado.Invoke(_Aplicacion, ex)
+                        ' Debug.Write("Error DelegadoDiseño Rejilla")
+                    End Try
+                Next
+                Dim drs = System.Text.Encoding.Unicode.GetBytes(tsl5.Utilidades.Serializar(ld))
+                _Aplicacion.DelegadoDiseño.Invoke(_Aplicacion.Contexto, OperacionDiseñoEnum.RESTAURAR_ORIGINAL, _Aplicacion.GetType.ToString, _DescripcionDiseño, _TodosUsuariosDiseño, drs)
+            Catch ex As Exception
+                If _Aplicacion.DelegadoErrorNoControlado IsNot Nothing Then _Aplicacion.DelegadoErrorNoControlado.Invoke(_Aplicacion, ex)
+            End Try
+        End If
+    End Sub
+
+    Private Sub btGuardarDiseñoComo_ItemClick(sender As Object, e As ItemClickEventArgs)
+        Try
+            Dim drs = ObtieneDiseñoActual()
+            _Aplicacion.DelegadoDiseño.Invoke(_Aplicacion.Contexto, OperacionDiseñoEnum.GUARDAR_COMO, _Aplicacion.GetType.ToString, _DescripcionDiseño, _TodosUsuariosDiseño, drs)
+        Catch ex As Exception
+            If _Aplicacion.DelegadoErrorNoControlado IsNot Nothing Then _Aplicacion.DelegadoErrorNoControlado.Invoke(_Aplicacion, ex)
+            DXMessageBox.Show(ex.Message, "Error btDiseñoComo_Itemclick")
+        End Try
+
+    End Sub
+
+    Private Sub btAbrirDiseñoGuardado_ItemClick(sender As Object, e As ItemClickEventArgs)
+        'Dim b = _Aplicacion.DelegadoDiseño.Invoke(_Aplicacion.Contexto, OperacionDiseñoEnum.ABRIR_DISEÑO_GUARDADO, _Aplicacion.GetType.ToString, _DescripcionDiseño, _TodosUsuariosDiseño, Nothing)
+        'If b IsNot Nothing Then
+        '    Dim ld As New DiseñoRejillas
+        '    ld = tsl5.Utilidades.deserializar(System.Text.Encoding.Unicode.GetString(b), ld.GetType)
+        '    Dim i As Integer
+        '    Dim lg As List(Of tsGridControl) = Nothing
+        '    tsWPF.ObtieneHijosDeTipo(Me, lg)
+        '    For Each l In lg
+        '        i += 1
+        '        If l.Name = "" Then l.Name = "tsRejilla-" & i.ToString
+        '        Try
+        '            If ld.Rejillas.Any(Function(x) x.Nombre = l.Name) Then
+        '                Dim dr As DiseñoRejilla = ld.Rejillas.Where(Function(x) x.Nombre = l.Name).First
+        '                l.RestoreLayoutFromStream(New System.IO.MemoryStream(dr.Diseño))
+        '            End If
+        '        Catch ex As Exception
+        '            If _Aplicacion.DelegadoErrorNoControlado IsNot Nothing Then _Aplicacion.DelegadoErrorNoControlado.Invoke(_Aplicacion, ex)
+        '            DXMessageBox.Show(ex.Message, "Error btDiseñoGuardado_Itemclick")
+        '        End Try
+        '    Next
+        'End If
+    End Sub
+
+    Public Sub btGuardar_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btGuardar.ItemClick
+        btGuardar.IsEnabled = False
+        btGuardarYBuscar.IsEnabled = False
+        Dim cancelar = _Aplicacion.Guardar(sender, e,,, 2)
+        If Not cancelar And (_Aplicacion.Estado = tsWPF.Comun.EstadosAplicacion.AplicacionSinIndice OrElse _Aplicacion.Estado = tsWPF.Comun.EstadosAplicacion.SinDatos) Then btGuardar.IsEnabled = True
+    End Sub
+    Private Sub BtCapturar_ItemClick(sender As Object, e As ItemClickEventArgs)
+        Dim sficherojpg = tsl5.Utilidades.ObtieneFicheroAleatorio("jpg")
+        IO.File.WriteAllBytes(sficherojpg, Me._Aplicacion.ObtieneImagen(1, 100))
+        Process.Start(sficherojpg)
+    End Sub
+
+    Private Sub BtExportar_ItemClick(sender As Object, e As ItemClickEventArgs)
+        Try
+            Dim sfd As New SaveFileDialog
+            sfd.FileName = "Exportacion.xlsx"
+            sfd.Filter = "Fichero Excel (*.xls, *.xlsx|*.xls;*.xlsx"
+            sfd.DefaultExt = ".xlsx"
+            Dim ms As New List(Of Stream)
+            Dim formato As DevExpress.Spreadsheet.DocumentFormat
+            Select Case IO.Path.GetExtension(sfd.FileName).ToLower
+                Case ".xls"
+                    formato = DevExpress.Spreadsheet.DocumentFormat.Xls
+                Case ".xlsx"
+                    formato = DevExpress.Spreadsheet.DocumentFormat.Xlsx
+            End Select
+            If sfd.ShowDialog Then
+                Dim ls = New MemoryStream
+                Dim i As Integer = 0
+                If Me._Aplicacion.Estado <> tsWPF.Comun.EstadosAplicacion.AplicacionSinIndice Then
+                    Dim ngc As New tsGridControl
+                    For Each oc In Me._Aplicacion.ControlesTS
+                        Dim gc As New tsGridColumn()
+                        gc.FieldName = oc.PropiedadesTS.NombreCampo
+                        gc.Header = oc.Label.ToString.TrimEnd(":")
+                        gc.Width = oc.Width
+                        ngc.Columns.Add(gc)
+                    Next
+                    ngc.ItemsSource = Me._Aplicacion.Contexto
+                    ngc.View.ExportToXlsx(ls)
+                    ms.Add(ls)
+                End If
+                For Each l In Me._Aplicacion.Lineas
+                    ls = New MemoryStream
+                    ms.Add(ls)
+                    Dim vista As TableView = l.View
+                    Select Case formato
+                        Case DevExpress.Spreadsheet.DocumentFormat.Xls
+                            vista.ExportToXls(ls)
+                        Case DevExpress.Spreadsheet.DocumentFormat.Xlsx
+                            vista.ExportToXlsx(ls)
+                    End Select
+                    i += 1
+                Next
+                Dim wb As New Workbook
+                For i = 0 To ms.Count - 1
+                    Dim wbc As New Workbook
+                    ms(i).Position = 0
+                    wbc.LoadDocument(ms(i), formato)
+                    wb.Worksheets(i).CopyFrom(wbc.Worksheets(0))
+                    Dim sNombre As String
+                    If i = 0 Then
+                        sNombre = If(Me._Aplicacion.DescripcionRegistro.NothingAVacio <> "", Me._Aplicacion.DescripcionRegistro.NothingAVacio, "Hoja")
+                    Else
+                        sNombre = Me._Aplicacion.Lineas(i - 1).NombreTablaBase
+                    End If
+                    Dim j As Integer = 0
+                    Dim sNombreFinal = sNombre
+                    Do Until wb.Worksheets.Any(Function(x) x.Name.ToLower = sNombreFinal.ToLower) = False
+                        j += 1
+                        sNombreFinal = sNombre & "-" & j.ToString
+                    Loop
+                    Dim sNombreHoja = sNombreFinal.Replace("/", " ").Acortar(30)
+                    Dim k As Integer
+                    Do Until wb.Worksheets.Any(Function(x) x.Name = sNombreHoja) = False
+                        sNombreHoja = (k.ToString & " - " & sNombreHoja).Acortar(30)
+                    Loop
+                    wb.Worksheets(i).Name = sNombreHoja
+                    If i < ms.Count - 1 Then wb.Worksheets.Add()
+                Next
+                If Me._Aplicacion.Estado <> tsWPF.Comun.EstadosAplicacion.AplicacionSinIndice Then
+                    Dim nc As Integer = 0
+                    For Each c In Me._Aplicacion.ControlesTS
+                        Select Case c.Content.GetType
+                            Case GetType(CheckEdit)
+                                Dim Ce As CheckEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(If(Ce.IsChecked, "SI", "NO"))
+                            Case GetType(ButtonEdit)
+                                Dim te As ButtonEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(te.EditValue)
+                            Case GetType(TextEdit)
+                                Dim te As TextEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(te.EditValue)
+                            Case GetType(DateEdit)
+                                Dim de As DateEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(de.EditValue)
+                            Case GetType(ComboBoxEdit)
+                                Dim cbe As ComboBoxEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(cbe.DisplayText)
+                            Case GetType(DevExpress.Xpf.Grid.LookUp.LookUpEdit)
+                                Dim le As DevExpress.Xpf.Grid.LookUp.LookUpEdit = c.Content
+                                wb.Worksheets(0).Cells(1, nc).SetValue(le.EditValue)
+                        End Select
+                        nc += 1
+                    Next
+                End If
+                wb.SaveDocument(sfd.FileName, formato)
+                Process.Start(sfd.FileName)
+            End If
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+
+
+    Public Sub btBuscar_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btBuscar.ItemClick
+        Me._Aplicacion.LanzaBuscarNuevoRegistro(False)
+    End Sub
+
+    Public Sub btGuardarYBuscar_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btGuardarYBuscar.ItemClick
+        btGuardar.IsEnabled = False
+        btGuardarYBuscar.IsEnabled = False
+        If Not _Aplicacion.Guardar(sender, e,,, 1) Then
+            Me._Aplicacion.LanzaBuscarNuevoRegistro(True)
+        End If
+    End Sub
+
+    Friend Sub btActualizar_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btActualizar.ItemClick
+        Me._Aplicacion.RefrescaUC()
+    End Sub
+    Private Sub btSeleccionar_CheckedChanged(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        If _Aplicacion IsNot Nothing AndAlso _Aplicacion.GridSeleccion IsNot Nothing Then
+            Dim tv = DirectCast(_Aplicacion.GridSeleccion.View, TableView)
+            If tv IsNot Nothing Then
+                If btSeleccionar.IsChecked Then
+                    _Aplicacion.GridSeleccion.SelectionMode = MultiSelectMode.MultipleRow
+                    _Aplicacion.GridSeleccion.UnselectAll()
+                    tv.ShowCheckBoxSelectorColumn = True
+                Else
+                    tv.ShowCheckBoxSelectorColumn = False
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub ContenedorAplicacion_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles Me.PreviewKeyDown
+        If e.Key = Key.F1 OrElse e.Key = Key.F2 OrElse e.Key = Key.F3 OrElse e.Key = Key.F4 OrElse e.Key = Key.F5 OrElse e.Key = Key.F6 OrElse e.Key = Key.F7 OrElse e.Key = Key.F8 OrElse e.Key = Key.F9 OrElse e.Key = Key.F10 OrElse e.Key = Key.F11 OrElse e.Key = Key.F12 OrElse e.Key = Key.System Then
+            _Aplicacion.LanzaTeclaFuncionPulsada(sender, e)
+        End If
+    End Sub
+
+    Private Sub ContenedorAplicacion_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs) Handles Me.IsVisibleChanged
+
+    End Sub
+End Class
+
+
+
+

tsAplicacion/ItsObjectContext.vb

@@ -0,0 +1,9 @@
+Public Interface ItsContexto
+    Function GuardarCambios() As Integer
+    Function ObtieneLongitudCampo(NombreTablaBase As String, NombreCampo As String) As Integer
+    Sub EliminaObjeto(DataContext As Object)
+    Sub AñadeObjeto(Entidad As Object)
+    'Event GuardandoCambios(sender As Object, e As EventArgs)
+    Function CompruebaUnico(estado As Comun.EstadosAplicacion, NombreCampo As String, valor As Object, uc As tsAplicacion) As Boolean
+    Function HayModificaciones() As Boolean
+End Interface