From 7fb90f5619f8f63200ab993b439f3c07eb6c66e3 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 12 Dec 2019 16:06:15 -0700 Subject: [PATCH] cambio no funcional en el dropdown del precio de lista --- Ventas/ActualizarPrecios.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 44eda61c6..005ba0817 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -75,11 +75,13 @@ Partial Class Ventas_ActualizarPrecios Public Sub CargaPreciosLista() - DdlPrecioLista.ITEMS.CLEAR + DdlPrecioLista.ITEMS.Clear Dim ObjVta As New ClsVentas + Dim primerItem As String = "" If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy() DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy() + primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista") End If ObjVta.Dispose() @@ -87,6 +89,10 @@ Partial Class Ventas_ActualizarPrecios DdlPrecioLista.DataBind() DdlPrecioListaCarga.DataBind() + If (DdlPrecioLista.Items.Count = 1) Then + DdlPrecioLista.Items.FindByValue(primerItem).Selected = True + End If + DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1")) If UsuarioActual.CveEmpresa.Contiene(1, 140) Then DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))