-

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<ClsSisMail.ArchivoMail> ListaAdjuntos = new List<ClsSisMail.ArchivoMail>();
 
@@ -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<ReportParameter> RepParams = new List<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));
+            return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaTerminada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios");
+        }
+        ObjVentas.Dispose();
+        return null;
+    }
+
 }

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))
+        EnviarCorreoEntrega(tCveVenta, UsuarioActual)
-        Hilo.Start()
     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. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
                 Cuerpo.AppendLine("<br><br>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)
+        MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail)
-
-
-        '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())
     End Sub
 
     Private Sub Limpia()