Linha Microsiga Protheus

Árvore de páginas

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.

Parâmetros:

Os parâmetros podem ser utilizados em todas as telas de pesquisas (Assuntos Jurídicos, Follow Ups, Andamentos, etc).

  • PARAMIXB[1][1]   - Parâmetro que contém a Filial do Assunto jurídico que esta posicionado - Exemplo: D MG 01 .
  • PARAMIXB[2][1]   - Parâmetro que contém Código do Assunto jurídico que esta posicionado - Exemplo: 0000000001
  • PARAMIXB[3][1]   - Parâmetro que contém a tabela que esta sendo utilizada - Exemplo: NSZ, NTA, etc.
  • PARAMIXB[4][1]   - Parâmetro que contém a Filial da tabela filha + código - Exemplo: D MG 01 0000000055

Exemplo

//Ponto de entrada exemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function JPESQOUT()
Local aMenu := {}
Local nX := 0
Local cFilCajuri := ""
Local cCajuri := ""
Local cTabFilha := ""
Local cFilCod := ""

cFilCajuri := PARAMIXB[1][1]       //-- Filial do Assunto jurídico - Exemplo: 01
cCajuri     := PARAMIXB[2][1]       //-- Código do Assunto jurídico - Exemplo: 0000000001
cTabFilha := PARAMIXB[3][1]       //-- Tabela filha de NSZ - Exemplo: NTA
cFilCod    := PARAMIXB[4][1]       //-- Filial da tabela filha + Código - Exemplo: 010000000005

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

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

Return( aMenu )

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

MsgAlert("Novo item menu Pesquisas. FILIAL: " + cFilCajuri + ", CAJURI: " + cCajuri + ", Tabela: " + cTabFilha + " e Filial + Codigo: " + cFilCod )

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:


Após a execução: