quinta-feira, 14 de julho de 2011

Validando Usuario

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