AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2021-06-17 13:33:53 -07:00
parent 8b9cf6bde8
commit e1bf890d4f
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
OC/OC.aspx.vb
View File

@@ -834,8 +834,8 @@ Partial Class OC
Ddlcliente.ddlWS.Attributes.Add("data-coltexto", "N") Ddlcliente.ddlWS.Attributes.Add("data-coltexto", "N")
'Nuevo Proceso que permite modificar detalles 'Nuevo Proceso que permite modificar detalles
If Not UsuarioActual.TienePermisoProceso(131) Then 'If Not UsuarioActual.TienePermisoProceso(131) Then
If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then
Dim Dr As DataRow Dim Dr As DataRow
Dr = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))(0) 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 If UsuarioActual.TienePermisoProceso(203) And Dr("TipoTermino").ToString.ToEntero = 3 And Dr("Tipo").ToString = "OC" Then
@@ -857,7 +857,7 @@ Partial Class OC
DesHabilitar() DesHabilitar()
End If End If
End If End If
End If 'End If
'NO PERMITE REGISTRAR PS 'NO PERMITE REGISTRAR PS
If UsuarioActual.TienePermisoProceso(249) Then If UsuarioActual.TienePermisoProceso(249) Then
@@ -3816,7 +3816,7 @@ Partial Class OC
GvD.EditIndex = e.NewEditIndex GvD.EditIndex = e.NewEditIndex
CargaDatosDetalles() CargaDatosDetalles()
Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex) 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 If EditingRow.DataKey("TipoDato").ToEntero = 2 Or EditingRow.DataKey("CantidadNoEditable").ToDecimal > 0 Then
EditingRow.FCDropDownList("DdlClasificacion").Enabled = False EditingRow.FCDropDownList("DdlClasificacion").Enabled = False
EditingRow.FCDropDownList("DdlPS").Enabled = False EditingRow.FCDropDownList("DdlPS").Enabled = False