From 531b270a003e3c242eaa134ec6b2113677e1eb79 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 16 Sep 2023 10:55:41 -0700 Subject: [PATCH] --- Compras/PopUpVerFactura.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0ec2f8250..d1a70d945 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -386,7 +386,7 @@ Partial Class PopUpVerFactura '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" If EnviarCorrreo Then - Dim para As String = "caudillo.90d@gmail.com" + Dim para As String = "" Dim dtCorreos As DataTable = New DataTable() Using objnom As New ClsCGame @@ -394,8 +394,10 @@ Partial Class PopUpVerFactura dtCorreos = objnom.DtResultados End If End Using + Dim coma As String = "" For Each row As DataRow In dtCorreos.Rows - para = String.Format("{0},{1}", para, row("Correo")) + para = String.Format("{0}{2}{1}", para, row("Correo"), coma) + coma = "," Next Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)