AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-09-16 10:55:41 -07:00
parent 06f62a9750
commit 531b270a00
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -386,7 +386,7 @@ Partial Class PopUpVerFactura
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
If EnviarCorrreo Then If EnviarCorrreo Then
Dim para As String = "caudillo.90d@gmail.com" Dim para As String = ""
Dim dtCorreos As DataTable = New DataTable() Dim dtCorreos As DataTable = New DataTable()
Using objnom As New ClsCGame Using objnom As New ClsCGame
@@ -394,8 +394,10 @@ Partial Class PopUpVerFactura
dtCorreos = objnom.DtResultados dtCorreos = objnom.DtResultados
End If End If
End Using End Using
Dim coma As String = ""
For Each row As DataRow In dtCorreos.Rows 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 Next
Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato) Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)