Pagos a proveedor

2024-04-08 15:25:08 -07:00
parent fee964cf44
commit 60cba3a55a
4 changed files with 49 additions and 3 deletions
--- 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