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)