If ExistBlock("PCOA1704")
	//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//P_E³ Ponto de entrada utilizado para validacao da rotina chamada no menu    ³
	//P_E³ Estrutura no programa de atualizacao da planilha orcamentaria.         ³
	//P_E³ Parametros : [1] - Numerico - Opcao selecionada                        ³
	//P_E³ Retorno    : Logico - Permite ou na a utilizacao da opcao selecionada. ³
	//P_E³              Exemplo :                                                 ³
	//P_E³              User Function PCOA1704                                    ³
	//P_E³              Local lRet := .F.                                         ³
	//P_E³              If ParamIXB[1] == 1                                       ³	
	//P_E³                 lRet := .T.                                            ³	
	//P_E³              EndIf                                                     ³	
	//P_E³              Return lRet                                               ³
	//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	If !ExecBlock("PCOA1704", .F., .F., {nOpc})
		RestArea(aArea)
		Return
	EndIf
EndIf

User Function PCOA1704
	Local lRet := .F.
	//exemplo somente permite visualizacao CO
	If ParamIXB[1] == 2
		lRet := .T.
	Else
		Alert("usuario sem acesso")
	EndIf

Return lRet

• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.