Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F040FILTIT

    (//PE - Validacao para inclusao do titulo na tabela temporaria da movimentção de baixa)
    @type  Function
    @author Cassio S. Dias
    @since 07/11/2023
    @version 12.1.2310
    @return lRet, Logical
    @see (links_or_references)
    /*/
User Function F040FILTIT() 

	Local aDados := {}

	aDados :={'VL','FIN','000000006',' ','01'}

	dbSelectArea("SE5")
	dbSetOrder(2) //INDICE[2] -> E5_FILIAL+E5_TIPODOC+E5_PREFIXO+E5_NUMERO+E5_PARCELA+E5_TIPO+DtoS(E5_DATA)+E5_CLIFOR+E5_LOJA+E5_SEQ
	
    if dbseek(xFilial("SE1SE5")+aDados[1]+aDados[2]+aDados[3]+aDados[4]+aDados[5])
		lRet:=.F. //Se retornar .F. o registro não será carregado na tabela temporária
	else
		lret:=.T. //Se retornar .T. o registro será carregado na tabela temporária
	endif

Return lRet