Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Usuário desconhecido (douglas.souza)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (douglas.souza)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA200FILA085ABRW
linenumberstrue
User Function A085ABRW()
Local cFiltro :=""
Local cNAT :="0001"
Local cTipo :="NF"
If MsgYesNo("Deseja filtrar títulos de natureza diferente de "+ cNAT + " ?","Atenção")
cFiltro:= "Alltrim(E2_NATUREZ) = '"+cNAT+"'"
Endif
If MsgYesNo("Deseja filtrar títulos de tipo diferente de "+ cNAT + " ?","Atenção")
cFiltro+= " .AND. Alltrim(E2_TIPO) = '"+cTipo+"'"
Endif

Return cFiltro