TSS

Páginas filhas
  • MDeFil

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

  • Sem rótulos