Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jorge Luis Branco Martins Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Jorge Luis Branco Martins Junior

Gravado em

Chave

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

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

serviços.Jurídico

Módulo:

Contabilidade Gerencial - SIGACTB.Pré Faturamento de Serviços - SIGAPFS

Rotina:

Rotina

Nome Técnico

CTBXVLDJURA235A

Validação de amarração.Aprovação de Solicitações de Despesa

Ponto de Entrada:

CTBXAMARRA.

Tickets relacionados

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
3723147.

Requisito/Story/Issue (informe o requisito relacionado):

DSERCTR1DJURFAT1-14982.7315

País(es):

Brasil.

Banco(s) de Dados:

Todos homologados para o Protheus.

Sistema(s) Operacional(is):

Todos homologados para o Protheus.

Descrição

O ponto de entrada ,  CTBXAMARRA JURA235A, indicando a chave "BROWSEFILTER" no segundo parâmetro (ID do local de execução do ponto de entrada), se implementado/existente, não exibirá a mensagem de inconsistência do Help padrão do sistema. O usuário/cliente deverá criar o seu próprio Help para exibir a mensagem de inconsistência de amarração de entidades contábeis.

Se houver inconsistência de amarração de entidades contábeis o ponto de entrada deve retornar falso. 

, 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, serão exibidos todos os registros.

Obs: Os Obs: 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 uma validação após a validação um filtro padrão do sistema.

Eventos:

lRet cFiltro := ExecBlock("CTBXAMARRAJURA235A", .F., .F., {cContaNIL, cCusto,cItem ,cCLVL, aCpos"BROWSEFILTER", "JURA235A"})

Programa Fonte:

CTBXVLDJURA235A

Retorno:

.T. ou .FCaractere com o filtro a ser utilizado.

 

Exemplo:

#Include 'Protheus.ch'

User Function

CTBXAMARA

JURA235A()
Local

lRet := .F.

Local cConta := PARAMIXB[1]

Local cCusto := PARAMIXB[2]

Local cItem   := PARAMIXB[3]

Local cCLVL := PARAMIXB[4]

Local aCpos := PARAMIXB[5]  // Array com os campos digitados

/* ------------------------------------------------------------------------------------
Aqui efetuar o seu tratamento
------------------------------------------------------------------------------------ */

Help( " " , 1 , "USER_HELP" ,, " Aqui exibir sua mensagem " ,3,0)

Return lRet

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 == 'JBM'"

EndIf

EndIf

Return cFiltro