Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

Observação:

Sugerimos a utilização do ponto de entrada FILSPEDNFE que garante uma melhor performance no acesso a rotina SPEDNFE, conforme o link:

FILSPEDNFE - Alteração de filtro dos documentos ao acessar a rotina SPEDNFE


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"	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³Realiza a Filtragem na 1-Saida                                          ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ				cCondicao := "F2_FILIAL=='"+xFilial("SF2")+"'"	If !Empty(MV_PAR03)		cCondicao += ".AND.F2_SERIE=='"+MV_PAR03+"'"	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	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³Realiza 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	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