SMS - 2024.04.16

Ventas/ActualizarPrecios.aspx.vb

@@ -85,6 +85,18 @@ Partial Class Ventas_ActualizarPrecios
         Set(value As String)
             ViewState("PS") = value
         End Set
+    End Property
+
+    Private Property PermisoEdicionLista As Boolean
+        Get
+            If ViewState("BloquearEdicionListas") Is Nothing Then
+                ViewState("BloquearEdicionListas") = True
+            End If
+            Return Boolean.Parse(ViewState("BloquearEdicionListas").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("BloquearEdicionListas") = value
+        End Set
     End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -916,6 +928,8 @@ Partial Class Ventas_ActualizarPrecios
 
                 Dim indiceColumna As Integer = (colIndex)
                 Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
+
+
                 Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex)
                 If Dr IsNot Nothing Then
 
@@ -924,6 +938,7 @@ Partial Class Ventas_ActualizarPrecios
                         Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal()
 
                         e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2)
+                        e.Row.FCTextBox(TxtId).Enabled = PermisoEdicionLista
                     End If
 
                 End If
@@ -1131,4 +1146,15 @@ Partial Class Ventas_ActualizarPrecios
 
     End Function
 
+
+    Protected Sub GVPrecios_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            e.Row.FCTextBox("TxtPrecio").Enabled = PermisoEdicionLista
+            e.Row.FCTextBox("TxtPrecioMinimo").Enabled = PermisoEdicionLista
+
+        End If
+
+    End Sub
 End Class