Ponto de Entrada - Validação efetuada ao clicar no botão "Incluir" do cadastro de clientes, permitindo ou bloqueando a abertura da tela.

*Valida inclusive nos botões de inclusão das consultas padrões de clientes.

Exemplo:

#Include 'Protheus.ch'

User Function MA030VINC()

Local lRet      := .T.
Local cUser   := RetCodUsr()
Local cBlok    := '000000;000001;000002;000003;000004'

If cUser $ ( cBlok )
        Help( "", 1, "Help",, "Usuário sem permissão para incluir clientes. Por favor, contate o administrador do sistema.", 1 )

        lRet := .F.
EndIf

Return( lRet )