--mejoras de interfaz en actualizarprecios.aspx

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