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