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 |
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
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cAlias | Caracter | Alias de processamento do Filtro | CTx |
-
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