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)