From 701a2173a21eaf6929aba7dadd2a642ada6d1d9d Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 17 Sep 2024 09:37:38 -0700
Subject: [PATCH] Promosion correcion  label

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

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