se quitó el documento del correo y se agrego un formato en html similar al documento
This commit is contained in:
Antonio Gonzalez
@@ -3184,16 +3184,17 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Sub
|
||||
|
||||
Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
|
||||
Dim Correo As New ClsSisMail
|
||||
Dim SerieFolio As String = ""
|
||||
Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
|
||||
Dim Cuerpo As New StringBuilder()
|
||||
Dim Destinatario As String = ""
|
||||
Dim MensajeEnviado = False
|
||||
Dim tCvecliente As Integer
|
||||
Dim bytes() As Byte = Nothing
|
||||
'Dim Correo As New ClsSisMail
|
||||
Dim SerieFolio As String = ""
|
||||
Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
|
||||
Dim Cuerpo As New StringBuilder()
|
||||
Dim Destinatario As String = ""
|
||||
Dim MensajeEnviado = False
|
||||
Dim tCvecliente As Integer
|
||||
Dim bytes() As Byte = Nothing
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
|
||||
Dim strBody As New StringBuilder
|
||||
If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
|
||||
Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
|
||||
Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
|
||||
@@ -3201,39 +3202,79 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
tCvecliente = dr("CveCliente").ToString.ToEntero
|
||||
|
||||
Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
|
||||
Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
|
||||
|
||||
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.")
|
||||
Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
|
||||
|
||||
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 TipoDocto As String = dr("TipoDocto").ToString()
|
||||
|
||||
Dim dtDetalle As New DataTable
|
||||
If ObjVentas.GetVentaDetalle(CveVenta) Then
|
||||
dtDetalle = ObjVentas.DtResultados
|
||||
End If
|
||||
Dim DetalleTable As String = ""
|
||||
For Each dRow As DataRow In dtDetalle.Rows
|
||||
Dim detalle As String = String.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow("Codigo"), dRow("Cantidad"), dRow("PS"))
|
||||
DetalleTable += detalle
|
||||
Next
|
||||
|
||||
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")
|
||||
strBody.Append("<html>")
|
||||
strBody.Append(" <body>")
|
||||
strBody.Append("<div>")
|
||||
strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
|
||||
strBody.Append("</div>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
|
||||
strBody.Append($" Apreciable {ClienteNombre}, le confirmamos los")
|
||||
strBody.Append(" productos surtidos y entregados en mostrador conforme a la")
|
||||
strBody.Append($" {TipoDocto}:")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append($" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
|
||||
strBody.Append(" <div style='width:100%;text-align:center'>")
|
||||
strBody.Append(" <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
|
||||
strBody.Append(DetalleTable)
|
||||
strBody.Append(" ")
|
||||
strBody.Append(" </table>")
|
||||
strBody.Append(" </div>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
|
||||
strBody.Append(" Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
|
||||
strBody.Append(" • Empaque violado.<br/>")
|
||||
strBody.Append("• Daño físico en la caja.<br/>")
|
||||
strBody.Append("• Producto incompleto o distinto al solicitado.<br/>")
|
||||
strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.<br/>")
|
||||
strBody.Append("")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append(" <br/>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
|
||||
strBody.Append($" Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append(" <br/>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
|
||||
strBody.Append(" Gracias por su compra <br/>")
|
||||
strBody.Append(" Compuproveedores")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append(" <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
|
||||
strBody.Append(" Sigue disfrutando de nuestros productos y servicios<br/>")
|
||||
strBody.Append(" <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
|
||||
strBody.Append("")
|
||||
strBody.Append(" </p>")
|
||||
strBody.Append(" </body>")
|
||||
strBody.Append("</html>")
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
Dim MailCls As New ClsSisMail
|
||||
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
Dim itemMail As New ClsSisMail.ArchivoMail()
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
|
||||
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"})
|
||||
|
||||
Correo.SendMail(EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario)
|
||||
Correo = Nothing
|
||||
MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
|
||||
MailCls = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub Limpia()
|
||||
|
||||
Reference in New Issue
Block a user