diff --git a/Baget/tsUtilidadesInformes.nuspec b/Baget/Aplicacion.nuspec similarity index 93% rename from Baget/tsUtilidadesInformes.nuspec rename to Baget/Aplicacion.nuspec index 4713b28..1a0cbc1 100644 --- a/Baget/tsUtilidadesInformes.nuspec +++ b/Baget/Aplicacion.nuspec @@ -2,7 +2,7 @@ tsUtilidadesInformes - 1.0.0.0 + 2.0.0.0 Manuel Tecnosis S.A. false diff --git a/Baget/nuget.exe b/Baget/nuget.exe deleted file mode 100644 index 94aada9..0000000 Binary files a/Baget/nuget.exe and /dev/null differ diff --git a/Informes.vb b/Informes.vb index 54f054f..c152f76 100644 --- a/Informes.vb +++ b/Informes.vb @@ -1,6 +1,7 @@ Imports System.IO Imports Microsoft.VisualBasic Imports tsWPF +Imports tsZIP Public Class Informes @@ -210,7 +211,7 @@ Public Class Informes Dim sContenidoStyles As String = ReemplazaXMLODT(My.Computer.FileSystem.ReadAllText(sStylesxml), Valores) My.Computer.FileSystem.WriteAllText(sContentxml, sContenidoContent, False) My.Computer.FileSystem.WriteAllText(sStylesxml, sContenidoStyles, False) - Zip.ComprimirDirectorio(sDirectorioTMP, FicheroODTRelleno) + zip.ComprimirDirectorio(sDirectorioTMP, FicheroODTRelleno) Catch ex As Exception Throw New Exception("Error en RellenaODT " & ex.Message, ex) End Try @@ -343,8 +344,8 @@ Public Class Informes Dim sContentTmp2 As String = tsl5.Utilidades.ObtieneFicheroAleatorio("xml") Dim sStylesTmp As String = tsl5.Utilidades.ObtieneFicheroAleatorio("xml") Dim sStylesTmp2 As String = tsl5.Utilidades.ObtieneFicheroAleatorio("xml") - Zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) - Zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) + zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) + zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) Dim ds As New DataSet Dim dt As New DataTable dt = drCabecera.Table.Clone @@ -354,8 +355,8 @@ Public Class Informes dt.TableName = "cabecera" RellenaXML(ds, sContentTmp, sContentTmp2, SiNoComoX) RellenaXML(ds, sStylesTmp, sStylesTmp2, SiNoComoX) - Zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") - Zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") + zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") + zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") Catch ex As Exception Throw New Exception(ex.Message, ex) End Try @@ -367,13 +368,13 @@ Public Class Informes Dim sStylesTmp As String = tsl5.Utilidades.ObtieneFicheroAleatorio("xml") Dim sStylesTmp2 As String = tsl5.Utilidades.ObtieneFicheroAleatorio("xml") - Zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) - Zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) + zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) + zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) RellenaXML(ds, sContentTmp, sContentTmp2, SiNoComoX) RellenaXML(ds, sStylesTmp, sStylesTmp2, SiNoComoX) - Zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") - Zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") + zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") + zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") End Sub 'Public Shared Sub RellenaODTEtiquetas(ByVal ds As DataSet, CampoIndice As String, ByVal FicheroODT As String) ' 'PKICOAATSE.UtilsBArray.Array2Fichero(PlantillaODT, "", FicheroDestinoODT) @@ -409,16 +410,16 @@ Public Class Informes ' Dim odttmp As String = tsl5.Utilidades.ObtieneFicheroAleatorio("odt") ' IO.File.Copy(FicheroODT, odttmp) - Zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) - Zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) - Zip.ExtraerArchivo(FicheroODT, "meta.xml", sMetaTmp) + zip.ExtraerArchivo(FicheroODT, "content.xml", sContentTmp) + zip.ExtraerArchivo(FicheroODT, "styles.xml", sStylesTmp) + zip.ExtraerArchivo(FicheroODT, "meta.xml", sMetaTmp) RellenaXML(ds, sContentTmp, sContentTmp2, CampoIndice, TipoInforme, SiNoComoX) 'IO.File.Copy(sStylesTmp, sStylesTmp2, True) RellenaXML(ds, sStylesTmp, sStylesTmp2, SiNoComoX) CorrigeMeta(sMetaTmp, sMetaTmp2, ds.Tables("cabecera").Rows.Count) - Zip.AñadirArchivo(FicheroODT, sMetaTmp2, "content.xml") - Zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") - Zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") + zip.AñadirArchivo(FicheroODT, sMetaTmp2, "content.xml") + zip.AñadirArchivo(FicheroODT, sContentTmp2, "content.xml") + zip.AñadirArchivo(FicheroODT, sStylesTmp2, "styles.xml") End Sub Public Shared Sub RellenaXML(ByVal ds As DataSet, ByVal FicheroOrigenXML As String, ByVal FicheroDestinoXML As String, Optional SiNoComoX As Boolean = False) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 52191f1..0fa2ad9 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices 'El siguiente GUID sirve como identificador de typelib si este proyecto se expone a COM - + ' La información de versión de un ensamblado consta de los cuatro valores siguientes: ' @@ -31,5 +31,7 @@ Imports System.Runtime.InteropServices ' mediante el asterisco ('*'), como se muestra a continuación: ' - - + + + +' 2026-06-26 Actualización de dependencia de tsZIP a tsZIP.NS \ No newline at end of file diff --git a/app.config b/app.config index e573fe1..62491f5 100644 --- a/app.config +++ b/app.config @@ -4,7 +4,7 @@ - + @@ -12,11 +12,11 @@ - + - + @@ -38,6 +38,22 @@ + + + + + + + + + + + + + + + + diff --git a/packages.config b/packages.config index 6bd39d2..d433fd4 100644 --- a/packages.config +++ b/packages.config @@ -38,5 +38,5 @@ - + \ No newline at end of file diff --git a/tsUtilidadesInformes.vbproj b/tsUtilidadesInformes.vbproj index cef1dd7..f147baa 100644 --- a/tsUtilidadesInformes.vbproj +++ b/tsUtilidadesInformes.vbproj @@ -170,8 +170,8 @@ packages\tsWPF.5.0.0.1\lib\net48\tsWPF.dll - - packages\tsZip.5.0.0\lib\netstandard2.0\tsZip.dll + + packages\tsZip.NS.1.0.1\lib\netstandard2.0\tsZip.NS.dll @@ -212,7 +212,7 @@ - + MyApplicationCodeGenerator Application.Designer.vb @@ -224,9 +224,6 @@ - - -