Perguntas Query para advpl

Boa tarde

Estou com uma query e estou com duvida para jogar em ADVPL alguém poderia me ajudar. Segue abaixo query

SELECT ZZB_NUMERO, ZZB_CLIENT, ZZB_VALOR
FROM ZZB010
WHERE ZZB_IDMOVI = (SELECT ZZB_IDMOVI FROM ZZB010
WHERE ZZB_NUMERO = 'NUMERO')
AND ZZB_MOVIME = 'D'

Boa tarde, faça da seguinte forma:

Local cQuery := ""
cQuery := " SELECT"
cQuery += " ZZB_NUMERO, ZZB_CLIENT, ZZB_VALOR"
cQuery += " FROM " + RetSqlName("SZC")
cQuery += " WHERE ZZB_IDMOVI = (SELECT ZZB_IDMOVI FROM ZZB010 WHERE ZZB_NUMERO = 'NUMERO')"
cQuery += " AND ZZB_MOVIME = 'D'"

dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),"USU",.T.,.T.)

DbSelectArea("USU")
USU->(DbGoTop())

While USU->(!EOF())

//seu processamento
USU->(DbSkip())

End

Em tempo, nesta linha RetSqlName("SZC")
troque por RetSqlName("ZZB")

Vlw Ronaldo, deu certinho