From 16c960d83f4f5d7146dd560a67ed92296d94136f Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Sat, 21 Jun 2025 11:37:03 -0700
Subject: [PATCH] --Aumentar fecha de pago 2 dias

---
 Ventas/ClientesAbonar.aspx.vb | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 9fea22034..0d45e4dd2 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -241,7 +241,12 @@ Partial Class Ventas_ClientesAbonar
                 Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
             End If
 
-            RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToString("dd/MM/yyyy")
+            Else
+                RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
+            End If
+
             If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
                 LnkAccionesModalSeleccionLayout.Visible = True
             End If
@@ -2893,9 +2898,13 @@ Partial Class Ventas_ClientesAbonar
     End Sub
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
-        Calendario.EndDate = NowADS()
-
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+            Calendario.EndDate = NowADS().AddDays(2)
+        Else
+            RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+            Calendario.EndDate = NowADS()
+        End If
     End Sub