diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 8cdfd3dcb..d2f2a0233 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6676,5 +6676,6 @@ Partial Class Bancos_IE
     End Sub
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
     End Sub
 End Class
\ No newline at end of file
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 06c24cb3b..925566892 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -3647,6 +3647,8 @@ Partial Class Bancos_PopIECompras
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
     End Sub
 
 
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 178c34ab4..9b6ae3795 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -3665,6 +3665,8 @@ Partial Class Bancos_PopIEVentas
 #End Region
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
     End Sub
 
 
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 8997a0693..6f9274c1e 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -3390,6 +3390,8 @@ Partial Class Bancos_ProveedoresAbonar
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
     End Sub
 
 
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 9c1333df2..61583d719 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -2064,5 +2064,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
     End Sub
 End Class
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 359ed6e11..084de59b0 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -3179,5 +3179,7 @@ Partial Class Ventas_ClientesAbonar
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
     End Sub
 End Class