diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 1759a7c69..b91ea0f79 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5549,8 +5549,8 @@ Partial Class Bancos_IE
         UpEliminarCotizacion.Update()
     End Sub
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
-        Calendario.EndDate = NowADS()
+        RVTxtFechaDocumento.MaximumValue = NowADS.AddDays(3).ToShortDateString
+        Calendario.EndDate = NowADS.AddDays(3)
     End Sub
 
     Private Sub CargaOCRelacionadas()