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-07-18 08:02:13 -07:00
parent 8e44778950
commit b0d8f81b7d
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/PopUpVerFactura.aspx.vb
View File

@@ -349,7 +349,7 @@ Partial Class PopUpVerFactura
Dim totalPallets As String = "" Dim totalPallets As String = ""
Dim totalBachas As String = "" Dim totalBachas As String = ""
Dim dfec As DateTime = fecha.ToDateTime() Dim dfec As DateTime = fecha.ToDateTime()
Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} DE {0:MMMM} DEL {0:yyyy}", dfec) Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper()
Dim totalcajas As String = "" Dim totalcajas As String = ""
Dim TotalBins As String = "" Dim TotalBins As String = ""
@@ -386,11 +386,8 @@ 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
ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline")
Else
Dim para As String = "caudillo.90d@gmail.com" Dim para As String = "caudillo.90d@gmail.com"
Dim dtCorreos As DataTable = New DataTable() Dim dtCorreos As DataTable = New DataTable()
Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
Using objnom As New ClsCGame Using objnom As New ClsCGame
If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then
@@ -398,10 +395,10 @@ Partial Class PopUpVerFactura
End If End If
End Using End Using
For Each row As DataRow In dtCorreos.Rows For Each row As DataRow In dtCorreos.Rows
para = String.Format("{0},", para, row("Correo")) para = String.Format("{0},{1}", para, row("Correo"))
Next Next
Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)}) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
@@ -409,6 +406,8 @@ Partial Class PopUpVerFactura
Dim Mail As New ClsSisMail() Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, String.Format("Reporte de Inventario del {0}", fechas), "", "", Archivos:=LSRutasMail) Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, String.Format("Reporte de Inventario del {0}", fechas), "", "", Archivos:=LSRutasMail)
Else
ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline")
End If End If
End Sub End Sub