From cc9cb88c9825f6fdc50c46c04054654f187f7e59 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 14 May 2020 21:26:27 -0700
Subject: [PATCH] -- editar remision

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

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index c010e3d4c..b26ef73a2 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1792,7 +1792,7 @@ Partial Class PV
                 For Each Row As DataRow In TmpDT.Rows
                     Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero()
                     If CveVentaDetalle > 0 Then
-                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
+                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
                             OcurrioError = True
                             Exit For
                         End If