diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index ceb88aa8a..822217cdb 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -203,7 +203,7 @@ Partial Class Inicio
 
     Private Sub MuestraVentasPUE()
         Dim objVentas As New ClsVentas
-        If objVentas.GetPUESinPago(Now.addyears(-2), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objVentas.DtResultados.Rows.Count > 0 Then
                 GvVtaPUE.DataSource = objVentas.DtResultados
 
@@ -217,7 +217,7 @@ Partial Class Inicio
 
     Private Sub MuestraComprasPUE()
         Dim objCompras As New ClsCompras
-        If objCompras.GetPUESinPago(Now.addyears(-2), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objCompras.DtResultados.Rows.Count > 0 Then
                 GvCompPUE.DataSource = objCompras.DtResultados