Ponto de entrada que Valida que apenas o administrador (ou qualquer outro usuario) edite o campo
User Function VALIDPRCVEN()
Local lRet := .T.
If cUserName != "Administrador" .and. cUserName != "Rafael"
MsgAlert("Alteração não Permitida !")
lRet := .F.
Endif
Return lRet
Att Rafael Lopes