CT280FILP - Filtro -- 30183

Punto de entrada: CT280FILP - Filtro

Descripción:

El punto de entrada CT280FILP se utiliza para filtro y skip en el procesamiento en la rutina de prorrateos 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"                /// SI FUERA PRORRATEO DE MOVIMIENTO
            If CTI->CTI_DATA < dDataIni .or. CTI->CTI_DATA > mv_par01
                dbSkip()
                Loop
            EndIf
        Else                                /// SI FUERA PRORRATEO 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 fuente

CTBA280

Sintaxe

CT280FILP - Filtro ( [ cAlias ] ) --> lRet
Parámetros:

Devolución
            lRet(logico)

            Devolución lógica para skip en el loop de procesamiento del prorrateo off-line

Ejemplos

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