Árvore de páginas

Ponto-de-Entrada: CT280FILP - Filtro
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Inglês
Descrição:
O ponto de entrada CT280FILP é utilizado para filtro e skip no processamento na rotina de rateios Off-Line.
Eventos

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

Programa Fonte
CTBA280
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cAlias Caracter Alias de processamento do Filtro CTx
Retorno
    lRet(logico)
  • Retorno logico para skip no loop de processamento do rateio off-line
Exemplos
If lCT280FILP	If !ExecBlock("CT280FILP",.f.,.f.,{"CTI"})		dbSelectArea("CTI")		dbSkip()		Loop	EndIfEndIf