diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 2cfeb5482..0536165ec 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -349,7 +349,7 @@ Partial Class PopUpVerFactura
         Dim totalPallets As String = ""
         Dim totalBachas As String = ""
         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 TotalBins As String = ""
 
@@ -386,11 +386,8 @@ Partial Class PopUpVerFactura
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
         If EnviarCorrreo Then
-            ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline")
-        Else
             Dim para As String = "caudillo.90d@gmail.com"
             Dim dtCorreos As DataTable = New DataTable()
-            Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
 
             Using objnom As New ClsCGame
                 If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then
@@ -398,10 +395,10 @@ Partial Class PopUpVerFactura
                 End If
             End Using
             For Each row As DataRow In dtCorreos.Rows
-                para = String.Format("{0},", para, row("Correo"))
+                para = String.Format("{0},{1}", para, row("Correo"))
             Next
 
-
+            Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
             Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
             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()
             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 Sub