diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index edfe9bbf0..29492ddf0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -399,7 +399,7 @@ Partial Class PopUpVerFactura
 
             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)})
+            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
 
 
             Dim Mail As New ClsSisMail()