From 580bf9e8635b02d1511eb1d4608b80c76afb7e28 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 May 2024 12:06:18 -0700
Subject: [PATCH] - No cancelar documentos de fecha anteriores.

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

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e6dae90ad..d7c129b73 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5063,6 +5063,10 @@ Partial Class Ventas
                                     '        End If
                                     '    End If
                                     'End If
+                                    'si utiliza cortes, y cajas, no permitir cancelar de días anteriores
+                                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
+                                        LbCancelarDocumento.Visible = False
+                                    End If
                                 End If
 
                             End If