diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index df4519040..db1e9566b 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -748,6 +748,8 @@ Public Class WSApp
                                             Exit For
                                         End If
                                     End If
+                                ElseIf CveTipoPS = 1 Then
+                                    Continuar = True
                                 End If
                             Else
                                 Continuar = False
@@ -772,23 +774,16 @@ Public Class WSApp
                             Dim Correo As String = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com")
                             'Dim Correo As String = "japmx95@gmail.com"
                             Dim SerieFolio As String = Factura.SerieFolio
-                            Dim DireccionEnvio As String = ""
-                            Dim ObjClientes As New ClsClientes
-                            If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
-                                If ObjClientes.DtResultados.Rows.Count > 0 Then
-                                    DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
-                                End If
-                            End If
-                            ObjClientes.Dispose()
-                            Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now)
-                            Factura.Dispose()
-                            Try
-                                Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
-                                Dim Mail As New ClsSisMail()
-                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
-                            Catch ex As Exception
-                                OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
-                            End Try
+                            Dim DireccionEnvio As String = ""
+                            Using ObjClientes As New ClsClientes
+                                If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+                                    If ObjClientes.DtResultados.Rows.Count > 0 Then
+                                        DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
+                                    End If
+                                End If
+                            End Using
+                            Factura.Dispose()
+                            EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
                         Else
                             Factura.Dispose()
                         End If
@@ -806,7 +801,26 @@ Public Class WSApp
         End Try
 
         Return JsonConvert.SerializeObject(Retorno)
-    End Function
+    End Function
+    Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Try
+            Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual))
+            Hilo.Start()
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar el correo de facturación", ex)
+        End Try
+    End Sub
+    Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
+        Factura.Dispose()
+        Try
+            Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
+            Dim Mail As New ClsSisMail()
+            Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
+        End Try
+    End Sub
     <WebMethod()>
     Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
         Dim Retorno = New Modelos.Factura.MMensajeFactura()