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 Retornoretorno 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 |