Estou fazendo um código de validação, mas não esta dando certo, alguem poderia me dar um help?

User Function VldLot() 

local aArea := GetArea()
local lRet:= .t.

DBSELECTAREA( "SB8" )
SB8-> (DBSETORDER( 1 ))

IF !DbSeek((xFilial("SB8")+SB8->B8_LOTECTL))
    lRet := .F. 
    ALert("Lote Não Encontrado!!!!")
else 
    ALert("Lote Registrado!!!")
endif 

RestArea(aArea)

Return(lRet)