Perguntas Validar Etiqueta por Lote!

Bom dia a todos!

Quando estamos aprendendo não é fácil, mas desistir nunca!

Estou aqui mais uma vez para pedir uma ajuda.

Abaixo está meu stati function para fazer uma validação impressão de etiqueta,
com valores chumbado deu certo, mas esse não é o objetivo.
Por favor, preciso validar a impressão de etiqueta somente se o lote digitado pelo
usuário estiver no sistema.

Desde já agradeço.


Static Function VlLote()

Local aRet := .T.

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


WHILE !EOF() .AND. SB8->B8_FILIAL == XFILIAL("SB8")

If (aLbx[oLbx:nAt,7]) $ SB8->B8_LOTECTL //Se Lote

SB8(DBSKIP())

aRet

Else

MsgAlert("Lote não cadastrado no sistema !")
aRet := .F.

EndIf
ENDDO

Return(aRet)

Bom dia a todos.

Problema solucionado. Solução abaixo:

Static Function VlLote()

Local lRet := .F.

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

If ! SB8->(DbSeek(xFilial('SB8')+aLbx[oLbx:nAt,2]+"01"+aLbx[oLbx:nAt,7]))

MsgAlert("Lote não cadastrado no sistema !")

lRet

Else

lRet:= .T.

EndIf

Return(lRet)