Cambios CRM

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))
 

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

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 pdfCRM As Byte() = Nothing
-                                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
+                                        'If CveVenta > 0 Then
-                                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(True, Factura, UsuarioActual, strURLHOST, CorreoCRM:=CorreoContactoCRM))
+                                        '    ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
-                                        Hilo.Start()
+                                        '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)
+    Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean, Optional CorreoContactoCRM As String = "", Optional pdfCRM As Byte() = Nothing,
-        Dim pdf 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)
+        If CorreoContactoCRM.Trim.Length > 0 Then
-        Catch ex As Exception
+            pdf = pdfCRM
-            OnError("Ocurrió un error al generar el PDF", ex)
+            LocalSerieFolio = SerieFolioCRM
-        End Try
+            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