Histórico da Página

#INCLUDE "totvs.ch"

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

	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 lSe2MsFil
		cQuery += " SE1.E1_NATUREZ NOT IN "+FormatIn(aNat,";")+" AND "
		cQuery += " SE1.E1_MSFIL = '"+cFil+"' AND "
	Endif

Return cQuery