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