diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0900f4597..c07c65184 100644
--- 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