--Aumentar fecha de pago 2 dias

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