Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F280ORIF280DTVC
    (Ponto de entrada para tratar manipular/gravaras dadosdatas nosde titulosvendimentos quedas originaramparcelas ado fatura.desdobramento)
    @type  Functionlogical
    @author Cassio S. Dias
    @since 0814/11/2023
    @version 12.1.2310
    @return nil
    @see (https://tdn.totvs.com/pages/editpage.action?pageId=804044938)

@param param_name, param_type, param_descr
    //SEV - Múltiplas Naturezas por Título@return lRet, logical
    //SE1 - Contas a Receber@see (links_or_references)
    /*/
User Function F280ORIF280DTVC(dDataVc)

	local cCodCli:="FINC25"
	local cLojCli:="01"
	local cPrfTit:="   "
	local cNumTit:="CT44003  "
	local cParc:="A"
	local cTipTit:="FT"
	Local aDados:={}

	aDados :={cCodCli, cLojCli, cPrfTit,cNumTit,cParc,cTipTit}

	dbSelectArea("SE1")
	dbSetOrder(2) //INDICE[2] -> E1_FILIAL+E1_CLIENTE+E1_LOJA+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO
	if dbseek(xFilial("SE1")+aDados[1]+aDados[2]+aDados[3]+aDados[4]+aDados[5]+aDados[6])
		IF SE1->E1_ORIGEM == "FINA280 "
			Reclock("SE1",.F.)
			SE1->E1_HIST  :='P.E F280ORI'
			MsUnlock()
		ENDIF
	ENDIF

Return nil as logical
	
    Local lRet :=.T.

    lRet:= dDataVc >= dDataBase
    
Return lRet