Page tree
Skip to end of metadata
Go to start of metadata

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 )

 

IdiomaPortuguês (Brasil)
VersõesMicrosiga_Protheus 12
Sistemas Operacionais SuportadosTodos
Compatível com as Bases de DadosTodos
ParâmetrosNão possui
Retorno.T. = Abre a tela de inclusão, .F. Não abre a tela de inclusão
Programa/FonteMATN030.PRW



  • No labels