Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FA040PAR
    (Ponto de entrada permite manilar/alterar dados complementares na gravação do desdobramento conforme a parcela)
    @type  Function
    @author Cassio S. Dias
    @since 28/11/2023
    @version 12.1.2310
    @return NIL
    @see (links_or_referenceshttps://tdn.totvs.com/x/LywpM)
    /*/
User Function FA040PAR(a040Desd)

	Local aDados   AS ARRAY

	aDados := a040Desd

	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_TIPO $ aDados[6] .AND. SE1->E1_PARCELA $ aDados[5]
			Reclock("SE1",.F.)
			SE1->E1_HIST  :='Passou pelo P.E FA040PAR'
			MsUnlock()
		EndIf
	ENDIF

Return NIL