Descrição | Desenvolvido o ponto de entrada |
---|
...
"MDeFil" |
---|
...
capaz |
---|
...
de |
---|
...
permitir |
---|
...
ao |
---|
...
administrador |
---|
...
do |
---|
...
sistema |
---|
...
substituir |
---|
...
a |
---|
...
tela |
---|
...
de |
---|
...
filtro |
---|
...
apresentada |
---|
...
no |
---|
...
início |
---|
...
da |
---|
...
execução |
---|
...
da |
---|
...
rotina |
---|
...
SPEDMANIF |
---|
...
– |
---|
...
Manifesto |
---|
...
Destinatário, |
---|
...
possibilitando |
---|
...
a |
---|
...
implementação |
---|
...
de |
---|
...
filtros |
---|
...
customizados |
---|
...
sobre |
---|
...
a |
---|
...
tabela |
---|
...
C00 |
---|
...
– |
---|
...
Manifesto |
---|
...
de |
---|
...
Destinatário. |
---|
...
Veja |
---|
...
também |
---|
...
MDeExpFil | |
---|---|
Idioma | Português (Brasil) |
...
Versões | Versões_Anteriores |
---|
...
Sistemas |
---|
...
Operacionais |
---|
...
Suportados |
---|
...
Todos | |
---|---|
Compatível com as Bases de Dados | Todas |
Programa Fonte | SPEDMANIFE.PRW |
Retorno | O retorno deste ponto de entrada deve contemplar um array de 2 posições, com as seguintes características: |
Posição 01:
Tipo: Caractere
Conteudo: Sintaxe na linguagem ADVPL com o filtro utilizado.
Exemplo: .and. C00_MESNFE == 2014
Posição 02:
Tipo: Caractere
Conteudo: Sintaxe na linguagem SQL-ANSI com o filtro utilizado.
Exemplo: AND C00_MESNFE = '2014'
Em anexo a este Boletim Técnico segue um modelo (RDMAKE) do ponto de entrada que ilustra melhor a sua utilização.
Exemplos |
---|
#INCLUDE "PROTHEUS.CH"
User Function MDeFil()
Local aRet := Array(2)
Local dDataIni := STOD('20140401')
Local dDataFim := STOD('20140430')
Local cAdvFil := ""
Local cSQLFil := ""
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Monta os Retornos ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
//1* - Sintaxe ADVPL
cAdvFil := " .and. C00_DTEMI >= STOD('" + DTOS(dDataIni) + "') "
cAdvFil += " .and. C00_DTEMI <= STOD('" + DTOS(dDataFim) + "') "
//2* - Sintaxe SQL ANSI
cSQLFil := "AND C00_DTEMI >= '" + DTOS(dDataIni) + "' "
cSQLFil += "AND C00_DTEMI <= '" + DTOs(dDataFim) + "' "
//Coloca os filtros no retorno do Array
aRet1 := cAdvFil
aRet2 := cSQLFil
Return aRet