Validar al aplicar devolucion

2020-04-01 19:16:29 -07:00
parent 61f3917737
commit dad9db5293
1 changed files with 7 additions and 1 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22252,7 +22252,13 @@ Partial Class Ventas
            Exit Sub
        End If

-        LBAplicaDevolucion.Visible = True
+
+        If VentaSaldoAlmacen < 0 Then
+            LBAplicaDevolucion.Visible = True
+        ElseIf VentaSaldoAlmacen >= 0 Then
+            LBAplicaDevolucion.Visible = False
+        End If
+
        Dim SeEsconde As Boolean = False

        If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then