2026-01-30 03

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