From 4faf9604b34b20be8a19a31a09d3a25858a6dbf9 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 24 Jun 2020 01:50:55 -0700 Subject: [PATCH] - --- General/RepPaqueteriasGuias.aspx.cs | 34 ++++++++++++++++++++++ Inventarios/EntregaAlmacen.aspx.vb | 45 +++++++++++++++++------------ 2 files changed, 61 insertions(+), 18 deletions(-) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 0f86915ad..d49cbca92 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -927,6 +927,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas //Adjunta Archivo al Correo ClsSisMail.ArchivoMail ArchivoAdjunto = new ClsSisMail.ArchivoMail(); + ClsSisMail.ArchivoMail ArchivoAdjunto2 = new ClsSisMail.ArchivoMail(); List ListaAdjuntos = new List(); @@ -935,7 +936,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto); ArchivoAdjunto.Ruta = RutaArchivoAdjunto; ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name; + + ArchivoAdjunto2.ArchivoBinario = DocumentoEntregaInterna(this.CveVenta); + ArchivoAdjunto2.NombreArchivo = "Entrega Realizada"; + ListaAdjuntos.Add(ArchivoAdjunto); + ListaAdjuntos.Add(ArchivoAdjunto2); } if ((ListaAdjuntos.Count > 0)) @@ -1074,4 +1080,32 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3"); } + private byte[] DocumentoEntregaInterna(int CveVenta) + { + ClsVentas ObjVentas = new ClsVentas(); + + if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa)) + { + DataRow row = ObjVentas.DtResultados.Rows[0]; + string ClienteNombre = row["ClienteNombre"].ToString(); + string FolioVenta = row["SerieFolio"].ToString(); + string Pedido = row["PedidoContrato"].ToString(); + string OrdenCompra = row["OrdenCompra"].ToString(); + DataTable DtDetalle = new DataTable(); + if (ObjVentas.GetVentaDetalle(CveVenta)) + { + DtDetalle = ObjVentas.DtResultados; + } + + List RepParams = new List(); + RepParams.Add(new ReportParameter("Cliente", ClienteNombre)); + RepParams.Add(new ReportParameter("FolioVenta", FolioVenta)); + RepParams.Add(new ReportParameter("Pedido", Pedido)); + RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra)); + return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaTerminada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios"); + } + ObjVentas.Dispose(); + return null; + } + } \ No newline at end of file diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 6796ac229..af5563ebc 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2682,7 +2682,9 @@ Partial Class Inventarios_EntregaAlmacen Else Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia) ErrorMovInv = True - End If + End If + ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then + MandaCorreoEntrega(CveVentaSurtir) End If Catch ex As Exception ErrorMovInv = True @@ -3178,8 +3180,7 @@ Partial Class Inventarios_EntregaAlmacen Private Sub MandaCorreoEntrega(tCveVenta As Integer) - Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoEntrega(tCveVenta, UsuarioActual)) - Hilo.Start() + EnviarCorreoEntrega(tCveVenta, UsuarioActual) End Sub Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario) @@ -3190,7 +3191,7 @@ Partial Class Inventarios_EntregaAlmacen Dim Destinatario As String = "" Dim MensajeEnviado = False Dim tCvecliente As Integer - + Dim bytes() As Byte = Nothing Using ObjVentas As New ClsVentas() If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") @@ -3204,25 +3205,33 @@ Partial Class Inventarios_EntregaAlmacen Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("ClienteNombre"), dr("SerieFolio"))) Cuerpo.AppendLine("

Dudas y aclaraciones con su coordinador empresarial.") + Dim ClienteNombre As String = dr("ClienteNombre").ToString() + Dim FolioVenta As String = dr("SerieFolio").ToString() + Dim Pedido As String = dr("PedidoContrato").ToString() + Dim OrdenCompra As String = dr("OrdenCompra").ToString() + Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero() + + Dim dtDetalle As New DataTable + If ObjVentas.GetVentaDetalle(CveVenta) Then + dtDetalle = ObjVentas.DtResultados + End If + + Dim RepParams As New List(Of ReportParameter) + RepParams.Add(New ReportParameter("Cliente", ClienteNombre)) + RepParams.Add(New ReportParameter("FolioVenta", FolioVenta)) + RepParams.Add(New ReportParameter("Pedido", Pedido)) + RepParams.Add(New ReportParameter("OrdenCompra", OrdenCompra)) + bytes = StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaMostrador.rdlc", dtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName:="DsInventarios") End If End Using - ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail() + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) + Dim itemMail As New ClsSisMail.ArchivoMail() + + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"}) - 'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail) - - - 'If (File.Exists(RutaArchivoAdjunto))Then - ' { - ' ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto); - ' ArchivoAdjunto.Ruta = RutaArchivoAdjunto; - ' ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name; - ' ListaAdjuntos.Add(ArchivoAdjunto); - ' } - - - MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) + MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail) End Sub Private Sub Limpia()