Histórico da Página

#INCLUDE "TOTVS.CH"

  /*/{Protheus.doc} User Function F560DEL5
   (Ponto de entrada grava dados complementares na exclusão dos itens da prestação  de contas do caixinha)
    @author Cassio S. Dias
    @since 10/11/2023
    @version 12.1.2310
    @see (https://tdn.totvs.com/x/nJz1Lw)
    /*/
User Function F560DEL5(Paramixb)

    //Posicionado na tabela "SEU - Movimentos do caixinha"
	
	Local cHistaDados := Paramixb
	Local aDados[1] //"Dados complementares excluidos"
	Local cInd :=aDados[2] //"SEU->EU_FILIAL+SEU->EU_CAIXA+SEU->EU_TIPO+SEU->EU_NROADIA+SEU->EU_NUM"
	Local cSit :=aDados[3] //"03"

	dbSelectArea("SEU")
	dbSetOrder(6)//	EU_FILIAL+EU_CAIXA+EU_TIPO+EU_NROADIA+EU_NUM
	if dbseek(xFilial("SEU")+cIndaDados[2])
		if SEU->EU_STATUS == cSitaDados[3]
			Reclock("SEU",.F.)
			SEU->EU_HISTOR  := cHistaDados[1]
			MsUnlock()
		ENDIF
	ENDIF

Return Nil