Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FO30FILT
    ( Ponto de entrada para filtrar pelo MSFIL em caso de arquivo compartilhado. )
    @type  Function
    @author Cassio S Dias
    @since 30/11/2023
    @version 12.1.2310
    @return cQuery, character
    @see (https://tdn.totvs.com/x/QAQwM)
    /*/ 
User Function FO30FILT(param_name)
) as character
	
	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