diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index 4a470b8f7..f1c53bda8 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -261,7 +261,7 @@ Partial Class Ventas_ActualizarPrecios
             dvMultiple.Visible = True
             DivActualizarPrecio.Visible = False
 
-            For colIndex = 2 To GvMultiple.Columns.Count - 1
+            For colIndex As Integer = 2 To GvMultiple.Columns.Count - 1
                 If colIndex <= DtPreciosMultiple.Columns.Count - 1 Then
                     GvMultiple.Columns(colIndex).Visible = True
                 Else
@@ -851,19 +851,19 @@ Partial Class Ventas_ActualizarPrecios
     End Sub
     Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.Header Then
-            For colIndex = 2 To e.Row.Cells.Count - 1
+            For colIndex As Integer = 2 To e.Row.Cells.Count - 1
 
                 Dim indiceColumna As Integer = (colIndex)
-                Dim LtlId = "LtlLista_" + (colIndex - 1).ToString()
+                Dim LtlId As String = "LtlLista_" + (colIndex - 1).ToString()
 
                 If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then
 
-                    Dim text = DtPreciosMultiple.Columns(indiceColumna).ColumnName
-                    Dim splitValues = text.Split("|"c)
+                    Dim text As String = DtPreciosMultiple.Columns(indiceColumna).ColumnName
+                    Dim splitValues As String() = text.Split("|"c)
 
                     If splitValues.Length > 1 Then
-                        Dim CvePrecioLista = splitValues(0)
-                        Dim PrecioLista = splitValues(1)
+                        Dim CvePrecioLista As String = splitValues(0)
+                        Dim PrecioLista As String = splitValues(1)
                         e.Row.FCLabel(LtlId).Text = PrecioLista
                         e.Row.FCLabel(LtlId).Attributes.Add("cvepreciolista", CvePrecioLista)
                     End If
@@ -874,16 +874,16 @@ Partial Class Ventas_ActualizarPrecios
         End If
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-            For colIndex = 2 To e.Row.Cells.Count - 1
+            For colIndex As Integer = 2 To e.Row.Cells.Count - 1
 
                 Dim indiceColumna As Integer = (colIndex)
-                Dim TxtId = "TxtPrecio_" + (colIndex - 1).ToString()
-                Dim Dr = DtPreciosMultiple.Rows(e.Row.RowIndex)
+                Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
+                Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex)
                 If Dr IsNot Nothing Then
 
                     'VERIFICA QUE EL INDICE DE LA COLUMNA DEL DT NO SEA MAYOR A LA DEL GRIDVIEW
                     If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then
-                        Dim Valor = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal()
+                        Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal()
 
                         e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2)
                     End If
@@ -901,19 +901,19 @@ Partial Class Ventas_ActualizarPrecios
             For Each GvRow As GridViewRow In GvMultiple.Rows
 
                 If GvRow.FCCheckBox("chkPS").Checked Then
-                    For colIndex = 2 To GvRow.Cells.Count - 1
+                    For colIndex As Integer = 2 To GvRow.Cells.Count - 1
 
                         Dim indiceColumna As Integer = (colIndex)
 
-                        Dim LtlId = "LtlLista_" + (colIndex - 1).ToString()
-                        Dim TxtId = "TxtPrecio_" + (colIndex - 1).ToString()
+                        Dim LtlId As String = "LtlLista_" + (colIndex - 1).ToString()
+                        Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
 
                         If indiceColumna <= DtPreciosMultiple.Columns.Count - 1 Then
 
                             Dim CvePrecioLista As Integer = GvMultiple.HeaderRow.FCLabel(LtlId).Attributes().Item("cvepreciolista").ToEntero()
-                            Dim CvePS = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero()
+                            Dim CvePS As Integer = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero()
 
-                            Dim Precio = GvRow.FCTextBox(TxtId).Text.ToDecimal()
+                            Dim Precio As Decimal = GvRow.FCTextBox(TxtId).Text.ToDecimal()
 
                             TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)