Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
FI040ROT

F460STI - Permite

inclusão de novos itens no MenuDef

se será apresentada a tela de parâmetros para simulação

Descrição:

O ponto de entrada FI040ROT permite incluir novos itens no menu aRotina. O novo item será incluso na rotina de Contas a Receber e também na rotina de Funções a Receber no botão referente ao Ctas. a Receber F460STI permite se será apresentada a tela de parâmetros para simulação, se essa tela de parâmetros não for apresentada o browse em MVC também não será apresentado, sendo assim o usuário não conseguirá dar prosseguimento a simulação.

Importante ressaltar que o ponto de entrada deve ser utilizado para inclusão de novos item e não para alterar as posições do menu original, pois esta deve ser mantida mesmo após um novo item ser adicionadonovas simulações.

Tela de mensagem ao usuário quanto a não permissão de acesso, deverá ser criado pelo Ponto de Entrada o produto padrão não exibirá tela, deixando o conteúdo da mensagem sob responsabilidade do usuário.

Se o retorno for verdadeiro (.T.) o usuário poderá visualizar as telas e dar continuidade a execução da simulação.

Localização:

Está presente na função MenuDef()função F460AIncl.

Eventos:

MenuDefF460AIncl()

Programa Fonte:

FINA040 - FINA740FINA460A

Versões:12

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

ParamIxb

Array

Recebe um array com o menu padrão

X

Retorno:ArrayLogico.

Exemplo: 

No exemplo abaixo é demonstrado a forma correta de incluir um novo item sem alterar as posições atuais do menu padrãopara manipular o ponto de entrada com retorno logico .

#INCLUDE "PROTHEUS.CH"

User Function FI040ROTF460STI()

Local lRet           := .T.
Local cAliasTMP := ParamixB[1]
Local nOpcx       := ParamixB[2]
Local aCpoBro   := ParamixB[3]

//Valida antes de exibir a tela de simulação 

lRet := .F.

If !lRet
    Alert("Acesso bloqueado por Ponto de Entrada")
Endif

Return lRet 
Local aRotRet := AClone(PARAMIXB)
aAdd( aRotRet,{"Novo Menu", "u_Fteste()", 0, 7})
Return aRotRetUser Function Fteste()
Alert("Ponto de entrada FI040ROT funcionando com sucesso!")
Return