diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index ff445bc7e..990c5b017 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -568,7 +568,7 @@ Partial Class Ventas_Promociones
         Dr("PUAnterior") = LbPUActual.Text.ToDecimal
 
         Dr("CveTipoPromocion") = CveTipoPromocion
-        Dr("TipoPromocion") = CveTipoPromocion
+        Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text
         Dr("Promocion") = TxtPromocionConcepto.Text
 
         If CveTipoPromocion.Contiene(1, 3) Then