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   Local aNat   as character
	Local cFil   Local CFil   as Character
	Local cQuery    as character
	
 Local lSe2MsFil	as Logical

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

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

Return cQuery