-

2023-12-18 08:00:30 -07:00
parent 76021801ff
commit 50b9efa874
4 changed files with 11 additions and 5 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3447,12 +3447,13 @@ Partial Class Ventas

        Using ObjVta As New ClsVentas
            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
-                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioLista.DataSource = ObjVta.DtResultados
+                DdlPrecioLista.SelectedValue = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'")
            End If
        End Using

        DdlPrecioLista.DataBind()
-        DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))

        UpPS.Update()
    End Sub