Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function SPDPIS08() 
	
 	Local aArea 	:= SFT->(GetArea())	 
	Local cAlias    := ParamixB[1] //Alias referente a tabela SFT
	Local cChave    := ParamixB[2] //Chave de acesso a tabela
	Local dEntrada 	:= CToD("")

	(cAlias)->(DbSetOrder(1)) 	

	If (cAlias)->(MsSeek(cChave))
		dEntrada := (cAlias)->(FT_ENTRADA)
	EndIf

	RestArea(aArea)

Return dEntrada