Perguntas Validar usuário para edição de Campo

Boa tarde,

Temos uma validação aqui na empresa para validar o usuário, se pode ou não editar o campo de desconto.
Porém não está funcionando, estou chamando a validação, no modo de edição, nos campos C6_DESCONT/C6_VALDESC
A funcionalidade seria para verificar qual grupo pertence o usuário, se tiver dentro do grupo desejado, vai poder editar, no caso coloquei o grupo adm para testes.
O fonte está assim:

User Function UsrGrpPed()


Local _aGrupos := UsrRetGrp(RetCodUsr())
Local _lRet := .F.

For _n:=1 to Len(_aGrupos)
If _aGrupos[_n] == "000000"
_lRet := .T.
Else
MsgAlert("Usuário não pode fazer edição neste campo")
Endif
Next

Return

Atenciosamente,

Muito obrigado pela ajuda, Luiz.

Deu certo.

Abraço