Histórico da Página

#INCLUDE "TOTVS.CH"

User Function MT390DTV()

	Local dDataValid := PARAMIXB[1]

    
	Local lSeek      := .F.
	Local aAreaSD5   :=  SD5->(GetArea())

	DbSelectArea("SD5")
	DbSetOrder(3)
	lSeek := DbSeek(xFilial('SD5')+SD5->D5_NUMSEQ+SD5->D5_PRODUTO, .F.)
	//Validação do usuario
	If !Empty(dDataValid ).And. lSeek
		RecLock('SD5', .F.)
		Replace D5_DTVALID With dDataValid
		MsUnlock()
	EndIf
	RestArea(aAreaSD5)

Return