Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
...
| Pagetitle | ||||
|---|---|---|---|---|
|
...
Punto de entrada: CT280FILP - Filtro
...
Alcances: | Microsiga Protheus 10 |
...
Versiones: | Microsiga Protheus 8.11, Microsiga Protheus 10 |
...
Compatible países: | Todos |
Sistemas |
...
operativos: | Todos |
...
Compatible con las bases de datos: |
...
Todas |
Idiomas: |
...
Inglés |
...
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
CTBA280Sintaxe
CT280FILP - Filtro ( [ cAlias ] ) --> lRet
...
Parámetros:
...
Nombre | Tipo |
...
Descripción |
...
Estándar |
...
Obligatorio |
...
Referencia | |||
cAlias |
...
Carácter | Alias de |
...
procesamiento del Filtro | CTx |
...
...
Devolución
lRet(logico)
Retorno logico para skip no loop de processamento do rateio off-line
...
Ejemplos
If lCT280FILP If !ExecBlock("CT280FILP",.f.,.f.,{"CTI"}) dbSelectArea("CTI") dbSkip() Loop EndIfEndIfVisão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas