- envio de parametro de usuario

This commit is contained in:
rrene
2020-10-08 18:12:07 -07:00
parent cb7455f17a
commit 28b42b681f

View File

@@ -280,7 +280,7 @@ Partial Class OC_CatEstatus
Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior) Then
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
End If