From eeebc772bf28e7c69c8eac9d4568df7075c49c1f Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 19 Dec 2022 13:16:36 -0700 Subject: [PATCH] Cambios CRM --- App_Code/ClsPaginas.vb | 2 +- Inicio.aspx.vb | 2 ++ Ventas/Ventas.aspx.vb | 77 +++++++++++++++++++++++++++++++----------- 3 files changed, 60 insertions(+), 21 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7f8ceb36f..391ce3878 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7696,7 +7696,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("Entrega", Vta.Entrega)) params.Add(New ReportParameter("Vigencia", Vta.Vigencia.ToString("dd/MMMM/yyyy"))) params.Add(New ReportParameter("Sucursal", Vta.SubProyecto.SubProyecto)) - params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal.ToString Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) + params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) params.Add(New ReportParameter("CveMoneda", Vta.CveMoneda.ToString)) params.Add(New ReportParameter("FormaEntrega", Vta.CondicionEntrega)) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index e4156cc17..d9299387d 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -76,6 +76,8 @@ Partial Class Inicio Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + + If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then Usuario.CerrarSession() Exit Sub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 083615860..7cd657bf5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10139,11 +10139,22 @@ Partial Class Ventas If ChkEnviarFacturaCRM.Checked AndAlso CorreoContactoCRM.Trim.Length > 0 Then Try - 'MANDA CORREO - Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False) - Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(True, Factura, UsuarioActual, strURLHOST, CorreoCRM:=CorreoContactoCRM)) - Hilo.Start() + + Dim pdfCRM As Byte() = Nothing + 'If CveVenta > 0 Then + ' ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + 'End If + pdfCRM = PdfFactura(ObjFactura) + + If pdfCRM IsNot Nothing Then + Dim SerieFolioCRM As String = ObjFactura.SerieFolio + Dim TipoDoctoCRM As String = ObjFactura.TipoDocto + Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFCotizacion(True, CorreoContactoCRM:=CorreoContactoCRM, pdfCRM:=pdfCRM, SerieFolioCRM:=SerieFolioCRM, TipoDoctoCRM:=TipoDoctoCRM)) + Hilo.Start() + + End If + + Catch ex As Exception OnError("Ocurrió un error al enviar el PDF", ex) End Try @@ -15840,39 +15851,56 @@ Partial Class Ventas End If End Sub - Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean) - Dim pdf As Byte() = Nothing + 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 - Try - If CveVenta > 0 Then - ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) - End If - pdf = PdfFactura(ObjFactura) - Catch ex As Exception - OnError("Ocurrió un error al generar el PDF", ex) - End Try + 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) + End If + + pdf = PdfFactura(ObjFactura) + + LocalSerieFolio = ObjFactura.SerieFolio + LocalTipoDocto = ObjFactura.TipoDocto + + Catch ex As Exception + OnError("Ocurrió un error al generar el PDF", ex) + End Try + End If + + + + - LocalSerieFolio = ObjFactura.SerieFolio - LocalTipoDocto = ObjFactura.TipoDocto 'MANDA CORREO If EnviaCorreo Then Dim ArchivoAdjunto As String = "" Dim ArchivoXML = "" Dim ArchivoPDF = 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 Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto)) + 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) @@ -21010,12 +21038,21 @@ 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 CorreoCRM 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 = "") Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0 - Dim CorreoDestino As String = If(CorreoCRM.Trim.Length > 0, CorreoCRM, Mail) + + + Dim CorreoDestino As String = "" + + If CorreoContactoCRM.Trim.Length > 0 Then + CorreoDestino = CorreoContactoCRM + ViewState("MailCC") = "" + End If + + Try