--FIX envio de correo

App_Code/ClsVentas.vb

@@ -76,11 +76,17 @@ Public Class ClsVentas
         SqlTransacc.Rollback()
     End Sub
 
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional UsuarioActual As Usuario = Nothing)
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
+
+            If UsuarioActual IsNot Nothing Then
+                SqlConexion.ConnectionString = UsuarioActual.RutaDB
+            Else
+                SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
+            End If
+
             Try
                 SqlConexion.Open()
             Catch ex As Exception

Ventas/Ventas.aspx.vb

@@ -10772,7 +10772,7 @@ Partial Class Ventas
                                 Else
                                     Dim capturedContext = HttpContext.Current
                                     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, EsHilo:=True, Contexto:=capturedContext))
+                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, UsarDescargaDesdePopUpVerFactura:=True))
                                     Hilo.Start()
                                 End If
                             Catch ex As Exception
@@ -10905,10 +10905,6 @@ Partial Class Ventas
 
                                 GeneraPDFCotizacion(ChkEnviarFactura.Checked)  ' MANDA CORREO
                             End If
-                        ElseIf DdlTipoComprobante.SelectedValue = "Rem" Then
-                            If UsuarioActual.CveEmpresa.Contiene(81, 109) Then
-                                EnviaPDFRemision(ChkEnviarFactura.Checked)
-                            End If
                         End If
 
                         'ENVIA CORREO CON DETALLE DEL CONTRATO
@@ -16310,13 +16306,7 @@ Partial Class Ventas
     ''' <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,
+    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)
-                                 Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing)
-
-        If EsHilo Then
-            HttpContext.Current = Contexto
-            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
-        End If
 
         'GUARDA PDF
         Dim LocalSerieFolio As String = String.Empty
@@ -16368,7 +16358,7 @@ Partial Class Ventas
             End If
 
             If ErrorCorreo Then
-                Dim ObjVentas As New ClsVentas
+                Dim ObjVentas As New ClsVentas(UsuarioActual:=UsuarioActual)
                 If EnviaCorreo Then
                     ObjVentas.UpdateVentaMail(3, CveVenta)
                 Else
@@ -16428,8 +16418,7 @@ Partial Class Ventas
             Try
                 ' BytesPdfCotizacion(CveVenta)
                 Dim capturedContext = HttpContext.Current
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM,
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM))
-                                                                         EsHilo:=True, Contexto:=capturedContext))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -16444,55 +16433,6 @@ Partial Class Ventas
         End If
 
     End Sub
-    Private Sub EnviaPDFRemision(EnviaCorreo As Boolean)
-        'MANDA CORREO
-        If EnviaCorreo Then
-
-            'GUARDA PDF
-            Dim pdf As Byte() = Nothing
-            Dim LocalSerieFolio As String = String.Empty
-            Dim LocalTipoDocto As String = String.Empty
-
-            'TIMBRADO NUEVO
-            Try
-                pdf = PdfFactura(ObjFactura, AplicaPagare:="1")
-            Catch ex As Exception
-                Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
-            End Try
-
-            If CveVenta > 0 Then
-                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
-            End If
-
-            LocalSerieFolio = ObjFactura.SerieFolio
-            LocalTipoDocto = ObjFactura.TipoDocto
-            Dim ArchivoAdjunto As String = ""
-
-            Dim ArchivoXML As String = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio)
-            Dim ArchivoPDF As String = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, LocalTipoDocto, LocalSerieFolio)
-            If Adjunto <> "" Then
-                ArchivoAdjunto = String.Format("{0}Ventas\{1}", UsuarioActual.Empresa.Ruta, Adjunto)
-            End If
-
-            Try
-                ' BytesPdfCotizacion(CveVenta)
-                Dim capturedContext = HttpContext.Current
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto,
-                                                                         EsHilo:=True, Contexto:=capturedContext))
-                Hilo.Start()
-            Catch ex As Exception
-                OnError("Ocurrió error al mandar Mail", ex)
-                Dim ObjVentas As New ClsVentas
-                If ChkEnviarFactura.Checked Then
-                    ObjVentas.UpdateVentaMail(3, CveVenta)
-                Else
-                    ObjVentas.UpdateVentaMail(0, CveVenta)
-                End If
-                ObjVentas.Dispose()
-            End Try
-        End If
-    End Sub
-
 #End Region
 
 #Region "  ANTICIPOS  "
@@ -17118,7 +17058,7 @@ Partial Class Ventas
 
                     For Each gvr As GridViewRow In GVAnticipos.Rows
                         If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 66, 277) Then
-                            Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
+                            Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal
                         End If
                     Next
 
@@ -17313,7 +17253,7 @@ Partial Class Ventas
                         Dim capturedContext = HttpContext.Current
                         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, EsHilo:=True, Contexto:=capturedContext))
+                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, UsarDescargaDesdePopUpVerFactura:=True))
                         Hilo.Start()
                     Catch ex As Exception
                         OnError("Ocurrió un error al enviar el PDF", ex)
@@ -21927,13 +21867,7 @@ Partial Class Ventas
 #End Region
 
 #Region "  MANDA CORREO  "
-    Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "",
+    Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "")
-                            Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing)
-
-        If EsHilo Then
-            HttpContext.Current = Contexto
-            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
-        End If
 
         Dim ObjMail As New ClsSisMail()
         Dim ResultadoMail As Integer = 0
@@ -22066,7 +22000,7 @@ Partial Class Ventas
             OnError("Ocurrió error al mandar el Mail", ex)
             ResultadoMail = 3
         Finally
-            Dim ObjVentas As New ClsVentas
+            Dim ObjVentas As New ClsVentas(UsuarioActual:=UsuarioActual)
             ObjVentas.UpdateVentaMail(ResultadoMail, CveVenta)
             ObjVentas.Dispose()
         End Try