AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E140. Correción al aplicar devolución

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-04-26 11:31:55 -07:00
parent 4b42d97c78
commit 85270d5117
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx.vb
View File

@@ -12170,7 +12170,7 @@ Partial Class Ventas
For Each RowIng As DataRow In Me.ObjFacturaNC.DtDetalle.Rows 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 If RowIng("Cantidad").ToString().ToDecimal() = Row("Cantidad").ToString().ToDecimal() AndAlso RowIng("CvePS").ToString().ToEntero() = Row("CvePS").ToString().ToEntero() Then
CveVentaDetalleUsado = RowIng("CveVentaDetalle").ToString().ToEntero() CveVentaDetalleUsado = RowIng("CveVentaDetalle").ToString().ToEntero()
Exit Sub Exit For
End If End If
Next Next
If CveVentaDetalleUsado > 0 Then If CveVentaDetalleUsado > 0 Then