--si utiliza la funcionalida 109 generar el pdf en el mismo thread

Ventas/Ventas.aspx.vb

@@ -10370,12 +10370,17 @@ Partial Class Ventas
                             If File.Exists(ArchivoXML) Then
                                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
                             End If
+                            'MANDA CORREO
                             Try
-                                'MANDA CORREO
-                                Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
                                 Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
-                                Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                                'SE SE VA UTILIZAR LA DESCARGA AUTOMATICA, NO GENERAR PDF A TRAVEZ DE UN THREAD
-                                Hilo.Start()
+                                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                                    GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, "", UsarDescargaDesdePopUpVerFactura:=False)
+                                Else
+                                    Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
+                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                                    Hilo.Start()
+                                End If
                             Catch ex As Exception
                                 OnError("Ocurrió un error al enviar el PDF", ex)
                             End Try
@@ -10383,11 +10388,8 @@ Partial Class Ventas
                             'PARA PRUEBAS, GENERAR PDF AUNQUE NO ESTE TIMBRADA
                             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                                 Try
-                                    'MANDA CORREO
-                                    Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
                                     Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
-                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                                    GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, "", UsarDescargaDesdePopUpVerFactura:=False)
-                                    Hilo.Start()
                                 Catch ex As Exception
                                     OnError("Ocurrió un error al enviar el PDF", ex)
                                 End Try
@@ -15549,14 +15551,28 @@ Partial Class Ventas
 #End Region
 
 #Region "¡ P D F   R E P O R T   V I E W E R !"
-    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "")
+    ''' <summary>
+    ''' Generación y envío de correo de factura, UsarDescargaDesdePopUpVerFactura si se va realizar a travez de un thread
+    ''' </summary>
+    ''' <param name="EnviaCorreo"></param>
+    ''' <param name="Factura"></param>
+    ''' <param name="UsuarioActual"></param>
+    ''' <param name="strURLHOST"></param>
+    ''' <param name="CorreoCRM"></param>
+    ''' <param name="UsarDescargaDesdePopUpVerFactura"></param>
+    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "", Optional UsarDescargaDesdePopUpVerFactura As Boolean = True)
         'GUARDA PDF
         Dim LocalSerieFolio As String = String.Empty
         Dim LocalTipoDocto As String = String.Empty
 
         'TIMBRADO NUEVO
         Try
-            DescargarFactura(Factura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
+            If UsarDescargaDesdePopUpVerFactura Then
+                DescargarFactura(Factura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
+            Else
+                GenerarPDFVenta(Factura.CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+            End If
+
         Catch ex As Exception
             OnError("Ocurrió un error al generar el PDF", ex)
         End Try
@@ -16783,19 +16799,18 @@ Partial Class Ventas
             CargaPS(DdlClasificacion.SelectedValue.ToEntero(), Ddl)
         End If
 
-
         If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
             TxtPrecio.Focus()
         End If
 
-
         UPPPS.Update()
         UpPS.Update()
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
             AgregarPS()
         End If
 
+
     End Sub
 
     Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido