diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 983eff420..a45c309e2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16357,27 +16357,29 @@ Partial Class Ventas
     End Sub
     Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean, Optional CorreoContactoCRM As String = "", Optional pdfCRM As Byte() = Nothing,
                                     Optional SerieFolioCRM As String = "", Optional TipoDoctoCRM As String = "")
-
-        Dim pdf As Byte() = Nothing
         'GUARDA PDF
         Dim LocalSerieFolio As String = String.Empty
         Dim LocalTipoDocto As String = String.Empty
 
-
-
         'TIMBRADO NUEVO
 
         If CorreoContactoCRM.Trim.Length > 0 Then
-            pdf = pdfCRM
             LocalSerieFolio = SerieFolioCRM
             LocalTipoDocto = TipoDoctoCRM
         Else
             Try
-                If CveVenta > 0 Then
-                    ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, VerificaAlmacen:=False)
-                End If
 
-                pdf = PdfFactura(ObjFactura)
+                If Me.CveVenta > 0 Then
+                    GenerarPDFVenta(Me.CveVenta, AplicaPagare:="0", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+
+                    If ObjFactura Is Nothing Then
+                        ObjFactura = New Modelos.Factura(UsuarioActual, Me.CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
+                    End If
+                Else
+                    If ObjFactura IsNot Nothing AndAlso ObjFactura.CveVenta > 0 Then
+                        GenerarPDFVenta(ObjFactura.CveVenta, AplicaPagare:="0", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+                    End If
+                End If
 
                 LocalSerieFolio = ObjFactura.SerieFolio
                 LocalTipoDocto = ObjFactura.TipoDocto