--nombre de promocion en tag de promocion

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