diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 04f2469e1..28b262930 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2868,6 +2868,7 @@ Partial Class Ventas
                         TmpDT.Columns("Costo").DefaultValue = 0D
                         TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
                         TmpDT.Columns("UltimoCosto").DefaultValue = 0D
+                        If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String))
 
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
@@ -9172,7 +9173,7 @@ Partial Class Ventas
 
                     If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then
                         If CveVenta > 0 Then
-                            Dim NombrePromo As String = e.Row.DBCampo("Promocion") ' DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}")
+                            Dim NombrePromo As String = If(TmpDT.Columns.Contains("Promocion"), e.Row.DBCampo("Promocion"), "")
                             e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
                         Else
                             If DtPromociones IsNot Nothing Then