Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F280ORI
    (Ponto de entrada para manipular/gravar dados nos titulos que originaram a fatura.)
    @type  Function
    @author Cassio S. Dias
    @since 08/11/2023
    @version 12.1.2310
    @return nil
    @see (links_or_referenceshttps://tdn.totvs.com/pages/editpage.action?pageId=804044938)

    //SEV - Múltiplas Naturezas por Título
    //SE1 - Contas a Receber
    /*/
User Function F280ORI()

	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