- se corrigió la validación de un proceso, de 131 a 203

OC/OC.aspx.vb

@@ -834,8 +834,8 @@ Partial Class OC
             Ddlcliente.ddlWS.Attributes.Add("data-coltexto", "N")
 
             'Nuevo Proceso que permite modificar detalles
-            If Not UsuarioActual.TienePermisoProceso(131) Then
-                If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then
+            'If Not UsuarioActual.TienePermisoProceso(131) Then
+            If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then
                     Dim Dr As DataRow
                     Dr = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))(0)
                     If UsuarioActual.TienePermisoProceso(203) And Dr("TipoTermino").ToString.ToEntero = 3 And Dr("Tipo").ToString = "OC" Then
@@ -857,7 +857,7 @@ Partial Class OC
                         DesHabilitar()
                     End If
                 End If
-            End If
+            'End If
 
             'NO PERMITE REGISTRAR PS
             If UsuarioActual.TienePermisoProceso(249) Then
@@ -3816,7 +3816,7 @@ Partial Class OC
         GvD.EditIndex = e.NewEditIndex
         CargaDatosDetalles()
         Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex)
-        If Not EsCreaApartirDe AndAlso Not UsuarioActual.TienePermisoProceso(131) Then 'si tiene el proce 131, e va a permitir, sino que lo bloquee
+        If Not EsCreaApartirDe AndAlso Not UsuarioActual.TienePermisoProceso(203) 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