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

21
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3788,17 +3788,20 @@ 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 fib.Exists() Then If ArchivoBitacora <> "" Then
Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml") Dim fib As New FileInfo(ArchivoBitacora)
fib.MoveTo(nuevoNombre) 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 End If
If ArchivoBitacoraDetalle <> "" Then
If fibd.Exists() Then Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml") If fibd.Exists() Then
fibd.MoveTo(nuevoNombreDetalle) Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
fibd.MoveTo(nuevoNombreDetalle)
End If
End If End If
End Sub End Sub