Histórico da Página

#INCLUDE "totvs.ch"

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

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

	aNat      := Paramixb
	cFil      := Paramixb
	cQuery    := ""
	lSe2MsFil := SE2->(FieldPos("E2_MSFIL")) > 0

	If lSe2MsFil
		cQuery += " AND E2_NATUREZ NOT IN "+FormatIn(aNat,";")
		cQuery += " AND E2_MSFIL = '"+cFil+"' "
	Endif

Return cQuery