From a167bd800c7714f515839d37f33acbd408a7e41b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 8 Nov 2019 13:03:53 -0700
Subject: [PATCH] =?UTF-8?q?en=20CVeOS,=20que=20tome=20el=20pu,=20del=20PA?=
 =?UTF-8?q?=20que=20se=20est=C3=A9=20mandando?=
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 a6ba4ad0a..7d9dddae7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3344,7 +3344,7 @@ Partial Class Ventas
                 Dim Cons As Integer = 1
                 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
 
-                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, 0, 0, -1, "",
+                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU"), 0, -1, "",
                                                 dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString)
                     'Dim drt As DataRow = TmpDT.NewRow