RH - Linha Protheus - GPE - Ponto de Entrada GP690FIL - Alterar filtro do cálculo de dissídio

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Ponto de Entrada GP690FIL - Alterar filtro do cálculo de dissídio.

Ambiente
TOTVS RH - TOTVS RH ( Linha Protheus ) GPE Gestão de Pessoal - Todas as versões.

Solução

Este ponto de entrada permite alterar filtro do cálculo de dissídio.

Programa Fonte
GPEM690.PRX, GPEM020

Retorno

xRet

EXEMPLO DE UTILIZAÇÃO

Exemplo:

#INCLUDE "PROTHEUS.CH"
User Function GP690FIL()

Local nTipo     := Paramixb[1]
Local cFiltPad  := Paramixb[2]
Local xRet        := Nil

//Filtro SRA (em linguagel SQL)
If nTipo == 1
    xRet    := "%(RA_FILIAL BETWEEN '01' AND '99') AND RA_SITFOLH IN(' ') %"
//Filtro Cálculo (em linguagem AdvPL)
ElseIf nTipo == 2
    xRet    := "((RA_FILIAL >= '01' .AND. RA_FILIAL <= '99')) .AND. (RA_SITFOLH $ (' '))"
//Indica se irá processar o cálculo do registro ou não
ElseIf nTipo == 3
    xRet := .T.
EndIf

Return xRet

/*

No exemplo, é feito verificação da chamada do ponto de entrada:

1 - Filtro em SQL para a tabela SRA para processar os registros da filial 01 a 99 com o campo RA_SITFOLH em branco.

2 - Filtro em AdvPl para o cálculo para processar os registros da filial 01 a 99 com o campo RA_SITFOLH em branco.

3 - Retorno lógico indicando que irá processar todos os registros da SRA.

Obs.: após a compilação do ponto de entrada, é necessário que nas três execuções sejam retornado o conteúdo conforme formato explicado acima. Para manter a coerência do filtro, tanto o filtro em SQL quanto em AdvPL devem efetuar o mesmo filtro, com a particularidade de sintaxe de cada linguagem.

*/

Saiba mais:
https://tdn.totvs.com/display/PROT/DT_PE_GP690FIL_Alterar_Filtro_Dissidio 
RH - Dissidio