Como executar rotinas após o login do usuário?

DVPL//+-----------------------------------------------------------------------------+
//| PROGRAMA  | AFTERLOGIN| By LB&B Consultores Associados [ Balboena ] |  2011 |
//+-----------------------------------------------------------------------------+
//| DESCRIÇÃO | Executar Rotinas Especificas após o login do usuario            |
//+-----------------------------------------------------------------------------+
//| HISTORICO DAS ALTERAÇÕES                                                    |
//+-----------------------------------------------------------------------------+
//| DATA     | AUTOR                | DESCRICAO                                 |
//+-----------------------------------------------------------------------------+
//|          |                      |                                           |
//+-----------------------------------------------------------------------------+
#Include "Protheus.Ch"


User Function AFTERLOGIN()


     //ROTINAS ESPECIFICAS PARA O MODULO DE GESTAO DE PESSOAL
     Do Case
        Case cModulo == "GPE" 
        
             //Verificar Férias e Termino de Período de Experiência


        Case cModulo == "COM"      


             //Verificar Pedidos com previsão de Entrega na data


     EndCase


Return






by Balboena (www.lbeb.com.br)