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 |
import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: FISFILNFE - Alteração de filtro
Descrição: Este ponto de entrada foi disponibilizado a fim de permitir alteração no filtro do usuário administrador na rotina SPEDNFE. SPEDNFE.PRW Sintaxe FISFILNFE - Alteração de filtro ( ) --> cCondicao Retorno cCondicao
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 |