Exemplo do Ponto de Entrada AFTERLOGIN.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  AfterLogin                                                                                    |
 | Desc:  Função chamada após o login do usuário e no MDI a cada nova aba                               |
 | Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6815186                                  |
 *------------------------------------------------------------------------------------------------------*/

User Function AfterLogin()
	Local cUser := RetCodUsr()

	//Filtra somente os pedidos que o usuário fez
	If nModulo == 5
		DbSelectArea('SC5')
		If cUser != '000000'
			SC5->(DbSetFilter({|| C5_X_USR == cUser }, "C5_X_USR == '"+cUser+"'"))
		EndIf
	EndIf
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

– Pesquisa no TDN