Ponto de Entrada JPESQOUT
//Ponto de entrada exemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function JPESQOUT()
Local aMenu := {}
Local nX := 0
//Adição de um novo item no menu
aAdd(aMenu, {"Novo item", {|| U_AcaoItem() }, {|| U_ValidItem() }})
//Adição dos itens do padrão
aEval(PARAMIXB,{|aX|aAdd(aMenu,aX)})
Return( aMenu )
//Ação a ser executada ao clicar no novo item
User Function AcaoItem()
MsgAlert("Novo item menu Pesquisas")
Return
//Validação para execução do novo item
User Function ValidItem()
Local lRet := .T.
Return lRet
Ponto de Entrada
Descrição: | O ponto de entrada possibilita a alteração do menu Outros da Área de Trabalho. |
Localização: | Pesquisa |
Eventos: | O ponto de entrada é executado ao carregar o Menu Padrão da área de trabalho. Antecede abertura da(s) tela(s) de Pesquisas. |
Programa Fonte: | TJurPesquisa - Área de Trabalho da tela de Pesquisa. |
| Retorno | aMenu- Array com os itens a serem carregados no menu Outros da tela de Pesquisas. |
Exemplo
//Ponto de entrada exemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function JPESQOUT()
Local aMenu := {}
Local nX := 0
aAdd(aMenu, {"Novo item", {|| U_AcaoItem() }, {|| U_ValidItem() }})
aEval(PARAMIXB,{|aX|aAdd(aMenu,aX)})
Return( aMenu )
User Function AcaoItem()
MsgAlert("Novo item menu Pesquisas")
Return
User Function ValidItem()
Local lRet := .T.
Return lRet
Observações:
Após a execução do ponto de entrada, a(s) nova(s) opção(ões) são adicionadas ao menu Outros da Área de Trabalho, conforme exemplo abaixo:
Antes da execução:
Após a execução:
