Histórico da Página

#INCLUDE "TOTVS.CH"                                                                                                               

/*/{Protheus.doc} User Function F560ADIA
    (Ponto de entrada F560ADIA destina-se a gravações complementares da exclusão  
	do movimento do caixinha)l
    @author Cassio S. Dias
    @since 09/11/2023
    @version 12.1.2310
    @return Nil
    @see (links_or_referenceshttps://tdn.totvs.com/pages/viewpage.action?pageId=804055569)
    /*/
User Function F560ADIA()

	Local cHist :="Estorno de Despesa"
	Local cInd :="SEU->EU_FILIAL+SEU->EU_CAIXA+SEU->EU_TIPO+SEU->EU_NROADIA+SEU->EU_NUM"
	Local cSit :="03"

	dbSelectArea("SEU")
	dbSetOrder(6)//	EU_FILIAL+EU_CAIXA+EU_TIPO+EU_NROADIA+EU_NUM
	if dbseek(xFilial("SEU")+cInd)
		if SEU->Eu>EU_STATUS == cSit
			Reclock("SEU",.F.)
			SEU->EU_HISTOR  := cHist
			MsUnlock()
		ENDIF
	ENDIF

Return Nil