Pagos a proveedor

Bancos/ProveedoresAbonar.aspx.vb

@@ -1074,6 +1074,8 @@ Partial Class Bancos_ProveedoresAbonar
         CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
         RecargaCuentasDepositos()
 
+        ValidaFechaDocumentoDiasPosteriores()
+
         UpGuardar.Update()
     End Sub
 #End Region
@@ -1612,6 +1614,29 @@ Partial Class Bancos_ProveedoresAbonar
 
     End Sub
 
+    Private Sub ValidaFechaDocumentoDiasPosteriores()
+
+
+        RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+        RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString
+
+        RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior 2 días de la fecha actual"
+
+        Calendario.EndDate = NowADS().AddDays(2)
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
+
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString
+            RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(30).ToShortDateString
+            RVTxtFechaDocumento.ErrorMessage = "<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior 30 días de la fecha actual"
+
+            Calendario.EndDate = NowADS().AddDays(30)
+        End If
+
+        UpDatos.Update()
+        UpGuardar.Update()
+
+    End Sub
 
 
     Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs)