TSS

Páginas filhas
  • FISFILNFE - Alteração de filtro tela de Transmissão de NF-e

Importante

Este Ponto de Entrada foi descontinuado, 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$' ' "					
   EndIf
Else	//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$' ' "					
   EndIf
Endif