Wiki Markup |
---|
||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
aRet[1] := cAdvFil
aRet[2] := cSQLFil
Return aRet |