AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- validación de renombrado de bitácora

Browse Source
This commit is contained in:
rrene
2024-09-26 17:35:49 -07:00
parent 24b3a85d59
commit 7a2f854028
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3788,18 +3788,21 @@ Partial Class Inventarios_RecepcionAlmacen
Private Sub RenombrarBitacoras() Private Sub RenombrarBitacoras()
Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
Dim fib As New FileInfo(ArchivoBitacora)
Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
If ArchivoBitacora <> "" Then
Dim fib As New FileInfo(ArchivoBitacora)
If fib.Exists() Then If fib.Exists() Then
Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml")
fib.MoveTo(nuevoNombre) fib.MoveTo(nuevoNombre)
End If End If
End If
If ArchivoBitacoraDetalle <> "" Then
Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
If fibd.Exists() Then If fibd.Exists() Then
Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
fibd.MoveTo(nuevoNombreDetalle) fibd.MoveTo(nuevoNombreDetalle)
End If End If
End If
End Sub End Sub