diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4d99c642e..bd9d482df 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1649,7 +1649,7 @@ Partial Class Compras_Compras
     Private Function CargaFactura(CveFactura As Integer) As String
         Dim ObjeFacturas As New ClsCompras
         Dim RFC As String = ""
-        If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-3), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
+        If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
             Dim XMLDoc As New XmlDocument