From a514d625a7bc92c6a0e48cfbb8ed89ae4d5c3d8c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Dec 2024 15:58:38 -0700 Subject: [PATCH] =?UTF-8?q?--actualizaci=C3=B3n=20masiva?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ActualizarPrecios.aspx.vb | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index ec5373adf..a09d59cb4 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -990,20 +990,17 @@ Partial Class Ventas_ActualizarPrecios For Each GvRow As GridViewRow In GvMultiple.Rows If GvRow.FCCheckBox("chkPS").Checked Then - For colIndex As Integer = 2 To GvRow.Cells.Count - 1 + For colIndex As Integer = 2 To GvRow.Cells.Count - 3 Dim indiceColumna As Integer = (colIndex) - + Dim CvePS As Integer = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero() 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 As Integer = DtPreciosMultiple.Rows(GvRow.RowIndex)("CvePS").ToString().ToEntero() - Dim Precio As Decimal = GvRow.FCTextBox(TxtId).Text.ToDecimal() - TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True) If Not TieneError Then