From 7723296e740d53fc358b773c351a0bac47def3da Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 8 Apr 2021 23:24:23 -0700
Subject: [PATCH] Desactivar fechas posteriores a la actual

---
 Bancos/IE.aspx.vb                        | 1 +
 Bancos/PopIECompras.aspx.vb              | 2 ++
 Bancos/PopIEVentas.aspx.vb               | 2 ++
 Bancos/ProveedoresAbonar.aspx.vb         | 2 ++
 Compras/ReembolsosComprobaciones.aspx.vb | 2 ++
 Ventas/ClientesAbonar.aspx.vb            | 2 ++
 6 files changed, 11 insertions(+)

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