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