Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

Contabilidade Gerencial (SIGACTB)

Função:Efetivação de Pré-lançamento  – CTBA350
País:Brasil
Ticket:13223964
Requisito/Story/Issue:

DSERCTR1-35190


02. SITUAÇÃO/REQUISITO

Permitir editar a query para filtro de acordo os parâmetros informados no pergunte para acrescentar condições na clausula Where.

03. SOLUÇÃO

Criação do ponto de entrada CT350QRY, na rotina CTBA350-Efetivação de Pré-Lançamento, para permitir alterar e acrescentar condições na clausula Where da query.



IMPORTANTE!

A utilização do ponto de entrada é de total autoria de quem o utiliza e os efeitos resultantes dele são de responsabilidade do cliente.


04. DEMAIS INFORMAÇÕES

O ponto de entrada receberá por parâmetro a query que será executada, então no ponto de entrada o usuário poderá acrescentar condições na clausula Where, como por exemplo, filtro por um campo de usuário criado na tabela CT2-Lançamentos Contábeis.

O retorno da query será sempre o primeiro registro de um lote e sublote agrupado, portanto a condição adicionada ao ponto de entrada ainda respeitará os parâmetros da rotina, não sendo determinante na efetivação ou não de um registro. 

Neste exemplo adicionamos um filtro por campo de usuário do tipo Caractere  com título "Filtro Usr." (campo: CT2_CPOUSR C 1) cujo conteúdo esteja "1".


Contextualização PE

CT350QRY – Manipular a query recebida como parâmetro e retornar a mesma alterada conforme necessidade do usuário.


Características do Requisito

Descrição:

O ponto de entrada CT350QRY permite manipular a query recebida como parâmetro e retornar a mesma alterada, conforme necessidade do usuário na rotina CTBA350-Efetivação de Pré-Lançamento.

Eventos:

ExistBlock("CT350QRY")

Programa Fonte:

CTBA350.PRW

Função (PE) :

CT350QRY() – Recebe e permite manipular a query para filtro da rotina CTBA350-Efetivação de Pré-lançamento e retorna a query já alterada.

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

 cQuery

Caractere

String com query original a ser executada como filtro na rotina de efetivação de Pré-Lançamento.[1] = Estrutura do Campo 1

SIM

Retorno:

Nome

Tipo

Descrição

Obrigatório

 cQuery

Caractere

String com query já alterada e acrescentado condições na clausula Where que será executada como filtro na rotina de efetivação de Pré-Lançamento.

SIM



Exemplo de PE
// Altera clausula where da query de filtro da rotina ctba350 - Efetivação de pré-lançamento

#Include "Protheus.ch"

User Function CT350QRY()

    Local aArea := GetArea()

    Local cQueryAux:= PARAMIXB[1]

	Alert("Evidencia do Ponto de Entrada : CT350QRY")

	cQueryAux:= StrTran(cQueryAux, " AND D_E_L_E_T_ = ' ' ", " AND CT2_CPOUSR = '1' AND D_E_L_E_T_ = ' ' ")

    RestArea(aArea)

Return cQueryAux


05. ASSUNTOS RELACIONADOS