Árvore de páginas

Versões comparadas

Chave

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

Disponibilização de ponto de entrada para manipulação do filtro do browse da rotina de Aprovação de Solicitação de Despesas

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Jurídico

Módulo:

Pré Faturamento de Serviços - SIGAPFS

Rotina:

Rotina

Nome Técnico

JURA235A

Aprovação de Solicitações de Despesa

Ponto de Entrada:

JURA235A

Parâmetros:

NomeTipoDescrição
PARAMIXB[1]ObjetoObjeto do formulário ou do modelo, conforme o caso
PARAMIXB[2]CaractereID do local de execução do ponto de entrada
PARAMIXB[3]CaractereID do formulário

Requisito:

DJURFAT1-7315

País(es):

Brasil

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

O ponto de entrada JURA235A, para o local de execução com ID "BROWSEFILTER", se implementado, realizará um filtro nos registros no browse sempre que a rotina for executada. Esse filtro não poderá ser alterado ou removido pelo usuário/cliente via sistema. 

Caso não seja enviado nenhum valor como filtro, não será realizado nenhum filtro.

Os impactos da execução de pontos de entrada no sistema padrão são de responsabilidade do usuário/cliente.


Ponto de Entrada

Descrição:

Este ponto de entrada permite adicionar um filtro padrão do sistema.

Eventos:

cFiltro := ExecBlock("JURA235A", .F., .F., {NIL, "BROWSEFILTER", "JURA235A"})

Programa Fonte:

JURA235A

Retorno:

Caractere com o filtro a ser utilizado.

 

Exemplo:

User Function JURA235A()
Local aParam   := PARAMIXB
Local oObj        := ""
Local cIdPonto := ""
Local cIdModel := ""
Local cFiltro      := ""


If aParam <> NIL

oObj        := aParam[1] // Objeto do formulário ou do modelo, conforme o caso
cIdPonto := aParam[2] // ID do local de execução do ponto de entrada
cIdModel := aParam[3] // ID do formulário

If cIdPonto == "BROWSEFILTER"

cFiltro := "NZQ_USRINC == 'USER'" // Exibe somente as solicitações em que o usuário de inclusão seja é o 'USER'cFiltro := "NZQ_USRINC == 'USER'".

EndIf

EndIf

Return cFiltro