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
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 