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