From 7a2f85402874e0ccd15e736210b3b42b2ff55b8e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:35:49 -0700 Subject: [PATCH] =?UTF-8?q?--=20validaci=C3=B3n=20de=20renombrado=20de=20b?= =?UTF-8?q?it=C3=A1cora?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index f55a1f55e..def2e8d5f 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3788,17 +3788,20 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub RenombrarBitacoras() Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") - Dim fib As New FileInfo(ArchivoBitacora) - Dim fibd As New FileInfo(ArchivoBitacoraDetalle) - If fib.Exists() Then - Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") - fib.MoveTo(nuevoNombre) + If ArchivoBitacora <> "" Then + Dim fib As New FileInfo(ArchivoBitacora) + If fib.Exists() Then + Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") + fib.MoveTo(nuevoNombre) + End If End If - - If fibd.Exists() Then - Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") - fibd.MoveTo(nuevoNombreDetalle) + If ArchivoBitacoraDetalle <> "" Then + Dim fibd As New FileInfo(ArchivoBitacoraDetalle) + If fibd.Exists() Then + Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") + fibd.MoveTo(nuevoNombreDetalle) + End If End If End Sub