Histórico da Página

...

Portuguese

Pagetitle

	FISFILNFE - Alteração de filtro
	FISFILNFE - Alteração de filtro

Ponto-de-Entrada: FISFILNFE - Alteração de filtro

Versões:	Todas
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Espanhol , Inglês

Descrição:

Este ponto de entrada foi disponibilizado a fim de permitir alteração no filtro do usuário administrador na rotina SPEDNFE.

Programa Fonte

SPEDNFE.PRW

Sintaxe

FISFILNFE - Alteração de filtro ( ) --> cCondicao

Retorno

cCondicao

Retorno do filtro que será passado pelo ponto de entrada.

Exemplos

If SubStr(MV_PAR01,1,1) == "1"	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³RealizaRealiza a Filtragem na 1-Saida         
                                 ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ				cCondicao := "F2_FILIAL=='"+xFilial("SF2")+"'"	
   If !Empty(MV_PAR03)		
      cCondicao += ".AND.F2_SERIE=='"+MV_PAR03+"'"	EndIf	
   EndIf
   If SubStr(MV_PAR02,1,1) == "1" //"1-NF Autorizada"		
      cCondicao += ".AND. F2_FIMP$'S' "	
   ElseIf SubStr(MV_PAR02,1,1) == "3" //"3-Não Autorizadas"		
      cCondicao += ".AND. F2_FIMP$'N' "	
   ElseIf SubStr(MV_PAR02,1,1) == "4" //"4-Transmitidas"		
      cCondicao += ".AND. F2_FIMP$'T' "	
   ElseIf SubStr(MV_PAR02,1,1) == "5" //"5-Não Transmitidas"		
      cCondicao += ".AND. F2_FIMP$' ' "					EndIfElse
   EndIf
Else	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³RealizaRealiza a Filtragem na 2-Entrada        
                                ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ	cCondicao := "F1_FILIAL=='"+xFilial("SF1")+"' .AND. "	
   cCondicao += "F1_FORMUL=='S'"	
   If !Empty(MV_PAR03)		
      cCondicao += ".AND.F1_SERIE=='"+MV_PAR03+"'"	EndIf	
   EndIf
   If SubStr(MV_PAR02,1,1) == "1" .And. SF1->(FieldPos("F1_FIMP"))>0 //"1-NF Autorizada"		
      cCondicao += ".AND. F1_FIMP$'S' "	
   ElseIf SubStr(MV_PAR02,1,1) == "3" .And. SF1->(FieldPos("F1_FIMP"))>0 //"3-Não Autorizadas"		
      cCondicao += ".AND. F1_FIMP$'N' "	
   ElseIf SubStr(MV_PAR02,1,1) == "4" .And. SF1->(FieldPos("F1_FIMP"))>0 //"4-Transmitidas"		
      cCondicao += ".AND. F1_FIMP$'T' "	
   ElseIf SubStr(MV_PAR02,1,1) == "5" .And. SF1->(FieldPos("F1_FIMP"))>0 //"5-Não Transmitidas"		
      cCondicao += ".AND. F1_FIMP$' ' "					EndIfEndif
   EndIf
Endif

Páginas filhas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave