Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Daniel Fernandes Rodrigues

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Rebeca Facchinato Asuncao

Gravado em

Chave

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

Ponto de Entrada JPESQOUT

Ponto de Entrada

Descrição:

O ponto de entrada possibilita a alteração do menu Outros da Área de Trabalho.

Localização:

Atualizações / Assuntos Jurídicos > 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
Local cFilCajuri := ""
Local cCajuri := ""

      cFilCajuri := PARAMIXB[1][1]
      cCajuri     := PARAMIXB[2][1]

      //Adição de um novo item no menu
      aAdd(aMenu, {"Novo item", {|| U_AcaoItem(Eval(cFilCajuri), Eval(cCajuri)) }, {|| U_ValidItem() }})

      //Adição dos itens do padrão
      aEval(PARAMIXB[3][1],{|aX|aAdd(aMenu,aX)})

Return( aMenu )

//Ação a ser executada ao clicar no novo item
User Function AcaoItem( cFilCajuri, cCajuri )

      MsgAlert("Novo item menu Pesquisas. FILIAL: " + cFilCajuri + " e CAJURI: " + cCajuri)

Return

//Validação para execução do novo item
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:

Image RemovedImage Added


Após a execução:

Image RemovedImage Added