CT280FILP - Filtro -- 30183

O ponto de entrada CT280FILP é utilizado para filtro e skip no processamento na rotina de rateios Off-Line.

While !Eof() .And. CTI->CTI_FILIAL == xFilSLD .And. CTI->CTI_CLVL == CTQ->CTQ_CLPAR

...

    While !Eof() .AND. CTI->CTI_FILIAL == xFilSLD .And. CTI->CTI_CLVL == CTQ->CTQ_CLPAR .and. CTI->CTI_CONTA == cConta
       
        If CTI->CTI_MOEDA <> cMoeda .or. CTI->CTI_TPSALD <> cTpSald
            dbSkip()
            Loop
        Endif
       
        If CTQ->CTQ_TIPO = "1"                /// SE FOR RATEIO DE MOVIMENTO
            If CTI->CTI_DATA < dDataIni .or. CTI->CTI_DATA > mv_par01
                dbSkip()
                Loop
            EndIf
        Else                                /// SE FOR RATEIO DE SALDO
            If CTI->CTI_DATA > mv_par01
                dbSkip()
                Loop
            EndIf
        EndIf
       
        If CTI->CTI_CUSTO <> cCusto .or. CTI->CTI_ITEM <> cItem
            cCusto := CTI->CTI_CUSTO
            cItem  := CTI->CTI_ITEM
           
            If (!lPesCC .or. CTI->CTI_CUSTO == CTQ->CTQ_CCPAR) .And. (!lPesITEM .or. CTI->CTI_ITEM == CTQ->CTQ_ITPAR)
                If lCT280FILP
                    If !ExecBlock("CT280FILP",.f.,.f.,{"CTI"})
                        dbSelectArea("CTI")
                        dbSkip()
                        Loop
                    EndIf
                EndIf

...

Enddo

...

Enddo

CTBA280

CT280FILP - Filtro ( [ cAlias ] ) --> lRet

lRet(logico)
• Retorno logico para skip no loop de processamento do rateio off-line

If lCT280FILP	If !ExecBlock("CT280FILP",.f.,.f.,{"CTI"})		dbSelectArea("CTI")		dbSkip()		Loop	EndIfEndIf