E140. Correción al aplicar devolución

2022-04-26 11:31:55 -07:00
parent 4b42d97c78
commit 85270d5117
1 changed files with 1 additions and 1 deletions
--- 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