From b5849aa87e388fcb30ed0ebe636da41243de26fd Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 20:20:47 -0700 Subject: [PATCH] --nombre de promocion en tag de promocion --- Ventas/Ventas.aspx.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 48af166ee..51889df06 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9020,6 +9020,14 @@ Partial Class Ventas If e.Row.DBCampo("TipoDocto").Contiene("Cot", "Rem") AndAlso (CveVenta > 0 AndAlso Not EsCreaApartirDe) Then e.Row.FCLinkButton("imgClone").Visible = False End If + + If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then + If DtPromociones IsNot Nothing Then + Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}") + e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo) + End If + End If + End If If CveVenta <= 0 Then @@ -18570,6 +18578,12 @@ Partial Class Ventas If ObjDescuentoGral.CvePromocionDetalle > 0 Then TagPromocion.Visible = True + If UsuarioActual.CveEmpresa = 189 Then + If DtPromociones IsNot Nothing Then + Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={ObjDescuentoGral.CvePromocionDetalle}") + TagPromocion.Attributes.Add("title", NombrePromo) + End If + End If End If If Me.ObjDescuentoGral.EsPUModificado Then