Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FO10FLTR
    ( Ponto de entrada para filtrar pelo MSFIL em caso de Arquivo compartilhado.  Titulos Recebidos. )
    @type  Function
    @author Cassio S Dias
    @since 30/11/2023
    @version 12.1.2310
    @return cQuery, character
    @see (https://tdn.totvs.com/x/wzEwM)
    /*/
User Function FO10FLTR()

	Local aNat      as character
	Local cFil      as Character
	Local cQuery    as character
	Local lSe1MsFil	as Logical

	aNat      := Paramixb
	cFil      := Paramixb
	cQuery    := ""
	lSe1MsFil := SE1->(FieldPos("E1_MSFIL")) > 0

	If lSe1MsFil
		cQuery += " E1_NATUREZ NOT IN "+FormatIn(aNat,";")
		cQuery += " AND E1_MSFIL = '"+cFil+"' AND "
	Endif

Return cQuery