diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 457bc2ba0..39e5d6f62 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6382,7 +6382,7 @@ Public Class ClsPaginas
             Dim Archivo As New System.IO.FileInfo(RutaFormato)
             If Archivo.Exists Then
 
-                retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
+                retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
                 Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio))
                 If Guardar Then
                     If Not ArchivoPDF.Exists Then
@@ -6405,28 +6405,7 @@ Public Class ClsPaginas
             Else
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-                retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
-
-                Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio))
-
-                If Guardar Then
-                    If Not ArchivoPDF.Exists Then
-                        Try
-                            DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta))
-                            DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto))
-                            File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno)
-                        Catch ex As Exception
-                            Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia)
-                        End Try
-                    Else
-                        Try
-                            ArchivoPDF.Delete()
-                            File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno)
-                        Catch ex As Exception
-                            Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia)
-                        End Try
-                    End If
-                End If
+                retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
             End If
         Catch ex As Exception
             GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))