AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX nombre promocion

Browse Source
This commit is contained in:
JPerez
2025-06-12 18:50:47 -07:00
parent 14cc5a1399
commit abc2901e8a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Ventas/Ventas.aspx.vb
View File

@@ -2868,6 +2868,7 @@ Partial Class Ventas
TmpDT.Columns("Costo").DefaultValue = 0D TmpDT.Columns("Costo").DefaultValue = 0D
TmpDT.Columns.Add("UltimoCosto", GetType(Decimal)) TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
TmpDT.Columns("UltimoCosto").DefaultValue = 0D TmpDT.Columns("UltimoCosto").DefaultValue = 0D
If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String))
GvPS.DataSource = ObjVentas.DtResultados GvPS.DataSource = ObjVentas.DtResultados
GvPS.DataBind() GvPS.DataBind()
@@ -9172,7 +9173,7 @@ Partial Class Ventas
If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then
If CveVenta > 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) e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
Else Else
If DtPromociones IsNot Nothing Then If DtPromociones IsNot Nothing Then