Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
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