diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index 823a9519d..8f07e50cd 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -955,19 +955,12 @@ Partial Class Ventas_ActualizarPrecios
DivPrecioLista.Visible = DdlModalidad.SelectedValue = "1"
DivMultiplePrecioLista.Visible = DdlModalidad.SelectedValue = "2"
+ dvDatos.Visible = DdlModalidad.SelectedValue = "1"
+ DivActualizarPrecio.Visible = DdlModalidad.SelectedValue = "1"
+ dvMultiple.Visible = DdlModalidad.SelectedValue = "2"
- Dim SeleccionMaxima As Integer = 14
- If (DtListasPrecios.Rows.Count - 1) < 14 Then
- SeleccionMaxima = DtListasPrecios.Rows.Count - 1
- End If
-
- Dim sbMultiple As New StringBuilder
- For Each Row As DataRow In DtListasPrecios.FiltraPorIndices(0, SeleccionMaxima).Rows
- sbMultiple.AppendFormat("{0},", Row("CvePrecioLista"))
- Next
-
- DdlMultiplePrecioLista.SelectedValuesIfExistM(sbMultiple.ToString(), True)
-
+ UPPrecioLista.Update()
UpEncabezado.Update()
+ UpDatos.Update()
End Sub
End Class
\ No newline at end of file
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index bd0521386..ddc383873 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -10288,6 +10288,8 @@ Partial Class Clientes
GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
CargaPrecioLista()
+
+ DdlPrecioLista.SelectedValueExist(CvePrecioListaNuevo)
End If
UpDatos.Update()