- No cancelar documentos de fecha anteriores.

2024-05-07 12:06:18 -07:00
parent 3351f0a9fb
commit 580bf9e863
1 changed files with 4 additions and 0 deletions
--- 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