AT040ROT - Adicionando novas rotinas no cadastro de Base de Atendimento

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