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

--Nombre promo en ventas existentes

Browse Source
This commit is contained in:
JPerez
2025-06-12 15:27:54 -07:00
parent 6cb6ac13e9
commit a522e00907
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx.vb
View File

@@ -9171,12 +9171,18 @@ Partial Class Ventas
End If End If
If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then
If CveVenta > 0 Then
Dim NombrePromo As String = e.Row.DBCampo("Promocion") ' DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}")
e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
Else
If DtPromociones IsNot Nothing Then If DtPromociones IsNot Nothing Then
Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}") Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}")
e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo) e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
End If End If
End If End If
End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
e.Row.FCHyperLink("HLPS").Visible = True e.Row.FCHyperLink("HLPS").Visible = True
e.Row.FCLabel("LblPS").Visible = False e.Row.FCLabel("LblPS").Visible = False
@@ -41478,6 +41484,10 @@ Partial Class Ventas
Protected Sub DdlVendedor_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlVendedor_SelectedIndexChanged(sender As Object, e As EventArgs)
'RECARGAR PROMOCIONES 'RECARGAR PROMOCIONES
CargarDTPromociones()
End Sub
Private Sub CargarDTPromociones()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
DtPromociones = ObjVentas.DtResultados.Copy() DtPromociones = ObjVentas.DtResultados.Copy()