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
