diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index fc0fc1674..49e53d037 100644
--- a/App_Code/ClsVentas.vb
+++ b/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
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8edc71bf2..94c375811 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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
'''
'''
'''
- 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
+ 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
@@ -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,
- EsHilo:=True, Contexto:=capturedContext))
+ Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM))
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 = "",
- Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing)
-
- If EsHilo Then
- HttpContext.Current = Contexto
- HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
- End If
+ 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 = "")
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