Histórico da Página

||Descrição|| Ponto de Entrada existente na função MenuDef(), da rotina de Base de Atendimento,que deve ser utilizado quando existir a necessidade de adicionar novas rotinas conforme necessidade do usuário.  
||Exemplos||Static Function Exemplo()
	//DEFININDO EXEMPLO DE ARRAY DE ROTINA
	Local aRotina := \{
	\{“Pesquisar”, “AxPesqui”, 0, 1, 0, .F. \} , ;
	\{“Visualizar”, “At040Visua”, 0, 2, 0, .T. \}, ;
	\{“Incluir”, “At040Inclui”, 0, 3, 0, .T. \} \}
}
Local aNovaRot := {}
//Adicionando novas rotinas através do ponto de entrada
If ExistBlock (“AT040ROT”)
	//Verifica se o tipo de retorno é um Array
	If ValType ( aNovaRot := ExecBlock(“AT040ROT”, .F.,.F.) ) == “A”
			AEval( aNovaRot, \{ \|x\| AADD(aRotina, x) \} )
		ENDIF
	ENDIF
Return(aRotina)
//Exemplo de inclusão de novas rotinas
User Function AT040ROT()
	Local aRet := \{ \{“Alterar”, “At040Alter”, 0, 4, 0, .T.\},;
\{“Excluir, “ At040Delet”, 0, 5, 0, .T.\} \}
Return aRet
/* Ao término da execução do método exemplo, o array irá conter as seguintes rotinas: Pesquisar, Visualizar, Incluir, Alterar, Excluir.*/
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10_e_Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Retorno|| aRet(Array) ==> Array contendo novas rotinas
||Programa Fonte|| TECA040.prx