-- permiso 131, que aplique al editar una OC ya autorizada

OC/OC.aspx.vb

@@ -3740,7 +3740,7 @@ Partial Class OC
         GvD.EditIndex = e.NewEditIndex
         CargaDatosDetalles()
         Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex)
-        If Not EsCreaApartirDe Then
+        If Not EsCreaApartirDe AndAlso Not UsuarioActual.TienePermisoProceso(131) Then 'si tiene el proce 131, e va a permitir, sino que lo bloquee
             If EditingRow.DataKey("TipoDato").ToEntero = 2 Or EditingRow.DataKey("CantidadNoEditable").ToDecimal > 0 Then
                 EditingRow.FCDropDownList("DdlClasificacion").Enabled = False
                 EditingRow.FCDropDownList("DdlPS").Enabled = False

vwd.webinfo

@@ -130,6 +130,10 @@
     
   
     
+  
+    
+  
+