Ponto de Entrada GP690FIL - Alterar filtro do cálculo de dissídio

Ponto de Entrada

Exemplo:

#INCLUDE "PROTHEUS.CH"#Include 'Protheus.ch'
User Function GP690FIL()

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

//Filtro SRA (em linguagel SQL)
If nTipo == 1
    cFiltro := cFiltro1    xRet    := "%(RA_FILIAL BETWEEN '01' AND '99') AND RA_SITFOLH IN(' ') %"
//Filtro Cálculo (AdvPl)
Else
    cFiltro := cFiltro2(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 cFiltroxRet

/*

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

1 - Filtro em SQL para a tabela SRA e 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.

*/