diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx
index 80d0624c6..9b31ac375 100644
--- a/Bancos/PopIECompras.aspx
+++ b/Bancos/PopIECompras.aspx
@@ -524,7 +524,7 @@
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index cdda5974c..43e4d2d87 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -861,6 +861,9 @@ Partial Class Bancos_PopIECompras
CargaCuentas()
CargaCuentasDepositos()
+
+ ValidaFechaDocumentoDiasPosteriores()
+
UpDatos.Update()
End Sub
@@ -1718,4 +1721,21 @@ Partial Class Bancos_PopIECompras
End Sub
+
+ Private Sub ValidaFechaDocumentoDiasPosteriores()
+
+
+ RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+ Calendario.EndDate = NowADS().AddDays(2)
+
+ If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then
+ RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString
+ Calendario.EndDate = NowADS().AddDays(30)
+ End If
+
+ UpDatos.Update()
+ UpGuardar.Update()
+
+ End Sub
+
End Class
\ No newline at end of file
diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index fe63b8585..cdadcb7d9 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -99,14 +99,15 @@
-
+
-
+
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 562c77be4..8e8952fee 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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 = "ERROR:
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 = "ERROR:
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)