From 85270d511735fd31cb801d0f790d747b2e982e1c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 26 Apr 2022 11:31:55 -0700
Subject: [PATCH] =?UTF-8?q?E140.=20Correci=C3=B3n=20al=20aplicar=20devoluc?=
 =?UTF-8?q?i=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5248de51a..2187ff233 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12170,7 +12170,7 @@ Partial Class Ventas
                                     For Each RowIng As DataRow In Me.ObjFacturaNC.DtDetalle.Rows
                                         If RowIng("Cantidad").ToString().ToDecimal() = Row("Cantidad").ToString().ToDecimal() AndAlso RowIng("CvePS").ToString().ToEntero() = Row("CvePS").ToString().ToEntero() Then
                                             CveVentaDetalleUsado = RowIng("CveVentaDetalle").ToString().ToEntero()
-                                            Exit Sub
+                                            Exit For
                                         End If
                                     Next
                                     If CveVentaDetalleUsado > 0 Then