From e1bf890d4f963df266c1df1022d5ce4c215302ff Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Jun 2021 13:33:53 -0700 Subject: [PATCH] =?UTF-8?q?-=20se=20corrigi=C3=B3=20la=20validaci=C3=B3n?= =?UTF-8?q?=20de=20un=20proceso,=20de=20131=20a=20203?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 1b576ca12..e6384aa58 100644 --- a/OC/OC.aspx.vb +++ b/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