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