diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwConceptosPredefinidos.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwConceptosPredefinidos.xaml.vb
index f07c067..5ef3458 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwConceptosPredefinidos.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/dxwConceptosPredefinidos.xaml.vb
@@ -1,5 +1,5 @@
 
-Imports tsl5.Extensiones
+Imports tsUtilidades.Extensiones
 Imports bdGrupoSanchoToro
 Imports DevExpress.Xpf.Core
 Imports System.Data.Entity
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucApuntes.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucApuntes.xaml.vb
index 52bf9ac..f9d0a52 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucApuntes.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucApuntes.xaml.vb
@@ -7,7 +7,7 @@ Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports tsWPF.Comun
 Imports tsWPFCore.Comun
@@ -220,7 +220,7 @@ Public Class ApunteExtracto
     Property idAsiento As Integer
     Property NumeroAsiento As String
     Property Concepto As String
-    Property Fecha As Date?
+    Property Fecha As DateOnly?
     Property Debe As Double
     Property Haber As Double
     Property Saldo As Double
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientoModelo.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientoModelo.xaml.vb
index 5a50a65..9e992ac 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientoModelo.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientoModelo.xaml.vb
@@ -11,9 +11,9 @@ Imports tsWPF.modExtensiones
 Imports System.Data.Common
 Imports System.Data.Entity
 Imports DevExpress.Xpf.Grid
-Imports tsl5.Extensiones
+Imports tsUtilidades.Extensiones
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF.Comun
 Imports bdGrupoSanchoToro.db
 
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientosModelos.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientosModelos.xaml.vb
index 7bd219b..19696c0 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientosModelos.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucAsientosModelos.xaml.vb
@@ -4,7 +4,7 @@ Imports bdGrupoSanchoToro
 Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPFCore
 Imports tsWPFCore.Comun
 Imports bdGrupoSanchoToro.db
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceExplotacion.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceExplotacion.xaml.vb
index a365ab2..2630069 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceExplotacion.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceExplotacion.xaml.vb
@@ -7,7 +7,7 @@ Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports DevExpress.Data
 Imports tsWPF.Comun
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceSumasYSaldos.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceSumasYSaldos.xaml.vb
index be5068b..26a4f6b 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceSumasYSaldos.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBalanceSumasYSaldos.xaml.vb
@@ -7,7 +7,7 @@ Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports DevExpress.Data
 Imports tsWPF.Comun
@@ -53,7 +53,7 @@ Public Class ucBalanceSumasYSaldos
     End Sub
     Private _Nivel As Integer
     Public Overrides Sub Cargado()
-        _Nivel = CInt(Rutinas.Ttagi(Me.OtrosParametros, "OPAR"))
+        _Nivel = CInt(tsUtilidades.Utilidades.Ttagi(Me.OtrosParametros, "OPAR"))
         Dim Ejercicios = bd.ejercicioscontables.OrderByDescending(Function(x) x.FechaInicio).ToList
         Dim ejab = Ejercicios.Where(Function(x) x.FechaCierre Is Nothing)
         deFechaInicio.EditValue = ejab.OrderBy(Function(x) x.FechaInicio).First.FechaInicio
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBancos.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBancos.xaml.vb
index af63341..09b3a51 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBancos.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucBancos.xaml.vb
@@ -5,7 +5,7 @@ Imports DevExpress.Xpf.Core
 Imports DevExpress.XtraReports.UserDesigner
 Imports DevExpress.XtraReports.UI
 Imports System.IO
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports tsWPF.Comun
 Imports tsWPFCore.Comun
@@ -107,7 +107,7 @@ Public Class ucBancos
     '    End Get
     'End Property
 
-    'Public Function ObtieneContexto(dcn As tsl5.Datos.DatosConexionCliente) As System.Data.Objects.ObjectContext Implements tsWPF.IApCabLin.ObtieneContexto
+    'Public Function ObtieneContexto(dcn As tsUtilidades.Datos.DatosConexionCliente) As System.Data.Objects.ObjectContext Implements tsWPF.IApCabLin.ObtieneContexto
     '    bd = bdGrupoSanchoToro.gestionasegasaEntities.NuevoContexto
     '    Return bd
     'End Function
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptoApuntes.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptoApuntes.xaml.vb
index 0b196db..f1d3a4b 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptoApuntes.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptoApuntes.xaml.vb
@@ -7,11 +7,11 @@ Imports DevExpress.Xpf.Editors.Helpers
 Imports DevExpress.Xpf.Core
 Imports System.Data.Common
 Imports System.Data.Entity
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports DevExpress.Xpf.Bars
 Imports DevExpress.Xpf.Grid
 Imports System.Collections
-Imports tsl5.Extensiones
+Imports tsUtilidades.Extensiones
 Imports System.Data.Objects.DataClasses
 Imports tsWPFCore.Comun
 Imports tsWPFCore
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptosApuntes.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptosApuntes.xaml.vb
index 27b4b7c..c80efaa 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptosApuntes.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucConceptosApuntes.xaml.vb
@@ -128,7 +128,7 @@ Public Class ucConceptosApuntes
     Public Async Sub ObtieneConceptosApuntesAsync(Background As Boolean)
         Try
             Dim rs As New List(Of conceptosapuntes)
-            Dim Busqueda = tsl5.Extensiones.ObjetoNothingAVacio(Me.teBusqueda.EditValue)
+            Dim Busqueda As String = Me.teBusqueda.EditValue.ToString
             If Background Then
                 Me.ContenedorAplicacion.IsEnabled = False
                 Await Task.Run(Sub()
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuenta.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuenta.xaml.vb
index b96b2d3..d5e7c0d 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuenta.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuenta.xaml.vb
@@ -11,8 +11,8 @@ Imports System.Data.Entity
 Imports bdGrupoSanchoToro
 Imports DevExpress.Xpf.Bars
 Imports DevExpress.Xpf.Grid
-Imports tsl5.Datos
-Imports tsl5.Extensiones.StringExtensions
+Imports tsUtilidades.Datos
+Imports tsUtilidades.Extensiones.StringExtensions
 Imports tsWPFCore.Comun
 Imports tsUtilidades
 
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuentas.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuentas.xaml.vb
index fd3767d..e96c1e5 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuentas.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucCuentas.xaml.vb
@@ -7,7 +7,7 @@ Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports tsWPF.Comun
 Imports tsWPFCore.Comun
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml
index daf2048..8c8fb07 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml
@@ -12,7 +12,7 @@
     <UserControl.Resources>
         <ResourceDictionary>
             <ResourceDictionary.MergedDictionaries>
-                <ResourceDictionary Source="pack://application:,,,/tsWPF;component/Plantillas.xaml" />
+                <ResourceDictionary Source="pack://application:,,,/tsWPFCore;component/Plantillas.xaml" />
             </ResourceDictionary.MergedDictionaries>
             <Style x:Key="RejillaAnidadaStyle" TargetType="{x:Type dxg:RowControl}">
                 <Setter Property="Background" Value="#B0E0E6"  />
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml.vb
index 941033f..5dcd903 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiario.xaml.vb
@@ -1,25 +1,19 @@
 Option Strict Off
 Imports DevExpress.Xpf.Editors
 Imports DevExpress.Xpf.LayoutControl
-Imports tsWPF
+Imports tsWPFCore
 Imports System.ComponentModel
 Imports System.Data
-Imports DevExpress.Xpf.Editors.Validation
-Imports DevExpress.Xpf.Editors.Helpers
 Imports DevExpress.Xpf.Core
-Imports tsWPF.modExtensiones
+Imports tsWPFCore.modExtensiones
 Imports System.Data.Common
-Imports System.Data.Entity
 Imports bdGrupoSanchoToro
 Imports DevExpress.Xpf.Grid
-Imports tsl5.Extensiones
-Imports bdGrupoSanchoToro.apuntes
+Imports tsUtilidades.Extensiones
+Imports bdGrupoSanchoToro.db.apuntes
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
 Imports System.Windows.Media.Animation
-Imports tsWPF.Comun
 Imports tsWPFCore.Comun
-Imports tsWPFCore
 Imports tsUtilidades
 
 Imports bdGrupoSanchoToro.db
@@ -105,8 +99,8 @@ Public Class ucDiario
         If FuerzaNuevo OrElse _idAsiento Is Nothing Then
 
             ra = New asientos
-            ra.Fecha = Today ' If(uEc.FechaFin > Now.Date, Now.Date, uEc.FechaFin)
-            ra.FechaIntroduccion = Now
+            ra.Fecha = DateOnly.FromDateTime(Today) ' If(uEc.FechaFin > Now.Date, Now.Date, uEc.FechaFin)
+            ra.FechaIntroduccion = DateOnly.FromDateTime(Now)
             Dim uEc = bd.ejercicioscontables.FirstOrDefault(Function(x) x.FechaInicio <= ra.Fecha And x.FechaFin >= ra.Fecha And x.FechaCierre Is Nothing)
             If uEc Is Nothing Then
                 uEc = bd.ejercicioscontables.Where(Function(x) x.FechaCierre Is Nothing).OrderByDescending(Function(x) x.FechaInicio).First
@@ -117,7 +111,7 @@ Public Class ucDiario
             ra.Tipo = bdGrupoSanchoToro.db.asientos.TipoAsiento.NORMAL
             ra.Punteado = False
             NuevoEstado = EstadosAplicacion.Nuevo
-            ra.usuarios = bd.usuarios.First(Function(x) x.idUsuario = bdGrupoSanchoToro.Utilidades.dsc.idUsuario)
+            ra.idUsuarioNavigation = bd.usuarios.First(Function(x) x.idUsuario = bdGrupoSanchoToro.db.Utilidades.idUsuario)
         Else
             ra = bd.asientos.First(Function(x) x.idAsiento = _idAsiento)
             NuevoEstado = EstadosAplicacion.ModificandoRegistro
@@ -156,13 +150,12 @@ Public Class ucDiario
         If ra.apuntes.Any(Function(x) x.TipoDocumento.HasValue AndAlso (x.TipoDocumento = TiposDocumentos.FACTURA And x.NumeroDocumento.NothingAVacio = "")) Then
             hte.Add("Almacenar-FaltaNumeroDocumento", "Es obligatorio meter el nº de documento en los apuntes de tipo factura")
         End If
-        ra.Fecha = ra.Fecha.Date
         Dim ej = bd.ejercicioscontables.FirstOrDefault(Function(x) x.FechaInicio <= ra.Fecha And x.FechaFin >= ra.Fecha And x.FechaCierre.HasValue = False)
         If ej Is Nothing Then
             hte.Add("Almacenar-EjercicioNoAbiertooCerrado", "El ejercicio según la fecha del asiento no se ha abierto o ya se cerró")
         End If
         If Estado = EstadosAplicacion.Nuevo Then
-            ra.FechaIntroduccion = tsl5.bbdd.AhoraSqlServer(bd)
+            ra.FechaIntroduccion = DateOnly.FromDateTime(Now)
             ra.idUsuario = idUsuario
         End If
         If hte.Count > 0 Then
@@ -190,8 +183,7 @@ Public Class ucDiario
                 Select Case pts.NombreCampo.ToLower
                     Case "fecha"
 
-                        Dim NuevaFecha As DateOnly = e.Value
-                        NuevaFecha = NuevaFecha.Date
+                        Dim NuevaFecha As DateOnly = DateOnly.FromDateTime(e.Value)
                         If NuevaFecha <> ra.Fecha Then
                             Dim Ejercicios = bd.ejercicioscontables.ToList
                             Dim EjercicioNuevo = Ejercicios.FirstOrDefault(Function(x) x.FechaInicio <= NuevaFecha And x.FechaFin >= NuevaFecha And x.FechaCierre Is Nothing)
@@ -426,13 +418,13 @@ Public Class ucDiario
                 Case TiposDocumentos.RECIBO
                     Dim rec = bd.movimientoscaja.FirstOrDefault(Function(x) x.idMovimiento = ap.idAplicacion)
                     If rec IsNot Nothing Then
-                        Dim uc As New ucMovimientoCaja(rec.idRecibo)
-                        FuncionesDinamicas.AbrirAP(uc)
+                        Dim uc As New ucMovimientoCaja(rec.idMovimiento)
+                        FuncionesDinamicas.AbrirAP(uc, "")
                     Else
-                        DXMessageBox.Show("El recibo no se encuentra", "Atención")
+                        DXMessageBox.Show("El Movimiento no se encuentra", "Atención")
                     End If
                 Case Else
-                    DXMessageBox.Show("Tipo de documento no disponible", "Atención")
+                    DXMessageBox.Show("Tipo Movimiento no disponible", "Atención")
             End Select
         End If
     End Sub
@@ -560,9 +552,21 @@ Public Class ucDiario
 
     Private Sub ucDiario_ErrorGuardando(sender As Object, ex As Exception, OpcionGuardado As Integer) Handles Me.ErrorGuardando
         Try
-            Dim ea = bd.ObjectStateManager.GetObjectStateEntries(System.Data.EntityState.Added)
-            Dim ee = bd.ObjectStateManager.GetObjectStateEntries(System.Data.EntityState.Deleted)
-            Dim em = bd.ObjectStateManager.GetObjectStateEntries(System.Data.EntityState.Modified)
+
+            ' //IEnumerable<Microsoft.EntityFrameworkCore.ChangeTracking.EntityEntry> res = from e in this.ChangeTracker.Entries()
+            '//                                                                            where e.State.HasFlag(Microsoft.EntityFrameworkCore.EntityState.Added) ||
+            '//                                                                                e.State.HasFlag(Microsoft.EntityFrameworkCore.EntityState.Modified) ||
+            '//                                                                                e.State.HasFlag(Microsoft.EntityFrameworkCore.EntityState.Deleted)
+            '//                                                                            select e;
+
+            '//if (res.Any())
+            '//    return true;
+            '//return false;
+
+            Dim ea = bd.ChangeTracker.Entries.Where(Function(x) x.State.HasFlag(EntityState.Added))
+            Dim ee = bd.ChangeTracker.Entries.Where(Function(x) x.State.HasFlag(EntityState.Deleted))
+            Dim em = bd.ChangeTracker.Entries.Where(Function(x) x.State.HasFlag(EntityState.Modified))
+
             Dim sMensaje As String = "Entidades Añadidas: " & ea.Count.ToString
             For Each ent In ea
                 Select Case ent.Entity.GetType
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiarios.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiarios.xaml.vb
index 4a38861..9730d31 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiarios.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucDiarios.xaml.vb
@@ -6,13 +6,13 @@ Imports bdGrupoSanchoToro
 Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports tsWPF.Comun
 Imports tsWPFCore.Comun
 Imports tsWPFCore
 Imports tsUtilidades
-Imports bdGrupoSanchoToro
+
 Imports bdGrupoSanchoToro.db
 Imports bdGrupoSanchoToro.db.Utilidades
 
@@ -105,7 +105,7 @@ Public Class ucDiarios
         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
 
     End Sub
-    Public Function ObtieneAsientos(BackGround As Boolean, TextoBusqueda As String, FechaInicio As Date, FechaFin As Date) As List(Of asientos)
+    Public Function ObtieneAsientos(BackGround As Boolean, TextoBusqueda As String, FechaInicio As DateOnly, FechaFin As DateOnly) As List(Of asientos)
         Dim rs As New List(Of asientos)
         Dim parametros(0) As Object
         Dim iNumExc As Integer = 0
@@ -120,10 +120,10 @@ Public Class ucDiarios
                     'End If
                     Dim Calfap() As String = {"NumeroDocumento", "Concepto"}
                     Dim Cnumap() As String = {"idAsiento", "Debe", "Haber"}
-                    Dim ExpBusAsi As String = tsWPF.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Cnumap, Calfap, Nothing)
-                    Dim lap = bd.apuntes.Where(ExpBusAsi, parametros).Select(Function(x) x.asientos).Where(Function(x) x.Fecha >= FechaInicio And x.Fecha <= FechaFin).ToList
+                    Dim ExpBusAsi As String = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Cnumap, Calfap, Nothing)
+                    Dim lap = bd.apuntes.Where(ExpBusAsi, parametros).Select(Function(x) x.idAsientoNavigation).Where(Function(x) x.Fecha >= FechaInicio And x.Fecha <= FechaFin).ToList
                     Dim ctas = TextoBusqueda.Split(" ").Where(Function(x) x.Length = bdGrupoSanchoToro.db.cuentas.LongitudCuentaFinal).ToArray
-                    Dim lap2 = bd.apuntes.Where(Function(x) ctas.Contains(x.cuentas.NumeroCuenta)).Select(Function(x) x.asientos).Where(Function(x) x.Fecha >= FechaInicio And x.Fecha <= FechaFin).ToList
+                    Dim lap2 = bd.apuntes.Where(Function(x) ctas.Contains(x.idCuentaNavigation.NumeroCuenta)).Select(Function(x) x.idAsientoNavigation).Where(Function(x) x.Fecha >= FechaInicio And x.Fecha <= FechaFin).ToList
                     rs = lap.Union(lap2).OrderBy(Function(x) x.Fecha).ThenBy(Function(x) x.Fecha).ToList
                 Else
                     rs = bd.asientos.Where(Function(x) x.Fecha >= FechaInicio And x.Fecha <= FechaFin).ToList
@@ -145,7 +145,7 @@ Public Class ucDiarios
 
 
             Dim rs As New List(Of asientos)
-            Dim fi, ff As Date?
+            Dim fi, ff As DateOnly?
             Dim Busqueda As String
 
             Busqueda = Me.teBusqueda.Text.Trim
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjercicioContable.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjercicioContable.xaml.vb
index d37f64b..1c0c966 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjercicioContable.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjercicioContable.xaml.vb
@@ -39,12 +39,12 @@ Public Class ucEjercicioContable
 
             If FuerzaNuevo OrElse _idEjercicio Is Nothing Then
                 ra = New bdGrupoSanchoToro.db.ejercicioscontables
-                ra.FechaApertura = Now.Date
+                ra.FechaApertura = DateOnly.FromDateTime(Now)
                 Dim Anno As Integer = Now.Year
                 If Now.Month > 1 Then Anno += 1
                 ra.Descripcion = Anno.ToString
-                ra.FechaInicio = New Date(Anno, 1, 1)
-                ra.FechaFin = New Date(Anno, 12, 31)
+                ra.FechaInicio = New DateOnly(Anno, 1, 1)
+                ra.FechaFin = New DateOnly(Anno, 12, 31)
                 ra.idEmpresa = bd.empresas.First(Function(x) x.FechaBaja.HasValue = False).idEmpresa
                 Me.DataContext = ra
                 _idEjercicio = Nothing
@@ -157,7 +157,7 @@ Public Class ucEjercicioContable
             If Not DXSplashScreen.IsActive Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
             DXSplashScreen.SetState("Obteniendo cuentas ...")
             Dim Nivel As Integer = cbNivel.EditValue
-            Dim ctas = bdGrupoSanchoToro.db.vf_cuentas.Obtiene_vf_cuentas(bd, ra.ideje, Nivel)
+            Dim ctas = bdGrupoSanchoToro.db.vf_cuentas.Obtiene_vf_cuentas(bd, ra.idEjercicio, Nivel)
             gcCuentas.ItemsSource = ctas
             If DXSplashScreen.IsActive Then DXSplashScreen.Close()
         Catch ex As Exception
@@ -435,7 +435,7 @@ Public Class ucEjercicioContable
                                         Dim ctaea = bd.cuentas.First(Function(x) x.idCuenta = cta.idCuenta)
                                         CopiaCuenta(bd, ejnue, ctaea, ctne)
                                     End If
-                                    .cuentas = ctne
+                                    .idCuentaNavigation = ctne
                                     '.idCuenta = ejnue.cuentas.First(Function(x) x.NumeroCuenta = cta.NumeroCuenta).idCuenta
                                     '.Fecha = ejnue.FechaInicio
                                     .Concepto = "ASIENTO APERTURA"
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml
index 7e2908f..068a38e 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml
@@ -21,7 +21,7 @@
             </tsWPFCore:tsGridControl.PropiedadesTS>
             <dxg:GridControl.Columns>
                 <dxg:GridColumn FieldName="Descripcion" Header="Ejercicio" Width="150" IsSmart="True" CellTemplate="{DynamicResource VerDetalleTemplate}" />
-                <dxg:GridColumn FieldName="empresascontables.RazonSocial" Width="350" IsSmart="True" Header="Empresa" />
+                <dxg:GridColumn FieldName="empresas.RazonSocial" Width="350" IsSmart="True" Header="Empresa" />
                 <dxg:GridColumn FieldName="FechaInicio" Width="90" IsSmart="True">
                     <dxg:GridColumn.EditSettings>
                         <dxe:DateEditSettings DisplayFormat="dd/MM/yyyy"/>
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml.vb
index 43cf6e5..be7e42a 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucEjerciciosContables.xaml.vb
@@ -65,7 +65,7 @@ Public Class ucEjerciciosContables
         Return bd
     End Function
 
-    'Public Overrides Function ObtieneConexionBD() As tsl5.Datos.BBDD
+    'Public Overrides Function ObtieneConexionBD() As tsUtilidades.Datos.BBDD
     '    Return bdGrupoSanchoToro.gestionasegasaEntities.bdga
     'End Function
 
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformeContables.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformeContables.xaml.vb
index 8620165..dd31170 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformeContables.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformeContables.xaml.vb
@@ -10,7 +10,7 @@ Imports tsWPF.modExtensiones
 Imports System.Data.Common
 Imports System.Data.Entity
 Imports bdGrupoSanchoToro
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports DevExpress.Xpf.Bars
 Imports DevExpress.Xpf.Grid
 Imports System.IO
@@ -47,7 +47,7 @@ Public Class ucInformeContables
             'ra.Descripcion = Now.Year.ToString
             'ra.FechaInicio = New Date(Now.Year, 1, 1)
             'ra.FechaFin = New Date(Now.Year, 12, 31)
-            'ra.idEmpresa = bd.empresascontables.First(Function(x) x.FechaBaja.HasValue = False).idEmpresaContable
+            'ra.idEmpresa = bd.empresas.First(Function(x) x.FechaBaja.HasValue = False).idEmpresaContable
             Me.DataContext = ra
             _idInforme = Nothing
             '  ra.idEjercicio = Nothing
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformesContables.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformesContables.xaml.vb
index e352f88..50632df 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformesContables.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucInformesContables.xaml.vb
@@ -12,7 +12,6 @@ Imports tsWPF.Comun
 Imports tsWPFCore.Comun
 Imports tsWPFCore
 Imports tsUtilidades
-Imports bdGrupoSanchoToro
 Imports bdGrupoSanchoToro.db
 Imports bdGrupoSanchoToro.db.Utilidades
 
@@ -75,7 +74,7 @@ Public Class ucInformesContables
         Return bd
     End Function
 
-    'Public Overrides Function ObtieneConexionBD() As tsl5.Datos.BBDD
+    'Public Overrides Function ObtieneConexionBD() As tsUtilidades.Datos.BBDD
     '    Return bdGrupoSanchoToro.gestionasegasaEntities.bdga
     'End Function
 
@@ -123,20 +122,20 @@ Public Class ucInformesContables
                         End If
                         i += 1
                     Loop Until bd.informescontables.Any(Function(x) x.Descripcion = sDesc Or x.Codigo = sCod) = False
-                    Dim fi As New ficheros
+                    Dim fi As New bdGrupoSanchoToro.db.ficheros
                     With fi
-                        .Descripcion = ra.ficheros.Descripcion
-                        .Fecha = ra.ficheros.Fecha
-                        .idAplicacion = ra.ficheros.idAplicacion
-                        .idTipo = ra.ficheros.idTipo
-                        .Observaciones = ra.ficheros.Observaciones
-                        .Fichero = ra.ficheros.Fichero
-                        .NombreFichero = ra.ficheros.NombreFichero
+                        .Descripcion = ra.idFicheroNavigation.Descripcion
+                        .Fecha = ra.idFicheroNavigation.Fecha
+                        .idAplicacion = ra.idFicheroNavigation.idAplicacion
+                        .idTipo = ra.idFicheroNavigation.idTipo
+                        .Observaciones = ra.idFicheroNavigation.Observaciones
+                        .Fichero = ra.idFicheroNavigation.Fichero
+                        .NombreFichero = ra.idFicheroNavigation.NombreFichero
                     End With
                     With ni
                         .Codigo = sCod
                         .Descripcion = sDesc
-                        .ficheros = fi
+                        .idFicheroNavigation = fi
                     End With
                     For Each c In ra.celdasinformescontables
                         Dim nc As New celdasinformescontables
@@ -149,7 +148,7 @@ Public Class ucInformesContables
                         End With
                         ni.celdasinformescontables.Add(nc)
                     Next
-                    bd.informescontables.AddObject(ni)
+                    bd.informescontables.Add(ni)
                     bd.SaveChanges()
                     Me.RefrescaUC()
                 Else
diff --git a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucListadoDiario.xaml.vb b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucListadoDiario.xaml.vb
index fbc2dfd..06d9588 100644
--- a/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucListadoDiario.xaml.vb
+++ b/GestionGrupoSanchoToro/Contabilidad/Aplicaciones/ucListadoDiario.xaml.vb
@@ -7,13 +7,12 @@ Imports DevExpress.Xpf.Grid
 Imports DevExpress.Xpf.Core
 Imports System.Linq.Dynamic
 Imports DevExpress.Xpf.Bars
-Imports tsl5.Datos
+Imports tsUtilidades.Datos
 Imports tsWPF
 Imports tsWPF.Comun
 Imports tsWPFCore.Comun
 Imports tsWPFCore
 Imports tsUtilidades
-Imports bdGrupoSanchoToro
 Imports bdGrupoSanchoToro.db
 Imports bdGrupoSanchoToro.db.Utilidades
 
@@ -88,7 +87,7 @@ Public Class ucListadoDiario
 
     End Sub
 
-    Public Function ObtieneApuntes(TextoBusqueda As String, FechaInicio As Date, FechaFin As Date) As List(Of apuntes)
+    Public Function ObtieneApuntes(TextoBusqueda As String, FechaInicio As DateOnly, FechaFin As DateOnly) As List(Of apuntes)
         Dim rs As List(Of apuntes)
         Dim parametros(0) As Object
         Dim iNumExc As Integer = 0
@@ -99,12 +98,12 @@ Public Class ucListadoDiario
                     Dim Calfc() As String = {"cuentas.NumeroCuenta"}
                     Dim ExpBus As String = tsWPFCore.Utilidades.Varias.GeneraExpresionBusqueda(TextoBusqueda, Nothing, Calf, Nothing, Calfc)
                     If ExpBus = "" Then
-                        rs = bd.apuntes.Include(Function(x) x.asientos).Include(Function(x) x.cuentas).Where(Function(x) x.asientos.Fecha >= FechaInicio And x.asientos.Fecha <= FechaFin).OrderBy(Function(x) x.asientos.Fecha).ThenBy(Function(x) x.idAsiento).ThenBy(Function(x) x.idApunte).ToList
+                        rs = bd.apuntes.Include(Function(x) x.idAsientoNavigation).Include(Function(x) x.idCuentaNavigation).Where(Function(x) x.idAsientoNavigation.Fecha >= FechaInicio And x.idAsientoNavigation.Fecha <= FechaFin).OrderBy(Function(x) x.idAsientoNavigation.Fecha).ThenBy(Function(x) x.idAsientoNavigation).ThenBy(Function(x) x.idApunte).ToList
                     Else
-                        rs = bd.apuntes.Include(Function(x) x.asientos).Include(Function(x) x.cuentas).Where(ExpBus, parametros).Where(Function(x) x.asientos.Fecha >= FechaInicio And x.asientos.Fecha <= FechaFin).OrderBy(Function(x) x.asientos.Fecha).ThenBy(Function(x) x.idAsiento).ThenBy(Function(x) x.idApunte).ToList
+                        rs = bd.apuntes.Include(Function(x) x.idAsientoNavigation).Include(Function(x) x.idCuentaNavigation).Where(ExpBus, parametros).Where(Function(x) x.idAsientoNavigation.Fecha >= FechaInicio And x.idAsientoNavigation.Fecha <= FechaFin).OrderBy(Function(x) x.idAsientoNavigation.Fecha).ThenBy(Function(x) x.idAsiento).ThenBy(Function(x) x.idApunte).ToList
                     End If
                 Else
-                    rs = bd.apuntes.Include(Function(x) x.asientos).Include(Function(x) x.cuentas).Where(Function(x) x.asientos.Fecha >= FechaInicio And x.asientos.Fecha <= FechaFin).OrderBy(Function(x) x.asientos.Fecha).ThenBy(Function(x) x.idAsiento).ThenBy(Function(x) x.idApunte).ToList
+                    rs = bd.apuntes.Include(Function(x) x.idAsientoNavigation).Include(Function(x) x.idCuentaNavigation).Where(Function(x) x.idAsientoNavigation.Fecha >= FechaInicio And x.idAsientoNavigation.Fecha <= FechaFin).OrderBy(Function(x) x.idAsientoNavigation.Fecha).ThenBy(Function(x) x.idAsiento).ThenBy(Function(x) x.idApunte).ToList
                 End If
                 Exit Do
             Catch ex As Exception
@@ -121,7 +120,7 @@ Public Class ucListadoDiario
         Try
 
             Dim rs As New List(Of apuntes)
-            Dim fi, ff As Date?
+            Dim fi, ff As DateOnly?
             Dim Busqueda As String
 
             Busqueda = Me.teBusqueda.Text.Trim
diff --git a/GestionGrupoSanchoToro/Informes/Informes.vb b/GestionGrupoSanchoToro/Informes/Informes.vb
index cc0bbab..2f2fff0 100644
--- a/GestionGrupoSanchoToro/Informes/Informes.vb
+++ b/GestionGrupoSanchoToro/Informes/Informes.vb
@@ -1,15 +1,16 @@
 
+Imports System.ComponentModel
+Imports System.Drawing.Printing
 Imports System.IO
 Imports bdGrupoSanchoToro
 Imports bdGrupoSanchoToro.db
 Imports DevExpress.Xpf.Core
+Imports DevExpress.Xpf.Docking
+Imports DevExpress.Xpf.Printing
 Imports DevExpress.XtraPrinting
 Imports DevExpress.XtraReports.UI
-Imports tsEFCore8.Extensiones
 Imports Microsoft.EntityFrameworkCore
-Imports System.Drawing.Printing
-Imports System.ComponentModel
-Imports DevExpress.Xpf.Printing
+Imports tsEFCore8.Extensiones
 Public Class Informes
     Private Shared NumeroCopias As Integer
 
@@ -132,5 +133,41 @@ Public Class Informes
         xr.ExportToPdf(st)
         Return st.ToArray
     End Function
+    Friend Shared Sub MuestraImpresos(bd As tscGrupoSanchoToro, idPlantilla As Integer, Datasource As Object, GrupoDocumentos As DocumentGroup, dc As DockController)
+        Try
 
+            If idPlantilla = 0 Then Throw New Exception("Seleccione primero la plantilla a imprimir")
+            Dim xr As New XtraReport
+
+            Dim pl = bd.plantillas.AsNoTracking.Where(Function(x) x.idPlantilla = idPlantilla).First
+            Dim s As String = System.Text.Encoding.UTF8.GetString(pl.idFicheroNavigation.Fichero)
+            Using sw As New StreamWriter(New MemoryStream())
+                sw.Write(s)
+                sw.Flush()
+                xr = XtraReport.FromStream(sw.BaseStream, True)
+            End Using
+            Try
+                Dim pr As DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
+                pr.Value = Now
+                pr.Visible = False
+            Catch ex As Exception
+
+            End Try
+            xr.DataSource = Datasource
+
+            Dim docpanel As New DevExpress.Xpf.Docking.DocumentPanel
+            docpanel.Caption = pl.Descripcion
+
+            Dim vi As New tsWPFCore.ucVisualizadorInformes()
+            vi.Visualizador.DocumentSource = xr
+            xr.CreateDocument(True)
+
+            docpanel.Content = vi
+            docpanel.ClosingBehavior = DevExpress.Xpf.Docking.ClosingBehavior.ImmediatelyRemove
+            GrupoDocumentos.Items.Add(docpanel)
+            dc.Activate(docpanel)
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Atención", MessageBoxButton.OK, MessageBoxImage.Error)
+        End Try
+    End Sub
 End Class
diff --git a/ServicioGrupoSanchoToro/ProcesosCorreos.cs b/ServicioGrupoSanchoToro/ProcesosCorreos.cs
index 1dd0638..4d4a065 100644
--- a/ServicioGrupoSanchoToro/ProcesosCorreos.cs
+++ b/ServicioGrupoSanchoToro/ProcesosCorreos.cs
@@ -84,7 +84,7 @@ namespace ServicioGrupoSanchoToro
                                 List<AlternateView> avs = new List<AlternateView>();
                                 avs.Add(avHtml);
                                 tsCorreos.Funciones.EnviaCorreo(email.idcuentaNavigation.ServidorSMTP, email.Remitente, email.Destinatario, email.Asunto, sCuerpoHtml, ats, avs, email.Copia, email.CopiaOculta, email.idcuentaNavigation.CuentaCorreo, email.idcuentaNavigation.Password, (int)email.idcuentaNavigation.Puerto, email.idcuentaNavigation.SSL, true, email.idcuentaNavigation.ResponderA);
-                                // tsl5.Correo.Funciones.EnviaCorreo(email.cuentascorreo.ServidorSMTP, email.Remitente, email.Destinatario, email.Asunto, email.Cuerpo, attachments, avs, , , email.cuentascorreo.CuentaCorreo, sPasswd, email.cuentascorreo.Puerto, email.cuentascorreo.SSL, True)
+                                // tsUtilidades.Correo.Funciones.EnviaCorreo(email.cuentascorreo.ServidorSMTP, email.Remitente, email.Destinatario, email.Asunto, email.Cuerpo, attachments, avs, , , email.cuentascorreo.CuentaCorreo, sPasswd, email.cuentascorreo.Puerto, email.cuentascorreo.SSL, True)
                                 email.FechaEnvio = DateTime.UtcNow;
                             }
                             catch (Exception ex)
diff --git a/bdGrupoSanchoToro/CalculosDinamicos.cs b/bdGrupoSanchoToro/CalculosDinamicos.cs
index 21362b0..5789b45 100644
--- a/bdGrupoSanchoToro/CalculosDinamicos.cs
+++ b/bdGrupoSanchoToro/CalculosDinamicos.cs
@@ -211,7 +211,7 @@ namespace bdGrupoSanchoToro
         //    las.Add("System.Data.Entity.dll");
         //    las.Add("dll");
         //    las.Add("tsWPF.dll");
-        //    las.Add("tsl5.dll");
+        //    las.Add("tsUtilidades.dll");
         //    var lp = new List<string>();
         //    lp.Add("bd As tscGrupoSanchoToro");
         //    // For Each p In parametros
diff --git a/bdGrupoSanchoToro/dbcontext/GrupoSanchoToroContext.cs b/bdGrupoSanchoToro/dbcontext/GrupoSanchoToroContext.cs
index 9b10b33..f41c979 100644
--- a/bdGrupoSanchoToro/dbcontext/GrupoSanchoToroContext.cs
+++ b/bdGrupoSanchoToro/dbcontext/GrupoSanchoToroContext.cs
@@ -1078,14 +1078,14 @@ public partial class GrupoSanchoToroContext : DbContext
 
             entity.HasIndex(e => e.Descripcion, "Descripcion_UNIQUE").IsUnique();
 
-            entity.HasIndex(e => e.idEmpresa, "ejercicioscontables_empresascontables_idx");
+            entity.HasIndex(e => e.idEmpresa, "ejercicioscontables_empresas_idx");
 
             entity.Property(e => e.Descripcion).HasMaxLength(40);
             entity.Property(e => e.NivelesCuentas).HasMaxLength(20);
 
             entity.HasOne(d => d.idEmpresaNavigation).WithMany(p => p.ejercicioscontables)
                 .HasForeignKey(d => d.idEmpresa)
-                .HasConstraintName("ejercicioscontables_empresascontables");
+                .HasConstraintName("ejercicioscontables_empresas");
         });
 
         modelBuilder.Entity<empresas>(entity =>
diff --git a/bdGrupoSanchoToro/extensiones/apuntes.cs b/bdGrupoSanchoToro/extensiones/apuntes.cs
index edfa476..78a8923 100644
--- a/bdGrupoSanchoToro/extensiones/apuntes.cs
+++ b/bdGrupoSanchoToro/extensiones/apuntes.cs
@@ -1,7 +1,8 @@
-using System;
+using Microsoft.VisualBasic.CompilerServices;
+using System;
 using System.ComponentModel;
+using System.ComponentModel.DataAnnotations.Schema;
 using System.Runtime.CompilerServices;
-using Microsoft.VisualBasic.CompilerServices;
 
 namespace bdGrupoSanchoToro.db
 {
@@ -100,6 +101,7 @@ namespace bdGrupoSanchoToro.db
                     return "";
             }
         }
+        [NotMapped]
         public conciliacionesbancarias ConciliacionActual_TMP { get; set; }
         public double Saldo
         {
diff --git a/bdGrupoSanchoToro/extensiones/asientos.cs b/bdGrupoSanchoToro/extensiones/asientos.cs
index a6dc882..4f6bed1 100644
--- a/bdGrupoSanchoToro/extensiones/asientos.cs
+++ b/bdGrupoSanchoToro/extensiones/asientos.cs
@@ -87,6 +87,26 @@ namespace bdGrupoSanchoToro.db
             }
             return cuenta;
         }
+        public bool Punteado
+        {
+            get
+            {
+                return FechaPunteo.HasValue;
+            }
+            set
+            {
+                if (value)
+                {
+                    FechaPunteo = DateTime.Now;
+                }
+                else
+                {
+                    FechaPunteo=null;
+                }
+                    OnPropertyChanged("Punteado");
+            }
+        }
+
         private string _Ejercicio;
         public string EjercicioTmp
         {
diff --git a/bdGrupoSanchoToro/extensiones/cuentas.cs b/bdGrupoSanchoToro/extensiones/cuentas.cs
index f0d2300..a5cc12e 100644
--- a/bdGrupoSanchoToro/extensiones/cuentas.cs
+++ b/bdGrupoSanchoToro/extensiones/cuentas.cs
@@ -1,7 +1,8 @@
-using System;
+using Microsoft.VisualBasic.CompilerServices;
+using System;
 using System.ComponentModel;
+using System.ComponentModel.DataAnnotations.Schema;
 using System.Runtime.CompilerServices;
-using Microsoft.VisualBasic.CompilerServices;
 using tsUtilidades.Extensiones;
 
 namespace bdGrupoSanchoToro.db
@@ -17,6 +18,7 @@ namespace bdGrupoSanchoToro.db
         }
         public const string CUENTA_PERDIDAS_Y_GANANCIAS = "12900000";
 
+        [NotMapped]
         public List<apuntes> ApuntesTemporales { get; set; }
         public string Descripcion
         {
diff --git a/bdGrupoSanchoToro/extensiones/ejercicioscontables.cs b/bdGrupoSanchoToro/extensiones/ejercicioscontables.cs
new file mode 100644
index 0000000..7b59306
--- /dev/null
+++ b/bdGrupoSanchoToro/extensiones/ejercicioscontables.cs
@@ -0,0 +1,167 @@
+using bdGrupoSanchoToro;
+using System;
+using System.Collections.Generic;
+using System.Data;
+using System.Linq;
+using tsUtilidades.Extensiones;
+
+namespace bdGrupoSanchoToro.db
+{
+
+    public partial class ejercicioscontables
+    {
+        public static int ObtieneidEjercicioAbierto(DateOnly Fecha)
+        {
+            var bd = tscGrupoSanchoToro.NuevoContexto();
+            var ej = bd.ejercicioscontables.FirstOrDefault(x => x.FechaInicio <= Fecha & x.FechaFin >= Fecha & x.FechaCierre.HasValue == false);
+            if (ej is null)
+            {
+                ej = bd.ejercicioscontables.FirstOrDefault(x => x.FechaInicio <= Fecha & x.FechaFin >= Fecha & x.FechaCierre.HasValue);
+                if (ej is null)
+                {
+                    if (DateOnly.FromDateTime(DateTime.Today).DayNumber - Fecha.DayNumber > 365d || Fecha.DayNumber - DateOnly.FromDateTime(DateTime.Today).DayNumber > 60d)
+                    {
+                        throw new Exception("La fecha del ejercicio " + Fecha.ToShortDateString() + " parece incorrecta");
+                    }
+                    else
+                    {
+                        ej = ejercicioscontables.AbreEjercicio(bd, Fecha);
+                        return ej.idEjercicio;
+                    }
+                }
+                else
+                {
+                    throw new Exception("El ejercicio está cerrado");
+                }
+            }
+            else
+            {
+                return ej.idEjercicio;
+            }
+        }
+        public string DescripcionExtendida
+        {
+            get
+            {
+                if (this.FechaInicio.Month == 1 & this.FechaInicio.Day == 1 & this.FechaFin.Month == 12 & this.FechaFin.Day == 31)
+                {
+                    return this.idEmpresaNavigation.RazonSocial + " " + this.FechaInicio.Year.ToString();
+                }
+                else
+                {
+                    return this.idEmpresaNavigation.RazonSocial + " " + this.FechaInicio.ToString() + " " + this.FechaFin.ToString();
+                }
+            }
+        }
+        public bdGrupoSanchoToro.db.asientos AsientoApertura
+        {
+            get
+            {
+                return this.asientos.FirstOrDefault(x => x.Tipo == (int)bdGrupoSanchoToro.db.asientos.TipoAsiento.APERTURA);
+            }
+        }
+
+        public bdGrupoSanchoToro.db.asientos AsientoRegularizacion
+        {
+            get
+            {
+                return this.asientos.FirstOrDefault(x => x.Tipo == (int)bdGrupoSanchoToro.db.asientos.TipoAsiento.REGULARIZACION);
+            }
+        }
+
+        // Private _CuentasPlanContable As List(Of cuentasplancontable)
+        // Public ReadOnly Property CuentasPlanContable As List(Of cuentasplancontable)
+        // Get
+        // If _CuentasPlanContable Is Nothing Then
+        // _CuentasPlanContable = Me.plancontable.gruposplancontable.SelectMany(Function(x) x.cuentasplancontable).ToList
+        // End If
+        // Return _CuentasPlanContable
+        // End Get
+        // End Property
+
+        public void CopiaCuentas()
+        {
+            try
+            {
+                tscGrupoSanchoToro bd = tscGrupoSanchoToro.NuevoContexto();
+                var ea = bd.ejercicioscontables.OrderByDescending(x => x.FechaInicio).FirstOrDefault(x => x.FechaInicio < this.FechaInicio);
+                if (ea is not null)
+                {
+                    var ctas1 = ea.cuentas.Where(x => x.NumeroCuenta.Length == 1).ToList();
+                    var ctas2 = ea.cuentas.Where(x => x.NumeroCuenta.Length == 2).ToList();
+                    var ctas3 = ea.cuentas.Where(x => x.NumeroCuenta.Length == 3).ToList();
+                    var ctas4 = ea.cuentas.Where(x => x.NumeroCuenta.Length == 4).ToList();
+                    var ctas8 = ea.cuentas.Where(x => x.NumeroCuenta.Length == 8).ToList();
+                    int Nc = 0;
+                    foreach (var cta in ctas1)
+                        Nc += this.CopiaCuenta(bd, this, cta);
+                    foreach (var cta in ctas2)
+                        Nc += this.CopiaCuenta(bd, this, cta);
+                    foreach (var cta in ctas3)
+                        Nc += this.CopiaCuenta(bd, this, cta);
+                    foreach (var cta in ctas4)
+                        Nc += this.CopiaCuenta(bd, this, cta);
+                    foreach (var cta in ctas8)
+                        Nc += this.CopiaCuenta(bd, this, cta);
+                    bd.SaveChanges();
+                }
+            }
+            catch (Exception ex)
+            {
+                throw new Exception(ex.Message, ex);
+            }
+        }
+        private int CopiaCuenta(tscGrupoSanchoToro bd, ejercicioscontables Ejercicio, bdGrupoSanchoToro.db.cuentas CtaAnterior)
+        {
+            if (!Ejercicio.cuentas.Any(X => (X.NumeroCuenta ?? "") == (CtaAnterior.NumeroCuenta ?? "")))
+            {
+                var nc = new bdGrupoSanchoToro.db.cuentas();
+                nc.Denominacion = CtaAnterior.Denominacion;
+                nc.EsCuentaFinal = CtaAnterior.EsCuentaFinal;
+                nc.Mote = CtaAnterior.Mote;
+                nc.Observaciones = CtaAnterior.Observaciones;
+                nc.NumeroCuenta = CtaAnterior.NumeroCuenta;
+                nc.idEjercicio = Ejercicio.idEjercicio;
+                nc.idEmpresaAmortizacion = CtaAnterior.idEmpresaAmortizacion;
+                nc.PresupuestoEnero = CtaAnterior.PresupuestoEnero;
+                nc.PresupuestoFebrero = CtaAnterior.PresupuestoFebrero;
+                nc.PresupuestoMarzo = CtaAnterior.PresupuestoMarzo;
+                nc.PresupuestoAbril = CtaAnterior.PresupuestoAbril;
+                nc.PresupuestoMayo = CtaAnterior.PresupuestoMayo;
+                nc.PresupuestoJunio = CtaAnterior.PresupuestoJunio;
+                nc.PresupuestoJulio = CtaAnterior.PresupuestoJulio;
+                nc.PresupuestoAgosto = CtaAnterior.PresupuestoAgosto;
+                nc.PresupuestoSeptiembre = CtaAnterior.PresupuestoSeptiembre;
+                nc.PresupuestoOctubre = CtaAnterior.PresupuestoOctubre;
+                nc.PresupuestoNoviembre = CtaAnterior.PresupuestoNoviembre;
+                nc.PresupuestoDiciembre = CtaAnterior.PresupuestoDiciembre;
+                bd.cuentas.Add(nc);
+                return 1;
+            }
+            else
+            {
+                return 0;
+            }
+        }
+
+        public static ejercicioscontables AbreEjercicio(tscGrupoSanchoToro bd, DateOnly Fecha)
+        {
+            var ej = new ejercicioscontables();
+            ej.FechaApertura = DateOnly.FromDateTime(DateTime.Now);
+            ej.FechaInicio = DateOnly.FromDateTime(new DateTime(Fecha.Year, 1, 1));
+            ej.FechaFin = DateOnly.FromDateTime( new DateTime(Fecha.Year, 12, 31));
+            ej.Descripcion = Fecha.Year.ToString();
+            bd.ejercicioscontables.Add(ej);
+            bd.SaveChanges();
+            ej.CopiaCuentas();
+            return ej;
+
+        }
+
+        public static bool CompruebaEjereciciosAbiertos(tscGrupoSanchoToro bd, List<DateOnly> Fechas)
+        {
+            var ejeabiertos = bd.ejercicioscontables.Where(x => x.FechaCierre.HasValue == false).ToList();
+            return Fechas.All(x => ejeabiertos.Any(y => y.FechaInicio <= x & y.FechaFin >= x));
+        }
+    }
+}
\ No newline at end of file